mirrors/janet
1
0
Fork 0
mirror of https://github.com/janet-lang/janet synced 2025-11-14 22:37:12 +00:00
Code Issues 1 Releases Wiki Activity

Silence some windows build warnings.

Browse Source
This commit is contained in:
Calvin Rose
2019-06-17 23:50:39 -04:00
parent 446ab037b0
commit 4bb57550c8
2 changed files with 8 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
src/core/parse.c
View File

@@ -966,15 +966,15 @@ static Janet parser_state_delimiters(const JanetParser *_p) {
}
static Janet parser_state_frames(const JanetParser *p) {
size_t i;
JanetArray *states = janet_array(p->statecount);
states->count = p->statecount;
int32_t count = (int32_t) p->statecount;
JanetArray *states = janet_array(count);
states->count = count;
uint8_t *buf = p->buf;
Janet *args = p->args;
for (i = p->statecount; i > 0; --i) {
JanetParseState *s = p->states + (i - 1);
states->data[i - 1] = janet_wrap_parse_state(s, args, buf, p->bufcount);
args -= s->argn;
for (int32_t i = count - 1; i >= 0; --i) {
JanetParseState *s = p->states + i;
states->data[i] = janet_wrap_parse_state(s, args, buf, p->bufcount);
args -= (ptrdiff_t) s->argn;
}
return janet_wrap_array(states);
}