diff options
| author | johnvg | 2002-02-06 13:50:49 +0000 |
|---|---|---|
| committer | johnvg | 2002-02-06 13:50:49 +0000 |
| commit | 18b70304a4a2e4c8481142a2d48469915e0d0bc0 (patch) | |
| tree | a00d8acc0c7425b2d07c72ecf78319702be2013b /frontend/utilities.icl | |
| parent | store strictness annotations in SymbolType instead of AType (diff) | |
store strictness annotations in SymbolType instead of AType
git-svn-id: https://svn.cs.ru.nl/repos/clean-compiler/trunk@1002 1f8540f1-abd5-4d5b-9d24-4c5ce8603e2d
Diffstat (limited to 'frontend/utilities.icl')
| -rw-r--r-- | frontend/utilities.icl | 20 |
1 files changed, 0 insertions, 20 deletions
diff --git a/frontend/utilities.icl b/frontend/utilities.icl index 22e0b70..48a5012 100644 --- a/frontend/utilities.icl +++ b/frontend/utilities.icl @@ -433,23 +433,3 @@ replaceTwoDimArrElt ix1 ix2 el arr (el2, inner_array) = replace inner_array ix2 el = (el2, { arr & [ix1] = inner_array }) -/* crashes! -replaceTwoDimArrElt ix1 ix2 el arr = code - { | A:arr el B:ix2 ix1 - push_b 0 | A:arr el B:ix2 ix1 ix1 - update_b 2 1 | A:arr el B:ix2 ix2 ix1 - update_b 0 2 | A:arr el B:ix1 ix2 ix1 - push_a 1 | A:arr el arr B:ix1 ix2 ix1 - select _ 1 0 | A:arr el arr.[ix1] B:ix1 ix2 - push_array 0 - updatepop_a 0 1 - replace _ 1 0 | A:arr arr.[ix1]* new_el B:ix1 - push_a 2 | A:arr arr.[ix1]* new_el arr B:ix1 - update_a 1 3 | A:new_el arr.[ix1]* new_el arr B:ix1 - update_a 2 1 | A:new_el arr.[ix1]* arr.[ix1]* arr B:ix1 - update _ 1 0 | A:new_el arr.[ix1]* arr* - update_a 2 1 | A:new_el new_el arr* - update_a 0 2 | A:arr* new_el arr* - pop_a 1 | A:arr* new_el - } -*/
\ No newline at end of file |