mirrors/janet
1
0
Fork 0
mirror of https://github.com/janet-lang/janet synced 2025-11-01 16:13:02 +00:00
Code Issues 1 Releases Wiki Activity

No errors compiling on BU linux (CentOS).

Browse Source
This commit is contained in:
Calvin Rose
2018-09-10 14:54:12 -04:00
parent a86540a876
commit 0389971049
3 changed files with 12 additions and 11 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
src/core/asm.c
View File

@@ -239,6 +239,9 @@ static int32_t doarg_1(
int32_t ret = -1;
JanetTable *c;
switch (argtype) {
default:
c = NULL;
break;
case JANET_OAT_SLOT:
c = &a->slots;
break;
@@ -248,13 +251,6 @@ static int32_t doarg_1(
case JANET_OAT_CONSTANT:
c = &a->constants;
break;
case JANET_OAT_INTEGER:
c = NULL;
break;
case JANET_OAT_TYPE:
case JANET_OAT_SIMPLETYPE:
c = NULL;
break;
case JANET_OAT_LABEL:
c = &a->labels;
break;
@@ -516,6 +512,7 @@ static JanetAssembleResult janet_asm1(JanetAssembler *parent, Janet source, int
janet_asm_deinit(&a);
longjmp(a.parent->on_error, 1);
}
result.funcdef = NULL;
result.error = a.errmessage;
result.status = JANET_ASSEMBLE_ERROR;
janet_asm_deinit(&a);
@@ -723,6 +720,7 @@ static JanetAssembleResult janet_asm1(JanetAssembler *parent, Janet source, int
/* Finish everything and return funcdef */
janet_asm_deinit(&a);
result.error = NULL;
result.funcdef = def;
result.status = JANET_ASSEMBLE_OK;
return result;