diff options
| author | alimarin | 2001-05-03 17:38:15 +0000 |
|---|---|---|
| committer | alimarin | 2001-05-03 17:38:15 +0000 |
| commit | 496bcc2d8011ff2ef0cf8c983a41d6f2deacdaec (patch) | |
| tree | 60c2168a2bf4708618d006091e10371026b94d44 /frontend/transform.dcl | |
| parent | replaced corrupted cDirectory.obj (diff) | |
added preliminary support for cons info by type
git-svn-id: https://svn.cs.ru.nl/repos/clean-compiler/trunk@382 1f8540f1-abd5-4d5b-9d24-4c5ce8603e2d
Diffstat (limited to 'frontend/transform.dcl')
| -rw-r--r-- | frontend/transform.dcl | 14 |
1 files changed, 13 insertions, 1 deletions
diff --git a/frontend/transform.dcl b/frontend/transform.dcl index d8845ed..26cd02a 100644 --- a/frontend/transform.dcl +++ b/frontend/transform.dcl @@ -14,6 +14,19 @@ partitionateMacros :: !IndexRange !Index !PredefinedSymbol !*{# FunDef} !*{# Dcl :: CopiedLocalFunctions +// AA.. + +:: CollectState = + { cos_var_heap :: !.VarHeap + , cos_symbol_heap :: !.ExpressionHeap + , cos_error :: !.ErrorAdmin + , cos_alias_dummy :: !PredefinedSymbol + } + +determineVariablesAndRefCounts :: ![FreeVar] !Expression !*CollectState -> (!Expression , ![FreeVar], ![FreeVar], !*CollectState) + +// ..AA + :: UnfoldState = { us_var_heap :: !.VarHeap , us_symbol_heap :: !.ExpressionHeap @@ -31,5 +44,4 @@ partitionateMacros :: !IndexRange !Index !PredefinedSymbol !*{# FunDef} !*{# Dcl :: AciFreeVarHandleMode = LeaveThem | RemoveThem | SubstituteThem class unfold a :: !a !UnfoldInfo !*UnfoldState -> (!a, !*UnfoldState) - instance unfold Expression, CasePatterns |