[project @ 1996-06-27 16:13:29 by partain]

[ghc-hetmet.git] / ghc / runtime / prims / ByteOps.lc

diff --git a/ghc/runtime/prims/ByteOps.lc b/ghc/runtime/prims/ByteOps.lc
index 85d949b..594210a 100644 (file)
--- 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++)                \