# HG changeset patch
# User anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
# Date 1580111179 -32400
# Node ID d1c7018537c09fb826b70398e2faa79589dcd58f
# Parent  052669f2ef745986f1c89785e3c0a6add1a53c98
write static constructor

diff -r 052669f2ef74 -r d1c7018537c0 src/impl/vm_impl.cbc
--- a/src/impl/vm_impl.cbc	Mon Jan 27 14:50:26 2020 +0900
+++ b/src/impl/vm_impl.cbc	Mon Jan 27 16:46:19 2020 +0900
@@ -99,6 +99,10 @@
 
 __code init_inituvmvm_impl(struct vm_impl* vm, pde_t* pgdir, char* init, uint sz, __code next(...)) { 
 
+    Gearef(cbc_context, vm_impl)->pgdir = pgdir;
+    Gearef(cbc_context, vm_impl)->init = init;
+    Gearef(cbc_context, vm_impl)->sz = sz;
+    Gearef(cbc_context, vm_impl)->next = next;
     goto init_inituvm_check_sz(vm, pgdir, init, sz, next(...));
 }