From b5bdfb28e4d3358653846f8e792d29f3a95a7f4d Mon Sep 17 00:00:00 2001 From: sjakie Date: Thu, 3 Feb 2000 09:40:57 +0000 Subject: bug fix: Observations git-svn-id: https://svn.cs.ru.nl/repos/clean-compiler/trunk@82 1f8540f1-abd5-4d5b-9d24-4c5ce8603e2d --- frontend/refmark.icl | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'frontend') diff --git a/frontend/refmark.icl b/frontend/refmark.icl index 894b97b..f14cc37 100644 --- a/frontend/refmark.icl +++ b/frontend/refmark.icl @@ -126,7 +126,7 @@ where let_combine_ref_count {fv_info_ptr} var_heap # (VI_Occurrence old_occ=:{occ_ref_count,occ_previous=[prev_ref_count, pre_pref_recount:occ_previouses]}, var_heap) = readPtr fv_info_ptr var_heap - comb_ref_count = parCombineRefCount (seqCombineRefCount prev_ref_count occ_ref_count) pre_pref_recount + comb_ref_count = parCombineRefCount (seqCombineRefCount occ_ref_count prev_ref_count) pre_pref_recount = var_heap <:= (fv_info_ptr, VI_Occurrence { old_occ & occ_ref_count = comb_ref_count, occ_previous = occ_previouses }) bind_variable {bind_src,bind_dst={fv_info_ptr}} var_heap -- cgit v1.2.3