[MLton-commit] r7199

[Wesley Terpstra]

On other systems mem_unit != 1.


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

U   mlton/trunk/runtime/platform/linux.c

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

Modified: mlton/trunk/runtime/platform/linux.c
===================================================================
--- mlton/trunk/runtime/platform/linux.c	2009-07-01 00:52:37 UTC (rev 7198)
+++ mlton/trunk/runtime/platform/linux.c	2009-07-01 01:57:31 UTC (rev 7199)
@@ -93,5 +93,5 @@
         if (sysinfo(&si) < 0)
                 diee ("GC_physMem error: sysinfo failed");
         
-        return si.totalram;
+        return (uintmax_t)si.totalram * (uintmax_t)si.mem_unit;
 }