[svn:parrot] r8914 - trunk/imcc

[leo]

Author: leo
Date: Thu Aug 11 04:41:15 2005
New Revision: 8914

Modified:
   trunk/imcc/main.c
Log:
[perl #36852] [PATCH] imcc/main.c - to fix segmentation fault on "-E 
(--pre-process-only)" option

Objective:
   Parrot stops for segmentation fault when "-E (--pre-process-only)"
option is specified.
   This patch fixes this bug.

Courtesy of <[EMAIL PROTECTED]>


Modified: trunk/imcc/main.c
==============================================================================
--- trunk/imcc/main.c   (original)
+++ trunk/imcc/main.c   Thu Aug 11 04:41:15 2005
@@ -368,6 +368,7 @@ do_pre_process(Parrot_Interp interp)
     int c;
     YYSTYPE val;
 
+    IMCC_push_parser_state(interp);
     while ( (c = yylex(&val, interp)) ) {
         switch (c) {
             case EMIT:          printf(".emit\n"); break;