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

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

p5pRT opened this issue Aug 2, 1999 · 1 comment

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

p5pRT opened this issue Aug 2, 1999 · 1 comment


Copy link

p5pRT commented Aug 2, 1999

Migrated from (status was 'resolved')

Searchable as RT1137$

Copy link

p5pRT commented Aug 2, 1999


5_58 broke -DDEBUGGING_OPS. This fixes it.
Files affected​: MANIFEST,, 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 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
---	Sun Aug  1 16:30:04 1999
+++	Mon Aug  2 14:08:46 1999
@@ -1,7 +1,8 @@
-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 {
+print ON <<"END";
+/* !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!! 
+   This file is built by from its data.  Any changes made here
+   will be lost!
+typedef enum opcode {
 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 @@
 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:
    osname=dec_osf, osvers=4.0, archname=alpha-dec_osf
    uname='osf1 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
    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
    libc=/usr/shlib/, so=so, useshrplib=true,
  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:

Environment for perl 5.00559:
    LANGUAGE (unset)
    LOGDIR (unset)
    PERL_BADLANG (unset)

Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment
None yet

No branches or pull requests

1 participant