[MLton-commit] r4342

[Matthew Fluet]

More generated C-types and _imports
----------------------------------------------------------------------

U   mlton/branches/on-20050822-x86_64-branch/runtime/gen/basis-ffi.def
U   mlton/branches/on-20050822-x86_64-branch/runtime/gen/gen-basis-ffi.sml
U   mlton/branches/on-20050822-x86_64-branch/runtime/gen/gen-types.c

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

Modified: mlton/branches/on-20050822-x86_64-branch/runtime/gen/basis-ffi.def
===================================================================
--- mlton/branches/on-20050822-x86_64-branch/runtime/gen/basis-ffi.def	2006-02-03 00:58:35 UTC (rev 4341)
+++ mlton/branches/on-20050822-x86_64-branch/runtime/gen/basis-ffi.def	2006-02-03 17:32:06 UTC (rev 4342)
@@ -31,6 +31,7 @@
 IEEEReal.RoundingMode.FE_UPWARD = _const : C.Int.t
 IEEEReal.getRoundingMode = _import : unit -> C.Int.t
 IEEEReal.setRoundingMode = _import : C.Int.t -> unit
+MLton.bug = _import : NullString8.t -> unit
 MLton.Itimer.PROF = _const : C.Int.t
 MLton.Itimer.REAL = _const : C.Int.t
 MLton.Itimer.VIRTUAL = _const : C.Int.t

Modified: mlton/branches/on-20050822-x86_64-branch/runtime/gen/gen-basis-ffi.sml
===================================================================
--- mlton/branches/on-20050822-x86_64-branch/runtime/gen/gen-basis-ffi.sml	2006-02-03 00:58:35 UTC (rev 4341)
+++ mlton/branches/on-20050822-x86_64-branch/runtime/gen/gen-basis-ffi.sml	2006-02-03 17:32:06 UTC (rev 4342)
@@ -345,6 +345,7 @@
       fun println s = (print s; print "\n")
 
       val () = println "(* This file is automatically generated.  Do not edit. *)\n"
+      val () = println "local open Primitive in "
       val () = println "structure PrimitiveFFI ="
       val () = println "struct"
       val cur =
@@ -377,6 +378,7 @@
          entries
       val () = List.app (fn _ => println "end") cur
       val () = println "end"
+      val () = println "end"
       val () = TextIO.closeOut f
    in
       ()

Modified: mlton/branches/on-20050822-x86_64-branch/runtime/gen/gen-types.c
===================================================================
--- mlton/branches/on-20050822-x86_64-branch/runtime/gen/gen-types.c	2006-02-03 00:58:35 UTC (rev 4341)
+++ mlton/branches/on-20050822-x86_64-branch/runtime/gen/gen-types.c	2006-02-03 17:32:06 UTC (rev 4342)
@@ -293,6 +293,7 @@
   writeNewline (cTypesHFd);writeNewline (cTypesSMLFd);
   writeStringWithNewline (cTypesHFd, "/* C99 */");
   writeStringWithNewline (cTypesSMLFd, "(* C99 *)");
+  chksystype(ptrdiff_t, "Ptrdiff");
   chksystype(intmax_t, "Intmax");
   chksystype(uintmax_t, "UIntmax");