X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fruntime%2Fprims%2FByteOps.lc;h=594210a8e52b5a4777dcf570e0e4830d53746bae;hb=769ce8e72ae626356ce57162b7ff448c0ef7e700;hp=85d949b9479a2931bfeeb40a48b089f2e218108a;hpb=10521d8418fd3a1cf32882718b5bd28992db36fd;p=ghc-hetmet.git

diff --git a/ghc/runtime/prims/ByteOps.lc b/ghc/runtime/prims/ByteOps.lc
index 85d949b..594210a 100644
--- a/ghc/runtime/prims/ByteOps.lc
+++ b/ghc/runtime/prims/ByteOps.lc
@@ -73,7 +73,7 @@ CAT3(bytes2,ctype,__)(P_ in, htype *out)	\
 	ctype i;				\
 	unsigned char cs[sizeof (ctype)];	\
     } u;					\
-    int k;					\
+    unsigned int k;				\
     unsigned char *arr = (unsigned char *) in;	\
 						\
     for (k = 0; k < sizeof(ctype); k++)		\
@@ -112,7 +112,7 @@ CAT3(bytes2,ctype,__)(P_ in, htype *out)	\
 	ctype i;				\
 	unsigned char cs[sizeof (ctype)];	\
     } u;					\
-    int k;					\
+    unsigned int k;				\
     unsigned char *arr = (unsigned char *) in;	\
 						\
     for (k = 0; k < sizeof(ctype); k++)		\