# HG changeset patch
# User Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
# Date 1541738973 -32400
# Node ID de0f0fa18b717b7deb916267a5be325f65ba9ee4
# Parent  2a21f7911f9249e3c3747be5e09d4b43a9f8714c
fix c source

diff -r 2a21f7911f92 -r de0f0fa18b71 Paper/anatofuz.pdf
Binary file Paper/anatofuz.pdf has changed
diff -r 2a21f7911f92 -r de0f0fa18b71 Paper/src/dispatch.c
--- a/Paper/src/dispatch.c	Fri Nov 09 13:31:27 2018 +0900
+++ b/Paper/src/dispatch.c	Fri Nov 09 13:49:33 2018 +0900
@@ -9,4 +9,17 @@
                 GET_REG(cur_op, 0).i64 = MVM_BC_get_I64(cur_op, 2);
                 cur_op += 10;
                 goto NEXT;
+            OP(pushcompsc): {    
+                MVMObject * const sc  = GET_REG(cur_op, 0).o;
+                if (REPR(sc)->ID != MVM_REPR_ID_SCRef)
+                    MVM_exception_throw_adhoc(tc, "Can only push an SCRef with pushcompsc");
+                if (MVM_is_null(tc, tc->compiling_scs)) {
+                    MVMROOT(tc, sc, {
+                        tc->compiling_scs = MVM_repr_alloc_init(tc, tc->instance->boot_types.BOOTArray);
+                    });  
+                }    
+                MVM_repr_unshift_o(tc, tc->compiling_scs, sc); 
+                cur_op += 2;
+                goto NEXT;
+            }    
         }