<html>
<head>
<style><!--
.hmmessage P
{
margin:0px;
padding:0px
}
body.hmmessage
{
font-size: 10pt;
font-family:Verdana
}
--></style>
</head>
<body class='hmmessage'>
Index: M3CG_Check.m3<BR>===================================================================<BR>RCS file: /usr/cvs/cm3/m3-sys/m3middle/src/M3CG_Check.m3,v<BR>retrieving revision 1.9<BR>diff -u -r1.9 M3CG_Check.m3<BR>--- M3CG_Check.m3 11 Mar 2010 05:42:04 -0000 1.9<BR>+++ M3CG_Check.m3 16 Apr 2010 10:36:50 -0000<BR>@@ -1090,7 +1090,7 @@<BR> PROCEDURE insert_mn (self: U; t: IType; m, n: CARDINAL) =<BR> (* s1.t := Word.Insert (s1.t, s0.t, m, n) ; pop(2) *)<BR> BEGIN<BR>- self.s_pop (T_to_ST[Target.Integer.cg_type], T_to_ST[t]);<BR>+ self.s_pop (T_to_ST[t], T_to_ST[t]);<BR> self.s_push (t);<BR> self.child.insert_mn (t, m, n);<BR> END insert_mn;<BR>
<BR>
The value to be inserted "from" and "to" are supposed to be of the same type.<BR>
See GenWord.ig.<BR>
We could maybe use ST.Match more, maybe that is faster -- pass a constant instead of reading memory.<BR>
In this diff and elsewhere nearby, e.g. insert.<BR>
<BR>
- Jay<BR><BR> <BR>> Date: Fri, 16 Apr 2010 12:38:07 +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/04/16 12:38:07<BR>> <BR>> Modified files:<BR>> cm3/m3-sys/m3middle/src/: M3CG_Check.m3 <BR>> <BR>> Log message:<BR>> fix problem in m3-sys/m3tests/p2/p227<BR>> <BR>> -----LINE 1091 -----<BR>> load_integer Int.64 1<BR>> load_integer Int.64 2<BR>> # ********* M3CG_Check ERROR *********** bad stack: expected [ Int32 Int64 ] got [ Int64 Int64 ]<BR>> insert_mn Word.64 3 4<BR>> <BR> </body>
</html>