summaryrefslogtreecommitdiff
path: root/marshal.c
diff options
context:
space:
mode:
Diffstat (limited to 'marshal.c')
-rw-r--r--marshal.c10
1 files changed, 5 insertions, 5 deletions
diff --git a/marshal.c b/marshal.c
index bf4e3323a2..0f9b4a89e8 100644
--- a/marshal.c
+++ b/marshal.c
@@ -246,7 +246,7 @@ w_long(long x, struct dump_arg *arg)
return;
}
for (i=1;i<sizeof(long)+1;i++) {
- buf[i] = x & 0xff;
+ buf[i] = (char)(x & 0xff);
x = RSHIFT(x,8);
if (x == 0) {
buf[0] = i;
@@ -290,15 +290,15 @@ save_mantissa(double d, char *buf)
d = modf(ldexp(d, MANT_BITS), &n);
m = (unsigned long)n;
#if MANT_BITS > 24
- buf[i++] = m >> 24;
+ buf[i++] = (char)(m >> 24);
#endif
#if MANT_BITS > 16
- buf[i++] = m >> 16;
+ buf[i++] = (char)(m >> 16);
#endif
#if MANT_BITS > 8
- buf[i++] = m >> 8;
+ buf[i++] = (char)(m >> 8);
#endif
- buf[i++] = m;
+ buf[i++] = (char)m;
} while (d > 0);
while (!buf[i - 1]) --i;
}