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

Add some test code and fix sqlite3 native example.

Browse Source
This commit is contained in:
Calvin Rose
2018-05-17 13:34:11 -04:00
parent ed9037e603
commit c0e373f420
5 changed files with 45 additions and 17 deletions
Download Patch File Download Diff File Expand all files Collapse all files

1
src/core/gc.c
View File

@@ -206,6 +206,7 @@ recur:
i = frame->prevframe;
}
/* Explicit tail recursion */
if (fiber->child) {
fiber = fiber->child;
goto recur;

8
src/core/vm.c
View File

@@ -715,8 +715,8 @@ static void *op_lookup[255] = {
retreg = dst_wrap_nil();
args.v = fiber->data + fiber->frame;
args.ret = &retreg;
if (dst_unwrap_cfunction(callee)(args)) {
goto vm_error;
if ((signal = dst_unwrap_cfunction(callee)(args))) {
goto vm_exit;
}
goto vm_return_cfunc;
}
@@ -739,8 +739,8 @@ static void *op_lookup[255] = {
retreg = dst_wrap_nil();
args.v = fiber->data + fiber->frame;
args.ret = &retreg;
if (dst_unwrap_cfunction(callee)(args)) {
goto vm_error;
if ((signal = dst_unwrap_cfunction(callee)(args))) {
goto vm_exit;
}
goto vm_return_cfunc_tail;
}