diff options
| author | Samuel Yvon <samuelyvon9@gmail.com> | 2021-08-06 16:55:11 -0400 |
|---|---|---|
| committer | Samuel Yvon <samuelyvon9@gmail.com> | 2021-08-06 16:55:11 -0400 |
| commit | 24d4f9d62d0de8fa54553e3d57da5e992ffed7a3 (patch) | |
| tree | 03b5ac278c813fa2c1078ef4446bbf417a9dc0e1 | |
| parent | 93b0d0282a7c2f4462b824bb03a325745fc50e4a (diff) | |
Use all bits for ptrsv.perf
| -rw-r--r-- | src/vm_c/vm.c | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/src/vm_c/vm.c b/src/vm_c/vm.c index 84382bd..373596b 100644 --- a/src/vm_c/vm.c +++ b/src/vm_c/vm.c @@ -63,11 +63,11 @@ typedef struct { #define VM_HALT 6 #define UNTAG(x) ((x) >> 1) -#define CLUMP(x) ((clump*)(UNTAG(x))) +#define CLUMP(x) ((clump*)(x)) #define NUM(x) ((num)(UNTAG((num)(x)))) #define IS_NUM(x) ((x) & 1) #define IS_CLUMP(x) (!IS_NUM(x)) -#define TAG_CLUMP(c_ptr) (((obj)(c_ptr)) << 1) +#define TAG_CLUMP(c_ptr) (((obj)(c_ptr))) #define TAG_NUM(num) ((((obj)(num)) << 1) | 1) #define PRIM1() obj x = pop() @@ -110,7 +110,6 @@ obj *alloc; obj *alloc_limit; obj *scan; - #ifdef NO_STD void *sys_brk(void *addr) { |