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

Work on serialization. Move clibs into core.

Browse Source
This commit is contained in:
Calvin Rose
2017-03-20 23:06:38 -04:00
parent 4c35ee0a2c
commit f6e26d9893
9 changed files with 660 additions and 406 deletions
Download Patch File Download Diff File Expand all files Collapse all files

13
core/vm.c
View File

@@ -107,6 +107,17 @@ static int gst_continue_size(Gst *vm, uint32_t stackBase) {
pc += 3;
continue;
case GST_OP_LEN: /* Length */
{
int status = gst_length(vm, stack[pc[2]], &v1);
if (status == GST_RETURN_OK)
stack[pc[1]] = v1;
else
goto vm_error;
pc += 3;
}
continue;
case GST_OP_FLS: /* Load False */
temp.type = GST_BOOLEAN;
temp.data.boolean = 0;
@@ -420,6 +431,8 @@ static int gst_continue_size(Gst *vm, uint32_t stackBase) {
/* Handle errors from c functions and vm opcodes */
vm_error:
if (stack == NULL)
return GST_RETURN_ERROR;
while (gst_frame_errjmp(stack) == NULL) {
stack = gst_thread_popframe(vm, &thread);
if (thread.count < stackBase)