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

Jump to bottom

Not OK: perl 5.00559 +<199908021856.OAA16254@leggy.zk3.dec.com> on alpha-dec_osf 4.0 (UNINSTALLE #316

Closed
p5pRT opened this issue Aug 2, 1999 · 1 comment
Closed

Not OK: perl 5.00559 +<199908021856.OAA16254@leggy.zk3.dec.com> on alpha-dec_osf 4.0 (UNINSTALLE #316

p5pRT opened this issue Aug 2, 1999 · 1 comment
Labels
distro-dec_osf type-library

Comments

@p5pRT
Copy link

p5pRT commented Aug 2, 1999

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

Searchable as RT1139$
@p5pRT
Copy link
Author

p5pRT commented Aug 2, 1999

From spider@leggy.zk3.dec.com

"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:
    <199908021856.OAA16254@leggy.zk3.dec.com>


@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

@p5pRT p5pRT closed this as completed Nov 28, 2003
This was referenced Oct 19, 2019
Closed
Open
Closed
Closed
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment
Assignees
No one assigned
Labels
distro-dec_osf type-library
Projects
None yet
Milestone
No milestone
Development

No branches or pull requests
1 participant
@p5pRT