[MLton-commit] r6869

[Wesley Terpstra]

The symbol MLton_bytecode was defined in two places.
It should also be private.


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

U   mlton/trunk/include/bytecode-main.h
U   mlton/trunk/mlton/codegen/bytecode/bytecode.fun

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

Modified: mlton/trunk/include/bytecode-main.h
===================================================================
--- mlton/trunk/include/bytecode-main.h	2008-09-18 04:28:15 UTC (rev 6868)
+++ mlton/trunk/include/bytecode-main.h	2008-09-18 04:37:39 UTC (rev 6869)
@@ -15,7 +15,7 @@
 #define DEBUG_CODEGEN FALSE
 #endif
 
-PRIVATE struct Bytecode MLton_bytecode;
+PRIVATE extern struct Bytecode MLton_bytecode;
 
 static GC_frameIndex returnAddressToFrameIndex (GC_returnAddress ra) {
         return *((GC_frameIndex*)(MLton_bytecode.code + ra - sizeof(GC_frameIndex)));

Modified: mlton/trunk/mlton/codegen/bytecode/bytecode.fun
===================================================================
--- mlton/trunk/mlton/codegen/bytecode/bytecode.fun	2008-09-18 04:28:15 UTC (rev 6868)
+++ mlton/trunk/mlton/codegen/bytecode/bytecode.fun	2008-09-18 04:37:39 UTC (rev 6869)
@@ -872,7 +872,7 @@
                                          Int.toString name,
                                          " },\n"]))
           ; print "};\n"
-          ; print "struct Bytecode MLton_bytecode = {\n"
+          ; print "PRIVATE struct Bytecode MLton_bytecode = {\n"
           ; printString labels
           ; printString (word8ArrayToString code)
           ; printInt (Array.length code)