[hcoop/debian/mlton.git] / regression / rlimit.sml

open MLton.Rlimit
val _ =
   List.app
   (fn r => set (r, get r) handle _ => ())
   [cpuTime, coreFileSize, dataSize, fileSize, (*lockedInMemorySize,*) 
    numFiles, (*numProcesses,*) (*residentSetSize,*) stackSize, 
    virtualMemorySize]

val _ = print (concat 
               [Bool.toString ((RLim.castToSysWord infinity) >= 0wxFFFF), 
                "\n"])
Commit	Line	Data
7f918cf1 CE	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"])