diff options
| author | sjakie | 2001-09-21 08:08:59 +0000 |
|---|---|---|
| committer | sjakie | 2001-09-21 08:08:59 +0000 |
| commit | 68a9935f0203b73b5edb13a9e3996b8b06d05f48 (patch) | |
| tree | 779071559cd7c17f66dcd4b02949f9805615f34f /frontend/refmark.icl | |
| parent | Added module owners for convertDynamics, type_io and type_io_common (diff) | |
Bug fix: caching combined with omitted type and class definitions
git-svn-id: https://svn.cs.ru.nl/repos/clean-compiler/trunk@800 1f8540f1-abd5-4d5b-9d24-4c5ce8603e2d
Diffstat (limited to 'frontend/refmark.icl')
| -rw-r--r-- | frontend/refmark.icl | 9 |
1 files changed, 0 insertions, 9 deletions
diff --git a/frontend/refmark.icl b/frontend/refmark.icl index 30cb44e..f607bc1 100644 --- a/frontend/refmark.icl +++ b/frontend/refmark.icl @@ -352,17 +352,8 @@ where var_heap = refMark [ [ fv \\ (fv,_) <- used_pattern_vars ] : free_vars ] sel def ap_expr var_heap // (var_heap ---> ("ref_mark_of_algebraic_pattern", ap_expr)) var_heap = restore_binding_of_pattern_variable opt_pattern_var used_pattern_vars var_heap (used_lets, var_heap) = collectUsedLetVars local_lets (used_lets, var_heap) -// var_heap = clear_local_vars used_pattern_vars var_heap = (with_pattern_bindings || not (isEmpty used_pattern_vars), pattern_depth, used_lets, var_heap) - clear_local_vars vars var_heap - = foldSt clear_occurrence vars var_heap - where - clear_occurrence ({fv_name,fv_info_ptr},_) var_heap - # (var_info, var_heap) = readPtr fv_info_ptr var_heap - = case var_info of - VI_Occurrence occ - -> var_heap <:= (fv_info_ptr, VI_Occurrence { occ & occ_ref_count = RC_Unused, occ_previous = [], occ_bind = OB_Empty }) bind_optional_pattern_variable _ [] var_heap = var_heap |