From 8090f9de44e1aca344975c2acf80281e0fff1ee2 Mon Sep 17 00:00:00 2001
From: johnvg
Date: Mon, 23 Oct 2000 14:17:05 +0000
Subject: renumber icl function and macro indices when unfolding dcl macros in
 icl functions and macros removed expanded macros from groups (s.c.components)

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

(limited to 'frontend/overloading.icl')

diff --git a/frontend/overloading.icl b/frontend/overloading.icl
index 57b6d1f..83baedb 100644
--- a/frontend/overloading.icl
+++ b/frontend/overloading.icl
@@ -2,8 +2,7 @@ implementation module overloading
 
 import StdEnv
 
-import syntax, check, type, typesupport, utilities, unitype, predef, checktypes, RWSDebug, convertDynamics
-
+import syntax, check, type, typesupport, utilities, unitype, predef, checktypes, convertDynamics // ,RWSDebug
 
 ::	InstanceTree = IT_Node !(Global Index) !InstanceTree !InstanceTree | IT_Empty 
 
@@ -695,7 +694,7 @@ expressionToTypeCodeExpression (ClassVariable var_info_ptr)			= TCE_TypeTerm var
 /*
 expressionToTypeCodeExpression (Var {var_info_ptr})					= TCE_Var var_info_ptr
 */
-expressionToTypeCodeExpression expr									= abort ("expressionToTypeCodeExpression (overloading.icl)" <<- expr)
+expressionToTypeCodeExpression expr									= abort "expressionToTypeCodeExpression (overloading.icl)" // <<- expr)
 
 generateClassSelection address last_selectors
 	= mapAppend (\(off_set,selector) -> RecordSelection selector off_set) address last_selectors
@@ -1170,11 +1169,10 @@ where
 
 		get_recursive_fun_index :: !Index !SymbKind Int !{# FunDef} -> Index
 		get_recursive_fun_index group_index (SK_Function {glob_module,glob_object}) main_dcl_module_n fun_defs
-//			| glob_module == cIclModIndex
 			| glob_module == main_dcl_module_n
-				# {fun_info, fun_index} = fun_defs.[glob_object]
+				# {fun_info,fun_index} = fun_defs.[glob_object]
 				| fun_info.fi_group_index == group_index
-					= fun_index 
+					= fun_index
 					= NoIndex
 				= NoIndex
 		get_recursive_fun_index group_index _ main_dcl_module_n fun_defs
-- 
cgit v1.2.3