diff options
| author | diederik | 2002-07-25 14:38:44 +0000 |
|---|---|---|
| committer | diederik | 2002-07-25 14:38:44 +0000 |
| commit | 7103cba5f7d85823eaefe1f44e7c693656dcb8b7 (patch) | |
| tree | d442f02f85ef25135c3a06b93964528c988c853a /frontend | |
| parent | rename consumer classifications and add CUnused (diff) | |
add collectVariable instance for Dictionaries for consumer reanalysis
git-svn-id: https://svn.cs.ru.nl/repos/clean-compiler/trunk@1171 1f8540f1-abd5-4d5b-9d24-4c5ce8603e2d
Diffstat (limited to 'frontend')
| -rw-r--r-- | frontend/transform.icl | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/frontend/transform.icl b/frontend/transform.icl index c0b09bc..b1b53b2 100644 --- a/frontend/transform.icl +++ b/frontend/transform.icl @@ -1992,6 +1992,9 @@ where collectVariables (ArraySelection array_select expr_ptr index_expr) free_vars dynamics cos # (index_expr, free_vars, dynamics, cos) = collectVariables index_expr free_vars dynamics cos = (ArraySelection array_select expr_ptr index_expr, free_vars, dynamics, cos) + collectVariables (DictionarySelection dictionary_select selectors expr_ptr index_expr) free_vars dynamics cos + # ((index_expr,selectors), free_vars, dynamics, cos) = collectVariables (index_expr,selectors) free_vars dynamics cos + = (DictionarySelection dictionary_select selectors expr_ptr index_expr, free_vars, dynamics, cos) collectVariables record_selection free_vars dynamics cos = (record_selection, free_vars, dynamics, cos) |