diff options
author | johnvg | 2005-10-28 10:16:33 +0000 |
---|---|---|
committer | johnvg | 2005-10-28 10:16:33 +0000 |
commit | 7ff2ab799c376fc824ed892ddc5e0e907c37e207 (patch) | |
tree | c22e7930ff1427a2121a4a04d0934de2b9d217fe | |
parent | remove output for debugging (diff) |
pass -fusion flag to backend
git-svn-id: https://svn.cs.ru.nl/repos/clean-compiler/trunk@1554 1f8540f1-abd5-4d5b-9d24-4c5ce8603e2d
-rw-r--r-- | main/compile.icl | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/main/compile.icl b/main/compile.icl index c3b048a..2957a9b 100644 --- a/main/compile.icl +++ b/main/compile.icl @@ -158,7 +158,8 @@ parseCommandLine [arg1=:"-dynamics":args] options = parseCommandLine args {options & compile_for_dynamics = True} parseCommandLine [arg1=:"-fusion":args] options // switch on fusion transformations - = parseCommandLine args {options & compile_with_fusion = True} + # (args,modules,options) = parseCommandLine args {options & compile_with_fusion = True} + = ([arg1:args],modules,options) parseCommandLine [arg1=:"-dump":args] options = parseCommandLine args {options & dump_core = True} parseCommandLine [arg1=:"-strip":args] options |