6model: initialize in Parrot_interp_initialize_interpreter

200 new ops, but bootstrap-ops not yet successful
parrot · Mar 17, 2014 · ce24dad · ce24dad
1 parent 14aa664
commit ce24dad
Show file tree

Hide file tree

Showing 4 changed files with 18 additions and 617 deletions.
diff --git a/config/gen/makefiles/root.in b/config/gen/makefiles/root.in
@@ -1793,6 +1793,7 @@ src/call/context$(O) : $(PARROT_H_HEADERS) \
 
 src/interp/inter_cb$(O) : $(PARROT_H_HEADERS) \
 	$(INC_PMC_DIR)/pmc_parrotinterpreter.h \
+	$(INC_PMC_DIR)/pmc_callback.h \
 	$(EXTEND_HEADERS) \
 	src/interp/inter_cb.str \
 	src/interp/inter_cb.c

diff --git a/src/interp/api.c b/src/interp/api.c
@@ -39,6 +39,10 @@ static Interp* emergency_interp = NULL;
 /* HEADERIZER BEGIN: static */
 /* Don't modify between HEADERIZER BEGIN / HEADERIZER END.  Your changes will be lost. */
 
+static void
+intern_initialize_6model(PARROT_INTERP)
+        __attribute__nonnull__(1);
+
 PARROT_WARN_UNUSED_RESULT
 static int Parrot_interp_is_env_var_set(PARROT_INTERP, ARGIN(STRING* var))
         __attribute__nonnull__(1)
@@ -361,9 +365,20 @@ Parrot_interp_initialize_interpreter(PARROT_INTERP, ARGIN(Parrot_GC_Init_Args *a
         Parrot_x_on_exit(interp, Parrot_interp_really_destroy, NULL);
 #endif
 
+    intern_initialize_6model(interp);
     return interp;
 }
 
+static void
+intern_initialize_6model(PARROT_INTERP)
+{
+    PMC * KnowHOW, * KnowHOWAttribute;
+    SixModelObject_initialize(interp, &KnowHOW, &KnowHOWAttribute);
+    VTABLE_set_pmc_keyed_int(interp, interp->iglobals, IGLOBALS_KNOWHOW, KnowHOW);
+    VTABLE_set_pmc_keyed_int(interp, interp->iglobals, IGLOBALS_KNOWHOWATTRIBUTE,
+            KnowHOWAttribute);
+}
+
 /*
 
 =item C<void Parrot_interp_destroy(PARROT_INTERP)>