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

[p5pRT]

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

Searchable as RT1137$

[p5pRT]

From [email protected]

5_58 broke -DDEBUGGING_OPS. This fixes it.
Files affected​: MANIFEST, opcode.pl, perl.h

Inline Patch

--- MANIFEST.DIST	Sun Aug  1 16:16:27 1999
+++ MANIFEST	Mon Aug  2 14:08:45 1999
@@ -887,6 +887,7 @@
 op.h			Opcode syntax tree header
 opcode.h		Automatically generated opcode header
 opcode.pl		Opcode header generatore
+opnames.h		Automatically generated opcode header
 os2/Changes		Changelog for OS/2 port
 os2/Makefile.SHs	Shared library generation for OS/2
 os2/OS2/ExtAttr/Changes		EA access module
--- opcode.pl.DIST	Sun Aug  1 16:30:04 1999
+++ opcode.pl	Mon Aug  2 14:08:46 1999
@@ -1,7 +1,8 @@
 #!/usr/bin/perl
 
-unlink "opcode.h";
+unlink "opcode.h", "opnames.h";
 open(OC, ">opcode.h") || die "Can't create opcode.h: $!\n";
+open(ON, ">opnames.h") || die "Can't create opnames.h: $!\n";
 select OC;
 
 # Read data.
@@ -39,14 +40,23 @@
 #define Perl_pp_i_postinc Perl_pp_postinc
 #define Perl_pp_i_postdec Perl_pp_postdec
 
-typedef enum {
 END
+
+print ON <<"END";
+/* !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!! 
+   This file is built by opcode.pl from its data.  Any changes made here
+   will be lost!
+*/
+
+typedef enum opcode {
+END
+
 for (@ops) {
-    print "\t", &tab(3,"OP_\U$_,"), "/* ", $i++, " */\n";
+    print ON "\t", &tab(3,"OP_\U$_,"), "/* ", $i++, " */\n";
 }
-print "\t", &tab(3,"OP_max"), "\n";
-print "} opcode;\n";
-print "\n#define MAXO ", scalar @ops, "\n\n"; 
+print ON "\t", &tab(3,"OP_max"), "\n";
+print ON "} opcode;\n";
+print ON "\n#define MAXO ", scalar @ops, "\n\n"; 
 
 # Emit op names and descriptions.
 
@@ -214,6 +224,7 @@
 END
 
 close OC or die "Error closing opcode.h: $!";
+close ON or die "Error closing opnames.h: $!";
 
 unlink "pp_proto.h";
 unlink "pp.sym";
--- perl.h.DIST	Mon Aug  2 03:04:22 1999
+++ perl.h	Mon Aug  2 14:08:46 1999
@@ -1710,6 +1710,7 @@
 #include "form.h"
 #include "gv.h"
 #include "cv.h"
+#include "opnames.h"
 #include "op.h"
 #include "cop.h"
 #include "av.h"

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:
    


@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