diff options
| author | martinw | 2000-06-16 11:25:06 +0000 |
|---|---|---|
| committer | martinw | 2000-06-16 11:25:06 +0000 |
| commit | 8ca1f664a5df12e38884bed7f741b4deb5ebf504 (patch) | |
| tree | 6966d795154b17e6bac6c9a1d081a432cf776c1f /backend/backendconvert.icl | |
| parent | small changes to reduce memory allocation (diff) | |
changes in to make compiler self compatible
git-svn-id: https://svn.cs.ru.nl/repos/clean-compiler/trunk@168 1f8540f1-abd5-4d5b-9d24-4c5ce8603e2d
Diffstat (limited to 'backend/backendconvert.icl')
| -rw-r--r-- | backend/backendconvert.icl | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/backend/backendconvert.icl b/backend/backendconvert.icl index 354413a..ff5a95c 100644 --- a/backend/backendconvert.icl +++ b/backend/backendconvert.icl @@ -482,8 +482,14 @@ instance declareVars BackendBody where class declare a :: ModuleIndex !VarHeap a -> Backender class declareWithIndex a :: Index ModuleIndex !VarHeap a -> Backender +//1.3 instance declare {#a} | declareWithIndex a & ArrayElem a where declare :: ModuleIndex VarHeap {#a} -> Backender | declareWithIndex a & ArrayElem a +//3.1 +/*2.0 +instance declare {#a} | declareWithIndex a & Array {#} a where + declare :: ModuleIndex VarHeap {#a} -> Backender | declareWithIndex a & Array {#} a +0.2*/ declare moduleIndex varHeap array = foldStateWithIndexA (\i -> declareWithIndex i moduleIndex varHeap) array |