fix broken -DDEBUGGING_OPS (from Spider Boardman
Gurusamy Sarathy [Mon, 2 Aug 1999 20:24:41 +0000 (20:24 +0000)]
<spider@leggy.zk3.dec.com>)

p4raw-id: //depot/perl@3902

Changes
MANIFEST
opcode.pl
opnames.h [new file with mode: 0644]
perl.h

diff --git a/Changes b/Changes
index 19f15bb..3835205 100644 (file)
--- a/Changes
+++ b/Changes
@@ -79,6 +79,53 @@ Version 5.005_60        Development release working toward 5.006
 ----------------
 
 ____________________________________________________________________________
+[  3901] By: gsar                                  on 1999/08/02  18:51:18
+        Log: integrate cfgperl contents
+     Branch: perl
+         !> INSTALL README pod/perldelta.pod
+____________________________________________________________________________
+[  3900] By: jhi                                   on 1999/08/02  18:46:21
+        Log: Update README and INSTALL; partly based on the message
+             
+             From: "John L. Allen" <allen@grumman.com>
+             To: Jarkko Hietaniemi <jhi@iki.fi>
+             cc: perl5-porters@perl.org
+             Subject: Re: Perl Installation Problem
+             Date: Thu, 29 Jul 1999 14:55:05 -0400 (EDT)
+             Message-ID: <Pine.SOL.3.91.990729144440.1035A-100000@gateway.grumman.com>
+             
+             and private email from Andy Dougherty.
+     Branch: cfgperl
+          ! INSTALL README
+____________________________________________________________________________
+[  3899] By: jhi                                   on 1999/08/02  18:36:35
+        Log: Integrate with Sarathy.
+     Branch: cfgperl
+         !> op.c
+____________________________________________________________________________
+[  3898] By: jhi                                   on 1999/08/02  18:34:49
+        Log: Update PERL_BINCOMPAT_5005; update 64-bitness.
+     Branch: cfgperl
+          ! pod/perldelta.pod
+____________________________________________________________________________
+[  3897] By: gsar                                  on 1999/08/02  18:18:37
+        Log: optimizations could sometimes bypass bareword check
+     Branch: perl
+          ! op.c
+____________________________________________________________________________
+[  3896] By: jhi                                   on 1999/08/02  18:18:34
+        Log: Integrate with Sarathy.
+     Branch: cfgperl
+         !> Changes makedef.pl patchlevel.h win32/Makefile
+         !> win32/config_H.bc win32/config_H.gc win32/config_H.vc
+         !> win32/makefile.mk
+____________________________________________________________________________
+[  3895] By: gsar                                  on 1999/08/02  17:22:40
+        Log: up patchlevel etc.
+     Branch: perl
+          ! Changes patchlevel.h win32/Makefile win32/config_H.bc
+          ! win32/config_H.gc win32/config_H.vc win32/makefile.mk
+____________________________________________________________________________
 [  3894] By: gsar                                  on 1999/08/02  17:12:31
         Log: integrate change#3893, make it conditional on bincompat5005
      Branch: perl
index d8fe430..5d67f33 100644 (file)
--- a/MANIFEST
+++ b/MANIFEST
@@ -887,6 +887,7 @@ op.c                        Opcode syntax tree code
 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
index 6e56a10..f112745 100755 (executable)
--- a/opcode.pl
+++ b/opcode.pl
@@ -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 @@ print <<"END";
 #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_EXTERN_C
 END
 
 close OC or die "Error closing opcode.h: $!";
+close ON or die "Error closing opnames.h: $!";
 
 unlink "pp_proto.h";
 unlink "pp.sym";
diff --git a/opnames.h b/opnames.h
new file mode 100644 (file)
index 0000000..417d74d
--- /dev/null
+++ b/opnames.h
@@ -0,0 +1,361 @@
+/* !!!!!!!   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 {
+       OP_NULL,        /* 0 */
+       OP_STUB,        /* 1 */
+       OP_SCALAR,      /* 2 */
+       OP_PUSHMARK,    /* 3 */
+       OP_WANTARRAY,   /* 4 */
+       OP_CONST,       /* 5 */
+       OP_GVSV,        /* 6 */
+       OP_GV,          /* 7 */
+       OP_GELEM,       /* 8 */
+       OP_PADSV,       /* 9 */
+       OP_PADAV,       /* 10 */
+       OP_PADHV,       /* 11 */
+       OP_PADANY,      /* 12 */
+       OP_PUSHRE,      /* 13 */
+       OP_RV2GV,       /* 14 */
+       OP_RV2SV,       /* 15 */
+       OP_AV2ARYLEN,   /* 16 */
+       OP_RV2CV,       /* 17 */
+       OP_ANONCODE,    /* 18 */
+       OP_PROTOTYPE,   /* 19 */
+       OP_REFGEN,      /* 20 */
+       OP_SREFGEN,     /* 21 */
+       OP_REF,         /* 22 */
+       OP_BLESS,       /* 23 */
+       OP_BACKTICK,    /* 24 */
+       OP_GLOB,        /* 25 */
+       OP_READLINE,    /* 26 */
+       OP_RCATLINE,    /* 27 */
+       OP_REGCMAYBE,   /* 28 */
+       OP_REGCRESET,   /* 29 */
+       OP_REGCOMP,     /* 30 */
+       OP_MATCH,       /* 31 */
+       OP_QR,          /* 32 */
+       OP_SUBST,       /* 33 */
+       OP_SUBSTCONT,   /* 34 */
+       OP_TRANS,       /* 35 */
+       OP_SASSIGN,     /* 36 */
+       OP_AASSIGN,     /* 37 */
+       OP_CHOP,        /* 38 */
+       OP_SCHOP,       /* 39 */
+       OP_CHOMP,       /* 40 */
+       OP_SCHOMP,      /* 41 */
+       OP_DEFINED,     /* 42 */
+       OP_UNDEF,       /* 43 */
+       OP_STUDY,       /* 44 */
+       OP_POS,         /* 45 */
+       OP_PREINC,      /* 46 */
+       OP_I_PREINC,    /* 47 */
+       OP_PREDEC,      /* 48 */
+       OP_I_PREDEC,    /* 49 */
+       OP_POSTINC,     /* 50 */
+       OP_I_POSTINC,   /* 51 */
+       OP_POSTDEC,     /* 52 */
+       OP_I_POSTDEC,   /* 53 */
+       OP_POW,         /* 54 */
+       OP_MULTIPLY,    /* 55 */
+       OP_I_MULTIPLY,  /* 56 */
+       OP_DIVIDE,      /* 57 */
+       OP_I_DIVIDE,    /* 58 */
+       OP_MODULO,      /* 59 */
+       OP_I_MODULO,    /* 60 */
+       OP_REPEAT,      /* 61 */
+       OP_ADD,         /* 62 */
+       OP_I_ADD,       /* 63 */
+       OP_SUBTRACT,    /* 64 */
+       OP_I_SUBTRACT,  /* 65 */
+       OP_CONCAT,      /* 66 */
+       OP_STRINGIFY,   /* 67 */
+       OP_LEFT_SHIFT,  /* 68 */
+       OP_RIGHT_SHIFT, /* 69 */
+       OP_LT,          /* 70 */
+       OP_I_LT,        /* 71 */
+       OP_GT,          /* 72 */
+       OP_I_GT,        /* 73 */
+       OP_LE,          /* 74 */
+       OP_I_LE,        /* 75 */
+       OP_GE,          /* 76 */
+       OP_I_GE,        /* 77 */
+       OP_EQ,          /* 78 */
+       OP_I_EQ,        /* 79 */
+       OP_NE,          /* 80 */
+       OP_I_NE,        /* 81 */
+       OP_NCMP,        /* 82 */
+       OP_I_NCMP,      /* 83 */
+       OP_SLT,         /* 84 */
+       OP_SGT,         /* 85 */
+       OP_SLE,         /* 86 */
+       OP_SGE,         /* 87 */
+       OP_SEQ,         /* 88 */
+       OP_SNE,         /* 89 */
+       OP_SCMP,        /* 90 */
+       OP_BIT_AND,     /* 91 */
+       OP_BIT_XOR,     /* 92 */
+       OP_BIT_OR,      /* 93 */
+       OP_NEGATE,      /* 94 */
+       OP_I_NEGATE,    /* 95 */
+       OP_NOT,         /* 96 */
+       OP_COMPLEMENT,  /* 97 */
+       OP_ATAN2,       /* 98 */
+       OP_SIN,         /* 99 */
+       OP_COS,         /* 100 */
+       OP_RAND,        /* 101 */
+       OP_SRAND,       /* 102 */
+       OP_EXP,         /* 103 */
+       OP_LOG,         /* 104 */
+       OP_SQRT,        /* 105 */
+       OP_INT,         /* 106 */
+       OP_HEX,         /* 107 */
+       OP_OCT,         /* 108 */
+       OP_ABS,         /* 109 */
+       OP_LENGTH,      /* 110 */
+       OP_SUBSTR,      /* 111 */
+       OP_VEC,         /* 112 */
+       OP_INDEX,       /* 113 */
+       OP_RINDEX,      /* 114 */
+       OP_SPRINTF,     /* 115 */
+       OP_FORMLINE,    /* 116 */
+       OP_ORD,         /* 117 */
+       OP_CHR,         /* 118 */
+       OP_CRYPT,       /* 119 */
+       OP_UCFIRST,     /* 120 */
+       OP_LCFIRST,     /* 121 */
+       OP_UC,          /* 122 */
+       OP_LC,          /* 123 */
+       OP_QUOTEMETA,   /* 124 */
+       OP_RV2AV,       /* 125 */
+       OP_AELEMFAST,   /* 126 */
+       OP_AELEM,       /* 127 */
+       OP_ASLICE,      /* 128 */
+       OP_EACH,        /* 129 */
+       OP_VALUES,      /* 130 */
+       OP_KEYS,        /* 131 */
+       OP_DELETE,      /* 132 */
+       OP_EXISTS,      /* 133 */
+       OP_RV2HV,       /* 134 */
+       OP_HELEM,       /* 135 */
+       OP_HSLICE,      /* 136 */
+       OP_UNPACK,      /* 137 */
+       OP_PACK,        /* 138 */
+       OP_SPLIT,       /* 139 */
+       OP_JOIN,        /* 140 */
+       OP_LIST,        /* 141 */
+       OP_LSLICE,      /* 142 */
+       OP_ANONLIST,    /* 143 */
+       OP_ANONHASH,    /* 144 */
+       OP_SPLICE,      /* 145 */
+       OP_PUSH,        /* 146 */
+       OP_POP,         /* 147 */
+       OP_SHIFT,       /* 148 */
+       OP_UNSHIFT,     /* 149 */
+       OP_SORT,        /* 150 */
+       OP_REVERSE,     /* 151 */
+       OP_GREPSTART,   /* 152 */
+       OP_GREPWHILE,   /* 153 */
+       OP_MAPSTART,    /* 154 */
+       OP_MAPWHILE,    /* 155 */
+       OP_RANGE,       /* 156 */
+       OP_FLIP,        /* 157 */
+       OP_FLOP,        /* 158 */
+       OP_AND,         /* 159 */
+       OP_OR,          /* 160 */
+       OP_XOR,         /* 161 */
+       OP_COND_EXPR,   /* 162 */
+       OP_ANDASSIGN,   /* 163 */
+       OP_ORASSIGN,    /* 164 */
+       OP_METHOD,      /* 165 */
+       OP_ENTERSUB,    /* 166 */
+       OP_LEAVESUB,    /* 167 */
+       OP_CALLER,      /* 168 */
+       OP_WARN,        /* 169 */
+       OP_DIE,         /* 170 */
+       OP_RESET,       /* 171 */
+       OP_LINESEQ,     /* 172 */
+       OP_NEXTSTATE,   /* 173 */
+       OP_DBSTATE,     /* 174 */
+       OP_UNSTACK,     /* 175 */
+       OP_ENTER,       /* 176 */
+       OP_LEAVE,       /* 177 */
+       OP_SCOPE,       /* 178 */
+       OP_ENTERITER,   /* 179 */
+       OP_ITER,        /* 180 */
+       OP_ENTERLOOP,   /* 181 */
+       OP_LEAVELOOP,   /* 182 */
+       OP_RETURN,      /* 183 */
+       OP_LAST,        /* 184 */
+       OP_NEXT,        /* 185 */
+       OP_REDO,        /* 186 */
+       OP_DUMP,        /* 187 */
+       OP_GOTO,        /* 188 */
+       OP_EXIT,        /* 189 */
+       OP_OPEN,        /* 190 */
+       OP_CLOSE,       /* 191 */
+       OP_PIPE_OP,     /* 192 */
+       OP_FILENO,      /* 193 */
+       OP_UMASK,       /* 194 */
+       OP_BINMODE,     /* 195 */
+       OP_TIE,         /* 196 */
+       OP_UNTIE,       /* 197 */
+       OP_TIED,        /* 198 */
+       OP_DBMOPEN,     /* 199 */
+       OP_DBMCLOSE,    /* 200 */
+       OP_SSELECT,     /* 201 */
+       OP_SELECT,      /* 202 */
+       OP_GETC,        /* 203 */
+       OP_READ,        /* 204 */
+       OP_ENTERWRITE,  /* 205 */
+       OP_LEAVEWRITE,  /* 206 */
+       OP_PRTF,        /* 207 */
+       OP_PRINT,       /* 208 */
+       OP_SYSOPEN,     /* 209 */
+       OP_SYSSEEK,     /* 210 */
+       OP_SYSREAD,     /* 211 */
+       OP_SYSWRITE,    /* 212 */
+       OP_SEND,        /* 213 */
+       OP_RECV,        /* 214 */
+       OP_EOF,         /* 215 */
+       OP_TELL,        /* 216 */
+       OP_SEEK,        /* 217 */
+       OP_TRUNCATE,    /* 218 */
+       OP_FCNTL,       /* 219 */
+       OP_IOCTL,       /* 220 */
+       OP_FLOCK,       /* 221 */
+       OP_SOCKET,      /* 222 */
+       OP_SOCKPAIR,    /* 223 */
+       OP_BIND,        /* 224 */
+       OP_CONNECT,     /* 225 */
+       OP_LISTEN,      /* 226 */
+       OP_ACCEPT,      /* 227 */
+       OP_SHUTDOWN,    /* 228 */
+       OP_GSOCKOPT,    /* 229 */
+       OP_SSOCKOPT,    /* 230 */
+       OP_GETSOCKNAME, /* 231 */
+       OP_GETPEERNAME, /* 232 */
+       OP_LSTAT,       /* 233 */
+       OP_STAT,        /* 234 */
+       OP_FTRREAD,     /* 235 */
+       OP_FTRWRITE,    /* 236 */
+       OP_FTREXEC,     /* 237 */
+       OP_FTEREAD,     /* 238 */
+       OP_FTEWRITE,    /* 239 */
+       OP_FTEEXEC,     /* 240 */
+       OP_FTIS,        /* 241 */
+       OP_FTEOWNED,    /* 242 */
+       OP_FTROWNED,    /* 243 */
+       OP_FTZERO,      /* 244 */
+       OP_FTSIZE,      /* 245 */
+       OP_FTMTIME,     /* 246 */
+       OP_FTATIME,     /* 247 */
+       OP_FTCTIME,     /* 248 */
+       OP_FTSOCK,      /* 249 */
+       OP_FTCHR,       /* 250 */
+       OP_FTBLK,       /* 251 */
+       OP_FTFILE,      /* 252 */
+       OP_FTDIR,       /* 253 */
+       OP_FTPIPE,      /* 254 */
+       OP_FTLINK,      /* 255 */
+       OP_FTSUID,      /* 256 */
+       OP_FTSGID,      /* 257 */
+       OP_FTSVTX,      /* 258 */
+       OP_FTTTY,       /* 259 */
+       OP_FTTEXT,      /* 260 */
+       OP_FTBINARY,    /* 261 */
+       OP_CHDIR,       /* 262 */
+       OP_CHOWN,       /* 263 */
+       OP_CHROOT,      /* 264 */
+       OP_UNLINK,      /* 265 */
+       OP_CHMOD,       /* 266 */
+       OP_UTIME,       /* 267 */
+       OP_RENAME,      /* 268 */
+       OP_LINK,        /* 269 */
+       OP_SYMLINK,     /* 270 */
+       OP_READLINK,    /* 271 */
+       OP_MKDIR,       /* 272 */
+       OP_RMDIR,       /* 273 */
+       OP_OPEN_DIR,    /* 274 */
+       OP_READDIR,     /* 275 */
+       OP_TELLDIR,     /* 276 */
+       OP_SEEKDIR,     /* 277 */
+       OP_REWINDDIR,   /* 278 */
+       OP_CLOSEDIR,    /* 279 */
+       OP_FORK,        /* 280 */
+       OP_WAIT,        /* 281 */
+       OP_WAITPID,     /* 282 */
+       OP_SYSTEM,      /* 283 */
+       OP_EXEC,        /* 284 */
+       OP_KILL,        /* 285 */
+       OP_GETPPID,     /* 286 */
+       OP_GETPGRP,     /* 287 */
+       OP_SETPGRP,     /* 288 */
+       OP_GETPRIORITY, /* 289 */
+       OP_SETPRIORITY, /* 290 */
+       OP_TIME,        /* 291 */
+       OP_TMS,         /* 292 */
+       OP_LOCALTIME,   /* 293 */
+       OP_GMTIME,      /* 294 */
+       OP_ALARM,       /* 295 */
+       OP_SLEEP,       /* 296 */
+       OP_SHMGET,      /* 297 */
+       OP_SHMCTL,      /* 298 */
+       OP_SHMREAD,     /* 299 */
+       OP_SHMWRITE,    /* 300 */
+       OP_MSGGET,      /* 301 */
+       OP_MSGCTL,      /* 302 */
+       OP_MSGSND,      /* 303 */
+       OP_MSGRCV,      /* 304 */
+       OP_SEMGET,      /* 305 */
+       OP_SEMCTL,      /* 306 */
+       OP_SEMOP,       /* 307 */
+       OP_REQUIRE,     /* 308 */
+       OP_DOFILE,      /* 309 */
+       OP_ENTEREVAL,   /* 310 */
+       OP_LEAVEEVAL,   /* 311 */
+       OP_ENTERTRY,    /* 312 */
+       OP_LEAVETRY,    /* 313 */
+       OP_GHBYNAME,    /* 314 */
+       OP_GHBYADDR,    /* 315 */
+       OP_GHOSTENT,    /* 316 */
+       OP_GNBYNAME,    /* 317 */
+       OP_GNBYADDR,    /* 318 */
+       OP_GNETENT,     /* 319 */
+       OP_GPBYNAME,    /* 320 */
+       OP_GPBYNUMBER,  /* 321 */
+       OP_GPROTOENT,   /* 322 */
+       OP_GSBYNAME,    /* 323 */
+       OP_GSBYPORT,    /* 324 */
+       OP_GSERVENT,    /* 325 */
+       OP_SHOSTENT,    /* 326 */
+       OP_SNETENT,     /* 327 */
+       OP_SPROTOENT,   /* 328 */
+       OP_SSERVENT,    /* 329 */
+       OP_EHOSTENT,    /* 330 */
+       OP_ENETENT,     /* 331 */
+       OP_EPROTOENT,   /* 332 */
+       OP_ESERVENT,    /* 333 */
+       OP_GPWNAM,      /* 334 */
+       OP_GPWUID,      /* 335 */
+       OP_GPWENT,      /* 336 */
+       OP_SPWENT,      /* 337 */
+       OP_EPWENT,      /* 338 */
+       OP_GGRNAM,      /* 339 */
+       OP_GGRGID,      /* 340 */
+       OP_GGRENT,      /* 341 */
+       OP_SGRENT,      /* 342 */
+       OP_EGRENT,      /* 343 */
+       OP_GETLOGIN,    /* 344 */
+       OP_SYSCALL,     /* 345 */
+       OP_LOCK,        /* 346 */
+       OP_THREADSV,    /* 347 */
+       OP_SETSTATE,    /* 348 */
+       OP_METHOD_NAMED,/* 349 */
+       OP_max          
+} opcode;
+
+#define MAXO 350
+
diff --git a/perl.h b/perl.h
index 3febd71..a05c726 100644 (file)
--- a/perl.h
+++ b/perl.h
@@ -1710,6 +1710,7 @@ typedef I32 (*filter_t) (pTHXo_ int, SV *, int);
 #include "form.h"
 #include "gv.h"
 #include "cv.h"
+#include "opnames.h"
 #include "op.h"
 #include "cop.h"
 #include "av.h"