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

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

Parent Directory Parent Directory | Revision Log Revision Log


Revision 73409 - (show annotations)
Thu May 8 15:52:40 2008 UTC (11 years, 8 months ago) by manus
File size: 706 byte(s)
Extended test to cover a bug in code generation when inlining a routine called on a named
  tuple, we would use the wrong register for the named label and thus causes a seg fault at runtime.

1 class TEST
2 create
3 make
4
5 feature {NONE} -- Creation
6
7 make
8 local
9 keys: TUPLE [name: TEST1; last: TEST1]
10 l_str: STRING
11 i: INTEGER
12 do
13 create keys
14 keys.name := create {TEST2}
15 keys.last := create {TEST2}
16 print_values (keys.name, generate_garbage, keys.last)
17 keys.name.f
18 from
19 i := 1
20 until
21 i = 2
22 loop
23 keys.twin.name.f
24 keys.twin.name.h (l_str)
25 i := i + 1
26 end
27 end
28
29
30 print_values (a, b, c: ANY) is
31 --
32 do
33 print (a.generating_type) print ("%N")
34 print (b.generating_type) print ("%N")
35 print (c.generating_type) print ("%N")
36 end
37
38 generate_garbage: BOOLEAN is
39 --
40 local
41 l_mem: MEMORY
42 do
43 create l_mem
44 l_mem.collect
45 end
46
47 end

Properties

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

  ViewVC Help
Powered by ViewVC 1.1.23