# 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]; }