cvsuser 03/07/25 09:25:19
Modified: . interpreter.c
Log:
More #if EXEC_CAPABLE
Revision Changes Path
1.180 +5 -1 parrot/interpreter.c
Index: interpreter.c
===================================================================
RCS file: /cvs/public/parrot/interpreter.c,v
retrieving revision 1.179
retrieving revision 1.180
diff -u -w -r1.179 -r1.180
--- interpreter.c 24 Jul 2003 20:20:29 -0000 1.179
+++ interpreter.c 25 Jul 2003 16:25:19 -0000 1.180
@@ -1,7 +1,7 @@
/* interpreter.c
* Copyright: 2001-2003 The Perl Foundation. All Rights Reserved.
* CVS Info
- * $Id: interpreter.c,v 1.179 2003/07/24 20:20:29 grunblatt Exp $
+ * $Id: interpreter.c,v 1.180 2003/07/25 16:25:19 grunblatt Exp $
* Overview:
* The interpreter api handles running the operations
* Data Structure and Algorithms:
@@ -33,7 +33,9 @@
#define PREDEREF_FOR_CGP 1
#define PREDEREF_FOR_SWITCH 2
+#if EXEC_CAPABLE
struct Parrot_Interp interpre;
+#endif
static void setup_default_compreg(Parrot_Interp interpreter);
@@ -258,6 +260,7 @@
(void) PARROT_CORE_PREDEREF_OPLIB_INIT(0);
}
+#if EXEC_CAPABLE
static void **
exec_prederef(void **pc_prederef, struct Parrot_Interp *interpreter)
{
@@ -384,6 +387,7 @@
}
}
}
+#endif
static opcode_t *
