[MLton-commit] r4733

[Matthew Fluet]

Move ".data" directive to data assembly
----------------------------------------------------------------------

U   mlton/trunk/mlton/codegen/x86-codegen/x86-generate-transfers.fun
U   mlton/trunk/mlton/codegen/x86-codegen/x86-translate.fun

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

Modified: mlton/trunk/mlton/codegen/x86-codegen/x86-generate-transfers.fun
===================================================================
--- mlton/trunk/mlton/codegen/x86-codegen/x86-generate-transfers.fun	2006-10-20 01:42:40 UTC (rev 4732)
+++ mlton/trunk/mlton/codegen/x86-codegen/x86-generate-transfers.fun	2006-10-20 01:51:30 UTC (rev 4733)
@@ -1976,7 +1976,7 @@
         val assembly =
            if List.isEmpty data
               then assembly
-              else ((Assembly.pseudoop_data())::data)::assembly
+              else data::assembly
       in
          assembly
       end

Modified: mlton/trunk/mlton/codegen/x86-codegen/x86-translate.fun
===================================================================
--- mlton/trunk/mlton/codegen/x86-codegen/x86-translate.fun	2006-10-20 01:42:40 UTC (rev 4732)
+++ mlton/trunk/mlton/codegen/x86-codegen/x86-translate.fun	2006-10-20 01:51:30 UTC (rev 4733)
@@ -806,6 +806,10 @@
             val _ = Vector.foreach (blocks, fn Block.T {label, ...} =>
                                     remLive label)
             val data = List.concatRev (!data)
+            val data =
+               if List.isEmpty data
+                  then []
+                  else (Assembly.pseudoop_data())::data
           in
             x86.Chunk.T {data = data, blocks = x86Blocks}
           end