diff options
| author | martinw | 1999-10-18 10:20:25 +0000 |
|---|---|---|
| committer | martinw | 1999-10-18 10:20:25 +0000 |
| commit | 39e20be61569d541feb51f3ef9333a7e4728b66b (patch) | |
| tree | 1d318c6059e0c01e2924308ba740991f7ebce776 /frontend/trans.dcl | |
| parent | cases in lets fixed (diff) | |
lots of changes in module trans to make fusion work.
git-svn-id: https://svn.cs.ru.nl/repos/clean-compiler/trunk@16 1f8540f1-abd5-4d5b-9d24-4c5ce8603e2d
Diffstat (limited to 'frontend/trans.dcl')
| -rw-r--r-- | frontend/trans.dcl | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/frontend/trans.dcl b/frontend/trans.dcl index 7c24ebf..5bf2558 100644 --- a/frontend/trans.dcl +++ b/frontend/trans.dcl @@ -8,9 +8,12 @@ cPassive :== -1 cActive :== -2 cAccumulating :== -3 -analyseGroups :: !*{! Group} !*{#FunDef} !*VarHeap -> (!*{! ConsClasses}, !*{! Group}, !*{#FunDef}, !*VarHeap) +:: CleanupInfo -transformGroups :: !*{! Group} !*{#FunDef} !{!.ConsClasses} !{# CommonDefs} !{# {# FunType} } !*VarHeap !*TypeHeaps !*ExpressionHeap +analyseGroups :: !*{! Group} !*{#FunDef} !*VarHeap !*ExpressionHeap + -> (!CleanupInfo, !*{! ConsClasses}, !*{! Group}, !*{#FunDef}, !*VarHeap, !*ExpressionHeap) + +transformGroups :: !CleanupInfo !*{! Group} !*{#FunDef} !{!.ConsClasses} !{# CommonDefs} !{# {# FunType} } !*VarHeap !*TypeHeaps !*ExpressionHeap -> (!*{! Group}, !*{#FunDef}, !*{#{# CheckedTypeDef}}, !ImportedConstructors, !*VarHeap, !*TypeHeaps, !*ExpressionHeap) partitionateFunctions :: !*{# FunDef} ![IndexRange] -> (!*{! Group}, !*{# FunDef}) |