[MLton-commit] r4182
Matthew Fluet
MLton@mlton.org
Tue, 8 Nov 2005 18:10:11 -0800
Cleanup
----------------------------------------------------------------------
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-09 02:09:08 UTC (rev 4181)
+++ mlton/branches/on-20050822-x86_64-branch/mlton/backend/ssa-to-rssa.fun 2005-11-09 02:10:07 UTC (rev 4182)
@@ -1352,9 +1352,9 @@
CFunction.weakCanGet
{arg = Operand.ty (a 0)}
in
- ccall {args = (Vector.concat
- [Vector.new1 GCState,
- vos args]),
+ ccall {args = (Vector.new2
+ (GCState,
+ Vector.sub (vos args, 0))),
func = func}
end,
fn () => move (Operand.bool false))
@@ -1368,9 +1368,9 @@
{arg = Operand.ty (a 0),
return = t}
in
- ccall {args = (Vector.concat
- [Vector.new1 GCState,
- vos args]),
+ ccall {args = (Vector.new2
+ (GCState,
+ Vector.sub (vos args, 0))),
func = func}
end,
none)