From 32c73d4028f40d076a65f7d071740c74156eaa5d Mon Sep 17 00:00:00 2001
From: johnvg
Date: Fri, 4 Nov 2011 16:30:06 +0000
Subject: 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
---
 frontend/containers.icl | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

(limited to 'frontend/containers.icl')

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
-- 
cgit v1.2.3