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

open Array MLton.GC

val a = tabulate (100000, fn i => i)
val _ = pack ()
val a' = tabulate (100, fn i => i)
val _ = unpack ()
val _ = sub (a, 0) + sub (a, 1)
val _ = sub (a', 0) + sub (a', 1)
val a'' = tabulate (1000000, fn i => i)
val _ = sub (a'', 0) + sub (a'', 1)
val _ = print "OK\n"
Commit	Line	Data
7f918cf1 CE	1	open Array MLton.GC
	2
	3	val a = tabulate (100000, fn i => i)
	4	val _ = pack ()
	5	val a' = tabulate (100, fn i => i)
	6	val _ = unpack ()
	7	val _ = sub (a, 0) + sub (a, 1)
	8	val _ = sub (a', 0) + sub (a', 1)
	9	val a'' = tabulate (1000000, fn i => i)
	10	val _ = sub (a'', 0) + sub (a'', 1)
	11	val _ = print "OK\n"