[MLton-commit] r6436

[spoons at mlton.org]

Include pthread.h

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

U   mlton/branches/shared-heap-multicore/runtime/cenv.h
U   mlton/branches/shared-heap-multicore/runtime/gen/gen-types.c

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

Modified: mlton/branches/shared-heap-multicore/runtime/cenv.h
===================================================================
--- mlton/branches/shared-heap-multicore/runtime/cenv.h	2008-03-03 14:52:32 UTC (rev 6435)
+++ mlton/branches/shared-heap-multicore/runtime/cenv.h	2008-03-03 14:52:41 UTC (rev 6436)
@@ -40,6 +40,7 @@
 #include <limits.h>
 // #include <locale.h>
 #include <math.h>
+#include <pthread.h>
 #include <plpa.h>
 // #include <setjmp.h>
 #include <signal.h>

Modified: mlton/branches/shared-heap-multicore/runtime/gen/gen-types.c
===================================================================
--- mlton/branches/shared-heap-multicore/runtime/gen/gen-types.c	2008-03-03 14:52:32 UTC (rev 6435)
+++ mlton/branches/shared-heap-multicore/runtime/gen/gen-types.c	2008-03-03 14:52:41 UTC (rev 6436)
@@ -426,6 +426,11 @@
   chksystype(mp_limb_t, "MPLimb");
 
   writeNewline (cTypesHFd);writeNewline (cTypesSMLFd);
+  writeStringWithNewline (cTypesHFd, "/* from \"pthreadtypes.h\" */");
+  writeStringWithNewline (cTypesSMLFd, "(* from \"pthreadtypes.h\" *)");
+  chksystype(pthread_key_t, "Pthread_Key");
+
+  writeNewline (cTypesHFd);writeNewline (cTypesSMLFd);
   for (int i = 0; cTypesHSuffix[i] != NULL; i++) 
     writeStringWithNewline (cTypesHFd, cTypesHSuffix[i]);
   for (int i = 0; cTypesSMLSuffix[i] != NULL; i++)