<html>
<head>
<style><!--
.hmmessage P
{
margin:0px;
padding:0px
}
body.hmmessage
{
font-size: 10pt;
font-family:Verdana
}
--></style>
</head>
<body class='hmmessage'>
diff attached<BR><BR><BR> <BR>> Date: Sun, 7 Mar 2010 09:31:25 +0000<BR>> To: m3commit@elegosoft.com<BR>> From: jkrell@elego.de<BR>> Subject: [M3commit] CVS Update: cm3<BR>> <BR>> CVSROOT: /usr/cvs<BR>> Changes by: jkrell@birch. 10/03/07 09:31:25<BR>> <BR>> Modified files:<BR>> cm3/m3-sys/m3back/src/: Stackx86.m3 <BR>> <BR>> Log message:<BR>> make procedure find a little more conservative<BR>> with regard to the 64bit longint changes<BR>> in particular, don't change the 'set' variable,<BR>> instead:<BR>> <BR>> - in[i] := inreg(t, opA[i].mvar, set);<BR>> - IF size > 1 THEN<BR>> - set := set - RegSet{in[i]};<BR>> + IF i = 0 THEN<BR>> + in[i] := inreg(t, opA[i].mvar, set);<BR>> + ELSE<BR>> + in[i] := inreg(t, opA[i].mvar, set - RegSet{in[0]});<BR>> END;<BR>> <BR>> (though I was hoping to remove the assumption that size <= 2, I have increased)<BR>> <BR>> put procedure pushnew1 and procedure pushnew back together as<BR>> one procedure, with loops inside it<BR>> it kind of looks like otherwise might have e.g. saved stuff to two temporary variables<BR>> instead of one<BR>> <BR>> rename procedure maybe_expand_stack to expand_stack<BR>> it still only expands the stack sometimes, but I think the name is adequate<BR>> <BR>> eliminate unnecessary variable 'size' in procedure discard<BR>> <BR>> some whitespace/commenting changes<BR>> <BR> </body>
</html>