[MLton-commit] r6705

[Matthew Fluet]

Typo in layout of visibility directive
----------------------------------------------------------------------

U   mlton/trunk/mlton/codegen/amd64-codegen/amd64.fun
U   mlton/trunk/mlton/codegen/x86-codegen/x86.fun

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

Modified: mlton/trunk/mlton/codegen/amd64-codegen/amd64.fun
===================================================================
--- mlton/trunk/mlton/codegen/amd64-codegen/amd64.fun	2008-08-19 16:54:50 UTC (rev 6704)
+++ mlton/trunk/mlton/codegen/amd64-codegen/amd64.fun	2008-08-19 17:14:15 UTC (rev 6705)
@@ -3154,9 +3154,9 @@
              | Hidden l
              => (* visibility directive depends on target object file *)
                 let
-                   val elf = seq [str ".hidden", Label.layout l]
-                   val macho = seq [str ".private_extern", Label.layout l]
-                   val coff = seq [str "/*", str ".hidden", Label.layout l, str "*/"]
+                   val elf = seq [str ".hidden ", Label.layout l]
+                   val macho = seq [str ".private_extern ", Label.layout l]
+                   val coff = seq [str "/* ", str ".hidden ", Label.layout l, str " */"]
                 in
                    case !Control.Target.os of
                       MLton.Platform.OS.Cygwin => coff

Modified: mlton/trunk/mlton/codegen/x86-codegen/x86.fun
===================================================================
--- mlton/trunk/mlton/codegen/x86-codegen/x86.fun	2008-08-19 16:54:50 UTC (rev 6704)
+++ mlton/trunk/mlton/codegen/x86-codegen/x86.fun	2008-08-19 17:14:15 UTC (rev 6705)
@@ -3355,9 +3355,9 @@
              | Hidden l
              => (* visibility directive depends on target object file *)
                 let
-                   val elf = seq [str ".hidden", Label.layout l]
-                   val macho = seq [str ".private_extern", Label.layout l]
-                   val coff = seq [str "/*", str ".hidden", Label.layout l, str "*/"]
+                   val elf = seq [str ".hidden ", Label.layout l]
+                   val macho = seq [str ".private_extern ", Label.layout l]
+                   val coff = seq [str "/* ", str ".hidden ", Label.layout l, str " */"]
                 in
                    case !Control.Target.os of
                       MLton.Platform.OS.Cygwin => coff