[perl #18876] [PATCH] make imcc compile on win32

[via RT]

# New Ticket Created by  mrnobo1024 
# Please include the string:  [perl #18876]
# in the subject line of all future correspondence about this issue. 
# <URL: http://rt.perl.org/rt2/Ticket/Display.html?id=18876 >


Currently imcc.y has a label called "OUT" in the command-line argument
parsing code. This is causing compile errors on win32, since OUT is defined
in the windows include files, which are being brought in by platform.h.


__________________________________________________
Do you Yahoo!?
Yahoo! Mail Plus - Powerful. Affordable. Sign up now.
http://mailplus.yahoo.com

-- attachment  1 ------------------------------------------------------
url: http://rt.perl.org/rt2/attach/44049/34935/bd9e97/imcc.patch


--- parrot/languages/imcc/imcc.y.orig   Tue Dec  3 07:54:20 2002
+++ parrot/languages/imcc/imcc.y        Tue Dec  3 16:44:34 2002
@@ -827,9 +827,9 @@
             (*argc)--;
             (*argv)++;
 
-            goto OUT;
+            goto DONE;
         case '\0':             /* bare '-' means read from stdin */
-            goto OUT;
+            goto DONE;
         default:
             fatal(1, "main", "Invalid flag %s used\n", (*argv)[0]);
             exit(1);
@@ -839,7 +839,7 @@
         (*argv)++;
     }
 
-  OUT:
+  DONE:
 
     return (*argv)[0];
 }
--- parrot/languages/imcc/imcparser.c.orig      Tue Dec  3 07:54:38 2002
+++ parrot/languages/imcc/imcparser.c   Tue Dec  3 16:44:52 2002
@@ -2079,9 +2079,9 @@
             (*argc)--;
             (*argv)++;
 
-            goto OUT;
+            goto DONE;
         case '\0':             /* bare '-' means read from stdin */
-            goto OUT;
+            goto DONE;
         default:
             fatal(1, "main", "Invalid flag %s used\n", (*argv)[0]);
             exit(1);
@@ -2091,7 +2091,7 @@
         (*argv)++;
     }
 
-  OUT:
+  DONE:
 
     return (*argv)[0];
 }