develooper Front page | perl.perl5.porters | Postings from August 2016

[perl #129029] SIGBUS Perl_sv_peek (dump.c:367)

Thread Previous
From:
Brian Carpenter
Date:
August 21, 2016 06:07
Subject:
[perl #129029] SIGBUS Perl_sv_peek (dump.c:367)
Message ID:
rt-4.0.24-25190-1471759665-881.129029-75-0@perl.org
# New Ticket Created by  Brian Carpenter 
# Please include the string:  [perl #129029]
# in the subject line of all future correspondence about this issue. 
# <URL: https://rt.perl.org/Ticket/Display.html?id=129029 >


The following script triggers a Bus error (SIGBUS) in Perl v5.25.4 (v5.25.3-305-g8c6b0c7) with the -D. Removing it stifles the crash.

#!perl -D2000002
${qq$\x5F$}=q0 and s gggge

Program received signal SIGBUS, Bus error.
0x00000000007d1e64 in Perl_sv_peek (sv=<optimized out>) at dump.c:367
367         else if (sv == (const SV *)0x55555555 || ((char)SvTYPE(sv)) == 'U') {
(gdb) bt
#0  0x00000000007d1e64 in Perl_sv_peek (sv=<optimized out>) at dump.c:367
#1  0x0000000000bded28 in S_deb_stack_n (stack_base=0x619000009680, stack_min=<optimized out>, stack_max=3, mark_min=<optimized out>, mark_max=108176)
    at deb.c:145
#2  0x0000000000bdf95e in Perl_deb_stack_all () at deb.c:299
#3  0x00000000007f169d in Perl_runops_debug () at dump.c:2220
#4  0x00000000005a0ff7 in S_run_body (oldscope=<optimized out>) at perl.c:2524
#5  perl_run (my_perl=<optimized out>) at perl.c:2447
#6  0x00000000004de68e in main (argc=<optimized out>, argv=<optimized out>, env=<optimized out>) at perlmain.c:123


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