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

Re: 5.28.1 with -Duseshrplib issues

Thread Previous | Thread Next
From:
H.Merijn Brand
Date:
December 10, 2018 16:37
Subject:
Re: 5.28.1 with -Duseshrplib issues
Message ID:
20181210173715.11cf978a@pc09.procura.nl
On Wed, 5 Dec 2018 13:13:39 +0100, "H.Merijn Brand"
<h.m.brand@xs4all.nl> wrote:

> On Wed, 5 Dec 2018 20:40:47 +1100, Tony Cook <tony@develop-help.com>
> wrote:
> 
> > > ./Configure -Duse64bitall -Duselongdouble -Dusethreads -Duseithreads -Duseshrplib -des    
> > 
> > Did you supply -Dprefix too?  
> 
> Plain install, no shadow perls

av_extend(av, X); will cause real PAIN id X < 0

--8<---
--- Scope-Upper-0.31-0/Upper.xs 2018-08-26 21:09:25.000000000 +0200
+++ Scope-Upper-0.31-1/Upper.xs 2018-12-10 17:32:25.115448191 +0100
@@ -2015,17 +2015,18 @@ static int su_uplevel_runops_hook_enters
  OP *op = PL_op;
  dXSH_CXT;
  su_uplevel_ud *sud = XSH_CXT.uplevel_storage.top;
+ int avmax;

  /* Create a new array containing a copy of the original sub's call args,
   * then stick it in PL_curpad[0] of the current running sub so that
   * thay will be seen by caller().
   */
  assert(sud);
- if (sud->argarray) {
+ if (sud->argarray && ((avmax = AvMAX (sud->argarray)) >= 0)) {
   AV *av = newAV();
   AvREAL_off(av);
   AvREIFY_on(av);
-  av_extend(av, AvMAX(sud->argarray));
+  av_extend(av, avmax);
   AvFILLp(av) = AvFILLp(sud->argarray);
   Copy(AvARRAY(sud->argarray), AvARRAY(av), AvFILLp(av) + 1, SV *);

-->8---

→

All tests successful.
Files=54, Tests=102379, 16 wallclock secs ( 7.29 usr  0.08 sys + 11.76 cusr  0.79 csys = 19.92 CPU)
Result: PASS

> $ perl -v
> This is perl 5, version 28, subversion 1 (v5.28.1) built for x86_64-linux-thread-multi-ld
> 
> $ cpan Scope::Upper
> :
> :
> Checking if your kit is complete...
> Looks good
> Generating a Unix-style Makefile
> Writing Makefile for Scope::Upper
> Writing MYMETA.yml and MYMETA.json
>   VPIT/Scope-Upper-0.31.tar.gz
>   /pro/bin/perl Makefile.PL -- OK
> Running make for V/VP/VPIT/Scope-Upper-0.31.tar.gz
> cp lib/Scope/Upper.pm blib/lib/Scope/Upper.pm
> Running Mkbootstrap for Upper ()
> chmod 644 "Upper.bs"
> "/pro/bin/perl" -MExtUtils::Command::MM -e 'cp_nonempty' -- Upper.bs blib/arch/auto/Scope/Upper/Upper.bs 644
> "/pro/bin/perl" "/pro/lib/perl5/5.28.1/ExtUtils/xsubpp"  -typemap '/pro/lib/perl5/5.28.1/ExtUtils/typemap'  Upper.xs > Upper.xsc
> mv Upper.xsc Upper.c
> cc -c   -D_REENTRANT -D_GNU_SOURCE -fPIC -DDEBUGGING -fwrapv -fno-strict-aliasing -pipe -fstack-protector-strong -I/pro/local/include -D_LARGEFILE_SOURCE -D_FILE_OFFSET_BITS=64 -O2   -DVERSION=\"0.31\" -DXS_VERSION=\"0.31\" -fPIC "-I/pro/lib/perl5/5.28.1/x86_64-linux-thread-multi-ld/CORE"  -DSU_RELEASE=1 Upper.c
> rm -f blib/arch/auto/Scope/Upper/Upper.so
> cc  -shared -O2 -L/pro/local/lib -fstack-protector-strong  Upper.o  -o blib/arch/auto/Scope/Upper/Upper.so  \
>       \
> 
> chmod 755 blib/arch/auto/Scope/Upper/Upper.so
> Manifying 1 pod document
>   VPIT/Scope-Upper-0.31.tar.gz
>   /usr/bin/make -- OK
> Running make test
> "/pro/bin/perl" -MExtUtils::Command::MM -e 'cp_nonempty' -- Upper.bs blib/arch/auto/Scope/Upper/Upper.bs 644
> PERL_DL_NONLAZY=1 "/pro/bin/perl" "-MExtUtils::Command::MM" "-MTest::Harness" "-e" "undef *Test::Harness::Switches; test_harness(0, 'blib/lib', 'blib/arch')" t/*.t
> t/00-load.t ...................... 1/1 # Testing Scope::Upper 0.31, Perl 5.028001, /pro/bin/perl
> t/00-load.t ...................... ok
> t/01-import.t .................... ok
> t/05-words.t ..................... ok
> t/06-want_at.t ................... ok
> t/07-context_info.t .............. ok
> t/09-load-threads.t .............. # Using threads 2.22
> # Using threads::shared 1.58
> t/09-load-threads.t .............. ok
> t/11-reap-level.t ................ ok
> t/12-reap-block.t ................ ok
> t/13-reap-ctl.t .................. ok
> t/15-reap-multi.t ................ ok
> t/16-reap-numerous.t ............. ok
> t/20-localize-target.t ........... ok
> t/21-localize-level.t ............ ok
> t/22-localize-block.t ............ ok
> t/23-localize-ctl.t .............. ok
> t/24-localize-magic.t ............ ok
> t/25-localize-multi.t ............ ok
> t/26-localize-numerous.t ......... ok
> t/30-localize_elem-target.t ...... ok
> t/31-localize_elem-level.t ....... ok
> t/32-localize_elem-block.t ....... ok
> t/34-localize_elem-magic.t ....... ok
> t/36-localize_elem-numerous.t .... ok
> t/40-localize_delete-target.t .... ok
> t/41-localize_delete-level.t ..... ok
> t/44-localize_delete-magic.t ..... ok
> t/46-localize_delete-numerous.t .. ok
> t/50-unwind-target.t ............. ok
> t/51-unwind-multi.t .............. ok
> t/52-unwind-context.t ............ ok
> t/53-unwind-misc.t ............... ok
> t/54-unwind-threads.t ............ # Using threads 2.22
> # Using threads::shared 1.58
> # Using usleep() from Time::HiRes 1.9759
> t/54-unwind-threads.t ............ ok
> t/55-yield-target.t .............. ok
> t/57-yield-context.t ............. ok
> t/58-yield-misc.t ................ ok
> t/59-yield-threads.t ............. # Using threads 2.22
> # Using threads::shared 1.58
> # Using usleep() from Time::HiRes 1.9759
> t/59-yield-threads.t ............. ok
> t/60-uplevel-target.t ............ 1/93 perl: Upper.xs:2030: su_uplevel_runops_hook_entersub: Assertion `((void*)(((av)->sv_u.svu_array))) != 0' failed.
> t/60-uplevel-target.t ............ Failed 40/93 subtests
> t/61-uplevel-args.t .............. 1/297 perl: Upper.xs:2030: su_uplevel_runops_hook_entersub: Assertion `((void*)(((av)->sv_u.svu_array))) != 0' failed.
> t/61-uplevel-args.t .............. Failed 257/297 subtests
> t/62-uplevel-return.t ............ 1/69 perl: Upper.xs:2030: su_uplevel_runops_hook_entersub: Assertion `((void*)(((av)->sv_u.svu_array))) != 0' failed.
> t/62-uplevel-return.t ............ Failed 25/69 subtests
> t/63-uplevel-ctl.t ............... 1/51 perl: Upper.xs:2030: su_uplevel_runops_hook_entersub: Assertion `((void*)(((av)->sv_u.svu_array))) != 0' failed.
> t/63-uplevel-ctl.t ............... Failed 47/51 subtests
> t/64-uplevel-caller.t ............ 1/32 perl: Upper.xs:2030: su_uplevel_runops_hook_entersub: Assertion `((void*)(((av)->sv_u.svu_array))) != 0' failed.
> t/64-uplevel-caller.t ............ Failed 8/32 subtests
> t/65-uplevel-multi.t ............. ok
> t/66-uplevel-context.t ........... perl: Upper.xs:2030: su_uplevel_runops_hook_entersub: Assertion `((void*)(((av)->sv_u.svu_array))) != 0' failed.
> t/66-uplevel-context.t ........... Failed 6/6 subtests
> t/67-uplevel-scope.t ............. perl: Upper.xs:2030: su_uplevel_runops_hook_entersub: Assertion `((void*)(((av)->sv_u.svu_array))) != 0' failed.
> t/67-uplevel-scope.t ............. Failed 20/20 subtests
> t/69-uplevel-threads.t ........... # Using threads 2.22
> # Using threads::shared 1.58
> # Using usleep() from Time::HiRes 1.9759
> t/69-uplevel-threads.t ........... 1/? perl: Upper.xs:2030: su_uplevel_runops_hook_entersub: Assertion `((void*)(((av)->sv_u.svu_array))) != 0' failed.
> t/69-uplevel-threads.t ........... All 3 subtests passed
> t/70-uid-target.t ................ ok
> t/74-uid-validate.t .............. ok
> t/75-uid-uplevel.t ............... perl: Upper.xs:2030: su_uplevel_runops_hook_entersub: Assertion `((void*)(((av)->sv_u.svu_array))) != 0' failed.
> t/75-uid-uplevel.t ............... Failed 106/106 subtests
> t/79-uid-threads.t ............... # Using threads 2.22
> # Using threads::shared 1.58
> # Using usleep() from Time::HiRes 1.9759
> t/79-uid-threads.t ............... ok
> t/81-stress-level.t .............. ok
> t/84-stress-unwind.t ............. ok
> t/85-stress-yield.t .............. ok
> t/86-stress-uplevel.t ............ ok
> t/87-stress-uid.t ................ 1/? perl: Upper.xs:2030: su_uplevel_runops_hook_entersub: Assertion `((void*)(((av)->sv_u.svu_array))) != 0' failed.
> t/87-stress-uid.t ................ All 385 subtests passed
> 
> Test Summary Report
> -------------------
> t/60-uplevel-target.t          (Wstat: 134 Tests: 53 Failed: 0)
>   Non-zero wait status: 134
>   Parse errors: Bad plan.  You planned 93 tests but ran 53.
> t/61-uplevel-args.t            (Wstat: 134 Tests: 40 Failed: 0)
>   Non-zero wait status: 134
>   Parse errors: Bad plan.  You planned 297 tests but ran 40.
> t/62-uplevel-return.t          (Wstat: 134 Tests: 44 Failed: 0)
>   Non-zero wait status: 134
>   Parse errors: Bad plan.  You planned 69 tests but ran 44.
> t/63-uplevel-ctl.t             (Wstat: 134 Tests: 4 Failed: 0)
>   Non-zero wait status: 134
>   Parse errors: Bad plan.  You planned 51 tests but ran 4.
> t/64-uplevel-caller.t          (Wstat: 134 Tests: 24 Failed: 0)
>   Non-zero wait status: 134
>   Parse errors: Bad plan.  You planned 32 tests but ran 24.
> t/66-uplevel-context.t         (Wstat: 134 Tests: 0 Failed: 0)
>   Non-zero wait status: 134
>   Parse errors: Bad plan.  You planned 6 tests but ran 0.
> t/67-uplevel-scope.t           (Wstat: 134 Tests: 0 Failed: 0)
>   Non-zero wait status: 134
>   Parse errors: Bad plan.  You planned 20 tests but ran 0.
> t/69-uplevel-threads.t         (Wstat: 134 Tests: 3 Failed: 0)
>   Non-zero wait status: 134
>   Parse errors: No plan found in TAP output
> t/75-uid-uplevel.t             (Wstat: 134 Tests: 0 Failed: 0)
>   Non-zero wait status: 134
>   Parse errors: Bad plan.  You planned 106 tests but ran 0.
> t/87-stress-uid.t              (Wstat: 134 Tests: 385 Failed: 0)
>   Non-zero wait status: 134
>   Parse errors: No plan found in TAP output
> Files=54, Tests=101395, 17 wallclock secs ( 8.33 usr  0.08 sys + 12.13 cusr  1.00 csys = 21.54 CPU)
> Result: FAIL
> Failed 10/54 test programs. 0/101395 subtests failed.
> make: *** [Makefile:1067: test_dynamic] Error 255
>   VPIT/Scope-Upper-0.31.tar.gz
>   /usr/bin/make test -- NOT OK
> //hint// to see the cpan-testers results for installing this module, try:
>   reports VPIT/Scope-Upper-0.31.tar.gz
> 
> $ perl -V
> Summary of my perl5 (revision 5 version 28 subversion 1) configuration:
> 
>   Platform:
>     osname=linux
>     osvers=4.19.5-1-default
>     archname=x86_64-linux-thread-multi-ld
>     uname='linux lx09 4.19.5-1-default #1 smp preempt tue nov 27 19:56:09 utc 2018 (6210279) x86_64 x86_64 x86_64 gnulinux '
>     config_args='-Duse64bitall -Duselongdouble -Dusethreads -Duseithreads -Duseshrplib -des'
>     hint=recommended
>     useposix=true
>     d_sigaction=define
>     useithreads=define
>     usemultiplicity=define
>     use64bitint=define
>     use64bitall=define
>     uselongdouble=define
>     usemymalloc=n
>     default_inc_excludes_dot=define
>     bincompat5005=undef
>   Compiler:
>     cc='cc'
>     ccflags ='-D_REENTRANT -D_GNU_SOURCE -fPIC -DDEBUGGING -fwrapv -fno-strict-aliasing -pipe -fstack-protector-strong -I/pro/local/include -D_LARGEFILE_SOURCE -D_FILE_OFFSET_BITS=64'
>     optimize='-O2'
>     cppflags='-D_REENTRANT -D_GNU_SOURCE -fPIC -DDEBUGGING -fwrapv -fno-strict-aliasing -pipe -fstack-protector-strong -I/pro/local/include'
>     ccversion=''
>     gccversion='8.2.1 20181108 [gcc-8-branch revision 265914]'
>     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 ='-L/pro/local/lib -fstack-protector-strong'
>     libpth=/usr/local/lib /usr/lib64/gcc/x86_64-suse-linux/8/include-fixed /usr/lib64/gcc/x86_64-suse-linux/8/../../../../x86_64-suse-linux/lib /usr/lib /pro/local/lib /lib/../lib64 /usr/lib/../lib64 /lib /lib64 /usr/lib64 /usr/local/lib64
>     libs=-lpthread -lnsl -lgdbm -ldb -ldl -lm -lcrypt -lutil -lc -lgdbm_compat
>     perllibs=-lpthread -lnsl -ldl -lm -lcrypt -lutil -lc
>     libc=libc-2.27.so
>     so=so
>     useshrplib=true
>     libperl=libperl.so
>     gnulibc_version='2.27'
>   Dynamic Linking:
>     dlsrc=dl_dlopen.xs
>     dlext=so
>     d_dlsymun=undef
>     ccdlflags='-Wl,-E -Wl,-rpath,/pro/lib/perl5/5.28.1/x86_64-linux-thread-multi-ld/CORE'
>     cccdlflags='-fPIC'
>     lddlflags='-shared -O2 -L/pro/local/lib -fstack-protector-strong'
> 
> 
> Characteristics of this binary (from libperl):
>   Compile-time options:
>     DEBUGGING
>     HAS_TIMES
>     MULTIPLICITY
>     PERLIO_LAYERS
>     PERL_COPY_ON_WRITE
>     PERL_DONT_CREATE_GVSV
>     PERL_IMPLICIT_CONTEXT
>     PERL_MALLOC_WRAP
>     PERL_OP_PARENT
>     PERL_PRESERVE_IVUV
>     PERL_TRACK_MEMPOOL
>     USE_64_BIT_ALL
>     USE_64_BIT_INT
>     USE_ITHREADS
>     USE_LARGE_FILES
>     USE_LOCALE
>     USE_LOCALE_COLLATE
>     USE_LOCALE_CTYPE
>     USE_LOCALE_NUMERIC
>     USE_LOCALE_TIME
>     USE_LONG_DOUBLE
>     USE_PERLIO
>     USE_PERL_ATOF
>     USE_REENTRANT_API
>   Built under linux
>   Compiled at Dec  4 2018 15:28:05
>   %ENV:
>     PERL6LIB="inst#/pro/3gl/CPAN/rakudo/install"
>   @INC:
>     /pro/lib/perl5/site_perl/5.28.1/x86_64-linux-thread-multi-ld
>     /pro/lib/perl5/site_perl/5.28.1
>     /pro/lib/perl5/5.28.1/x86_64-linux-thread-multi-ld
>     /pro/lib/perl5/5.28.1
> 


-- 
H.Merijn Brand  http://tux.nl   Perl Monger  http://amsterdam.pm.org/
using perl5.00307 .. 5.29   porting perl5 on HP-UX, AIX, and openSUSE
http://mirrors.develooper.com/hpux/        http://www.test-smoke.org/
http://qa.perl.org   http://www.goldmark.org/jeff/stupid-disclaimers/

Thread Previous | Thread Next


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