author | blanchet |
Tue, 17 Nov 2009 13:51:56 +0100 | |
changeset 33736 | ac81358132fd |
parent 33695 | bec342db1bf4 |
child 37900 | 8b3498b9eb4b |
permissions | -rw-r--r-- |
(* Title: Admin/Benchmarks/HOL-record/ROOT.ML Some benchmark on large record. *) val tests = ["RecordBenchmark"]; Unsynchronized.set timing; warning "\nset quick_and_dirty\n"; Unsynchronized.set quick_and_dirty; List.app time_use_thy tests; warning "\nreset quick_and_dirty\n"; Unsynchronized.reset quick_and_dirty; List.app time_use_thy tests;