#721: PGE::P5Regex consumes all memory
--------------------+-------------------------------------------------------
Reporter: coke | Owner:
Type: bug | Status: new
Priority: normal | Milestone:
Component: none | Version: trunk
Severity: high | Keywords: tcl blocker
Lang: | Patch:
Platform: |
--------------------+-------------------------------------------------------
Given this code:
{{{
$ cat regex.pir
.sub ''
say "1..2"
load_bytecode 'PGE.pbc'
.local string exp, a_string, original_string
exp = '($|^X)*'
a_string = ''
.local pmc tclARE, rule, match
tclARE = compreg 'PGE::P5Regex'
rule = tclARE(exp)
say "ok 1"
match = rule(a_string)
say "ok 2"
.end
}}}
running it (eventually) dies with:
{{{
$ ~/bird/bin/parrot regexp.pir
1..2
ok 1
Parrot VM: PANIC: Out of mem!
C file src/gc/alloc_memory.c, line 52
Parrot file (not available), line (not available)
We highly suggest you notify the Parrot team if you have not been working
on
Parrot. Use parrotbug (located in parrot's root directory) or send an
e-mail to [email protected].
Include the entire text of this error message and the text of the script
that
generated the error. If you've made any modifications to Parrot, please
describe them as well.
Version : 1.2.0-devel
Configured : Thu May 28 00:11:20 2009 GMT
Architecture: i386-linux
JIT Capable : Yes
Interp Flags: (no interpreter)
Exceptions : (missing from core)
Dumping Core...
Quit
}}}
This prevents tcl's regexComp.test spec test from completing.
--
Ticket URL: <https://trac.parrot.org/parrot/ticket/721>
Parrot <https://trac.parrot.org/parrot/>
Parrot Development
_______________________________________________
parrot-tickets mailing list
[email protected]
http://lists.parrot.org/mailman/listinfo/parrot-tickets
