Fcalva/chibi-scheme
1
0
Fork 0
mirror of https://github.com/ashinn/chibi-scheme.git synced 2025-05-19 05:39:18 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

Fix tests on Windows

Browse source
This commit is contained in:
Ondřej Majerech 2019-03-13 22:56:06 +01:00
parent cd10668b3c
commit 7d82b76bc3
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
sexp.c
View file

@ -2280,7 +2280,7 @@ sexp sexp_write_one (sexp ctx, sexp obj, sexp out) {
break; break;
} }
} else if (sexp_fixnump(obj)) { } else if (sexp_fixnump(obj)) {
snprintf(numbuf, NUMBUF_LEN, "%" SEXP_PRIdFIXNUM, (long)sexp_unbox_fixnum(obj)); snprintf(numbuf, NUMBUF_LEN, "%" SEXP_PRIdFIXNUM, (sexp_sint_t)sexp_unbox_fixnum(obj));
sexp_write_string(ctx, numbuf, out); sexp_write_string(ctx, numbuf, out);
#if SEXP_USE_IMMEDIATE_FLONUMS #if SEXP_USE_IMMEDIATE_FLONUMS
} else if (sexp_flonump(obj)) { } else if (sexp_flonump(obj)) {
@ -2956,7 +2956,7 @@ sexp sexp_list_to_uvector_op(sexp ctx, sexp self, sexp_sint_t n, sexp etype, sex
res = et == SEXP_U8 ? sexp_make_bytes(ctx, sexp_length(ctx, ls), SEXP_VOID) : sexp_make_uvector(ctx, etype, sexp_length(ctx, ls)); res = et == SEXP_U8 ? sexp_make_bytes(ctx, sexp_length(ctx, ls), SEXP_VOID) : sexp_make_uvector(ctx, etype, sexp_length(ctx, ls));
min = 0; min = 0;
max = sexp_uvector_element_size(et) == 64 ? -1 : max = sexp_uvector_element_size(et) == 64 ? -1 :
(1uL << sexp_uvector_element_size(et)) - 1; (1uLL << sexp_uvector_element_size(et)) - 1;
if (sexp_uvector_prefix(et) == 's') { if (sexp_uvector_prefix(et) == 's') {
min = -(max/2) - 1; min = -(max/2) - 1;
max = (max/2); max = (max/2);