cvsuser 02/01/24 15:24:24
Modified: . interpreter.c
Log:
Fix stupid thinko
Revision Changes Path
1.63 +6 -4 parrot/interpreter.c
Index: interpreter.c
===================================================================
RCS file: /home/perlcvs/parrot/interpreter.c,v
retrieving revision 1.62
retrieving revision 1.63
diff -u -w -r1.62 -r1.63
--- interpreter.c 23 Jan 2002 23:22:32 -0000 1.62
+++ interpreter.c 24 Jan 2002 23:24:24 -0000 1.63
@@ -1,7 +1,7 @@
/* interpreter.c
* Copyright: (When this is determined...it will go here)
* CVS Info
- * $Id: interpreter.c,v 1.62 2002/01/23 23:22:32 dan Exp $
+ * $Id: interpreter.c,v 1.63 2002/01/24 23:24:24 dan Exp $
* Overview:
* The interpreter api handles running the operations
* Data Structure and Algorithms:
@@ -452,6 +452,11 @@
/* Set up the memory allocation system */
mem_setup_allocator(interpreter);
+ /* Need an empty stash */
+ interpreter->perl_stash = mem_sys_allocate(sizeof(struct Stash));
+ interpreter->perl_stash->stash_hash =
+ pmc_new(interpreter, enum_class_PerlHash);
+
/* Initialize interpreter's flags */
interpreter->flags = flags;
@@ -530,9 +535,6 @@
interpreter->prederef_code = (void **)NULL;
- /* Need an empty stash */
- interpreter->perl_stash = pmc_new(interpreter, enum_class_PerlHash);
-
return interpreter;
}
