cvsuser 02/01/23 15:22:32
Modified: . interpreter.c
Log:
Now each interpreter gets its own hash for globals.
Revision Changes Path
1.62 +4 -4 parrot/interpreter.c
Index: interpreter.c
===================================================================
RCS file: /home/perlcvs/parrot/interpreter.c,v
retrieving revision 1.61
retrieving revision 1.62
diff -u -w -r1.61 -r1.62
--- interpreter.c 20 Jan 2002 20:52:21 -0000 1.61
+++ interpreter.c 23 Jan 2002 23:22:32 -0000 1.62
@@ -1,7 +1,7 @@
/* interpreter.c
* Copyright: (When this is determined...it will go here)
* CVS Info
- * $Id: interpreter.c,v 1.61 2002/01/20 20:52:21 grunblatt Exp $
+ * $Id: interpreter.c,v 1.62 2002/01/23 23:22:32 dan Exp $
* Overview:
* The interpreter api handles running the operations
* Data Structure and Algorithms:
@@ -511,9 +511,6 @@
/* And a control stack */
interpreter->control_stack = new_stack(interpreter);
- /* Need an empty stash */
- interpreter->perl_stash = mem_allocate_new_stash();
-
/* Load the core op func and info tables */
interpreter->op_lib = PARROT_CORE_OPLIB_INIT();
interpreter->op_count = interpreter->op_lib->op_count;
@@ -533,6 +530,9 @@
interpreter->prederef_code = (void **)NULL;
+ /* Need an empty stash */
+ interpreter->perl_stash = pmc_new(interpreter, enum_class_PerlHash);
+
return interpreter;
}
