Movatterモバイル変換


[0]ホーム

URL:


Skip to content

Navigation Menu

Sign in
Appearance settings

Search code, repositories, users, issues, pull requests...

Provide feedback

We read every piece of feedback, and take your input very seriously.

Saved searches

Use saved searches to filter your results more quickly

Sign up
Appearance settings
/perl5Public

crash in Perl_do_sv_dump #22959

Closed
Closed
@daxim

Description

@daxim

This is a bug report for perl,
generated with the help of perlbug 1.43 running under perl 5.41.8.

Module: Devel::Peek


❯ gdb --args perl -M5.041 -MDevel::Peek=Dump -Mexperimental=class -E'class Foo {}; Dump Foo->new'GNU gdb (GDB; openSUSE Tumbleweed) 14.2Copyright (C) 2023 Free Software Foundation, Inc.License GPLv3+: GNU GPL version 3 or later <http://gnu.org/licenses/gpl.html>This is free software: you are free to change and redistribute it.There is NO WARRANTY, to the extent permitted by law.Type "show copying" and "show warranty" for details.This GDB was configured as "x86_64-suse-linux".Type "show configuration" for configuration details.For bug reporting instructions, please see:<http://bugs.opensuse.org/>.Find the GDB manual and other documentation resources online at:    <http://www.gnu.org/software/gdb/documentation/>.For help, type "help".Type "apropos word" to search for commands related to "word"...Reading symbols from perl...(gdb) rStarting program: /home/larsd/.local/share/perlbrew/perls/perl-5.41.8/bin/perl -M5.041 -MDevel::Peek=Dump -Mexperimental=class -Eclass\ Foo\ \{\}\;\ Dump\ Foo-\>new[Thread debugging using libthread_db enabled]Using host libthread_db library "/lib64/libthread_db.so.1".SV = IV(0x55555555b6b8) at 0x55555555b6c8  REFCNT = 1  FLAGS = (ROK)  RV = 0x55555555b530  SV = PVOBJ(0x555555596390) at 0x55555555b530    REFCNT = 1    FLAGS = (OBJECT)    STASH = 0x5555555f4cc0      "Foo"    MAXFIELD = -1    FIELDS = 0x555555596300Program received signal SIGSEGV, Segmentation fault.0x00007ffff7c9ac2f in Perl_do_sv_dump (level=1, file=0x555555576da0, sv=0x55555555b530, nest=1, maxnest=4, dumpops=false, pvlim=0)    at dump.c:28522852                PADNAME **pname = PadnamelistARRAY(HvAUX(SvSTASH(sv))->xhv_class_fields);(gdb) bt full#0  0x00007ffff7c9ac2f in Perl_do_sv_dump (level=1, file=0x555555576da0, sv=0x55555555b530, nest=1, maxnest=4, dumpops=false,    pvlim=0) at dump.c:2852        count = <optimized out>        svp = 0x555555596300        pname = <optimized out>        d = 0x55555555b8f0        s = <optimized out>        flags = <optimized out>        type = <optimized out>        p_ = <optimized out>        p_ = <optimized out>        p_ = <optimized out>        p_ = <optimized out>        p_ = <optimized out>        p_ = <optimized out>        p_ = <optimized out>        p_ = <optimized out>        p_ = <optimized out>        p_ = <optimized out>        p_ = <optimized out>        p_ = <optimized out>        p_ = <optimized out>        p_ = <optimized out>        p_ = <optimized out>        p_ = <optimized out>#1  0x00007ffff7c999c7 in Perl_do_sv_dump (level=level@entry=0, file=0x555555576da0, sv=sv@entry=0x55555555b6c8, nest=nest@entry=0,    maxnest=maxnest@entry=4, dumpops=dumpops@entry=false, pvlim=0) at dump.c:2170        d = 0x55555555b4e8        s = <optimized out>        flags = <optimized out>        type = 1        p_ = <optimized out>        p_ = <optimized out>--Type <RET> for more, q to quit, c to continue without paging--c        p_ = <optimized out>        p_ = <optimized out>        p_ = <optimized out>        p_ = <optimized out>        p_ = <optimized out>        p_ = <optimized out>        p_ = <optimized out>        p_ = <optimized out>        p_ = <optimized out>        p_ = <optimized out>        p_ = <optimized out>        p_ = <optimized out>        p_ = <optimized out>        p_ = <optimized out>#2  0x00007ffff7bec299 in S_do_dump (sv=0x55555555b6c8, lim=4)    at /home/larsd/.local/share/perlbrew/build/perl-5.41.8/perl-5.41.8/ext/Devel-Peek/Peek.xs:334        pv_lim_sv = <optimized out>        pv_lim = 0        dumpop = 0x55555559bc40        save_dumpindent = 4#3  0x00007ffff7bec34e in S_pp_dump () at /home/larsd/.local/share/perlbrew/build/perl-5.41.8/perl-5.41.8/ext/Devel-Peek/Peek.xs:347        lim = <optimized out>#4  0x00007ffff7d97b73 in Perl_runops_standard () at run.c:41        op = <optimized out>#5  0x00007ffff7c7a839 in S_run_body (oldscope=<optimized out>) at perl.c:2883No locals.#6  perl_run (my_perl=<optimized out>) at perl.c:2798        oldscope = 1        ret = <optimized out>        cur_env = {je_prev = 0x7ffff7fb64a0 <PL_start_env>, je_buf = {{__jmpbuf = {140737488342840, -1470579409188483830, 0,                140737488342888, 140737354125312, 93824992247120, 1470579407616412938, 1470597209553177866}, __mask_was_saved = 0,              __saved_mask = {__val = {0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 93458488360960, 140737346446865, 1600877609,                  16371054362459106048, 140737488342840, 6}}}}, je_ret = 0, je_mustcatch = false, je_old_delaymagic = 0,          je_old_stack_hwm = 140737488342888}        p_ = <optimized out>#7  0x0000555555555232 in main (argc=<optimized out>, argv=<optimized out>, env=<optimized out>) at perlmain.c:127        exitstatus = <optimized out>        i = <optimized out>

Flags

  • category=library
  • severity=medium
  • module=Devel::Peek

Perl configuration

Site configuration information for perl 5.41.8:Configured by larsd at Thu Jan 30 10:51:22 CET 2025.Summary of my perl5 (revision 5 version 41 subversion 8) configuration:     Platform:    osname=linux    osvers=6.12.9-1-default    archname=x86_64-linux-ld    uname='linux denkheft 6.12.9-1-default #1 smp preempt_dynamic fri jan 10 08:30:10 utc 2025 (0ae2136) x86_64 x86_64 x86_64 gnulinux '    config_args='-de -Dprefix=/home/larsd/.local/share/perlbrew/perls/perl-5.41.8 -Dusedevel -Duseshrplib -Dman1dir=none -Dman3dir=none -Dcf_email=root@localhost -Dperladmin=root@localhost -Dusemorebits -Dusesitecustomize -Dusedevel -Accflags=-DNO_TAINT_SUPPORT -Accflags=-march=native -Accflags=-fPIC -Accflags=-DPERL_DISABLE_PMC -Accflags=-ggdb -Aeval:scriptdir=/home/larsd/.local/share/perlbrew/perls/perl-5.41.8/bin'    hint=recommended    useposix=true    d_sigaction=define    useithreads=undef    usemultiplicity=undef    use64bitint=define    use64bitall=define    uselongdouble=define    usemymalloc=n    default_inc_excludes_dot=define  Compiler:    cc='cc'    ccflags ='-DNO_TAINT_SUPPORT -march=native -fPIC -DPERL_DISABLE_PMC -ggdb -fwrapv -fno-strict-aliasing -pipe -fstack-protector-strong -I/usr/local/include -D_LARGEFILE_SOURCE -D_FILE_OFFSET_BITS=64 -D_FORTIFY_SOURCE=2'    optimize='-O2'    cppflags='-DNO_TAINT_SUPPORT -march=native -fPIC -DPERL_DISABLE_PMC -ggdb -fwrapv -fno-strict-aliasing -pipe -fstack-protector-strong -I/usr/local/include'    ccversion=''    gccversion='14.2.1 20241007 [revision 4af44f2cf7d281f3e4f3957efce10e8b2ccb2ad3]'    gccosandvers=''    intsize=4    longsize=8    ptrsize=8    doublesize=8    byteorder=12345678    doublekind=3    d_longlong=define    longlongsize=8    d_longdbl=define    longdblsize=16    longdblkind=3    ivtype='long'    ivsize=8    nvtype='long double'    nvsize=16    Off_t='off_t'    lseeksize=8    alignbytes=16    prototype=define  Linker and Libraries:    ld='cc'    ldflags =' -fstack-protector-strong -L/usr/local/lib'    libpth=/usr/local/lib /lib/../lib64 /usr/lib/../lib64 /lib /usr/lib /lib64 /usr/lib64 /usr/local/lib64    libs=-lpthread -lgdbm -ldb -ldl -lm -lcrypt -lutil -lc -lgdbm_compat    perllibs=-lpthread -ldl -lm -lcrypt -lutil -lc    libc=/lib/../lib64/libc.so.6    so=so    useshrplib=true    libperl=libperl.so    gnulibc_version='2.40'  Dynamic Linking:    dlsrc=dl_dlopen.xs    dlext=so    d_dlsymun=undef    ccdlflags='-Wl,-E -Wl,-rpath,/home/larsd/.local/share/perlbrew/perls/perl-5.41.8/lib/5.41.8/x86_64-linux-ld/CORE'    cccdlflags='-fPIC'    lddlflags='-shared -O2 -L/usr/local/lib -fstack-protector-strong'---@INC for perl 5.41.8:    /home/larsd/.local/share/perlbrew/perls/perl-5.41.8/lib/site_perl/5.41.8/x86_64-linux-ld    /home/larsd/.local/share/perlbrew/perls/perl-5.41.8/lib/site_perl/5.41.8    /home/larsd/.local/share/perlbrew/perls/perl-5.41.8/lib/5.41.8/x86_64-linux-ld    /home/larsd/.local/share/perlbrew/perls/perl-5.41.8/lib/5.41.8---Environment for perl 5.41.8:    HOME=/home/larsd    LANG=de_DE.UTF-8    LANGUAGE=    LC_CTYPE=de_DE.UTF-8    LD_LIBRARY_PATH (unset)    LOGDIR (unset)    PATH=/home/larsd/.local/share/perlbrew/bin:/home/larsd/.local/share/perlbrew/perls/perl-5.41.8/bin:/home/larsd/.local/bin:/home/larsd/.local/share/asdf/shims:/home/larsd/.local/share/asdf/bin:/usr/local/bin:/usr/bin:/bin:/usr/local/sbin:/usr/sbin    PERLBREW_HOME=/home/larsd/.local/share/perlbrew    PERLBREW_MANPATH=/home/larsd/.local/share/perlbrew/perls/perl-5.41.8/man    PERLBREW_PATH=/home/larsd/.local/share/perlbrew/bin:/home/larsd/.local/share/perlbrew/perls/perl-5.41.8/bin    PERLBREW_PERL=perl-5.41.8    PERLBREW_ROOT=/home/larsd/.local/share/perlbrew    PERLBREW_SHELLRC_VERSION=0.98    PERLBREW_VERSION=0.98    PERLCRITIC=/home/larsd/.config/perlcriticrc    PERLREPL_HISTFILE=/home/larsd/.local/state/perlreplhist    PERLTIDY=/home/larsd/.config/perltidyrc    PERL_BADLANG (unset)    PERL_CPANM_HOME=/home/larsd/.cache/cpanm    PERL_CPANM_OPT=-M https://cpan.metacpan.org/ --verify --with-recommends --with-suggests --with-develop --with-all-features    PERL_EXTUTILS_AUTOINSTALL=--default-deps    PERL_MM_NONINTERACTIVE=1    PERL_MM_USE_DEFAULT=1    SHELL=/bin/bash

Metadata

Metadata

Assignees

No one assigned

    Labels

    No labels
    No labels

    Type

    No type

    Projects

    No projects

    Milestone

    No milestone

    Relationships

    None yet

    Development

    No branches or pull requests

    Issue actions


      [8]ページ先頭

      ©2009-2025 Movatter.jp