mirrors/janet
1
0
Fork 0
mirror of https://github.com/janet-lang/janet synced 2025-10-31 15:43:01 +00:00
Code Issues 1 Releases Wiki Activity

Remove range check on 32 bit arch since it will always pass.

Browse Source
This commit is contained in:
Calvin Rose
2023-06-24 11:17:30 -05:00
parent 7248626235
commit b738319f8d
1 changed files with 6 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
src/core/value.c
View File

@@ -699,11 +699,15 @@ Janet janet_lengthv(Janet x) {
if (type->length != NULL) { if (type->length != NULL) {
size_t len = type->length(abst, janet_abstract_size(abst)); size_t len = type->length(abst, janet_abstract_size(abst));
/* If len is always less then double, we can never overflow */ /* If len is always less then double, we can never overflow */
if (((int64_t) SIZE_MAX <= JANET_INTMAX_INT64) || (len < (size_t) JANET_INTMAX_INT64)) { #ifdef JANET_32
return janet_wrap_number((double) len); return janet_wrap_number(len);
#else
if (len < (size_t) JANET_INTMAX_INT64) {
return janet_wrap_number(len);
} else { } else {
janet_panicf("integer length %u too large", len); janet_panicf("integer length %u too large", len);
} }
#endif
} }
Janet argv[1] = { x }; Janet argv[1] = { x };
return janet_mcall("length", 1, argv); return janet_mcall("length", 1, argv);