diff options
| author | johnvg | 2002-03-08 11:23:55 +0000 |
|---|---|---|
| committer | johnvg | 2002-03-08 11:23:55 +0000 |
| commit | 7b39783ce8b2e1fad9e98ff988896fd394d1a7d9 (patch) | |
| tree | 9e5138266bdb3398519054ef7020f93edf45a6cc /frontend/refmark.icl | |
| parent | make result of function build_inequalities strict to reduce (diff) | |
commented out some debug code to reduce memory allocation by
the compiler
git-svn-id: https://svn.cs.ru.nl/repos/clean-compiler/trunk@1052 1f8540f1-abd5-4d5b-9d24-4c5ce8603e2d
Diffstat (limited to 'frontend/refmark.icl')
| -rw-r--r-- | frontend/refmark.icl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/frontend/refmark.icl b/frontend/refmark.icl index e447641..9c5c5d4 100644 --- a/frontend/refmark.icl +++ b/frontend/refmark.icl @@ -61,7 +61,7 @@ where [x : xs] -> (x, xs) _ - -> abort ("restoreOccurrences" ---> (fv_name, fv_info_ptr, wher)) + -> abort ("restoreOccurrences" /* ---> (fv_name, fv_info_ptr, wher) */) var_heap = var_heap <:= (fv_info_ptr, VI_Occurrence {old_occ & occ_ref_count = prev_ref_count, occ_previous = occ_previous }) = case occ_ref_count ===> ("restore_occurrence", fv_name, fv_info_ptr, (occ_ref_count, prev_ref_count, occ_previous)) of RC_Unused |