diff options
| author | johnvg | 2010-02-05 16:18:58 +0000 |
|---|---|---|
| committer | johnvg | 2010-02-05 16:18:58 +0000 |
| commit | b2480c2809a97a6d8ae269933aab205ae3c2f5da (patch) | |
| tree | e9838ab5c71a4350354ff3ccced388d241eb7deb /frontend/transform.dcl | |
| parent | create a copy of unfold in module transform in module trans, called copy (diff) | |
remove code that is no longer used in unfold, because unfold is no longer
used by module trans (now uses copy)
git-svn-id: https://svn.cs.ru.nl/repos/clean-compiler/trunk@1768 1f8540f1-abd5-4d5b-9d24-4c5ce8603e2d
Diffstat (limited to 'frontend/transform.dcl')
| -rw-r--r-- | frontend/transform.dcl | 12 |
1 files changed, 2 insertions, 10 deletions
diff --git a/frontend/transform.dcl b/frontend/transform.dcl index a058a09..5566a21 100644 --- a/frontend/transform.dcl +++ b/frontend/transform.dcl @@ -31,16 +31,8 @@ determineVariablesAndRefCounts :: ![FreeVar] !Expression !*CollectState -> (!Exp :: UnfoldState = { us_var_heap :: !.VarHeap , us_symbol_heap :: !.ExpressionHeap - , us_opt_type_heaps :: !.Optional .TypeHeaps, - us_cleanup_info :: ![ExprInfoPtr], - us_local_macro_functions :: !Optional CopiedLocalFunctions + , us_local_macro_functions :: !Optional CopiedLocalFunctions } -:: UnfoldInfo = - { ui_handle_aci_free_vars :: !AciFreeVarHandleMode - } - -:: AciFreeVarHandleMode = LeaveThem | RemoveThem | SubstituteThem - -class unfold a :: !a !UnfoldInfo !*UnfoldState -> (!a, !*UnfoldState) +class unfold a :: !a !*UnfoldState -> (!a, !*UnfoldState) instance unfold Expression, CasePatterns |