suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

added casts to c/new-io.c to eliminate compiler warnings in Windows

Browse Source 
original commit: 1014ac6b273203a5965e66dee4bacb8399097d87
This commit is contained in:
Bob Burger 2017-06-27 12:35:35 -04:00
parent 0af9c2bbbf
commit fd7606ca05
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
c/new-io.c
View File

@ -796,7 +796,7 @@ static int is_valid_zlib_length(iptr count) {
not fit in `iptr`. */ not fit in `iptr`. */
uptr S_bytevector_compress_size(iptr s_count) { uptr S_bytevector_compress_size(iptr s_count) {
if (is_valid_zlib_length(s_count)) if (is_valid_zlib_length(s_count))
return compressBound(s_count); return compressBound((uLong)s_count);
else { else {
/* Compression will report "source too long" */ /* Compression will report "source too long" */
return 0; return 0;
@ -812,9 +812,9 @@ ptr S_bytevector_compress(ptr dest_bv, iptr d_start, iptr d_count,
if (!is_valid_zlib_length(s_count)) if (!is_valid_zlib_length(s_count))
return Sstring("source bytevector ~s is too large"); return Sstring("source bytevector ~s is too large");
destLen = d_count; destLen = (uLong)d_count;
r = compress(&BVIT(dest_bv, d_start), &destLen, &BVIT(src_bv, s_start), s_count); r = compress(&BVIT(dest_bv, d_start), &destLen, &BVIT(src_bv, s_start), (uLong)s_count);
if (r == Z_OK) if (r == Z_OK)
return FIX(destLen); return FIX(destLen);
@ -833,9 +833,9 @@ ptr S_bytevector_uncompress(ptr dest_bv, iptr d_start, iptr d_count,
if (!is_valid_zlib_length(d_count)) if (!is_valid_zlib_length(d_count))
return Sstring("expected result size of uncompressed source ~s is too large"); return Sstring("expected result size of uncompressed source ~s is too large");
destLen = d_count; destLen = (uLongf)d_count;
r = uncompress(&BVIT(dest_bv, d_start), &destLen, &BVIT(src_bv, s_start), s_count); r = uncompress(&BVIT(dest_bv, d_start), &destLen, &BVIT(src_bv, s_start), (uLong)s_count);
if (r == Z_OK) if (r == Z_OK)
return FIX(destLen); return FIX(destLen);