From 07421cdc9f40418c2896a0a77f5e038904ac6059 Mon Sep 17 00:00:00 2001
From: johnvg
Date: Fri, 15 Apr 2011 13:27:17 +0000
Subject: git-svn-id: https://svn.cs.ru.nl/repos/clean-compiler/trunk@1926
 1f8540f1-abd5-4d5b-9d24-4c5ce8603e2d

---
 backend/backendconvert.icl | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'backend')

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
-- 
cgit v1.2.3