Skip to content
New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

bad core sub usage yields op assertion #16101

Open
p5pRT opened this issue Aug 8, 2017 · 3 comments
Open

bad core sub usage yields op assertion #16101

p5pRT opened this issue Aug 8, 2017 · 3 comments

Comments

@p5pRT
Copy link

p5pRT commented Aug 8, 2017

Migrated from rt.perl.org#131859 (status was 'open')

Searchable as RT131859$

@p5pRT
Copy link
Author

p5pRT commented Aug 8, 2017

From zefram@fysh.org

Created by zefram@fysh.org

$ perl -lwe 'BEGIN { *foo = \&CORE​::uc; } print foo("wibble", "wobble")'
perl​: op.c​:2696​: S_finalize_op​: Assertion `kid->op_sibparent == o' failed.
zsh​: abort perl -lwe

Calls with the proper number of arguments work fine, calls with too many
arguments produce the correct runtime error if compile-time checking
is suppressed, and calls with too many arguments produce the correct
compile-time error if they refer directly to CORE​::uc(). The above
problem only arises with compile-time checking via this indirection that
reifies the CV.

Perl Info

Flags:
    category=core
    severity=low

Site configuration information for perl 5.27.3:

Configured by zefram at Tue Aug  8 11:38:55 BST 2017.

Summary of my perl5 (revision 5 version 27 subversion 3) configuration:
  Derived from: 64bea4994c8916adaa922f965cf54badcd77fccb
  Platform:
    osname=linux
    osvers=3.16.0-4-amd64
    archname=x86_64-linux-thread-multi
    uname='linux barba.rous.org 3.16.0-4-amd64 #1 smp debian 3.16.43-2+deb8u2 (2017-06-26) x86_64 gnulinux '
    config_args='-des -Dprefix=/home/zefram/usr/perl/perl_install/perl-git-blead-i64-f52 -Duselargefiles -Dusethreads -Uafs -Ud_csh -Uusesfio -Uusenm -Duseshrplib -Dusedevel -Uversiononly -Ui_db -DDEBUGGING'
    hint=recommended
    useposix=true
    d_sigaction=define
    useithreads=define
    usemultiplicity=define
    use64bitint=define
    use64bitall=define
    uselongdouble=undef
    usemymalloc=n
    default_inc_excludes_dot=define
    bincompat5005=undef
  Compiler:
    cc='cc'
    ccflags ='-D_REENTRANT -D_GNU_SOURCE -fwrapv -DDEBUGGING -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 -g'
    cppflags='-D_REENTRANT -D_GNU_SOURCE -fwrapv -DDEBUGGING -fno-strict-aliasing -pipe -fstack-protector-strong -I/usr/local/include'
    ccversion=''
    gccversion='4.9.2'
    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='double'
    nvsize=8
    Off_t='off_t'
    lseeksize=8
    alignbytes=8
    prototype=define
  Linker and Libraries:
    ld='cc'
    ldflags =' -fstack-protector-strong -L/usr/local/lib'
    libpth=/usr/local/lib /usr/lib/gcc/x86_64-linux-gnu/4.9/include-fixed /usr/include/x86_64-linux-gnu /usr/lib /lib/x86_64-linux-gnu /lib/../lib /usr/lib/x86_64-linux-gnu /usr/lib/../lib /lib
    libs=-lpthread -lnsl -ldb -ldl -lm -lcrypt -lutil -lc
    perllibs=-lpthread -lnsl -ldl -lm -lcrypt -lutil -lc
    libc=libc-2.19.so
    so=so
    useshrplib=true
    libperl=libperl.so
    gnulibc_version='2.19'
  Dynamic Linking:
    dlsrc=dl_dlopen.xs
    dlext=so
    d_dlsymun=undef
    ccdlflags='-Wl,-E -Wl,-rpath,/home/zefram/usr/perl/perl_install/perl-git-blead-i64-f52/lib/5.27.3/x86_64-linux-thread-multi/CORE'
    cccdlflags='-fPIC'
    lddlflags='-shared -O2 -g -L/usr/local/lib -fstack-protector-strong'

Locally applied patches:
    uncommitted-changes


@INC for perl 5.27.3:
    /home/zefram/usr/perl/pg/lib
    /home/zefram/usr/perl/perl_install/perl-git-blead-i64-f52/lib/site_perl/5.27.3/x86_64-linux-thread-multi
    /home/zefram/usr/perl/perl_install/perl-git-blead-i64-f52/lib/site_perl/5.27.3
    /home/zefram/usr/perl/perl_install/perl-git-blead-i64-f52/lib/5.27.3/x86_64-linux-thread-multi
    /home/zefram/usr/perl/perl_install/perl-git-blead-i64-f52/lib/5.27.3
    /home/zefram/usr/perl/perl_install/perl-git-blead-i64-f52/lib/site_perl/5.27.2
    /home/zefram/usr/perl/perl_install/perl-git-blead-i64-f52/lib/site_perl


Environment for perl 5.27.3:
    HOME=/home/zefram
    LANG (unset)
    LANGUAGE (unset)
    LD_LIBRARY_PATH=/home/zefram/usr/perl/pg
    LOGDIR (unset)
    PATH=/home/zefram/usr/perl/util:/home/zefram/pub/x86_64-unknown-linux-gnu/bin:/home/zefram/pub/common/bin:/usr/bin:/bin:/usr/local/bin:/usr/games
    PERLDOC=-oman
    PERL_BADLANG (unset)
    SHELL=/usr/bin/zsh

@p5pRT
Copy link
Author

p5pRT commented Aug 9, 2017

From @cpansprout

On Tue, 08 Aug 2017 06​:19​:14 -0700, zefram@​fysh.org wrote​:

This is a bug report for perl from zefram@​fysh.org,
generated with the help of perlbug 1.40 running under perl 5.27.3.

-----------------------------------------------------------------
[Please describe your issue here]

$ perl -lwe 'BEGIN { *foo = \&CORE​::uc; } print foo("wibble",
"wobble")'
perl​: op.c​:2696​: S_finalize_op​: Assertion `kid->op_sibparent == o'
failed.
zsh​: abort perl -lwe

Calls with the proper number of arguments work fine, calls with too
many
arguments produce the correct runtime error if compile-time checking
is suppressed, and calls with too many arguments produce the correct
compile-time error if they refer directly to CORE​::uc(). The above
problem only arises with compile-time checking via this indirection
that
reifies the CV.

Interestingly, it only happens for unary ops, not nullary, or those with multiple arguments.

--

Father Chrysostomos

@p5pRT
Copy link
Author

p5pRT commented Aug 9, 2017

The RT System itself - Status changed from 'new' to 'open'

Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment
Projects
None yet
Development

No branches or pull requests

2 participants