From 04622f7d2210cbb8036502afadf5bcdcb0394d28 Mon Sep 17 00:00:00 2001 From: Rainer Gerhards Date: Thu, 21 Feb 2008 13:27:51 +0000 Subject: first steps in implementing object interfaces (stage work for later dynamic class loading) --- vmop.c | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) (limited to 'vmop.c') diff --git a/vmop.c b/vmop.c index 978db899..34d70fba 100644 --- a/vmop.c +++ b/vmop.c @@ -33,6 +33,7 @@ /* static data */ DEFobjStaticHelpers +DEFobjCurrIf(var) /* forward definitions */ @@ -69,7 +70,7 @@ CODESTARTobjDebugPrint(vmop) dbgoprint((obj_t*) pThis, "opcode: %d\t(%s), next %p, var in next line\n", (int) pThis->opcode, pOpcodeName, pThis->pNext); if(pThis->operand.pVar != NULL) - varDebugPrint(pThis->operand.pVar); + var.DebugPrint(pThis->operand.pVar); ENDobjDebugPrint(vmop) @@ -205,12 +206,14 @@ finalize_it: ENDobjQueryInterface(vmop) - /* Initialize the vmop class. Must be called as the very first method * before anything else is called inside this class. * rgerhards, 2008-02-19 */ BEGINObjClassInit(vmop, 1) /* class, version */ + /* request objects we use */ + CHKiRet(objUse(var)); + OBJSetMethodHandler(objMethod_DEBUGPRINT, vmopDebugPrint); OBJSetMethodHandler(objMethod_CONSTRUCTION_FINALIZER, vmopConstructFinalize); ENDObjClassInit(vmop) -- cgit