diff options
| author | johnvg | 2002-03-08 11:22:44 +0000 |
|---|---|---|
| committer | johnvg | 2002-03-08 11:22:44 +0000 |
| commit | fd427cb516061c85f21a01562f0091c0bd9df154 (patch) | |
| tree | b3fdceb61e1a221a55137acf3104f925fe62b89a | |
| parent | new backend version (diff) | |
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
| -rw-r--r-- | frontend/check.icl | 4 |
1 files changed, 2 insertions, 2 deletions
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 |