Mercurial > hg > Papers > 2019 > anatofuz-prosym
comparison Paper/src/dispatch.c @ 41:de0f0fa18b71
fix c source
author | Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> |
---|---|
date | Fri, 09 Nov 2018 13:49:33 +0900 |
parents | fb4c1b408c9f |
children |
comparison
equal
deleted
inserted
replaced
40:2a21f7911f92 | 41:de0f0fa18b71 |
---|---|
7 MVM_exception_throw_adhoc(tc, "const_iX NYI"); | 7 MVM_exception_throw_adhoc(tc, "const_iX NYI"); |
8 OP(const_i64): | 8 OP(const_i64): |
9 GET_REG(cur_op, 0).i64 = MVM_BC_get_I64(cur_op, 2); | 9 GET_REG(cur_op, 0).i64 = MVM_BC_get_I64(cur_op, 2); |
10 cur_op += 10; | 10 cur_op += 10; |
11 goto NEXT; | 11 goto NEXT; |
12 OP(pushcompsc): { | |
13 MVMObject * const sc = GET_REG(cur_op, 0).o; | |
14 if (REPR(sc)->ID != MVM_REPR_ID_SCRef) | |
15 MVM_exception_throw_adhoc(tc, "Can only push an SCRef with pushcompsc"); | |
16 if (MVM_is_null(tc, tc->compiling_scs)) { | |
17 MVMROOT(tc, sc, { | |
18 tc->compiling_scs = MVM_repr_alloc_init(tc, tc->instance->boot_types.BOOTArray); | |
19 }); | |
20 } | |
21 MVM_repr_unshift_o(tc, tc->compiling_scs, sc); | |
22 cur_op += 2; | |
23 goto NEXT; | |
24 } | |
12 } | 25 } |