cvsuser 02/03/06 13:00:03
Modified: . interpreter.c
Log:
Create strings only once we've got string register heads set up.
Revision Changes Path
1.77 +8 -8 parrot/interpreter.c
Index: interpreter.c
===================================================================
RCS file: /cvs/public/parrot/interpreter.c,v
retrieving revision 1.76
retrieving revision 1.77
diff -u -w -r1.76 -r1.77
--- interpreter.c 6 Mar 2002 15:45:28 -0000 1.76
+++ interpreter.c 6 Mar 2002 21:00:03 -0000 1.77
@@ -1,7 +1,7 @@
/* interpreter.c
* Copyright: (When this is determined...it will go here)
* CVS Info
- * $Id: interpreter.c,v 1.76 2002/03/06 15:45:28 dan Exp $
+ * $Id: interpreter.c,v 1.77 2002/03/06 21:00:03 simon Exp $
* Overview:
* The interpreter api handles running the operations
* Data Structure and Algorithms:
@@ -506,13 +506,6 @@
memset(interpreter->warns, 0, sizeof(struct warnings_t));
PARROT_WARNINGS_off(interpreter, PARROT_WARNINGS_ALL_FLAG);
- /* Set up defaults for line/package/file */
- interpreter->current_line = 0;
- interpreter->current_file =
- string_make(interpreter, "(unknown file)", 14, NULL, 0, NULL);
- interpreter->current_package =
- string_make(interpreter, "(unknown package)", 18, NULL, 0, NULL);;
-
/* Set up the initial register chunks */
interpreter->int_reg_base = mem_allocate_aligned(sizeof(struct IRegChunk));
interpreter->num_reg_base = mem_allocate_aligned(sizeof(struct NRegChunk));
@@ -576,6 +569,13 @@
*/
interpreter->piodata = NULL;
PIO_init(interpreter);
+
+ /* Set up defaults for line/package/file */
+ interpreter->current_line = 0;
+ interpreter->current_file =
+ string_make(interpreter, "(unknown file)", 14, NULL, 0, NULL);
+ interpreter->current_package =
+ string_make(interpreter, "(unknown package)", 18, NULL, 0, NULL);;
/* Done. Return and be done with it */
