<html>
<head>
<style><!--
.hmmessage P
{
margin:0px;
padding:0px
}
body.hmmessage
{
font-size: 10pt;
font-family:Tahoma
}
--></style>
</head>
<body class='hmmessage'>
Head looks much better than release here. I'm not "just" saying that.<br><br>release has stuff like m3front/src/misc/CG.m3:<br><br> ELSIF (t = Target.Word.cg_type) OR (t = Target.Integer.cg_type) THEN<br> ...<br> ELSE Err("unaligned..."<br><br>where head has:<br> ELSIF (t = Target.Word.cg_type) OR (t = Target.Integer.cg_type)<br> OR (t = Target.Long.cg_type) OR (t = Target.Longint.cg_type) THEN<br> ...<br>
ELSE Err("unaligned..."<br>
<br>several instances.<br><br>Please try head.<br><br> - Jay<br><br><br>> From: hosking@cs.purdue.edu<br>> Date: Sun, 12 Dec 2010 15:25:13 -0500<br>> To: mika@async.caltech.edu<br>> CC: m3devel@elegosoft.com<br>> Subject: Re: [M3devel] compiler problems on Snow Leopard<br>> <br>> That's an alignment problem alright. Perhaps the alignment information for VAL is wrong? Or for LONGINT? Jay, any ideas?<br>> <br>> On Dec 12, 2010, at 3:14 PM, Mika Nystrom wrote:<br>> <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 *** unaligned store type=6 s/o/a=32/0/32<br>> > "../I386_DARWIN/FSSchemeStubs.m3", line 981: ** INTERNAL CG ERROR *** unaligned 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 RAISES { Scheme.E } =<br>> > BEGIN<br>> > VAR res : SchemePair.T:=NIL; BEGIN<br>> > res := SchemeUtils.Cons(SchemeUtils.Cons(SchemeSymbol.FromText("type"),ToScheme_Atom_T(x.type)),res);<br>> > res := SchemeUtils.Cons(SchemeUtils.Cons(SchemeSymbol.FromText("modificationTime"),SchemeModula3Types.ToScheme_LONGREAL(x.modificationTime)),res);<br>> > res := SchemeUtils.Cons(SchemeUtils.Cons(SchemeSymbol.FromText("size"),ToScheme_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, LONGINT )..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 { Scheme.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>> <br> </body>
</html>