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

[perl #123836] dump label

Thread Previous
From:
Hugo van der Sanden
Date:
February 15, 2015 11:25
Subject:
[perl #123836] dump label
Message ID:
rt-4.0.18-28633-1423999495-1745.123836-75-0@perl.org
# 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: https://rt.perl.org/Ticket/Display.html?id=123836 >


AFL (<http://lcamtuf.coredump.cx/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.

Hugo

--- 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;
 #endif


Thread Previous


nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About