cvsuser 03/12/15 10:29:13
Modified: src exec_start.c interpreter.c
Log:
event-handling-7: fix JIT failures and EXEC core
Revision Changes Path
1.8 +2 -2 parrot/src/exec_start.c
Index: exec_start.c
===================================================================
RCS file: /cvs/public/parrot/src/exec_start.c,v
retrieving revision 1.7
retrieving revision 1.8
diff -u -w -r1.7 -r1.8
--- exec_start.c 23 Oct 2003 17:48:59 -0000 1.7
+++ exec_start.c 15 Dec 2003 18:29:13 -0000 1.8
@@ -2,7 +2,7 @@
* exec_start.c
*
* CVS Info
- * $Id: exec_start.c,v 1.7 2003/10/23 17:48:59 robert Exp $
+ * $Id: exec_start.c,v 1.8 2003/12/15 18:29:13 leo Exp $
* Overview:
* Call compiled code.
* History:
@@ -81,7 +81,7 @@
Parrot_exec_run = 1;
/* s. packfile.c (PackFile_ConstTable_unpack()) */
exec_const_table = &const_table;
- interpreter = Parrot_new();
+ interpreter = Parrot_new(NULL);
if (!interpreter) {
return 1;
}
1.241 +3 -1 parrot/src/interpreter.c
Index: interpreter.c
===================================================================
RCS file: /cvs/public/parrot/src/interpreter.c,v
retrieving revision 1.240
retrieving revision 1.241
diff -u -w -r1.240 -r1.241
--- interpreter.c 15 Dec 2003 17:18:02 -0000 1.240
+++ interpreter.c 15 Dec 2003 18:29:13 -0000 1.241
@@ -1,7 +1,7 @@
/* interpreter.c
* Copyright: 2001-2003 The Perl Foundation. All Rights Reserved.
* CVS Info
- * $Id: interpreter.c,v 1.240 2003/12/15 17:18:02 leo Exp $
+ * $Id: interpreter.c,v 1.241 2003/12/15 18:29:13 leo Exp $
* Overview:
* The interpreter api handles running the operations
* Data Structure and Algorithms:
@@ -197,6 +197,8 @@
init_func = PARROT_CORE_CG_OPLIB_INIT;
break;
#endif
+ case PARROT_EXEC_CORE: /* normal func core */
+ case PARROT_JIT_CORE: /* normal func core */
case PARROT_SLOW_CORE: /* normal func core */
case PARROT_FAST_CORE: /* normal func core */
init_func = PARROT_CORE_OPLIB_INIT;
