From 36aaf5c047be8b363b5e0ea9cdb35bf69c3652e1 Mon Sep 17 00:00:00 2001
From: alimarin
Date: Wed, 25 Apr 2001 15:57:41 +0000
Subject: added support for constructors (for toString like usage), fromString
 is not yet supported some error handling improved parial instances are
 temporary disabled

git-svn-id: https://svn.cs.ru.nl/repos/clean-compiler/trunk@368 1f8540f1-abd5-4d5b-9d24-4c5ce8603e2d
---
 frontend/overloading.icl | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'frontend/overloading.icl')

diff --git a/frontend/overloading.icl b/frontend/overloading.icl
index bd16b9e..4ef4143 100644
--- a/frontend/overloading.icl
+++ b/frontend/overloading.icl
@@ -695,10 +695,11 @@ where
 			 heaps_and_ptrs)
 	adjust_member_application  defs contexts  {me_symb,me_offset,me_class={glob_module,glob_object}} symb_arity (CA_Context tc) class_exprs (heaps=:{hp_type_heaps}, ptrs)
 		# (class_context, address, hp_type_heaps) = determineContextAddress contexts defs tc hp_type_heaps
-		  {class_dictionary={ds_index}} = defs.[glob_module].com_class_defs.[glob_object]
+		  {class_dictionary={ds_index,ds_ident}} = defs.[glob_module].com_class_defs.[glob_object]
 		  selector = selectFromDictionary glob_module ds_index me_offset defs
 		= (EI_Selection (generateClassSelection address [RecordSelection selector me_offset]) class_context.tc_var class_exprs,
 				({ heaps & hp_type_heaps = hp_type_heaps }, ptrs))
+
 	adjust_member_application defs contexts  _ _ (CA_GlobalTypeCode {tci_index,tci_contexts}) _ heaps_and_ptrs
 		# (exprs, heaps_and_ptrs) = convertClassApplsToExpressions defs contexts tci_contexts heaps_and_ptrs
 		= (EI_TypeCode (TCE_Constructor tci_index (map expressionToTypeCodeExpression exprs)), heaps_and_ptrs)
-- 
cgit v1.2.3