diff options
| author | sjakie | 2000-01-17 16:40:25 +0000 |
|---|---|---|
| committer | sjakie | 2000-01-17 16:40:25 +0000 |
| commit | 7df70be02dac26f4b4324e091a1f37b833504e96 (patch) | |
| tree | 7cf2de146cd5c8c5b186c1b9bdad8badadb4d481 /frontend/refmark.icl | |
| parent | removing some abort statements in check (diff) | |
Bug fixes
git-svn-id: https://svn.cs.ru.nl/repos/clean-compiler/trunk@77 1f8540f1-abd5-4d5b-9d24-4c5ce8603e2d
Diffstat (limited to 'frontend/refmark.icl')
| -rw-r--r-- | frontend/refmark.icl | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/frontend/refmark.icl b/frontend/refmark.icl index e78eb9e..a450ca2 100644 --- a/frontend/refmark.icl +++ b/frontend/refmark.icl @@ -130,7 +130,8 @@ where bind_variable {bind_src,bind_dst={fv_info_ptr}} var_heap # (VI_Occurrence occ, var_heap) = readPtr fv_info_ptr var_heap - = var_heap <:= (fv_info_ptr, VI_Occurrence { occ & occ_bind = OB_OpenLet bind_src }) +// = var_heap <:= (fv_info_ptr, VI_Occurrence { occ & occ_bind = OB_OpenLet bind_src }) + = var_heap <:= (fv_info_ptr, VI_Occurrence { occ & occ_ref_count = RC_Unused, occ_bind = OB_OpenLet bind_src }) refMark free_vars sel (Case {case_expr,case_guards,case_default}) var_heap = refMarkOfCase free_vars sel case_expr case_guards case_default var_heap |