[MLton-commit] r5316

[Matthew Fluet]

Update IL formatting to match ObjptrTycon name
----------------------------------------------------------------------

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

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

Modified: mlton/branches/on-20050822-x86_64-branch/mlton/backend/machine.fun
===================================================================
--- mlton/branches/on-20050822-x86_64-branch/mlton/backend/machine.fun	2007-02-25 20:09:43 UTC (rev 5315)
+++ mlton/branches/on-20050822-x86_64-branch/mlton/backend/machine.fun	2007-02-25 20:26:16 UTC (rev 5316)
@@ -836,7 +836,7 @@
                            ; ProfileInfo.layouts (pi, output)))
             ; output (str "\nObjectTypes:")
             ; Vector.foreachi (objectTypes, fn (i, ty) =>
-                               output (seq [str "pt_", Int.layout i,
+                               output (seq [str "opt_", Int.layout i,
                                             str " = ", ObjectType.layout ty]))
             ; output (str "\n")
             ; List.foreach (chunks, fn chunk => Chunk.layouts (chunk, output))

Modified: mlton/branches/on-20050822-x86_64-branch/mlton/backend/rssa.fun
===================================================================
--- mlton/branches/on-20050822-x86_64-branch/mlton/backend/rssa.fun	2007-02-25 20:09:43 UTC (rev 5315)
+++ mlton/branches/on-20050822-x86_64-branch/mlton/backend/rssa.fun	2007-02-25 20:26:16 UTC (rev 5316)
@@ -844,7 +844,7 @@
          in
             output (str "\nObjectTypes:")
             ; Vector.foreachi (objectTypes, fn (i, ty) =>
-                               output (seq [str "pt_", Int.layout i,
+                               output (seq [str "opt_", Int.layout i,
                                             str " = ", ObjectType.layout ty]))
             ; output (str "\nMain:")
             ; Function.layouts (main, output)