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

Fix MSVC warning.

Browse Source
This commit is contained in:
Calvin Rose
2019-07-28 18:44:00 -05:00
parent 21cccc00d7
commit 3e67916971
1 changed files with 1 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
src/core/marsh.c
View File

@@ -90,7 +90,7 @@ void janet_env_lookup_into(JanetTable *renv, JanetTable *env, const char *prefix
for (int32_t i = 0; i < env->capacity; i++) { for (int32_t i = 0; i < env->capacity; i++) {
if (janet_checktype(env->data[i].key, JANET_SYMBOL)) { if (janet_checktype(env->data[i].key, JANET_SYMBOL)) {
if (prefix) { if (prefix) {
size_t prelen = strlen(prefix); int32_t prelen = (int32_t) strlen(prefix);
const uint8_t *oldsym = janet_unwrap_symbol(env->data[i].key); const uint8_t *oldsym = janet_unwrap_symbol(env->data[i].key);
int32_t oldlen = janet_string_length(oldsym); int32_t oldlen = janet_string_length(oldsym);
uint8_t *symbuf = janet_smalloc(prelen + oldlen); uint8_t *symbuf = janet_smalloc(prelen + oldlen);