diff options
| author | sjakie | 1999-11-11 09:50:24 +0000 |
|---|---|---|
| committer | sjakie | 1999-11-11 09:50:24 +0000 |
| commit | 615c762712d2e9ab5c1ffbfc1eeaa3a879c769b8 (patch) | |
| tree | 5adbdd55325a29dccdaacf96d6b5f16c9b34add0 /frontend/unitype.icl | |
| parent | extension: not necessary to repeat definitions of dcl-module in icl-module (diff) | |
bug fix: uniqueness inference (coerce in unitype)
git-svn-id: https://svn.cs.ru.nl/repos/clean-compiler/trunk@41 1f8540f1-abd5-4d5b-9d24-4c5ce8603e2d
Diffstat (limited to 'frontend/unitype.icl')
| -rw-r--r-- | frontend/unitype.icl | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/frontend/unitype.icl b/frontend/unitype.icl index e8c51d4..f56fa7e 100644 --- a/frontend/unitype.icl +++ b/frontend/unitype.icl @@ -454,7 +454,9 @@ coerceAttributes (TA_TempVar av_number) TA_Multi {neg_sign} coercions=:{coer_dem = (True, makeNonUnique av_number coercions) coerceAttributes TA_Unique TA_Multi _ coercions = (False, coercions) -coerceAttributes off_attr dem_attr {pos_sign,neg_sign} coercions +coerceAttributes TA_Multi TA_Unique _ coercions + = (False, coercions) +coerceAttributes off_attr dem_attr _ coercions = (True, coercions) newInequality :: !Int !Int !*Coercions -> *Coercions |