cvsuser 05/02/20 11:36:03
Modified: languages/regex/lib/Regex/CodeGen IMCC.pm
Log:
Looks like the syntax changed at some point.
Revision Changes Path
1.13 +2 -2 parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm
Index: IMCC.pm
===================================================================
RCS file: /cvs/public/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm,v
retrieving revision 1.12
retrieving revision 1.13
diff -u -r1.12 -r1.13
--- IMCC.pm 25 Nov 2004 08:37:38 -0000 1.12
+++ IMCC.pm 20 Feb 2005 19:36:03 -0000 1.13
@@no-spam -213,7 +213,7 @@no-spam
sub output_initgroup {
my ($self, $group) = @no-spam
- return ("new <rx_ptmp>, .MatchRange # new group \"$group\"",
+ return ("new <rx_ptmp>, \"MatchRange\" # new group \"$group\"",
"set <rx_match>[\"$group\"], <rx_ptmp>");
}
@@no-spam -423,7 +423,7 @@no-spam
.local pmc <rx_ptmp>
.local int <rx_tmp>
.local int <rx_len>
- <rx_match> = new Match
+ <rx_match> = new "Match"
<rx_match>["!INPUT"] = <rx_input>
<rx_match>["!GROUPS"] = $num_groups
length <rx_len>, <rx_input> # cache the length in <rx_len>