diff options
| author | johnvg | 2011-11-04 16:30:06 +0000 |
|---|---|---|
| committer | johnvg | 2011-11-04 16:30:06 +0000 |
| commit | 32c73d4028f40d076a65f7d071740c74156eaa5d (patch) | |
| tree | bd6aa47c81423540402c6ba28013e6be2f95e87a /frontend/containers.icl | |
| parent | remove differences in layout between the compiler and the iTask compiler (diff) | |
remove differences in layout between the compiler and the iTask compiler
git-svn-id: https://svn.cs.ru.nl/repos/clean-compiler/trunk@1993 1f8540f1-abd5-4d5b-9d24-4c5ce8603e2d
Diffstat (limited to 'frontend/containers.icl')
| -rw-r--r-- | frontend/containers.icl | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/frontend/containers.icl b/frontend/containers.icl index 59fdb69..ba052e7 100644 --- a/frontend/containers.icl +++ b/frontend/containers.icl @@ -268,12 +268,12 @@ arg_strictness_annotation :: !Int !StrictnessList -> Annotation; arg_strictness_annotation _ NotStrict = AN_None arg_strictness_annotation i (Strict s) - | i<32 && (s>>i) bitand 1>0 + | i<32 && (s bitand (1<<i))<>0 = AN_Strict = AN_None arg_strictness_annotation i (StrictList s l) | i<32 - | (s>>i) bitand 1>0 + | (s bitand (1<<i))<>0 = AN_Strict = AN_None = arg_strictness_annotation (i-32) l @@ -282,10 +282,10 @@ arg_is_strict :: !Int !StrictnessList -> Bool; arg_is_strict _ NotStrict = False arg_is_strict i (Strict s) - = i<32 && (s>>i) bitand 1>0 + = i<32 && (s bitand (1<<i))<>0 arg_is_strict i (StrictList s l) | i<32 - = (s>>i) bitand 1>0 + = (s bitand (1<<i))<>0 = arg_is_strict (i-32) l is_not_strict :: !StrictnessList -> Bool |