From: Gurusamy Sarathy Date: Mon, 2 Aug 1999 20:24:41 +0000 (+0000) Subject: fix broken -DDEBUGGING_OPS (from Spider Boardman X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=abdd5c84f1a598169caec84a2fd2acc62163ef45;p=p5sagit%2Fp5-mst-13.2.git fix broken -DDEBUGGING_OPS (from Spider Boardman ) p4raw-id: //depot/perl@3902 --- diff --git a/Changes b/Changes index 19f15bb..3835205 100644 --- 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" + To: Jarkko Hietaniemi + cc: perl5-porters@perl.org + Subject: Re: Perl Installation Problem + Date: Thu, 29 Jul 1999 14:55:05 -0400 (EDT) + Message-ID: + + 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 diff --git a/MANIFEST b/MANIFEST index d8fe430..5d67f33 100644 --- 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 diff --git a/opcode.pl b/opcode.pl index 6e56a10..f112745 100755 --- 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 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 --- 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"