[MLton-commit] r7247

[Wesley Terpstra]

kfreebsd (freebsd under debian)


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

U   mlton/trunk/bin/platform
U   mlton/trunk/runtime/cenv.h
U   mlton/trunk/runtime/platform/freebsd.h

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

Modified: mlton/trunk/bin/platform
===================================================================
--- mlton/trunk/bin/platform	2009-10-13 10:54:30 UTC (rev 7246)
+++ mlton/trunk/bin/platform	2009-10-13 13:12:41 UTC (rev 7247)
@@ -40,7 +40,7 @@
 Darwin)
         HOST_OS='darwin'
 ;;
-FreeBSD*)
+*FreeBSD*)
         HOST_OS='freebsd'
 ;;
 HP-UX)

Modified: mlton/trunk/runtime/cenv.h
===================================================================
--- mlton/trunk/runtime/cenv.h	2009-10-13 10:54:30 UTC (rev 7246)
+++ mlton/trunk/runtime/cenv.h	2009-10-13 13:12:41 UTC (rev 7247)
@@ -71,7 +71,7 @@
 #include "platform/cygwin.h"
 #elif (defined (__Darwin__))
 #include "platform/darwin.h"
-#elif (defined (__FreeBSD__))
+#elif (defined (__FreeBSD__) || defined(__FreeBSD_kernel__))
 #include "platform/freebsd.h"
 #elif (defined (__hpux__))
 #include "platform/hpux.h"

Modified: mlton/trunk/runtime/platform/freebsd.h
===================================================================
--- mlton/trunk/runtime/platform/freebsd.h	2009-10-13 10:54:30 UTC (rev 7246)
+++ mlton/trunk/runtime/platform/freebsd.h	2009-10-13 13:12:41 UTC (rev 7247)
@@ -39,4 +39,6 @@
 
 #define MLton_Platform_OS_host "freebsd"
 
+#define getpgrp() getpgrp(getpid())
+
 extern char **environ; /* for Posix_ProcEnv_environ */