develooper Front page | perl.perl5.porters | Postings from December 2017

[perl #132630] Assertion failure in Perl_fbm_instr (util.c:816)

From:
Brian Carpenter
Date:
December 20, 2017 18:23
Subject:
[perl #132630] Assertion failure in Perl_fbm_instr (util.c:816)
Message ID:
rt-4.0.24-24441-1513794171-90.132630-75-0@perl.org
# New Ticket Created by  Brian Carpenter 
# Please include the string:  [perl #132630]
# in the subject line of all future correspondence about this issue. 
# <URL: https://rt.perl.org/Ticket/Display.html?id=132630 >


This assertion failure was triggered with Perl v5.27.6-346-gd4abdeed82,
built with clang 6-trunk and -fsanitize=address.

 ./perl -e '$_="0\x{1000000}";/^000?\0000/'
perl: util.c:816: char *Perl_fbm_instr(unsigned char *, unsigned char *, SV
*, U32): Assertion `bigend >= big' failed.
Aborted

#0  __GI_raise (sig=sig@entry=6) at ../sysdeps/unix/sysv/linux/raise.c:58
#1  0x00007ffff6cc837a in __GI_abort () at abort.c:89
#2  0x00007ffff6cbeb47 in __assert_fail_base (fmt=<optimized out>,
assertion=assertion@entry=0xcbcde0 <.str.35> "bigend >= big",
file=file@entry=0xcbc440 <.str.9> "util.c", line=line@entry=816,
    function=function@entry=0xcbcc40 <__PRETTY_FUNCTION__.Perl_fbm_instr>
"char *Perl_fbm_instr(unsigned char *, unsigned char *, SV *, U32)") at
assert.c:92
#3  0x00007ffff6cbebf2 in __GI___assert_fail (assertion=0xcbcde0 <.str.35>
"bigend >= big", file=0xcbc440 <.str.9> "util.c", line=816,
function=0xcbcc40 <__PRETTY_FUNCTION__.Perl_fbm_instr> "char
*Perl_fbm_instr(unsigned char *, unsigned char *, SV *, U32)") at
assert.c:101
#4  0x00000000007bda79 in Perl_fbm_instr (big=<optimized out>,
bigend=0x602000000fb3 "\200\200\200", littlestr=0x621000001968, flags=0) at
util.c:816
#5  0x0000000000a9dbb4 in Perl_re_intuit_start (rx=0x602000000fb6,
sv=<optimized out>, strbeg=0x602000000fb0 "0\371\200\200\200\200",
strpos=<optimized out>, strend=0x602000000fb6 "", flags=<optimized out>,
data=<optimized out>) at regexec.c:935
#6  0x0000000000a92680 in Perl_regexec_flags (rx=0x62100000c328,
stringarg=0x602000000fb0 "0\371\200\200\200\200", strend=0x602000000fb6 "",
strbeg=0x602000000fb0 "0\371\200\200\200\200", minend=0, sv=<optimized
out>, data=<optimized out>, flags=<optimized out>) at regexec.c:3015
#7  0x0000000000877578 in Perl_pp_match () at pp_hot.c:3046
#8  0x00000000007b47e9 in Perl_runops_debug () at dump.c:2495
#9  0x00000000005a6332 in S_run_body (oldscope=1) at perl.c:2717
#10 0x00000000005a5981 in perl_run (my_perl=<optimized out>) at perl.c:2633
#11 0x0000000000503698 in main (argc=<optimized out>, argv=<optimized out>,
env=0x7fffffffe380) at perlmain.c:123




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