From e2da565ff20765c73edb3fa469bdd96d156ef874 Mon Sep 17 00:00:00 2001
From: alimarin
Date: Thu, 6 Sep 2001 07:34:25 +0000
Subject: removed usage of fun_index fixed bugs in generics reimplemented
 kind-indexed type specialization

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

(limited to 'frontend/StdCompare.icl')

diff --git a/frontend/StdCompare.icl b/frontend/StdCompare.icl
index b2eb24d..12978bb 100644
--- a/frontend/StdCompare.icl
+++ b/frontend/StdCompare.icl
@@ -11,6 +11,10 @@ where
 instance == AttributeVar 
 where
 	(==) varid1 varid2 = varid1.av_info_ptr == varid2.av_info_ptr
+
+instance == AttrInequality
+where
+	(==) ai1 ai2 = ai1.ai_demanded == ai2.ai_demanded && ai1.ai_offered == ai2.ai_offered
 //..AA
 
 instance == FunKind
@@ -60,7 +64,7 @@ where
 instance == DefinedSymbol
 where
 	(==) ds1 ds2
-		= ds1.ds_ident == ds2.ds_ident && ds1.ds_index == ds2.ds_index
+		= ds1.ds_index == ds2.ds_index //&& ds1.ds_ident == ds2.ds_ident 
 
 instance == Type
 where
-- 
cgit v1.2.3