diff options
| author |  Adam Chlipala <adamc@hcoop.net> | 2008-11-27 10:46:45 -0500 |
|---|---|---|
| committer | Adam Chlipala <adamc@hcoop.net> | 2008-11-27 10:46:45 -0500 |
| commit | 9d33c9360e013c0fa7c50c7fea60d0f5bcd64b96 (patch) | |
| tree | 96563b578170d86459afeab9a2ffa7ece83ef2bf | |
| parent | d5eb827f89b71de9aadb1fd26477f44d20f95330 (diff) | |
Stop using redundant Defunc pass
| -rw-r--r-- | src/compiler.sig | 3 | ||||
| -rw-r--r-- | src/compiler.sml | 12 |
2 files changed, 1 insertions, 14 deletions
diff --git a/src/compiler.sig b/src/compiler.sig index 8c52ea32..59ad32be 100644 --- a/src/compiler.sig +++ b/src/compiler.sig @@ -66,7 +66,6 @@ signature COMPILER = sig val especialize : (Core.file, Core.file) phase val core_untangle : (Core.file, Core.file) phase val shake : (Core.file, Core.file) phase - val defunc : (Core.file, Core.file) phase val tag : (Core.file, Core.file) phase val reduce : (Core.file, Core.file) phase val unpoly : (Core.file, Core.file) phase @@ -92,8 +91,6 @@ signature COMPILER = sig val toEspecialize : (string, Core.file) transform val toCore_untangle : (string, Core.file) transform val toShake1 : (string, Core.file) transform - val toDefunc : (string, Core.file) transform - val toShake1' : (string, Core.file) transform val toTag : (string, Core.file) transform val toReduce : (string, Core.file) transform val toUnpoly : (string, Core.file) transform diff --git a/src/compiler.sml b/src/compiler.sml index aac4a924..0ff4ee6a 100644 --- a/src/compiler.sml +++ b/src/compiler.sml @@ -446,22 +446,12 @@ val shake = { val toShake1 = transform shake "shake1" o toCore_untangle -val defunc = { - func = Defunc.defunc, - print = CorePrint.p_file CoreEnv.empty -} - -val toDefunc = transform defunc "defunc" o toShake1 - -val toCore_untangle' = transform core_untangle "core_untangle'" o toDefunc -val toShake1' = transform shake "shake1'" o toCore_untangle' - val tag = { func = Tag.tag, print = CorePrint.p_file CoreEnv.empty } -val toTag = transform tag "tag" o toShake1' +val toTag = transform tag "tag" o toShake1 val reduce = { func = Reduce.reduce, |