[M3commit] CVS Update: cm3

[Jay K]

Index: M3CG_Check.m3
===================================================================
RCS file: /usr/cvs/cm3/m3-sys/m3middle/src/M3CG_Check.m3,v
retrieving revision 1.9
diff -u -r1.9 M3CG_Check.m3
--- M3CG_Check.m3 11 Mar 2010 05:42:04 -0000 1.9
+++ M3CG_Check.m3 16 Apr 2010 10:36:50 -0000
@@ -1090,7 +1090,7 @@
 PROCEDURE insert_mn  (self: U;  t: IType;  m, n: CARDINAL) =
   (* s1.t := Word.Insert (s1.t, s0.t, m, n) ; pop(2) *)
   BEGIN
-    self.s_pop (T_to_ST[Target.Integer.cg_type], T_to_ST[t]);
+    self.s_pop (T_to_ST[t], T_to_ST[t]);
     self.s_push (t);
     self.child.insert_mn (t, m, n);
   END insert_mn;

 

The value to be inserted "from" and "to" are supposed to be of the same type.

See GenWord.ig.

We could maybe use ST.Match more, maybe that is faster -- pass a constant instead of reading memory.

In this diff and elsewhere nearby, e.g. insert.

 

  - Jay

 
> Date: Fri, 16 Apr 2010 12:38:07 +0000
> To: m3commit at elegosoft.com
> From: jkrell at elego.de
> Subject: [M3commit] CVS Update: cm3
> 
> CVSROOT: /usr/cvs
> Changes by: jkrell at birch. 10/04/16 12:38:07
> 
> Modified files:
> cm3/m3-sys/m3middle/src/: M3CG_Check.m3 
> 
> Log message:
> fix problem in m3-sys/m3tests/p2/p227
> 
> -----LINE 1091 -----
> load_integer Int.64 1
> load_integer Int.64 2
> # ********* M3CG_Check ERROR *********** bad stack: expected [ Int32 Int64 ] got [ Int64 Int64 ]
> insert_mn Word.64 3 4
> 
 		 	   		  
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://m3lists.elegosoft.com/pipermail/m3commit/attachments/20100416/145df243/attachment-0002.html>