Not OK: perl 5.00560 on alpha-dec_osf-thread 4.0 (UNINSTALLED)

[p5pRT]

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

Searchable as RT1157$

[p5pRT]

From [email protected]

The "-Dusethreads -Duseperlio" combination fails.

With this patch, it builds and passes all tests here ("make test utest")​:

Inline Patch

--- perlio.c.DIST	Tue Jul 20 13:18:07 1999
+++ perlio.c	Tue Aug  3 13:46:32 1999
@@ -143,7 +143,8 @@
 void
 PerlIO_set_cnt(PerlIO *f, int cnt)
 {
- if (cnt < -1 && ckWARN_s(WARN_INTERNAL))
+ dTHX;
+ if (cnt < -1 && ckWARN_d(WARN_INTERNAL))
   Perl_warner(aTHX_ WARN_INTERNAL, "Setting cnt to %d\n",cnt);
 #if defined(USE_STDIO_PTR) && defined(STDIO_CNT_LVALUE)
  FILE_cnt(f) = cnt;
@@ -157,21 +158,24 @@
 PerlIO_set_ptrcnt(PerlIO *f, STDCHAR *ptr, int cnt)
 {
 #ifdef FILE_bufsiz
+ dTHX;
  STDCHAR *e = FILE_base(f) + FILE_bufsiz(f);
  int ec = e - ptr;
- if (ptr > e + 1 && ckWARN_s(WARN_INTERNAL))
+ if (ptr > e + 1 && ckWARN_d(WARN_INTERNAL))
   Perl_warner(aTHX_ WARN_INTERNAL, "Setting ptr %p > end+1 %p\n", ptr, e + 1);
- if (cnt != ec && ckWARN_s(WARN_INTERNAL))
+ if (cnt != ec && ckWARN_d(WARN_INTERNAL))
   Perl_warner(aTHX_ WARN_INTERNAL, "Setting cnt to %d, ptr implies %d\n",cnt,ec);
 #endif
 #if defined(USE_STDIO_PTR) && defined(STDIO_PTR_LVALUE)
  FILE_ptr(f) = ptr;
 #else
+ dTHX;
  Perl_croak(aTHX_ "Cannot set 'ptr' of FILE * on this system");
 #endif
 #if defined(USE_STDIO_PTR) && defined(STDIO_CNT_LVALUE)
  FILE_cnt(f) = cnt;
 #else
+ dTHX;
  Perl_croak(aTHX_ "Cannot set 'cnt' of FILE * on this system");
 #endif
 }
@@ -183,6 +187,7 @@
 #ifdef FILE_cnt
  return FILE_cnt(f);
 #else
+ dTHX;
  Perl_croak(aTHX_ "Cannot get 'cnt' of FILE * on this system");
  return -1;
 #endif
@@ -195,6 +200,7 @@
 #ifdef FILE_bufsiz
  return FILE_bufsiz(f);
 #else
+ dTHX;
  Perl_croak(aTHX_ "Cannot get 'bufsiz' of FILE * on this system");
  return -1;
 #endif
@@ -207,6 +213,7 @@
 #ifdef FILE_ptr
  return FILE_ptr(f);
 #else
+ dTHX;
  Perl_croak(aTHX_ "Cannot get 'ptr' of FILE * on this system");
  return NULL;
 #endif
@@ -219,6 +226,7 @@
 #ifdef FILE_base
  return FILE_base(f);
 #else
+ dTHX;
  Perl_croak(aTHX_ "Cannot get 'base' of FILE * on this system");
  return NULL;
 #endif
@@ -284,6 +292,7 @@
 #ifdef VMS
  return fgetname(f,buf);
 #else
+ dTHX;
  Perl_croak(aTHX_ "Don't know how to get file name");
  return NULL;
 #endif

Perl Info

Site configuration information for perl 5.00560:

Configured by spider at Tue Aug  3 13:35:12 EDT 1999.

Summary of my perl5 (revision 5.0 version 5 subversion 60) configuration:
  Platform:
    osname=dec_osf, osvers=4.0, archname=alpha-dec_osf-thread
    uname='osf1 leggy.zk3.dec.com v4.0 1203 alpha '
    config_args='-dsEO -Darchlib=/local/opt/perl/lib/5.00560/alpha-dec_osf-thread-perlio -Dbin=/local/bin/tpexp -Dbinexp=/local/bin/tpexp -Ud_bincompat3 -Ud_bincompat5005 -Dcc=cc -Dccflags=-std -pthread -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/tpexp -Dlddlflags=-shared -msym -expect_unresolved "*" -g3 -O4 -std -Dldflags=-std -msym -g3 -O4 -Dlibswanted=sfio gdbm pthread m exc -Dman1dir=/local/man/man1 -Dman1ext=1 -Dman3dir=/local/man/man3 -Dman3ext=3pl -Doptimize=-g3 -O4 -Dpager=/local/bin/less -Dprefix=/local/opt/perl -Dscriptdir=/local/share/tpexp -Dsitelib=/local/opt/perl/lib/site_perl/5.00560 -Dsitearch=/local/opt/perl/lib/site_perl/5.00560/alpha-dec_osf-thread-perlio -Duseshrplib -Ud_safemcpy= -Ud_sfio= -Ui_dbm -Uinstallarchlib= -Uinstallprivlib= -Uinstallscript= -Uinstallsi!
 tearch= -Uinstallsitelib= -Uinstallstyle= -Uinstallusrbinperl -Ulibs= -Uperlpath= -Uprivlib= -Urandbits= -Dusethreads -Dusemymalloc=y -Duseperlio -e'
    hint=previous, useposix=true, d_sigaction=define
    usethreads=define useperlio=define d_sfio=undef
    use64bits=undef usemultiplicity=undef
  Compiler:
    cc='cc', optimize='-g3 -O4', gccversion=
    cppflags='-std -pthread -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 -pthread -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 -g3 -O4 -L/usr/local/lib'
    libpth=/usr/local/lib /usr/shlib /usr/ccs/lib /usr/lib/cmplrs/cc /usr/lib /var/shlib
    libs=-lpthread -lm -lexc
    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.00560/alpha-dec_osf-thread-perlio/CORE'
    cccdlflags=' ', lddlflags='-shared -msym -expect_unresolved "*" -g3 -O4 -std -L/usr/local/lib'

Locally applied patches:
    


@INC for perl 5.00560:
    lib
    /local/opt/perl/lib/5.00560/alpha-dec_osf-thread-perlio
    /local/opt/perl/lib/5.00560
    /local/opt/perl/lib/site_perl/5.00560/alpha-dec_osf-thread-perlio
    /local/opt/perl/lib/site_perl
    .


Environment for perl 5.00560:
    HOME=/users/spider
    LANG=C
    LANGUAGE (unset)
    LD_LIBRARY_PATH=/local/src/perl5.005_60:
    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