cvsuser 03/02/11 00:06:57
Modified: . interpreter.c
Log:
nocgoto
Revision Changes Path
1.145 +8 -2 parrot/interpreter.c
Index: interpreter.c
===================================================================
RCS file: /cvs/public/parrot/interpreter.c,v
retrieving revision 1.144
retrieving revision 1.145
diff -u -w -r1.144 -r1.145
--- interpreter.c 10 Feb 2003 10:03:52 -0000 1.144
+++ interpreter.c 11 Feb 2003 08:06:56 -0000 1.145
@@ -1,7 +1,7 @@
/* interpreter.c
* Copyright: (When this is determined...it will go here)
* CVS Info
- * $Id: interpreter.c,v 1.144 2003/02/10 10:03:52 leo Exp $
+ * $Id: interpreter.c,v 1.145 2003/02/11 08:06:56 leo Exp $
* Overview:
* The interpreter api handles running the operations
* Data Structure and Algorithms:
@@ -179,9 +179,14 @@
init_prederef(struct Parrot_Interp *interpreter, int cgp)
{
+#ifdef HAVE_COMPUTED_GOTO
oplib_init_f init_func = cgp ?
Parrot_DynOp_core_cgp_0_0_9 :
PARROT_CORE_PREDEREF_OPLIB_INIT;
+#else
+ oplib_init_f init_func = PARROT_CORE_PREDEREF_OPLIB_INIT;
+ UNUSED(cgp);
+#endif
interpreter->op_lib = init_func(1);
interpreter->op_lib->op_code = PARROT_CORE_OPLIB_INIT(1)->op_code;
if (interpreter->op_lib->op_count != interpreter->op_count)
@@ -200,6 +205,7 @@
interpreter->prederef_code = temp;
interpreter->code->cur_cs->prederef_code = temp;
+#ifdef HAVE_COMPUTED_GOTO
if (cgp) {
opcode_t *pc = interpreter->code->cur_cs->base.data;
size_t n;
@@ -212,7 +218,7 @@
temp += n;
}
}
-
+#endif
}
}
