diff options
| author | alimarin | 2002-03-25 15:04:33 +0000 |
|---|---|---|
| committer | alimarin | 2002-03-25 15:04:33 +0000 |
| commit | 5ed289050bba7924972700181478cb22e9d69c70 (patch) | |
| tree | 43d0c8ebe33e14ad0d4f637ddae3de94acd7bf07 /main | |
| parent | fix version number (diff) | |
new implementation of generics
git-svn-id: https://svn.cs.ru.nl/repos/clean-compiler/trunk@1062 1f8540f1-abd5-4d5b-9d24-4c5ce8603e2d
Diffstat (limited to 'main')
| -rw-r--r-- | main/compile.icl | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/main/compile.icl b/main/compile.icl index 76a7131..84d37f0 100644 --- a/main/compile.icl +++ b/main/compile.icl @@ -23,7 +23,7 @@ from type_io import openTclFile, closeTclFile, baseName, directoryName, splitBy , searchPaths:: SearchPaths , listTypes :: ListTypesOption , compile_for_dynamics :: !Bool - , support_generics :: !Bool + , support_generics :: !Bool , compile_with_fusion :: !Bool , compile_with_generics :: !Bool } @@ -38,9 +38,9 @@ InitialCoclOptions = , searchPaths= {sp_locations = [], sp_paths = []} , listTypes = {lto_showAttributes = True, lto_listTypesKind = ListTypesNone} , compile_for_dynamics = False - , support_generics = False + , support_generics = True //??? , compile_with_fusion = False - , compile_with_generics = False + , compile_with_generics = True } :: DclCache = { @@ -53,7 +53,7 @@ InitialCoclOptions = empty_cache :: *SymbolTable -> *DclCache empty_cache symbol_heap - # heaps = {hp_var_heap = newHeap, hp_expression_heap = newHeap, hp_type_heaps = {th_vars = newHeap, th_attrs = newHeap}} + # heaps = {hp_var_heap = newHeap, hp_expression_heap = newHeap, hp_type_heaps = {th_vars = newHeap, th_attrs = newHeap}, hp_generic_heap = newHeap} # (predef_symbols, hash_table) = buildPredefinedSymbols (newHashTable symbol_heap) = {dcl_modules={},functions_and_macros={},predef_symbols=predef_symbols,hash_table=hash_table,heaps=heaps} |