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.00560 on alpha-dec_osf-thread 4.0 (UNINSTALLED) #329

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

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

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

Comments

@p5pRT
Copy link

p5pRT commented Aug 3, 1999

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

Searchable as RT1157$
@p5pRT
Copy link
Author

p5pRT commented Aug 3, 1999

From spider@leggy.zk3.dec.com

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

@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