[netlabs #762] [PATCH] Allow imcc to create PMCs

[via RT]

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


The assembler syntax for PMCs changed from PerlHash to .PerlHash a
while ago and this patch allows imcc to use the new format. It may not
be an optimal patch - my lex knowledge is pretty small.

Leon

ps imcc rocks
-- 
Leon Brocard.............................http://www.astray.com/
Nanoware...............................http://www.nanoware.org/

...... Hmm... How *did* they finally kill Frosty?


-- attachment  1 ------------------------------------------------------
url: http://bugs6.perl.org/rt2/attach/3587/3381/2af66f/imcc.l.diff


Index: imcc.l
===================================================================
RCS file: /cvs/public/parrot/languages/imcc/imcc.l,v
retrieving revision 1.3
diff -u -r1.3 imcc.l
--- imcc.l      4 Jul 2002 02:58:30 -0000       1.3
+++ imcc.l      4 Jul 2002 11:30:04 -0000
@@ -29,6 +29,7 @@
 STRINGCONSTANT  \"[^"\n]*["\n]
 CHARCONSTANT    \'[^'\n]*\'
 RANKSPEC        \[[,]*\]
+DOT             [.]
 
 %x emit2
 %%
@@ -97,6 +98,11 @@
 
         yylval.s = str_dup(yytext);
         return(LABEL);
+    }
+
+{DOT}{LETTER}{LETTERDIGIT}* {
+        yylval.s = str_dup(yytext);
+        return(IDENTIFIER);
     }
 
 {LETTER}{LETTERDIGIT}* {