Author: fperrad
Date: Fri Nov 7 11:09:04 2008
New Revision: 32434
Modified:
trunk/languages/regex/lib/Regex/Driver.pm
trunk/languages/regex/regex-compiler.pir
Log:
[regex]
- fix, new syntax .const 'Name'
(see r32419)
Modified: trunk/languages/regex/lib/Regex/Driver.pm
==============================================================================
--- trunk/languages/regex/lib/Regex/Driver.pm (original)
+++ trunk/languages/regex/lib/Regex/Driver.pm Fri Nov 7 11:09:04 2008
@@ -128,7 +128,7 @@
.local pmc result
.local int matched
.local pmc stack
- stack = new .ResizablePMCArray
+ stack = new 'ResizablePMCArray'
result = _default(1, input_string, 0, stack)
matched = result["!RESULT"]
if matched goto printResults
Modified: trunk/languages/regex/regex-compiler.pir
==============================================================================
--- trunk/languages/regex/regex-compiler.pir (original)
+++ trunk/languages/regex/regex-compiler.pir Fri Nov 7 11:09:04 2008
@@ -1,6 +1,6 @@
.sub __init_compiler :load
loadlib $P0, "match_group"
- .const .Sub $P1 = "_compile_regex"
+ .const 'Sub' $P1 = "_compile_regex"
compreg "regex", $P1
.end
