regression/pack.sml

   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"