/[eiffelstudio]/trunk/eweasel/tests/expanded008/test.e
ViewVC logotype

Contents of /trunk/eweasel/tests/expanded008/test.e

Parent Directory Parent Directory | Revision Log Revision Log


Revision 78443 - (show annotations)
Wed Apr 29 21:40:22 2009 UTC (10 years, 10 months ago) by manus
File size: 334 byte(s)
Added a new test showing a bug in our GC when an expanded refers to a young object. When the young object
  is moved, then the expanded references still points to the old location no the new one.

1 class
2 TEST
3
4 create
5 make
6
7 feature
8
9 make is
10 local
11 t1: TEST1
12 s: STRING
13 i: INTEGER
14 do
15 s := "Object"
16 t1.set_a (s)
17 from
18 i := 1
19 until
20 i > Max
21 loop
22 t1 := t1.twin
23 if t1.a /~ s then
24 io.put_string ("Not OK%N")
25 i := Max
26 end
27 i := i + 1
28 end
29 end
30
31 Max: INTEGER = 1_000_000
32
33 end
34

Properties

Name Value
svn:eol-style native
svn:keywords Author Date ID Revision

  ViewVC Help
Powered by ViewVC 1.1.23