[M3commit] CVS Update: cm3

[Jay Krell]

CVSROOT:	/usr/cvs
Changes by:	jkrell at birch.	10/03/07 09:31:25

Modified files:
	cm3/m3-sys/m3back/src/: Stackx86.m3 

Log message:
	make procedure find a little more conservative
	with regard to the 64bit longint changes
	in particular, don't change the 'set' variable,
	instead:
	
	-              in[i] := inreg(t, opA[i].mvar, set);
	-              IF size > 1 THEN
	-                set := set - RegSet{in[i]};
	+              IF i = 0 THEN
	+                in[i] := inreg(t, opA[i].mvar, set);
	+              ELSE
	+                in[i] := inreg(t, opA[i].mvar, set - RegSet{in[0]});
	END;
	
	(though I was hoping to remove the assumption that size <= 2, I have increased)
	
	put procedure pushnew1 and procedure pushnew back together as
	one procedure, with loops inside it
	it kind of looks like otherwise might have e.g. saved stuff to two temporary variables
	instead of one
	
	rename procedure maybe_expand_stack to expand_stack
	it still only expands the stack sometimes, but I think the name is adequate
	
	eliminate unnecessary variable 'size' in procedure discard
	
	some whitespace/commenting changes