new release
Stephen Weeks
MLton@sourcelight.com
Thu, 11 Jan 2001 10:15:12 -0800 (PST)
> Could you send me a couple of the test files you were looking at? I'll
> see what phases are really being slowed down and see if there is anything
> to be done there.
I used the following program to generate test cases. The compile times on the
test cases were much worse than linear in the list length.
--------------------------------------------------------------------------------
val n = valOf (Int.fromString (hd (CommandLine.arguments ())))
fun loop i =
if i = n
then ()
else (print (concat [",\n\t ", Int.toString i])
; loop (i + 1))
val _ =
print "val l = [0"
val _ =
loop 1
val _ =
print "]\nval _ = List.app (fn x => print (concat [Int.toString x, \"\\n\"])) l\n"