diff options
| author | ronny | 2001-05-08 11:26:04 +0000 |
|---|---|---|
| committer | ronny | 2001-05-08 11:26:04 +0000 |
| commit | a5e4e1a2c73f290fa7d08ce59379eae5d2dc524b (patch) | |
| tree | 9c9435dc567717fb67b52795805c821529937953 | |
| parent | support for cases in backend (diff) | |
moved ImportedFunctions from convertcases to trans
(it's now together with ImportedConstructors)
git-svn-id: https://svn.cs.ru.nl/repos/clean-compiler/trunk@396 1f8540f1-abd5-4d5b-9d24-4c5ce8603e2d
| -rw-r--r-- | frontend/convertcases.dcl | 2 | ||||
| -rw-r--r-- | frontend/convertcases.icl | 2 | ||||
| -rw-r--r-- | frontend/trans.dcl | 1 | ||||
| -rw-r--r-- | frontend/trans.icl | 1 |
4 files changed, 2 insertions, 4 deletions
diff --git a/frontend/convertcases.dcl b/frontend/convertcases.dcl index ef73041..286dd14 100644 --- a/frontend/convertcases.dcl +++ b/frontend/convertcases.dcl @@ -2,8 +2,6 @@ definition module convertcases import syntax, transform, trans -:: ImportedFunctions :== [Global Index] - convertCasesOfFunctionsIntoPatterns :: !*{! Group} !Int !{# {# FunType} } !{# CommonDefs} !*{#FunDef} !*{#{# CheckedTypeDef}} !ImportedConstructors !*VarHeap !*TypeHeaps !*ExpressionHeap -> (!ImportedFunctions, !*{! Group}, !*{#FunDef}, !*{#{# CheckedTypeDef}}, !ImportedConstructors, !*VarHeap, !*TypeHeaps, !*ExpressionHeap) diff --git a/frontend/convertcases.icl b/frontend/convertcases.icl index a38f4aa..5d0845f 100644 --- a/frontend/convertcases.icl +++ b/frontend/convertcases.icl @@ -466,8 +466,6 @@ toOptionalFreeVar (Yes (var_info_ptr, type)) var_heap toOptionalFreeVar No var_heap = (No, var_heap) -:: ImportedFunctions :== [Global Index] - cDontRemoveAnnatations :== False addNewFunctionsToGroups :: !{#.CommonDefs} FunctionHeap ![FunctionInfoPtr] !Int !*{! Group} !*{#{# CheckedTypeDef}} !ImportedFunctions !*TypeHeaps !*VarHeap diff --git a/frontend/trans.dcl b/frontend/trans.dcl index 44930ff..4a2a204 100644 --- a/frontend/trans.dcl +++ b/frontend/trans.dcl @@ -20,6 +20,7 @@ transformGroups :: !CleanupInfo !Int !*{! Group} !*{#FunDef} !{!.ConsClasses} !{ partitionateFunctions :: !*{# FunDef} ![IndexRange] -> (!*{! Group}, !*{# FunDef}) :: ImportedConstructors :== [Global Index] +:: ImportedFunctions :== [Global Index] convertSymbolType :: !Bool !{# CommonDefs} !SymbolType !Int !*{#{# CheckedTypeDef}} !ImportedConstructors !*TypeHeaps !*VarHeap -> (!SymbolType, !*{#{# CheckedTypeDef}}, !ImportedConstructors, !*TypeHeaps, !*VarHeap) diff --git a/frontend/trans.icl b/frontend/trans.icl index 832d8e5..7cb372a 100644 --- a/frontend/trans.icl +++ b/frontend/trans.icl @@ -2272,6 +2272,7 @@ renewVariables exprs var_heap :: ImportedConstructors :== [Global Index] +:: ImportedFunctions :== [Global Index] transformGroups :: !CleanupInfo !Int !*{! Group} !*{#FunDef} !{!.ConsClasses} !{# CommonDefs} !{# {# FunType} } !*{#{# CheckedTypeDef}} !ImportedConstructors !*TypeDefInfos !*VarHeap !*TypeHeaps !*ExpressionHeap |