<html><head><base href="x-msg://2273/"></head><body style="word-wrap: break-word; -webkit-nbsp-mode: space; -webkit-line-break: after-white-space; ">Yes, I'll take a look.<br><div><br>
<br><div><div>On Jan 8, 2011, at 9:56 AM, Jay K wrote:</div><br class="Apple-interchange-newline"><blockquote type="cite"><span class="Apple-style-span" style="border-collapse: separate; font-family: Helvetica; font-style: normal; font-variant: normal; font-weight: normal; letter-spacing: normal; line-height: normal; orphans: 2; text-indent: 0px; text-transform: none; white-space: normal; widows: 2; word-spacing: 0px; -webkit-border-horizontal-spacing: 0px; -webkit-border-vertical-spacing: 0px; -webkit-text-decorations-in-effect: none; -webkit-text-size-adjust: auto; -webkit-text-stroke-width: 0px; font-size: medium; "><div class="hmmessage" style="font-size: 10pt; font-family: Tahoma; ">Tony any chance you can look at this? Or advise me where to fix? Notice the mismatches go both ways. This is on Darwin/i386 for me. Probably occurs on all 32bit targets & no 64bit targets.<br><br>- Jay/phone<br><br>> From:<span class="Apple-converted-space"> </span><a href="mailto:jay.krell@cornell.edu">jay.krell@cornell.edu</a><br>> To:<span class="Apple-converted-space"> </span><a href="mailto:m3devel@elegosoft.com">m3devel@elegosoft.com</a><br>> Date: Sat, 8 Jan 2011 08:19:06 +0000<br>> Subject: [M3devel] FW: LONGINT subrange problems<br>><span class="Apple-converted-space"> </span><br>><span class="Apple-converted-space"> </span><br>> This is all based on Mika's work.<br>><span class="Apple-converted-space"> </span><br>><span class="Apple-converted-space"> </span><br>> MODULE Main;<br>><span class="Apple-converted-space"> </span><br>> PROCEDURE F1(<*UNUSED*>x: LONGINT) = BEGIN END F1;<br>><span class="Apple-converted-space"> </span><br>> PROCEDURE F2() =<br>> <*UNUSED*>VAR x: [0L..0L];<br>> BEGIN<br>> END F2;<br>><span class="Apple-converted-space"> </span><br>> PROCEDURE F3() =<br>> VAR x: [0L..0L];<br>> BEGIN<br>>   F1(x);<br>> END F3;<br>><span class="Apple-converted-space"> </span><br>> BEGIN<br>>   F1(0L);<br>>   F2();<br>>   F3();<br>> END Main.<br>><span class="Apple-converted-space"> </span><br>><span class="Apple-converted-space"> </span><br>> (20)           declare_procedure name:Main__F1 n_params:1 lev:0 exported:false procedure:0x0 procedure:0x4<br>><span class="Apple-converted-space"> </span><br>> (22)             declare_procedure name:Main__F2 n_params:0 lev:0 exported:false procedure:0x0 procedure:0x5<br>><span class="Apple-converted-space"> </span><br>> (24)               declare_procedure name:Main__F3 n_params:0 lev:0 exported:false procedure:0x0 procedure:0x6<br>><span class="Apple-converted-space"> </span><br>><span class="Apple-converted-space"> </span><br>><span class="Apple-converted-space"> </span><br>> (33)                 begin_procedure procedure:0x5<br>> (34)                   set_source_line 6<br>> (35)                   load_integer type:int_64 0<br>> (36)                   comment comment:********* M3CG_Check ERROR *********** bad stack:  expected [ Int32    ] got [ Int64    ]<br>> (37)                   store var:0x5 offset:0 src_t:int_32 dst_t:word_8<br>> (38)                   set_source_line 8<br>> (39)                   exit_proc type:void<br>> (40)                 end_procedure procedure:0x5<br>> (41)                 comment comment:F3<br>> (42)                 set_source_line 0xA(10)<br>><span class="Apple-converted-space"> </span><br>> (43)                 begin_procedure procedure:0x6<br>> (44)                   set_source_line 0xB(11)<br>> (45)                   load_integer type:int_64 0<br>> (46)                   comment comment:********* M3CG_Check ERROR *********** bad stack:  expected [ Int32    ] got [ Int64    ]<br>> (47)                   store var:0x6 offset:0 src_t:int_32 dst_t:word_8<br>> (48)                   set_source_line 0xD(13)<br>><span class="Apple-converted-space"> </span><br>> (49)                   start_call_direct procedure:0x4 level:0<br>> (50)                     load var:0x6 offset:0 src_t:word_8 dst_t:int_32<br>> (51)                     comment comment:********* M3CG_Check ERROR *********** bad stack:  expected [ Int64    ] got [ Int32    ]<br>> (52)                     pop_param type:int_64<br>> (53)                   call_direct procedure:0x4<br>> (54)                   set_source_line 0xE(14)<br>> (55)                   exit_proc type:void<br>> (56)                 end_procedure procedure:0x6<br>> (57)                 comment comment:Main_M3<br>> (58)                 comment comment:module main body Main_M3<br>> (59)                 set_source_line 0x10(16)<br>><span class="Apple-converted-space"> </span><br>><span class="Apple-converted-space"> </span><br>><span class="Apple-converted-space"> </span><br>><span class="Apple-converted-space"> </span><br>><span class="Apple-converted-space"> </span><br>><span class="Apple-converted-space"> </span><br>><span class="Apple-converted-space"> </span><br>> ----------------------------------------<br>> > Date: Sat, 8 Jan 2011 09:15:22 +0000<br>> > To:<span class="Apple-converted-space"> </span><a href="mailto:m3commit@elegosoft.com">m3commit@elegosoft.com</a><br>> > From:<span class="Apple-converted-space"> </span><a href="mailto:jkrell@elego.de">jkrell@elego.de</a><br>> > Subject: [M3commit] CVS Update: cm3<br>> ><br>> > CVSROOT: /usr/cvs<br>> > Changes by: jkrell@birch. 11/01/08 09:15:21<br>> ><br>> > Modified files:<br>> > cm3/m3-sys/m3tests/src/p2/p250/: Main.m3<br>> ><br>> > Log message:<br>> > more LONGINT subrange problems, this now has 3 internal codegen errors,<br>> > due to stack type and expected type mismatches<br>> ><br>><span class="Apple-converted-space"> </span><br></div></span></blockquote></div><br></div></body></html>