conservatory
/
picrin
4
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

implement direct threading VM

This commit is contained in:
Yuichi Nishiwaki 2013-10-17 13:54:48 +09:00
parent 3ecfe821e2
commit 7925f2b502
2 changed files with 24 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
include/picconf.h
View File

@ -1,6 +1,8 @@
#ifndef PICCONF_H__ #ifndef PICCONF_H__
#define PICCONF_H__ #define PICCONF_H__
#define PIC_DIRECT_THREADED_VM 1
#define PIC_ARENA_SIZE 100 #define PIC_ARENA_SIZE 100
#define PIC_HEAP_SIZE 8192 #define PIC_HEAP_SIZE 8192
#define PIC_STACK_SIZE 1024 #define PIC_STACK_SIZE 1024

27
src/vm.c
View File

@ -451,11 +451,19 @@ pic_codegen(pic_state *pic, pic_value obj, struct pic_env *env)
return proc; return proc;
} }
#define VM_LOOP for (;;) { switch (pc->insn) { #if PIC_DIRECT_THREADED_VM
#define CASE(x) case x: # define VM_LOOP JUMP;
#define NEXT pc++; break # define CASE(x) L_##x:
#define JUMP break # define NEXT ++pc; JUMP;
#define VM_LOOP_END } } # define JUMP goto *oplabels[pc->insn];
# define VM_LOOP_END
#else
# define VM_LOOP for (;;) { switch (pc->insn) {
# define CASE(x) case x:
# define NEXT pc++; break
# define JUMP break
# define VM_LOOP_END } }
#endif
#define PUSH(v) (*pic->sp++ = (v)) #define PUSH(v) (*pic->sp++ = (v))
#define POP() (*--pic->sp) #define POP() (*--pic->sp)
@ -471,6 +479,15 @@ pic_run(pic_state *pic, struct pic_proc *proc, pic_value args)
pic_value val; pic_value val;
int ai = pic_gc_arena_preserve(pic); int ai = pic_gc_arena_preserve(pic);
#if PIC_DIRECT_THREADED_VM
static void *oplabels[] = {
&&L_OP_PUSHNIL, &&L_OP_PUSHTRUE, &&L_OP_PUSHFALSE, &&L_OP_PUSHNUM,
&&L_OP_GREF, &&L_OP_GSET, &&L_OP_LREF, &&L_OP_JMP, &&L_OP_JMPIF,
&&L_OP_CALL, &&L_OP_RET, &&L_OP_LAMBDA, &&L_OP_CONS, &&L_OP_ADD,
&&L_OP_SUB, &&L_OP_MUL, &&L_OP_DIV, &&L_OP_STOP
};
#endif
pc = proc->u.irep->code; pc = proc->u.irep->code;
ci = PUSHCI(); ci = PUSHCI();