Index: interpreter.c
===================================================================
RCS file: /home/perlcvs/parrot/interpreter.c,v
retrieving revision 1.71
diff -u -r1.71 interpreter.c
--- interpreter.c 18 Feb 2002 08:26:03 -0000 1.71
+++ interpreter.c 24 Feb 2002 05:19:21 -0000
@@ -467,6 +467,7 @@
/* Initialize interpreter's flags */
interpreter->flags = flags;
interpreter->warns = mem_sys_allocate(sizeof(struct warnings_t));
+ memset(interpreter->warns, 0, sizeof(struct warnings_t));
PARROT_WARNINGS_off(interpreter, PARROT_WARNINGS_ALL_FLAG);
interpreter->pmc_count = 0;
--
Josh Wilmes ([EMAIL PROTECTED]) | http://www.hitchhiker.org
