develooper Front page | perl.perl5.porters | Postings from February 2015

[perl #123836] dump label

Thread Previous
Hugo van der Sanden
February 15, 2015 11:25
[perl #123836] dump label
Message ID:
# New Ticket Created by  Hugo van der Sanden 
# Please include the string:  [perl #123836]
# in the subject line of all future correspondence about this issue. 
# <URL: >

AFL (<>) isn't handling hard loops very well at the revision I'm using, it got stuck on a program that reduced to this:
  ./miniperl -e 'label: dump label;'

It transpires that [perl #123102] broke 'dump LABEL', effectively turning it into 'goto LABEL'.

I think it needs something like the below to fix, but I've no idea what if anything we can do to test it.


--- a/pp_ctl.c
+++ b/pp_ctl.c
@@ -3121,8 +3121,7 @@ PP(pp_goto)
-    else {
-        assert(do_dump);
+    if (do_dump) {
 #ifdef VMS
        if (!retop) retop = PL_main_start;

Thread Previous Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at | Group listing | About