From 3b826bb80415d2df7d8cb5b1d2d41b16a8575eff Mon Sep 17 00:00:00 2001
From: ronny
Date: Tue, 20 Nov 2001 13:47:59 +0000
Subject: bug fix determination of exported funtion

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

diff --git a/backend/backendinterface.icl b/backend/backendinterface.icl
index 504e19f..da493d2 100644
--- a/backend/backendinterface.icl
+++ b/backend/backendinterface.icl
@@ -97,7 +97,7 @@ printFunctionTypes all attr info components functions attrHeap file backEnd
 
 printFunctionType :: Bool Bool DictionaryToClassInfo (Int, FunDef) (*AttrVarHeap, *File, *BackEnd) -> (*AttrVarHeap, *File, *BackEnd)
 printFunctionType all attr info (functionIndex, {fun_symb,fun_type=Yes type}) (attrHeap, file, backEnd)
-	| not all && functionIndex > size info.dtic_dclModules.[info.dtci_iclModuleIndex].dcl_functions
+	| not all && functionIndex >= size info.dtic_dclModules.[info.dtci_iclModuleIndex].dcl_functions
 		=	(attrHeap, file, backEnd)
 	# (strictnessAdded, type, backEnd)
 		=	addStrictnessFromBackEnd functionIndex fun_symb.id_name backEnd type
-- 
cgit v1.2.3