[MLton-commit] r4323

[Matthew Fluet]

Generate C-type bindings for SML; separately generate ML-type and C-type bindings for C
----------------------------------------------------------------------

U   mlton/branches/on-20050822-x86_64-branch/bytecode/interpret.h
U   mlton/branches/on-20050822-x86_64-branch/include/c-chunk.h
U   mlton/branches/on-20050822-x86_64-branch/mlton/main/compile.fun

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

Modified: mlton/branches/on-20050822-x86_64-branch/bytecode/interpret.h
===================================================================
--- mlton/branches/on-20050822-x86_64-branch/bytecode/interpret.h	2006-01-28 17:02:57 UTC (rev 4322)
+++ mlton/branches/on-20050822-x86_64-branch/bytecode/interpret.h	2006-01-28 17:09:17 UTC (rev 4323)
@@ -9,7 +9,7 @@
 #define _INTERPRET_H_
 
 #include <stdio.h>
-#include "types.h"
+#include "ml-types.h"
 #include "assert.h"
 
 #define regs(ty)                                \

Modified: mlton/branches/on-20050822-x86_64-branch/include/c-chunk.h
===================================================================
--- mlton/branches/on-20050822-x86_64-branch/include/c-chunk.h	2006-01-28 17:02:57 UTC (rev 4322)
+++ mlton/branches/on-20050822-x86_64-branch/include/c-chunk.h	2006-01-28 17:09:17 UTC (rev 4323)
@@ -13,7 +13,7 @@
 
 #include "assert.h"
 #include "c-common.h"
-#include "types.h"
+#include "ml-types.h"
 
 #ifndef TRUE
 #define TRUE 1

Modified: mlton/branches/on-20050822-x86_64-branch/mlton/main/compile.fun
===================================================================
--- mlton/branches/on-20050822-x86_64-branch/mlton/main/compile.fun	2006-01-28 17:02:57 UTC (rev 4322)
+++ mlton/branches/on-20050822-x86_64-branch/mlton/main/compile.fun	2006-01-28 17:09:17 UTC (rev 4323)
@@ -414,7 +414,7 @@
                 let
                    val _ =
                       File.outputContents
-                      (concat [!Control.libDir, "/include/types.h"], out)
+                      (concat [!Control.libDir, "/include/ml-types.h"], out)
                    fun print s = Out.output (out, s)
                    val _ = print "\n"
                    val _ = Ffi.declareHeaders {print = print}