diff options
| author | johnvg | 2003-01-24 12:03:46 +0000 |
|---|---|---|
| committer | johnvg | 2003-01-24 12:03:46 +0000 |
| commit | 7d85a8e8bed63f81577dfe7de2b142e74aca3a77 (patch) | |
| tree | 5b9b5040306cd01fa113c24a367726dd6578d173 /frontend/trans.dcl | |
| parent | Fix error in producerRequirements (diff) | |
added convertSymbolTypeWithoutCollectingImportedConstructors
to fix a bug if type synonyms are used and a .tcl file
is generated
git-svn-id: https://svn.cs.ru.nl/repos/clean-compiler/trunk@1313 1f8540f1-abd5-4d5b-9d24-4c5ce8603e2d
Diffstat (limited to 'frontend/trans.dcl')
| -rw-r--r-- | frontend/trans.dcl | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/frontend/trans.dcl b/frontend/trans.dcl index 796892a..9ad3dc0 100644 --- a/frontend/trans.dcl +++ b/frontend/trans.dcl @@ -12,4 +12,7 @@ transformGroups :: !CleanupInfo !Int !Int !Int !Int !*{!Group} !*{#FunDef} !*{!. convertSymbolType :: !Bool !{# CommonDefs} !SymbolType !Int !*ImportedTypes !ImportedConstructors !*TypeHeaps !*VarHeap -> (!SymbolType, !*ImportedTypes, !ImportedConstructors, !*TypeHeaps, !*VarHeap) +convertSymbolTypeWithoutCollectingImportedConstructors :: !Bool !{# CommonDefs} !SymbolType !Int !*ImportedTypes !*TypeHeaps !*VarHeap + -> (!SymbolType, !*ImportedTypes, !*TypeHeaps, !*VarHeap) + addTypesOfDictionaries :: !{#CommonDefs} ![TypeContext] ![AType] -> [AType] |