From 921f653dd1ea656ab025dd10c2ca60c00aea3af6 Mon Sep 17 00:00:00 2001
From: johnvg
Date: Fri, 8 Mar 2002 11:23:23 +0000
Subject: make result of function build_inequalities strict to reduce memory
 allocation by the compiler

git-svn-id: https://svn.cs.ru.nl/repos/clean-compiler/trunk@1051 1f8540f1-abd5-4d5b-9d24-4c5ce8603e2d
---
 frontend/typesupport.icl | 1 +
 1 file changed, 1 insertion(+)

(limited to 'frontend')

diff --git a/frontend/typesupport.icl b/frontend/typesupport.icl
index 8bdd493..9ef6cf0 100644
--- a/frontend/typesupport.icl
+++ b/frontend/typesupport.icl
@@ -467,6 +467,7 @@ where
 			TA_None
 				-> build_attribute_environment appears_in_lifted_part (inc attr_group_index) max_attr_nr coercions attr_env attr_vars inequalities error
 	
+	build_inequalities :: {#Int} Bool AttributeVar !CoercionTree {!CoercionTree} *{!TypeAttribute} [AttrInequality] -> (!Bool,!*{!TypeAttribute},![AttrInequality])
 	build_inequalities appears_in_lifted_part off_appears_in_lifted_part off_var (CT_Node dem_attr left right)
 				coercions attr_env inequalities
 		# (ok1, attr_env, inequalities)
-- 
cgit v1.2.3