From fd427cb516061c85f21a01562f0091c0bd9df154 Mon Sep 17 00:00:00 2001
From: johnvg
Date: Fri, 8 Mar 2002 11:22:44 +0000
Subject: make result of function add_declaration strict to reduce memory
 allocation by the compiler

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

(limited to 'frontend')

diff --git a/frontend/check.icl b/frontend/check.icl
index 482ba89..977d24e 100644
--- a/frontend/check.icl
+++ b/frontend/check.icl
@@ -2573,6 +2573,7 @@ addImportedSymbolsToSymbolTable importing_mod opt_macro_range modules_in_compone
 		  (decls_accu, dcl_modules, cs) = foldSt (add_expl_imp_declaration opt_macro_range importing_mod) decls (decls_accu, dcl_modules, cs)
 		= (decls_accu, dcl_modules, popErrorAdmin cs)		
 		
+	add_declaration :: (Optional IndexRange) Int Declaration *([Declaration],*CheckState) -> (![Declaration],!*CheckState)
 	add_declaration opt_dcl_macro_range importing_mod declaration (decls_accu, cs)
 		# (not_already_imported, cs)
 				= add_declaration_to_symbol_table opt_dcl_macro_range declaration importing_mod cs
@@ -2580,8 +2581,7 @@ addImportedSymbolsToSymbolTable importing_mod opt_macro_range modules_in_compone
 			= ([declaration:decls_accu], cs)
 		= (decls_accu, cs)
 
-	add_expl_imp_declaration opt_dcl_macro_range importing_mod declaration
-			(decls_accu, dcl_modules, cs)
+	add_expl_imp_declaration opt_dcl_macro_range importing_mod declaration (decls_accu, dcl_modules, cs)
 		# (not_already_imported, cs)
 				= add_declaration_to_symbol_table opt_dcl_macro_range declaration importing_mod cs
 		| not_already_imported
-- 
cgit v1.2.3