diff options
| author | johnvg | 2002-03-08 11:23:23 +0000 |
|---|---|---|
| committer | johnvg | 2002-03-08 11:23:23 +0000 |
| commit | 921f653dd1ea656ab025dd10c2ca60c00aea3af6 (patch) | |
| tree | e89b5f273bbd1e4a42acb3d7f0be91ba713d1de4 | |
| parent | make result of function add_declaration strict to reduce (diff) | |
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
| -rw-r--r-- | frontend/typesupport.icl | 1 |
1 files changed, 1 insertions, 0 deletions
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) |