[MLton-commit] r4221

Matthew Fluet MLton@mlton.org
Mon, 14 Nov 2005 20:55:55 -0800


Accidently removed header from call to GC_weakNew
----------------------------------------------------------------------

U   mlton/branches/on-20050822-x86_64-branch/mlton/backend/ssa-to-rssa.fun

----------------------------------------------------------------------

Modified: mlton/branches/on-20050822-x86_64-branch/mlton/backend/ssa-to-rssa.fun
===================================================================
--- mlton/branches/on-20050822-x86_64-branch/mlton/backend/ssa-to-rssa.fun	2005-11-15 04:29:39 UTC (rev 4220)
+++ mlton/branches/on-20050822-x86_64-branch/mlton/backend/ssa-to-rssa.fun	2005-11-15 04:55:53 UTC (rev 4221)
@@ -1387,11 +1387,15 @@
                                            (case Type.dePointer result of
                                                NONE => Error.bug "SsaToRssa.translateStatementsTransfer: PrimApp,Weak_new"
                                              | SOME pt => pt)
+                                        val func =
+                                           CFunction.weakNew {arg = t,
+                                                              return = result}
                                      in
-                                        simpleCCallWithGCState
-                                        (CFunction.weakNew 
-                                         {arg = t,
-                                          return = result})
+                                        ccall {args = (Vector.concat
+                                                       [Vector.new2
+                                                        (GCState, header),
+                                                        vos args]),
+                                               func = func}
                                      end,
                                      none)
                                | Word_equal s =>