Not OK: perl 5.00559 +<[email protected]> on alpha-dec_osf 4.0 (UNINSTALLE

[p5pRT]

Migrated from rt.perl.org#1139 (status was 'resolved')

Searchable as RT1139$

[p5pRT]

From [email protected]

"make utest" fails op/pack test 75 when sizeof(long) > sizeof(int).
This is because the native integer pack/unpack code is broken.

Patch​:

Inline Patch

--- pp.c.PREV	Sun Aug  1 17:15:17 1999
+++ pp.c	Mon Aug  2 15:14:19 1999
@@ -3608,6 +3608,7 @@
 	    if (checksum) {
 #if SHORTSIZE != SIZE16
 		if (natint) {
+		    short ashort;
 		    while (len-- > 0) {
 			COPYNN(s, &ashort, sizeof(short));
 			s += sizeof(short);
@@ -3634,6 +3635,7 @@
 		EXTEND_MORTAL(len);
 #if SHORTSIZE != SIZE16
 		if (natint) {
+		    short ashort;
 		    while (len-- > 0) {
 			COPYNN(s, &ashort, sizeof(short));
 			s += sizeof(short);
@@ -3673,6 +3675,7 @@
 	    if (checksum) {
 #if SHORTSIZE != SIZE16
 		if (unatint) {
+		    unsigned short aushort;
 		    while (len-- > 0) {
 			COPYNN(s, &aushort, sizeof(unsigned short));
 			s += sizeof(unsigned short);
@@ -3702,6 +3705,7 @@
 		EXTEND_MORTAL(len);
 #if SHORTSIZE != SIZE16
 		if (unatint) {
+		    unsigned short aushort;
 		    while (len-- > 0) {
 			COPYNN(s, &aushort, sizeof(unsigned short));
 			s += sizeof(unsigned short);
@@ -3826,6 +3830,7 @@
 	    if (checksum) {
 #if LONGSIZE != SIZE32
 		if (natint) {
+		    long along;
 		    while (len-- > 0) {
 			COPYNN(s, &along, sizeof(long));
 			s += sizeof(long);
@@ -3857,6 +3862,7 @@
 		EXTEND_MORTAL(len);
 #if LONGSIZE != SIZE32
 		if (natint) {
+		    long along;
 		    while (len-- > 0) {
 			COPYNN(s, &along, sizeof(long));
 			s += sizeof(long);
@@ -3896,6 +3902,7 @@
 	    if (checksum) {
 #if LONGSIZE != SIZE32
 		if (unatint) {
+		    unsigned long aulong;
 		    while (len-- > 0) {
 			COPYNN(s, &aulong, sizeof(unsigned long));
 			s += sizeof(unsigned long);
@@ -3931,6 +3938,7 @@
 		EXTEND_MORTAL(len);
 #if LONGSIZE != SIZE32
 		if (unatint) {
+		    unsigned long aulong;
 		    while (len-- > 0) {
 			COPYNN(s, &aulong, sizeof(unsigned long));
 			s += sizeof(unsigned long);
@@ -4666,6 +4674,8 @@
 	case 's':
 #if SHORTSIZE != SIZE16
 	    if (natint) {
+		short ashort;
+
 		while (len-- > 0) {
 		    fromstr = NEXTFROM;
 		    ashort = SvIV(fromstr);
@@ -4789,6 +4799,8 @@
 	case 'L':
 #if LONGSIZE != SIZE32
 	    if (natint) {
+		unsigned long aulong;
+
 		while (len-- > 0) {
 		    fromstr = NEXTFROM;
 		    aulong = SvUV(fromstr);
@@ -4808,6 +4820,8 @@
 	case 'l':
 #if LONGSIZE != SIZE32
 	    if (natint) {
+		long along;
+
 		while (len-- > 0) {
 		    fromstr = NEXTFROM;
 		    along = SvIV(fromstr);
@@ -4828,7 +4842,7 @@
 	case 'Q':
 	    while (len-- > 0) {
 		fromstr = NEXTFROM;
-		auquad = (Uquad_t)SvIV(fromstr);
+		auquad = (Uquad_t)SvUV(fromstr);
 		sv_catpvn(cat, (char*)&auquad, sizeof(Uquad_t));
 	    }
 	    break;

Perl Info

Site configuration information for perl 5.00559:

Configured by spider at Mon Aug  2 14:44:25 EDT 1999.

Summary of my perl5 (revision 5.0 version 5 subversion 59) configuration:
  Platform:
    osname=dec_osf, osvers=4.0, archname=alpha-dec_osf
    uname='osf1 leggy.zk3.dec.com v4.0 1203 alpha '
    config_args='-dsEO -Darchlib=/local/opt/perl/lib/5.00559/alpha-dec_osf -Dbin=/local/bin/exp -Dbinexp=/local/bin/exp -Ud_bincompat5005 -Dcc=cc -Dccflags=-std -DUSE_PERL_SBRK -DPERL_SBRK_VIA_MALLOC -DEMBEDMYMALLOC= -I/usr/local/include -DDEBUGGING -DDEBUGGING_OPS -D_INTRINSICS -D_INLINE_INTRINSICS -Drand=__random -Dsrand=__srandom -fprm d -ieee -Dd_dosuid=define -Dinstallbin=/local/OSF1/alpha/bin/exp -Dlddlflags=-shared -msym -expect_unresolved "*" -g -std -Dldflags=-std -msym -g -Dlibswanted=sfio gdbm m -Dman1dir=/local/man/man1 -Dman1ext=1 -Dman3dir=/local/man/man3 -Dman3ext=3pl -Doptimize=-g -Dpager=/local/bin/less -Dprefix=/local/opt/perl -Dscriptdir=/local/share/exp -Dsitelib=/local/opt/perl/lib/site_perl/5.00559 -Dsitearch=/local/opt/perl/lib/site_perl/5.00559/alpha-dec_osf -Duseshrplib -Ud_safemcpy= -Ud_sfio= -Ui_dbm -Uinstallarchlib= -Uinstallprivlib= -Uinstallscript= -Uinstallsitearch= -Uinstallsitelib= -Uinstallusrbinperl -Ulibs= -Uperlpath= -Uprivlib= -Urandbits!
 = -Uusethreads -Dusemymalloc=y -e'
    hint=previous, useposix=true, d_sigaction=define
    usethreads=undef useperlio=undef d_sfio=undef
    use64bits=undef usemultiplicity=undef
  Compiler:
    cc='cc', optimize='-g', gccversion=
    cppflags='-std -DUSE_PERL_SBRK -DPERL_SBRK_VIA_MALLOC -DEMBEDMYMALLOC= -I/usr/local/include -DDEBUGGING -DDEBUGGING_OPS -D_INTRINSICS -D_INLINE_INTRINSICS -Drand=__random -Dsrand=__srandom -ieee'
    ccflags ='-std -DUSE_PERL_SBRK -DPERL_SBRK_VIA_MALLOC -DEMBEDMYMALLOC= -I/usr/local/include -DDEBUGGING -DDEBUGGING_OPS -D_INTRINSICS -D_INLINE_INTRINSICS -Drand=__random -Dsrand=__srandom -fprm d -ieee'
    stdchar='unsigned char', d_stdstdio=define, usevfork=false
    intsize=4, longsize=8, ptrsize=8, doublesize=8
    d_longlong=define, longlongsize=8, d_longdbl=define, longdblsize=8
    alignbytes=8, usemymalloc=y, prototype=define
  Linker and Libraries:
    ld='ld', ldflags ='-std -msym -g -L/usr/local/lib'
    libpth=/usr/local/lib /usr/shlib /usr/ccs/lib /usr/lib/cmplrs/cc /usr/lib /var/shlib
    libs=-lm
    libc=/usr/shlib/libc.so, so=so, useshrplib=true, libperl=libperl.so
  Dynamic Linking:
    dlsrc=dl_dlopen.xs, dlext=so, d_dlsymun=undef, ccdlflags='  -Wl,-rpath,/local/opt/perl/lib/5.00559/alpha-dec_osf/CORE'
    cccdlflags=' ', lddlflags='-shared -msym -expect_unresolved "*" -g -std -L/usr/local/lib'

Locally applied patches:
    <[email protected]>


@INC for perl 5.00559:
    lib
    /local/opt/perl/lib/5.00559/alpha-dec_osf
    /local/opt/perl/lib/perl5/5.00559
    /local/opt/perl/lib/site_perl/5.00559/alpha-dec_osf
    /local/opt/perl/lib/site_perl
    .


Environment for perl 5.00559:
    HOME=/users/spider
    LANG=C
    LANGUAGE (unset)
    LD_LIBRARY_PATH=/local/src/perl5.005_59:
    LOGDIR (unset)
    PATH=/users/spider/bin/OSF1/alpha:/users/spider/bin:/usr/local/OSF1/alpha/bin:/usr/local/share:/usr/local/OSF1/alpha/sbin:/usr/local/etc:/usr/local:/tcb/bin:/usr/bin/mh:/usr/ccs/bin:/usr/bin:/usr/lbin:/usr/bin/X11:/usr/sbin:/sbin:/etc:/usr/bin/mme:/usr/field:.
    PERL_BADLANG (unset)
    SHELL=/usr/bin/ksh