diff options
| author | johnvg | 2011-04-15 13:27:17 +0000 |
|---|---|---|
| committer | johnvg | 2011-04-15 13:27:17 +0000 |
| commit | 07421cdc9f40418c2896a0a77f5e038904ac6059 (patch) | |
| tree | 465d9c9e9003b51c915d11fa570d44910c63c3c9 /backend | |
| parent | remove field icl_copied_from_dcl from type IclModule (diff) | |
git-svn-id: https://svn.cs.ru.nl/repos/clean-compiler/trunk@1926 1f8540f1-abd5-4d5b-9d24-4c5ce8603e2d
Diffstat (limited to 'backend')
| -rw-r--r-- | backend/backendconvert.icl | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/backend/backendconvert.icl b/backend/backendconvert.icl index 962fabf..d549829 100644 --- a/backend/backendconvert.icl +++ b/backend/backendconvert.icl @@ -1155,8 +1155,8 @@ adjustArrayFunctions array_first_instance_indices predefs main_dcl_module_n func = foldStateA (adjustStdArrayInstance arrayClassIndex arrayInfo) instances where adjustStdArrayInstance :: Index AdjustStdArrayInfo ClassInstance -> BackEnder - adjustStdArrayInstance arrayClassIndex arrayInfo=:{asai_moduleIndex} instance`=:{ins_class} - | ins_class.glob_object.ds_index == arrayClassIndex && ins_class.glob_module == asai_moduleIndex + adjustStdArrayInstance arrayClassIndex arrayInfo=:{asai_moduleIndex} instance`=:{ins_class_index} + | ins_class_index.gi_index == arrayClassIndex && ins_class_index.gi_module == asai_moduleIndex = adjustArrayClassInstance arrayInfo instance` // otherwise = identity |