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

fixing bounds checks on u32 and u64 vectors

Browse source
This commit is contained in:
Alex Shinn 2019-02-21 02:55:35 +08:00
parent a5a7345df9
commit 7b3413ec1a
1 changed files with 4 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
sexp.c
View file

@ -2955,7 +2955,8 @@ static int sexp_resolve_uniform_type(int c, sexp len) {
#endif #endif
sexp sexp_list_to_uvector_op(sexp ctx, sexp self, sexp_sint_t n, sexp etype, sexp ls) { sexp sexp_list_to_uvector_op(sexp ctx, sexp self, sexp_sint_t n, sexp etype, sexp ls) {
int et, i, min, max; long et, i, min;
unsigned long max;
sexp ls2, tmp; sexp ls2, tmp;
sexp_assert_type(ctx, sexp_fixnump, SEXP_FIXNUM, etype); sexp_assert_type(ctx, sexp_fixnump, SEXP_FIXNUM, etype);
sexp_gc_var1(res); sexp_gc_var1(res);
@ -2967,7 +2968,8 @@ sexp sexp_list_to_uvector_op(sexp ctx, sexp self, sexp_sint_t n, sexp etype, sex
et = sexp_unbox_fixnum(etype); et = sexp_unbox_fixnum(etype);
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 = (1 << sexp_uvector_element_size(et)) - 1; max = sexp_uvector_element_size(et) == 64 ? -1 :
(1uL << 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);