[MLton-commit] r4551

[Matthew F. <fl...@ml...>]

Catch up with signature changes
----------------------------------------------------------------------

U   mlton/branches/on-20050822-x86_64-branch/regression/rlimit.sml

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

Modified: mlton/branches/on-20050822-x86_64-branch/regression/rlimit.sml
===================================================================
--- mlton/branches/on-20050822-x86_64-branch/regression/rlimit.sml	2006-05-19 22:04:19 UTC (rev 4550)
+++ mlton/branches/on-20050822-x86_64-branch/regression/rlimit.sml	2006-05-20 00:28:28 UTC (rev 4551)
@@ -2,7 +2,10 @@
 val _ =
    List.app
    (fn r => set (r, get r) handle _ => ())
-   [cpuTime, coreFileSize, dataSize, fileSize, lockedInMemorySize, numFiles,
-    numProcesses, residentSetSize, stackSize, virtualMemorySize]
+   [cpuTime, coreFileSize, dataSize, fileSize, (*lockedInMemorySize,*) 
+    numFiles, (*numProcesses,*) (*residentSetSize,*) stackSize, 
+    virtualMemorySize]
 
-val _ = print (concat [Bool.toString (infinity >= 0wxFFFF), "\n"])
+val _ = print (concat 
+               [Bool.toString ((RLim.castToSysWord infinity) >= 0wxFFFF), 
+                "\n"])