-
Notifications
You must be signed in to change notification settings - Fork 0
/
vm.c
98 lines (88 loc) · 1.89 KB
/
vm.c
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
#include <stdio.h>
#include "common.h"
#include "vm.h"
#include "compiler.h"
vm_t *vm;
static vm_result_t
vm_run(void)
{
#define READ_BYTE() (*vm->ip++)
#define READ_CONSTANT() (vm->chunk->constants.values[READ_BYTE()])
#define BINARY_OP(op) \
do { \
double b = stack_pop(); \
double a = stack_pop(); \
stack_push(a op b); \
} while(false)
for (;;) {
#if DEBUG_TRACE_EXECUTION
#include "debug.h"
printf(" ");
for (value_t *slot = vm.stack; slot < vm.stack_top; slot++) {
printf("[ ");
value_print(*slot);
printf(" ]");
}
printf("\n");
dissassemble_instruction(vm.chunk, (int)(vm.ip - vm.chunk->code));
#endif
u8 instruction;
switch (instruction = READ_BYTE()) {
case OP_CONSTANT: {
value_t constant = READ_CONSTANT();
stack_push(constant);
break;
}
case OP_ADD: BINARY_OP(+); break;
case OP_SUBTRACT: BINARY_OP(-); break;
case OP_MULTIPLY: BINARY_OP(*); break;
case OP_DIVIDE: BINARY_OP(/); break;
case OP_NEGATE: {
stack_push(-stack_pop());
break;
}
case OP_RETURN: {
value_print(stack_pop());
printf("\n");
return INTERPRET_OK;
}
}
}
#undef READ_BYTE
#undef READ_CONSTANT
#undef BINARY_OP
}
static void
stack_reset(void)
{
vm->stack_top = vm->stack;
}
void
vm_init(void)
{
vm = clox_malloc(sizeof(vm_t));
stack_reset();
}
void
vm_free(void)
{
clox_free(vm);
}
vm_result_t
vm_interpret(const char *source)
{
compile(source);
return INTERPRET_OK;
}
void
stack_push(value_t v)
{
*vm->stack_top = v;
vm->stack_top++;
}
value_t
stack_pop(void)
{
vm->stack_top--;
return *vm->stack_top;
}