From ea1106e5a62f951f46fc79b3248a9d61c15254c5 Mon Sep 17 00:00:00 2001
From: diederik
Date: Mon, 1 Oct 2001 12:33:17 +0000
Subject: Add fusion commandline flag

git-svn-id: https://svn.cs.ru.nl/repos/clean-compiler/trunk@805 1f8540f1-abd5-4d5b-9d24-4c5ce8603e2d
---
 main/compile.icl | 14 +++++++++++++-
 1 file changed, 13 insertions(+), 1 deletion(-)

(limited to 'main')

diff --git a/main/compile.icl b/main/compile.icl
index ef945c5..8ec7977 100644
--- a/main/compile.icl
+++ b/main/compile.icl
@@ -19,6 +19,9 @@ import portToNewSyntax
 // MV ...
 	,	compile_for_dynamics	:: !Bool
 // ... MV
+// DvA ...
+	,	compile_with_fusion		:: !Bool
+// ... DvA
 	}
 
 InitialCoclOptions =
@@ -32,6 +35,9 @@ InitialCoclOptions =
 // MV ...
 	,	compile_for_dynamics	= False
 // ... MV
+// DvA ...
+	,	compile_with_fusion		= False
+// ... DvA
 	}
 
 :: DclCache = {
@@ -85,6 +91,12 @@ parseCommandLine [arg1=:"-dynamics":args] options
 	# (args,modules,options)=	parseCommandLine args {options & compile_for_dynamics = True}
 	= (args,modules,options)
 // ... MV
+// DvA ...
+parseCommandLine [arg1=:"-fusion":args] options
+	// switch on fusion transformations
+	# (args,modules,options)=	parseCommandLine args {options & compile_with_fusion = True}
+	= (args,modules,options)
+// ... DvA
 parseCommandLine [arg : args] options
 	| arg.[0] == '-'
 		# (args,modules,options)=	parseCommandLine args options
@@ -183,7 +195,7 @@ compileModule options commandLineArgs {dcl_modules,functions_and_macros,predef_s
 	# ({boxed_ident=moduleIdent}, hash_table) = putIdentInHashTable options.moduleName IC_Module hash_table
 	# list_inferred_types = if (isMember "-lt" commandLineArgs) (Yes (not (isMember "-lattr" commandLineArgs))) No
 	# (optionalSyntaxTree,cached_functions_and_macros,cached_dcl_mods,n_functions_and_macros_in_dcl_modules,main_dcl_module_n,predef_symbols, hash_table, files, error, io, out,tcl_file,heaps)
-		=	frontEndInterface {feo_up_to_phase=FrontEndPhaseAll,feo_generics=False} moduleIdent options.searchPaths dcl_modules functions_and_macros list_inferred_types predef_symbols hash_table files error io out tcl_file heaps 
+		=	frontEndInterface {feo_up_to_phase=FrontEndPhaseAll,feo_generics=False,feo_fusion=options.compile_with_fusion} moduleIdent options.searchPaths dcl_modules functions_and_macros list_inferred_types predef_symbols hash_table files error io out tcl_file heaps 
 	# unique_copy_of_predef_symbols={predef_symbol\\predef_symbol<-:predef_symbols}
 	# (closed, files)
 		= closeTclFile tcl_file files
-- 
cgit v1.2.3