<html>
<head>
<style><!--
.hmmessage P
{
margin:0px;
padding:0px
}
body.hmmessage
{
font-size: 10pt;
font-family:Tahoma
}
--></style>
</head>
<body class='hmmessage'>
Can you put all your code in our CVS repository?<br><br>> "../I386_DARWIN/FSSchemeStubs.m3", line 434: 2 code generation errors<br><br>There is a way to get that to show more information..<br>Or does it already?<br><br> - Jay<br><br>> To: m3devel@elegosoft.com<br>> Date: Mon, 27 Dec 2010 02:14:21 -0800<br>> From: mika@async.caltech.edu<br>> Subject: Re: [M3devel] compiler problems on Snow Leopard<br>> <br>> I upgraded to the CVS head and now I get the following:<br>> <br>> ...<br>> "../I386_DARWIN/FSSchemeStubs.m3", line 872: warning: unreachable statement<br>> "../I386_DARWIN/FSSchemeStubs.m3", line 903: warning: unreachable statement<br>> "../I386_DARWIN/FSSchemeStubs.m3", line 434: 2 code generation errors<br>> 1 error and 23 warnings encountered<br>> new exporters -> recompiling FSSchemeStubs.i3<br>> ...<br>> <br>> The source code is:<br>> <br>> TYPE FS_Iterator_Surrogate = FS.Iterator OBJECT (* line 434 *)<br>> interp : Scheme.T;<br>> next_slot : SchemeObject.T := NIL;<br>> close_slot : SchemeObject.T := NIL;<br>> nextWithStatus_slot : SchemeObject.T := NIL;<br>> OVERRIDES<br>> next := FS_Iterator_next_default;<br>> close := FS_Iterator_close_default;<br>> nextWithStatus := FS_Iterator_nextWithStatus_default;<br>> END;<br>> <br>> Mika<br>> <br>> Mika Nystrom writes:<br>> >Hi everyone,<br>> ><br>> >Well I was able to get past all my linking issues (mostly questions<br>> >of dynamic vs. static linking and how to do it, which seems to change from<br>> >version to version...)<br>> ><br>> >But now I did hit a real problem.<br>> ><br>> >"../I386_DARWIN/FSSchemeStubs.m3", line 934: ** INTERNAL CG ERROR *** unaligne<br>> >d store type=6 s/o/a=32/0/32<br>> >"../I386_DARWIN/FSSchemeStubs.m3", line 981: ** INTERNAL CG ERROR *** unaligne<br>> >d load_indirect type=6 s/a=32/32<br>> ><br>> >Here is the code, but it's not likely to be of much help...<br>> ><br>> >PROCEDURE ToScheme_File_Status(READONLY x : File.Status) : SchemeObject.T RAIS<br>> >ES { Scheme.E } =<br>> > BEGIN<br>> > VAR res : SchemePair.T:=NIL; BEGIN<br>> > res := SchemeUtils.Cons(SchemeUtils.Cons(SchemeSymbol.FromText("type"),T<br>> >oScheme_Atom_T(x.type)),res);<br>> > res := SchemeUtils.Cons(SchemeUtils.Cons(SchemeSymbol.FromText("modifica<br>> >tionTime"),SchemeModula3Types.ToScheme_LONGREAL(x.modificationTime)),res);<br>> > res := SchemeUtils.Cons(SchemeUtils.Cons(SchemeSymbol.FromText("size"),T<br>> >oScheme_VAL0LONGINT__VAL16778080LONGINT(x.size)),res); (* line 934 *)<br>> > RETURN res<br>> > END<br>> > END ToScheme_File_Status;<br>> ><br>> ><br>> >...<br>> ><br>> >PROCEDURE ToScheme_VAL0LONGINT__VAL16778080LONGINT(READONLY x : [ VAL(0, LONGI<br>> >NT )..VAL(16778080, LONGINT ) ]) : SchemeObject.T RAISES { Scheme.E } =<br>> > BEGIN<br>> > RETURN ToScheme_LONGINT(x) (* line 981 *)<br>> > END ToScheme_VAL0LONGINT__VAL16778080LONGINT;<br>> ><br>> ><br>> >for reference, ToScheme_LONGINT is:<br>> ><br>> >PROCEDURE ToScheme_LONGINT(READONLY x : LONGINT ) : SchemeObject.T RAISES { S<br>> >cheme.E } =<br>> > BEGIN<br>> > WITH ref = NEW(REF LONGINT) DO<br>> > ref^ := x;<br>> > RETURN SchemeModula3Types.ToScheme_LONGINT(ref)<br>> > END<br>> > END ToScheme_LONGINT;<br>> ><br>> > Mika<br> </body>
</html>