Commit 86e9e4da authored by John van Groningen's avatar John van Groningen
Browse files

make result of function add_declaration strict to reduce

memory allocation by the compiler
parent ab474ab3
...@@ -2573,6 +2573,7 @@ addImportedSymbolsToSymbolTable importing_mod opt_macro_range modules_in_compone ...@@ -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, cs) = foldSt (add_expl_imp_declaration opt_macro_range importing_mod) decls (decls_accu, dcl_modules, cs)
= (decls_accu, dcl_modules, popErrorAdmin 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) add_declaration opt_dcl_macro_range importing_mod declaration (decls_accu, cs)
# (not_already_imported, cs) # (not_already_imported, cs)
= add_declaration_to_symbol_table opt_dcl_macro_range declaration importing_mod 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 ...@@ -2580,8 +2581,7 @@ addImportedSymbolsToSymbolTable importing_mod opt_macro_range modules_in_compone
= ([declaration:decls_accu], cs) = ([declaration:decls_accu], cs)
= (decls_accu, cs) = (decls_accu, cs)
add_expl_imp_declaration opt_dcl_macro_range importing_mod declaration add_expl_imp_declaration opt_dcl_macro_range importing_mod declaration (decls_accu, dcl_modules, cs)
(decls_accu, dcl_modules, cs)
# (not_already_imported, cs) # (not_already_imported, cs)
= add_declaration_to_symbol_table opt_dcl_macro_range declaration importing_mod cs = add_declaration_to_symbol_table opt_dcl_macro_range declaration importing_mod cs
| not_already_imported | not_already_imported
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment