[MLton-devel] cvs commit: MAIL: -profile alloc fix for x86-codegen; passes all regressions & self-compile

[Matthew Fluet]

fluet       02/11/02 14:58:21

  Modified:    mlton/codegen/x86-codegen x86-allocate-registers.fun
  Log:
  

Revision  Changes    Path
1.24      +4 -3      mlton/mlton/codegen/x86-codegen/x86-allocate-registers.fun

Index: x86-allocate-registers.fun
===================================================================
RCS file: /cvsroot/mlton/mlton/mlton/codegen/x86-codegen/x86-allocate-registers.fun,v
retrieving revision 1.23
retrieving revision 1.24
diff -u -r1.23 -r1.24
--- x86-allocate-registers.fun	12 Jul 2002 18:53:17 -0000	1.23
+++ x86-allocate-registers.fun	2 Nov 2002 22:58:21 -0000	1.24
@@ -16,8 +16,9 @@
 
   fun track memloc = let
 		       val trackClasses 
-			 = ClassSet.add(ClassSet.+(!x86MLton.Classes.livenessClasses,
-						 !x86MLton.Classes.holdClasses),
+			 = ClassSet.add(ClassSet.+
+					(!x86MLton.Classes.livenessClasses,
+					 !x86MLton.Classes.holdClasses),
 					x86MLton.Classes.StaticNonTemp)
 		     in
 		       ClassSet.contains(trackClasses, MemLoc.class memloc)
@@ -5833,7 +5834,7 @@
 		       {assembly = AppendList.append (assembly,
 						      assembly_shuffle),
 			registerAllocation = registerAllocation,
-			saves = operand::saves}
+			saves = saves}
 		     end)
 		else {assembly = AppendList.empty,
 		      registerAllocation = registerAllocation,





-------------------------------------------------------
This sf.net email is sponsored by: See the NEW Palm 
Tungsten T handheld. Power & Color in a compact size!
http://ads.sourceforge.net/cgi-bin/redirect.pl?palm0001en
_______________________________________________
MLton-devel mailing list
MLton-devel@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/mlton-devel