regression/rlimit.sml

   1 open MLton.Rlimit
   2 val _ =
   3    List.app
   4    (fn r => set (r, get r) handle _ => ())
   5    [cpuTime, coreFileSize, dataSize, fileSize, (*lockedInMemorySize,*)
   6     numFiles, (*numProcesses,*) (*residentSetSize,*) stackSize,
   7     virtualMemorySize]
   8
   9 val _ = print (concat
  10                [Bool.toString ((RLim.castToSysWord infinity) >= 0wxFFFF),
  11                 "\n"])