1 /* -*- buffer-read-only: t -*- 2 * 3 * opcode.h 4 * 5 * Copyright (C) 1993, 1994, 1995, 1996, 1997, 1998, 1999, 2000, 2001, 6 * 2002, 2003, 2004, 2005, 2006, 2007 by Larry Wall and others 7 * 8 * You may distribute under the terms of either the GNU General Public 9 * License or the Artistic License, as specified in the README file. 10 * 11 * !!!!!!! DO NOT EDIT THIS FILE !!!!!!! 12 * This file is built by regen/opcode.pl from its data. 13 * Any changes made here will be lost! 14 */ 15 16 #ifndef PERL_GLOBAL_STRUCT_INIT 17 18 #define Perl_pp_scalar Perl_pp_null 19 #define Perl_pp_padany Perl_unimplemented_op 20 #define Perl_pp_regcmaybe Perl_pp_null 21 #define Perl_pp_transr Perl_pp_trans 22 #define Perl_pp_chomp Perl_pp_chop 23 #define Perl_pp_schomp Perl_pp_schop 24 #define Perl_pp_i_preinc Perl_pp_preinc 25 #define Perl_pp_i_predec Perl_pp_predec 26 #define Perl_pp_i_postinc Perl_pp_postinc 27 #define Perl_pp_i_postdec Perl_pp_postdec 28 #define Perl_pp_slt Perl_pp_sle 29 #define Perl_pp_sgt Perl_pp_sle 30 #define Perl_pp_sge Perl_pp_sle 31 #define Perl_pp_bit_xor Perl_pp_bit_or 32 #define Perl_pp_nbit_xor Perl_pp_nbit_or 33 #define Perl_pp_sbit_xor Perl_pp_sbit_or 34 #define Perl_pp_cos Perl_pp_sin 35 #define Perl_pp_exp Perl_pp_sin 36 #define Perl_pp_log Perl_pp_sin 37 #define Perl_pp_sqrt Perl_pp_sin 38 #define Perl_pp_hex Perl_pp_oct 39 #define Perl_pp_rindex Perl_pp_index 40 #define Perl_pp_lcfirst Perl_pp_ucfirst 41 #define Perl_pp_aelemfast_lex Perl_pp_aelemfast 42 #define Perl_pp_avalues Perl_pp_akeys 43 #define Perl_pp_values Perl_do_kv 44 #define Perl_pp_keys Perl_do_kv 45 #define Perl_pp_rv2hv Perl_pp_rv2av 46 #define Perl_pp_pop Perl_pp_shift 47 #define Perl_pp_mapstart Perl_pp_grepstart 48 #define Perl_pp_dor Perl_pp_defined 49 #define Perl_pp_andassign Perl_pp_and 50 #define Perl_pp_orassign Perl_pp_or 51 #define Perl_pp_dorassign Perl_pp_defined 52 #define Perl_pp_lineseq Perl_pp_null 53 #define Perl_pp_scope Perl_pp_null 54 #define Perl_pp_dump Perl_pp_goto 55 #define Perl_pp_dbmclose Perl_pp_untie 56 #define Perl_pp_read Perl_pp_sysread 57 #define Perl_pp_say Perl_pp_print 58 #define Perl_pp_seek Perl_pp_sysseek 59 #define Perl_pp_fcntl Perl_pp_ioctl 60 #ifdef HAS_SOCKET 61 #define Perl_pp_send Perl_pp_syswrite 62 #define Perl_pp_recv Perl_pp_sysread 63 #else 64 #define Perl_pp_send Perl_unimplemented_op 65 #define Perl_pp_recv Perl_unimplemented_op 66 #define Perl_pp_socket Perl_unimplemented_op 67 #endif 68 #ifdef HAS_SOCKET 69 #define Perl_pp_connect Perl_pp_bind 70 #define Perl_pp_gsockopt Perl_pp_ssockopt 71 #define Perl_pp_getsockname Perl_pp_getpeername 72 #else 73 #define Perl_pp_bind Perl_unimplemented_op 74 #define Perl_pp_connect Perl_unimplemented_op 75 #define Perl_pp_listen Perl_unimplemented_op 76 #define Perl_pp_accept Perl_unimplemented_op 77 #define Perl_pp_shutdown Perl_unimplemented_op 78 #define Perl_pp_gsockopt Perl_unimplemented_op 79 #define Perl_pp_ssockopt Perl_unimplemented_op 80 #define Perl_pp_getsockname Perl_unimplemented_op 81 #define Perl_pp_getpeername Perl_unimplemented_op 82 #endif 83 #define Perl_pp_lstat Perl_pp_stat 84 #define Perl_pp_ftrwrite Perl_pp_ftrread 85 #define Perl_pp_ftrexec Perl_pp_ftrread 86 #define Perl_pp_fteread Perl_pp_ftrread 87 #define Perl_pp_ftewrite Perl_pp_ftrread 88 #define Perl_pp_fteexec Perl_pp_ftrread 89 #define Perl_pp_ftsize Perl_pp_ftis 90 #define Perl_pp_ftmtime Perl_pp_ftis 91 #define Perl_pp_ftatime Perl_pp_ftis 92 #define Perl_pp_ftctime Perl_pp_ftis 93 #define Perl_pp_fteowned Perl_pp_ftrowned 94 #define Perl_pp_ftzero Perl_pp_ftrowned 95 #define Perl_pp_ftsock Perl_pp_ftrowned 96 #define Perl_pp_ftchr Perl_pp_ftrowned 97 #define Perl_pp_ftblk Perl_pp_ftrowned 98 #define Perl_pp_ftfile Perl_pp_ftrowned 99 #define Perl_pp_ftdir Perl_pp_ftrowned 100 #define Perl_pp_ftpipe Perl_pp_ftrowned 101 #define Perl_pp_ftsuid Perl_pp_ftrowned 102 #define Perl_pp_ftsgid Perl_pp_ftrowned 103 #define Perl_pp_ftsvtx Perl_pp_ftrowned 104 #define Perl_pp_ftbinary Perl_pp_fttext 105 #define Perl_pp_unlink Perl_pp_chown 106 #define Perl_pp_chmod Perl_pp_chown 107 #define Perl_pp_utime Perl_pp_chown 108 #define Perl_pp_symlink Perl_pp_link 109 #define Perl_pp_kill Perl_pp_chown 110 #define Perl_pp_localtime Perl_pp_gmtime 111 #define Perl_pp_shmget Perl_pp_semget 112 #define Perl_pp_shmctl Perl_pp_semctl 113 #define Perl_pp_shmread Perl_pp_shmwrite 114 #define Perl_pp_msgget Perl_pp_semget 115 #define Perl_pp_msgctl Perl_pp_semctl 116 #define Perl_pp_msgsnd Perl_pp_shmwrite 117 #define Perl_pp_msgrcv Perl_pp_shmwrite 118 #define Perl_pp_semop Perl_pp_shmwrite 119 #define Perl_pp_dofile Perl_pp_require 120 #define Perl_pp_ghbyname Perl_pp_ghostent 121 #define Perl_pp_ghbyaddr Perl_pp_ghostent 122 #define Perl_pp_gnbyname Perl_pp_gnetent 123 #define Perl_pp_gnbyaddr Perl_pp_gnetent 124 #define Perl_pp_gpbyname Perl_pp_gprotoent 125 #define Perl_pp_gpbynumber Perl_pp_gprotoent 126 #define Perl_pp_gsbyname Perl_pp_gservent 127 #define Perl_pp_gsbyport Perl_pp_gservent 128 #define Perl_pp_snetent Perl_pp_shostent 129 #define Perl_pp_sprotoent Perl_pp_shostent 130 #define Perl_pp_sservent Perl_pp_shostent 131 #define Perl_pp_enetent Perl_pp_ehostent 132 #define Perl_pp_eprotoent Perl_pp_ehostent 133 #define Perl_pp_eservent Perl_pp_ehostent 134 #define Perl_pp_gpwnam Perl_pp_gpwent 135 #define Perl_pp_gpwuid Perl_pp_gpwent 136 #define Perl_pp_spwent Perl_pp_ehostent 137 #define Perl_pp_epwent Perl_pp_ehostent 138 #define Perl_pp_ggrnam Perl_pp_ggrent 139 #define Perl_pp_ggrgid Perl_pp_ggrent 140 #define Perl_pp_sgrent Perl_pp_ehostent 141 #define Perl_pp_egrent Perl_pp_ehostent 142 #define Perl_pp_custom Perl_unimplemented_op 143 START_EXTERN_C 144 145 #ifndef DOINIT 146 EXTCONST char* const PL_op_name[]; 147 #else 148 EXTCONST char* const PL_op_name[] = { 149 "null", 150 "stub", 151 "scalar", 152 "pushmark", 153 "wantarray", 154 "const", 155 "gvsv", 156 "gv", 157 "gelem", 158 "padsv", 159 "padav", 160 "padhv", 161 "padany", 162 "pushre", 163 "rv2gv", 164 "rv2sv", 165 "av2arylen", 166 "rv2cv", 167 "anoncode", 168 "prototype", 169 "refgen", 170 "srefgen", 171 "ref", 172 "bless", 173 "backtick", 174 "glob", 175 "readline", 176 "rcatline", 177 "regcmaybe", 178 "regcreset", 179 "regcomp", 180 "match", 181 "qr", 182 "subst", 183 "substcont", 184 "trans", 185 "transr", 186 "sassign", 187 "aassign", 188 "chop", 189 "schop", 190 "chomp", 191 "schomp", 192 "defined", 193 "undef", 194 "study", 195 "pos", 196 "preinc", 197 "i_preinc", 198 "predec", 199 "i_predec", 200 "postinc", 201 "i_postinc", 202 "postdec", 203 "i_postdec", 204 "pow", 205 "multiply", 206 "i_multiply", 207 "divide", 208 "i_divide", 209 "modulo", 210 "i_modulo", 211 "repeat", 212 "add", 213 "i_add", 214 "subtract", 215 "i_subtract", 216 "concat", 217 "stringify", 218 "left_shift", 219 "right_shift", 220 "lt", 221 "i_lt", 222 "gt", 223 "i_gt", 224 "le", 225 "i_le", 226 "ge", 227 "i_ge", 228 "eq", 229 "i_eq", 230 "ne", 231 "i_ne", 232 "ncmp", 233 "i_ncmp", 234 "slt", 235 "sgt", 236 "sle", 237 "sge", 238 "seq", 239 "sne", 240 "scmp", 241 "bit_and", 242 "bit_xor", 243 "bit_or", 244 "nbit_and", 245 "nbit_xor", 246 "nbit_or", 247 "sbit_and", 248 "sbit_xor", 249 "sbit_or", 250 "negate", 251 "i_negate", 252 "not", 253 "complement", 254 "ncomplement", 255 "scomplement", 256 "smartmatch", 257 "atan2", 258 "sin", 259 "cos", 260 "rand", 261 "srand", 262 "exp", 263 "log", 264 "sqrt", 265 "int", 266 "hex", 267 "oct", 268 "abs", 269 "length", 270 "substr", 271 "vec", 272 "index", 273 "rindex", 274 "sprintf", 275 "formline", 276 "ord", 277 "chr", 278 "crypt", 279 "ucfirst", 280 "lcfirst", 281 "uc", 282 "lc", 283 "quotemeta", 284 "rv2av", 285 "aelemfast", 286 "aelemfast_lex", 287 "aelem", 288 "aslice", 289 "kvaslice", 290 "aeach", 291 "akeys", 292 "avalues", 293 "each", 294 "values", 295 "keys", 296 "delete", 297 "exists", 298 "rv2hv", 299 "helem", 300 "hslice", 301 "kvhslice", 302 "multideref", 303 "unpack", 304 "pack", 305 "split", 306 "join", 307 "list", 308 "lslice", 309 "anonlist", 310 "anonhash", 311 "splice", 312 "push", 313 "pop", 314 "shift", 315 "unshift", 316 "sort", 317 "reverse", 318 "grepstart", 319 "grepwhile", 320 "mapstart", 321 "mapwhile", 322 "range", 323 "flip", 324 "flop", 325 "and", 326 "or", 327 "xor", 328 "dor", 329 "cond_expr", 330 "andassign", 331 "orassign", 332 "dorassign", 333 "method", 334 "entersub", 335 "leavesub", 336 "leavesublv", 337 "caller", 338 "warn", 339 "die", 340 "reset", 341 "lineseq", 342 "nextstate", 343 "dbstate", 344 "unstack", 345 "enter", 346 "leave", 347 "scope", 348 "enteriter", 349 "iter", 350 "enterloop", 351 "leaveloop", 352 "return", 353 "last", 354 "next", 355 "redo", 356 "dump", 357 "goto", 358 "exit", 359 "method_named", 360 "method_super", 361 "method_redir", 362 "method_redir_super", 363 "entergiven", 364 "leavegiven", 365 "enterwhen", 366 "leavewhen", 367 "break", 368 "continue", 369 "open", 370 "close", 371 "pipe_op", 372 "fileno", 373 "umask", 374 "binmode", 375 "tie", 376 "untie", 377 "tied", 378 "dbmopen", 379 "dbmclose", 380 "sselect", 381 "select", 382 "getc", 383 "read", 384 "enterwrite", 385 "leavewrite", 386 "prtf", 387 "print", 388 "say", 389 "sysopen", 390 "sysseek", 391 "sysread", 392 "syswrite", 393 "eof", 394 "tell", 395 "seek", 396 "truncate", 397 "fcntl", 398 "ioctl", 399 "flock", 400 "send", 401 "recv", 402 "socket", 403 "sockpair", 404 "bind", 405 "connect", 406 "listen", 407 "accept", 408 "shutdown", 409 "gsockopt", 410 "ssockopt", 411 "getsockname", 412 "getpeername", 413 "lstat", 414 "stat", 415 "ftrread", 416 "ftrwrite", 417 "ftrexec", 418 "fteread", 419 "ftewrite", 420 "fteexec", 421 "ftis", 422 "ftsize", 423 "ftmtime", 424 "ftatime", 425 "ftctime", 426 "ftrowned", 427 "fteowned", 428 "ftzero", 429 "ftsock", 430 "ftchr", 431 "ftblk", 432 "ftfile", 433 "ftdir", 434 "ftpipe", 435 "ftsuid", 436 "ftsgid", 437 "ftsvtx", 438 "ftlink", 439 "fttty", 440 "fttext", 441 "ftbinary", 442 "chdir", 443 "chown", 444 "chroot", 445 "unlink", 446 "chmod", 447 "utime", 448 "rename", 449 "link", 450 "symlink", 451 "readlink", 452 "mkdir", 453 "rmdir", 454 "open_dir", 455 "readdir", 456 "telldir", 457 "seekdir", 458 "rewinddir", 459 "closedir", 460 "fork", 461 "wait", 462 "waitpid", 463 "system", 464 "exec", 465 "kill", 466 "getppid", 467 "getpgrp", 468 "setpgrp", 469 "getpriority", 470 "setpriority", 471 "time", 472 "tms", 473 "localtime", 474 "gmtime", 475 "alarm", 476 "sleep", 477 "shmget", 478 "shmctl", 479 "shmread", 480 "shmwrite", 481 "msgget", 482 "msgctl", 483 "msgsnd", 484 "msgrcv", 485 "semop", 486 "semget", 487 "semctl", 488 "require", 489 "dofile", 490 "hintseval", 491 "entereval", 492 "leaveeval", 493 "entertry", 494 "leavetry", 495 "ghbyname", 496 "ghbyaddr", 497 "ghostent", 498 "gnbyname", 499 "gnbyaddr", 500 "gnetent", 501 "gpbyname", 502 "gpbynumber", 503 "gprotoent", 504 "gsbyname", 505 "gsbyport", 506 "gservent", 507 "shostent", 508 "snetent", 509 "sprotoent", 510 "sservent", 511 "ehostent", 512 "enetent", 513 "eprotoent", 514 "eservent", 515 "gpwnam", 516 "gpwuid", 517 "gpwent", 518 "spwent", 519 "epwent", 520 "ggrnam", 521 "ggrgid", 522 "ggrent", 523 "sgrent", 524 "egrent", 525 "getlogin", 526 "syscall", 527 "lock", 528 "once", 529 "custom", 530 "coreargs", 531 "runcv", 532 "fc", 533 "padcv", 534 "introcv", 535 "clonecv", 536 "padrange", 537 "refassign", 538 "lvref", 539 "lvrefslice", 540 "lvavref", 541 "anonconst", 542 "freed", 543 }; 544 #endif 545 546 #ifndef DOINIT 547 EXTCONST char* const PL_op_desc[]; 548 #else 549 EXTCONST char* const PL_op_desc[] = { 550 "null operation", 551 "stub", 552 "scalar", 553 "pushmark", 554 "wantarray", 555 "constant item", 556 "scalar variable", 557 "glob value", 558 "glob elem", 559 "private variable", 560 "private array", 561 "private hash", 562 "private value", 563 "push regexp", 564 "ref-to-glob cast", 565 "scalar dereference", 566 "array length", 567 "subroutine dereference", 568 "anonymous subroutine", 569 "subroutine prototype", 570 "reference constructor", 571 "single ref constructor", 572 "reference-type operator", 573 "bless", 574 "quoted execution (``, qx)", 575 "glob", 576 "<HANDLE>", 577 "append I/O operator", 578 "regexp internal guard", 579 "regexp internal reset", 580 "regexp compilation", 581 "pattern match (m//)", 582 "pattern quote (qr//)", 583 "substitution (s///)", 584 "substitution iterator", 585 "transliteration (tr///)", 586 "transliteration (tr///)", 587 "scalar assignment", 588 "list assignment", 589 "chop", 590 "scalar chop", 591 "chomp", 592 "scalar chomp", 593 "defined operator", 594 "undef operator", 595 "study", 596 "match position", 597 "preincrement (++)", 598 "integer preincrement (++)", 599 "predecrement (--)", 600 "integer predecrement (--)", 601 "postincrement (++)", 602 "integer postincrement (++)", 603 "postdecrement (--)", 604 "integer postdecrement (--)", 605 "exponentiation (**)", 606 "multiplication (*)", 607 "integer multiplication (*)", 608 "division (/)", 609 "integer division (/)", 610 "modulus (%)", 611 "integer modulus (%)", 612 "repeat (x)", 613 "addition (+)", 614 "integer addition (+)", 615 "subtraction (-)", 616 "integer subtraction (-)", 617 "concatenation (.) or string", 618 "string", 619 "left bitshift (<<)", 620 "right bitshift (>>)", 621 "numeric lt (<)", 622 "integer lt (<)", 623 "numeric gt (>)", 624 "integer gt (>)", 625 "numeric le (<=)", 626 "integer le (<=)", 627 "numeric ge (>=)", 628 "integer ge (>=)", 629 "numeric eq (==)", 630 "integer eq (==)", 631 "numeric ne (!=)", 632 "integer ne (!=)", 633 "numeric comparison (<=>)", 634 "integer comparison (<=>)", 635 "string lt", 636 "string gt", 637 "string le", 638 "string ge", 639 "string eq", 640 "string ne", 641 "string comparison (cmp)", 642 "bitwise and (&)", 643 "bitwise xor (^)", 644 "bitwise or (|)", 645 "numeric bitwise and (&)", 646 "numeric bitwise xor (^)", 647 "numeric bitwise or (|)", 648 "string bitwise and (&.)", 649 "string bitwise xor (^.)", 650 "string bitwise or (|.)", 651 "negation (-)", 652 "integer negation (-)", 653 "not", 654 "1's complement (~)", 655 "numeric 1's complement (~)", 656 "string 1's complement (~)", 657 "smart match", 658 "atan2", 659 "sin", 660 "cos", 661 "rand", 662 "srand", 663 "exp", 664 "log", 665 "sqrt", 666 "int", 667 "hex", 668 "oct", 669 "abs", 670 "length", 671 "substr", 672 "vec", 673 "index", 674 "rindex", 675 "sprintf", 676 "formline", 677 "ord", 678 "chr", 679 "crypt", 680 "ucfirst", 681 "lcfirst", 682 "uc", 683 "lc", 684 "quotemeta", 685 "array dereference", 686 "constant array element", 687 "constant lexical array element", 688 "array element", 689 "array slice", 690 "index/value array slice", 691 "each on array", 692 "keys on array", 693 "values on array", 694 "each", 695 "values", 696 "keys", 697 "delete", 698 "exists", 699 "hash dereference", 700 "hash element", 701 "hash slice", 702 "key/value hash slice", 703 "array or hash lookup", 704 "unpack", 705 "pack", 706 "split", 707 "join or string", 708 "list", 709 "list slice", 710 "anonymous array ([])", 711 "anonymous hash ({})", 712 "splice", 713 "push", 714 "pop", 715 "shift", 716 "unshift", 717 "sort", 718 "reverse", 719 "grep", 720 "grep iterator", 721 "map", 722 "map iterator", 723 "flipflop", 724 "range (or flip)", 725 "range (or flop)", 726 "logical and (&&)", 727 "logical or (||)", 728 "logical xor", 729 "defined or (//)", 730 "conditional expression", 731 "logical and assignment (&&=)", 732 "logical or assignment (||=)", 733 "defined or assignment (//=)", 734 "method lookup", 735 "subroutine entry", 736 "subroutine exit", 737 "lvalue subroutine return", 738 "caller", 739 "warn", 740 "die", 741 "symbol reset", 742 "line sequence", 743 "next statement", 744 "debug next statement", 745 "iteration finalizer", 746 "block entry", 747 "block exit", 748 "block", 749 "foreach loop entry", 750 "foreach loop iterator", 751 "loop entry", 752 "loop exit", 753 "return", 754 "last", 755 "next", 756 "redo", 757 "dump", 758 "goto", 759 "exit", 760 "method with known name", 761 "super with known name", 762 "redirect method with known name", 763 "redirect super method with known name", 764 "given()", 765 "leave given block", 766 "when()", 767 "leave when block", 768 "break", 769 "continue", 770 "open", 771 "close", 772 "pipe", 773 "fileno", 774 "umask", 775 "binmode", 776 "tie", 777 "untie", 778 "tied", 779 "dbmopen", 780 "dbmclose", 781 "select system call", 782 "select", 783 "getc", 784 "read", 785 "write", 786 "write exit", 787 "printf", 788 "print", 789 "say", 790 "sysopen", 791 "sysseek", 792 "sysread", 793 "syswrite", 794 "eof", 795 "tell", 796 "seek", 797 "truncate", 798 "fcntl", 799 "ioctl", 800 "flock", 801 "send", 802 "recv", 803 "socket", 804 "socketpair", 805 "bind", 806 "connect", 807 "listen", 808 "accept", 809 "shutdown", 810 "getsockopt", 811 "setsockopt", 812 "getsockname", 813 "getpeername", 814 "lstat", 815 "stat", 816 "-R", 817 "-W", 818 "-X", 819 "-r", 820 "-w", 821 "-x", 822 "-e", 823 "-s", 824 "-M", 825 "-A", 826 "-C", 827 "-O", 828 "-o", 829 "-z", 830 "-S", 831 "-c", 832 "-b", 833 "-f", 834 "-d", 835 "-p", 836 "-u", 837 "-g", 838 "-k", 839 "-l", 840 "-t", 841 "-T", 842 "-B", 843 "chdir", 844 "chown", 845 "chroot", 846 "unlink", 847 "chmod", 848 "utime", 849 "rename", 850 "link", 851 "symlink", 852 "readlink", 853 "mkdir", 854 "rmdir", 855 "opendir", 856 "readdir", 857 "telldir", 858 "seekdir", 859 "rewinddir", 860 "closedir", 861 "fork", 862 "wait", 863 "waitpid", 864 "system", 865 "exec", 866 "kill", 867 "getppid", 868 "getpgrp", 869 "setpgrp", 870 "getpriority", 871 "setpriority", 872 "time", 873 "times", 874 "localtime", 875 "gmtime", 876 "alarm", 877 "sleep", 878 "shmget", 879 "shmctl", 880 "shmread", 881 "shmwrite", 882 "msgget", 883 "msgctl", 884 "msgsnd", 885 "msgrcv", 886 "semop", 887 "semget", 888 "semctl", 889 "require", 890 "do \"file\"", 891 "eval hints", 892 "eval \"string\"", 893 "eval \"string\" exit", 894 "eval {block}", 895 "eval {block} exit", 896 "gethostbyname", 897 "gethostbyaddr", 898 "gethostent", 899 "getnetbyname", 900 "getnetbyaddr", 901 "getnetent", 902 "getprotobyname", 903 "getprotobynumber", 904 "getprotoent", 905 "getservbyname", 906 "getservbyport", 907 "getservent", 908 "sethostent", 909 "setnetent", 910 "setprotoent", 911 "setservent", 912 "endhostent", 913 "endnetent", 914 "endprotoent", 915 "endservent", 916 "getpwnam", 917 "getpwuid", 918 "getpwent", 919 "setpwent", 920 "endpwent", 921 "getgrnam", 922 "getgrgid", 923 "getgrent", 924 "setgrent", 925 "endgrent", 926 "getlogin", 927 "syscall", 928 "lock", 929 "once", 930 "unknown custom operator", 931 "CORE:: subroutine", 932 "__SUB__", 933 "fc", 934 "private subroutine", 935 "private subroutine", 936 "private subroutine", 937 "list of private variables", 938 "lvalue ref assignment", 939 "lvalue ref assignment", 940 "lvalue ref assignment", 941 "lvalue array reference", 942 "anonymous constant", 943 "freed op", 944 }; 945 #endif 946 947 END_EXTERN_C 948 949 #endif /* !PERL_GLOBAL_STRUCT_INIT */ 950 951 START_EXTERN_C 952 953 #ifdef PERL_GLOBAL_STRUCT_INIT 954 # define PERL_PPADDR_INITED 955 static const Perl_ppaddr_t Gppaddr[] 956 #else 957 # ifndef PERL_GLOBAL_STRUCT 958 # define PERL_PPADDR_INITED 959 EXT Perl_ppaddr_t PL_ppaddr[] /* or perlvars.h */ 960 # endif 961 #endif /* PERL_GLOBAL_STRUCT */ 962 #if (defined(DOINIT) && !defined(PERL_GLOBAL_STRUCT)) || defined(PERL_GLOBAL_STRUCT_INIT) 963 # define PERL_PPADDR_INITED 964 = { 965 Perl_pp_null, 966 Perl_pp_stub, 967 Perl_pp_scalar, /* implemented by Perl_pp_null */ 968 Perl_pp_pushmark, 969 Perl_pp_wantarray, 970 Perl_pp_const, 971 Perl_pp_gvsv, 972 Perl_pp_gv, 973 Perl_pp_gelem, 974 Perl_pp_padsv, 975 Perl_pp_padav, 976 Perl_pp_padhv, 977 Perl_pp_padany, /* implemented by Perl_unimplemented_op */ 978 Perl_pp_pushre, 979 Perl_pp_rv2gv, 980 Perl_pp_rv2sv, 981 Perl_pp_av2arylen, 982 Perl_pp_rv2cv, 983 Perl_pp_anoncode, 984 Perl_pp_prototype, 985 Perl_pp_refgen, 986 Perl_pp_srefgen, 987 Perl_pp_ref, 988 Perl_pp_bless, 989 Perl_pp_backtick, 990 Perl_pp_glob, 991 Perl_pp_readline, 992 Perl_pp_rcatline, 993 Perl_pp_regcmaybe, /* implemented by Perl_pp_null */ 994 Perl_pp_regcreset, 995 Perl_pp_regcomp, 996 Perl_pp_match, 997 Perl_pp_qr, 998 Perl_pp_subst, 999 Perl_pp_substcont, 1000 Perl_pp_trans, 1001 Perl_pp_transr, /* implemented by Perl_pp_trans */ 1002 Perl_pp_sassign, 1003 Perl_pp_aassign, 1004 Perl_pp_chop, 1005 Perl_pp_schop, 1006 Perl_pp_chomp, /* implemented by Perl_pp_chop */ 1007 Perl_pp_schomp, /* implemented by Perl_pp_schop */ 1008 Perl_pp_defined, 1009 Perl_pp_undef, 1010 Perl_pp_study, 1011 Perl_pp_pos, 1012 Perl_pp_preinc, 1013 Perl_pp_i_preinc, /* implemented by Perl_pp_preinc */ 1014 Perl_pp_predec, 1015 Perl_pp_i_predec, /* implemented by Perl_pp_predec */ 1016 Perl_pp_postinc, 1017 Perl_pp_i_postinc, /* implemented by Perl_pp_postinc */ 1018 Perl_pp_postdec, 1019 Perl_pp_i_postdec, /* implemented by Perl_pp_postdec */ 1020 Perl_pp_pow, 1021 Perl_pp_multiply, 1022 Perl_pp_i_multiply, 1023 Perl_pp_divide, 1024 Perl_pp_i_divide, 1025 Perl_pp_modulo, 1026 Perl_pp_i_modulo, 1027 Perl_pp_repeat, 1028 Perl_pp_add, 1029 Perl_pp_i_add, 1030 Perl_pp_subtract, 1031 Perl_pp_i_subtract, 1032 Perl_pp_concat, 1033 Perl_pp_stringify, 1034 Perl_pp_left_shift, 1035 Perl_pp_right_shift, 1036 Perl_pp_lt, 1037 Perl_pp_i_lt, 1038 Perl_pp_gt, 1039 Perl_pp_i_gt, 1040 Perl_pp_le, 1041 Perl_pp_i_le, 1042 Perl_pp_ge, 1043 Perl_pp_i_ge, 1044 Perl_pp_eq, 1045 Perl_pp_i_eq, 1046 Perl_pp_ne, 1047 Perl_pp_i_ne, 1048 Perl_pp_ncmp, 1049 Perl_pp_i_ncmp, 1050 Perl_pp_slt, /* implemented by Perl_pp_sle */ 1051 Perl_pp_sgt, /* implemented by Perl_pp_sle */ 1052 Perl_pp_sle, 1053 Perl_pp_sge, /* implemented by Perl_pp_sle */ 1054 Perl_pp_seq, 1055 Perl_pp_sne, 1056 Perl_pp_scmp, 1057 Perl_pp_bit_and, 1058 Perl_pp_bit_xor, /* implemented by Perl_pp_bit_or */ 1059 Perl_pp_bit_or, 1060 Perl_pp_nbit_and, 1061 Perl_pp_nbit_xor, /* implemented by Perl_pp_nbit_or */ 1062 Perl_pp_nbit_or, 1063 Perl_pp_sbit_and, 1064 Perl_pp_sbit_xor, /* implemented by Perl_pp_sbit_or */ 1065 Perl_pp_sbit_or, 1066 Perl_pp_negate, 1067 Perl_pp_i_negate, 1068 Perl_pp_not, 1069 Perl_pp_complement, 1070 Perl_pp_ncomplement, 1071 Perl_pp_scomplement, 1072 Perl_pp_smartmatch, 1073 Perl_pp_atan2, 1074 Perl_pp_sin, 1075 Perl_pp_cos, /* implemented by Perl_pp_sin */ 1076 Perl_pp_rand, 1077 Perl_pp_srand, 1078 Perl_pp_exp, /* implemented by Perl_pp_sin */ 1079 Perl_pp_log, /* implemented by Perl_pp_sin */ 1080 Perl_pp_sqrt, /* implemented by Perl_pp_sin */ 1081 Perl_pp_int, 1082 Perl_pp_hex, /* implemented by Perl_pp_oct */ 1083 Perl_pp_oct, 1084 Perl_pp_abs, 1085 Perl_pp_length, 1086 Perl_pp_substr, 1087 Perl_pp_vec, 1088 Perl_pp_index, 1089 Perl_pp_rindex, /* implemented by Perl_pp_index */ 1090 Perl_pp_sprintf, 1091 Perl_pp_formline, 1092 Perl_pp_ord, 1093 Perl_pp_chr, 1094 Perl_pp_crypt, 1095 Perl_pp_ucfirst, 1096 Perl_pp_lcfirst, /* implemented by Perl_pp_ucfirst */ 1097 Perl_pp_uc, 1098 Perl_pp_lc, 1099 Perl_pp_quotemeta, 1100 Perl_pp_rv2av, 1101 Perl_pp_aelemfast, 1102 Perl_pp_aelemfast_lex, /* implemented by Perl_pp_aelemfast */ 1103 Perl_pp_aelem, 1104 Perl_pp_aslice, 1105 Perl_pp_kvaslice, 1106 Perl_pp_aeach, 1107 Perl_pp_akeys, 1108 Perl_pp_avalues, /* implemented by Perl_pp_akeys */ 1109 Perl_pp_each, 1110 Perl_pp_values, /* implemented by Perl_do_kv */ 1111 Perl_pp_keys, /* implemented by Perl_do_kv */ 1112 Perl_pp_delete, 1113 Perl_pp_exists, 1114 Perl_pp_rv2hv, /* implemented by Perl_pp_rv2av */ 1115 Perl_pp_helem, 1116 Perl_pp_hslice, 1117 Perl_pp_kvhslice, 1118 Perl_pp_multideref, 1119 Perl_pp_unpack, 1120 Perl_pp_pack, 1121 Perl_pp_split, 1122 Perl_pp_join, 1123 Perl_pp_list, 1124 Perl_pp_lslice, 1125 Perl_pp_anonlist, 1126 Perl_pp_anonhash, 1127 Perl_pp_splice, 1128 Perl_pp_push, 1129 Perl_pp_pop, /* implemented by Perl_pp_shift */ 1130 Perl_pp_shift, 1131 Perl_pp_unshift, 1132 Perl_pp_sort, 1133 Perl_pp_reverse, 1134 Perl_pp_grepstart, 1135 Perl_pp_grepwhile, 1136 Perl_pp_mapstart, /* implemented by Perl_pp_grepstart */ 1137 Perl_pp_mapwhile, 1138 Perl_pp_range, 1139 Perl_pp_flip, 1140 Perl_pp_flop, 1141 Perl_pp_and, 1142 Perl_pp_or, 1143 Perl_pp_xor, 1144 Perl_pp_dor, /* implemented by Perl_pp_defined */ 1145 Perl_pp_cond_expr, 1146 Perl_pp_andassign, /* implemented by Perl_pp_and */ 1147 Perl_pp_orassign, /* implemented by Perl_pp_or */ 1148 Perl_pp_dorassign, /* implemented by Perl_pp_defined */ 1149 Perl_pp_method, 1150 Perl_pp_entersub, 1151 Perl_pp_leavesub, 1152 Perl_pp_leavesublv, 1153 Perl_pp_caller, 1154 Perl_pp_warn, 1155 Perl_pp_die, 1156 Perl_pp_reset, 1157 Perl_pp_lineseq, /* implemented by Perl_pp_null */ 1158 Perl_pp_nextstate, 1159 Perl_pp_dbstate, 1160 Perl_pp_unstack, 1161 Perl_pp_enter, 1162 Perl_pp_leave, 1163 Perl_pp_scope, /* implemented by Perl_pp_null */ 1164 Perl_pp_enteriter, 1165 Perl_pp_iter, 1166 Perl_pp_enterloop, 1167 Perl_pp_leaveloop, 1168 Perl_pp_return, 1169 Perl_pp_last, 1170 Perl_pp_next, 1171 Perl_pp_redo, 1172 Perl_pp_dump, /* implemented by Perl_pp_goto */ 1173 Perl_pp_goto, 1174 Perl_pp_exit, 1175 Perl_pp_method_named, 1176 Perl_pp_method_super, 1177 Perl_pp_method_redir, 1178 Perl_pp_method_redir_super, 1179 Perl_pp_entergiven, 1180 Perl_pp_leavegiven, 1181 Perl_pp_enterwhen, 1182 Perl_pp_leavewhen, 1183 Perl_pp_break, 1184 Perl_pp_continue, 1185 Perl_pp_open, 1186 Perl_pp_close, 1187 Perl_pp_pipe_op, 1188 Perl_pp_fileno, 1189 Perl_pp_umask, 1190 Perl_pp_binmode, 1191 Perl_pp_tie, 1192 Perl_pp_untie, 1193 Perl_pp_tied, 1194 Perl_pp_dbmopen, 1195 Perl_pp_dbmclose, /* implemented by Perl_pp_untie */ 1196 Perl_pp_sselect, 1197 Perl_pp_select, 1198 Perl_pp_getc, 1199 Perl_pp_read, /* implemented by Perl_pp_sysread */ 1200 Perl_pp_enterwrite, 1201 Perl_pp_leavewrite, 1202 Perl_pp_prtf, 1203 Perl_pp_print, 1204 Perl_pp_say, /* implemented by Perl_pp_print */ 1205 Perl_pp_sysopen, 1206 Perl_pp_sysseek, 1207 Perl_pp_sysread, 1208 Perl_pp_syswrite, 1209 Perl_pp_eof, 1210 Perl_pp_tell, 1211 Perl_pp_seek, /* implemented by Perl_pp_sysseek */ 1212 Perl_pp_truncate, 1213 Perl_pp_fcntl, /* implemented by Perl_pp_ioctl */ 1214 Perl_pp_ioctl, 1215 Perl_pp_flock, 1216 Perl_pp_send, /* implemented by Perl_pp_syswrite */ 1217 Perl_pp_recv, /* implemented by Perl_pp_sysread */ 1218 Perl_pp_socket, 1219 Perl_pp_sockpair, 1220 Perl_pp_bind, 1221 Perl_pp_connect, /* implemented by Perl_pp_bind */ 1222 Perl_pp_listen, 1223 Perl_pp_accept, 1224 Perl_pp_shutdown, 1225 Perl_pp_gsockopt, /* implemented by Perl_pp_ssockopt */ 1226 Perl_pp_ssockopt, 1227 Perl_pp_getsockname, /* implemented by Perl_pp_getpeername */ 1228 Perl_pp_getpeername, 1229 Perl_pp_lstat, /* implemented by Perl_pp_stat */ 1230 Perl_pp_stat, 1231 Perl_pp_ftrread, 1232 Perl_pp_ftrwrite, /* implemented by Perl_pp_ftrread */ 1233 Perl_pp_ftrexec, /* implemented by Perl_pp_ftrread */ 1234 Perl_pp_fteread, /* implemented by Perl_pp_ftrread */ 1235 Perl_pp_ftewrite, /* implemented by Perl_pp_ftrread */ 1236 Perl_pp_fteexec, /* implemented by Perl_pp_ftrread */ 1237 Perl_pp_ftis, 1238 Perl_pp_ftsize, /* implemented by Perl_pp_ftis */ 1239 Perl_pp_ftmtime, /* implemented by Perl_pp_ftis */ 1240 Perl_pp_ftatime, /* implemented by Perl_pp_ftis */ 1241 Perl_pp_ftctime, /* implemented by Perl_pp_ftis */ 1242 Perl_pp_ftrowned, 1243 Perl_pp_fteowned, /* implemented by Perl_pp_ftrowned */ 1244 Perl_pp_ftzero, /* implemented by Perl_pp_ftrowned */ 1245 Perl_pp_ftsock, /* implemented by Perl_pp_ftrowned */ 1246 Perl_pp_ftchr, /* implemented by Perl_pp_ftrowned */ 1247 Perl_pp_ftblk, /* implemented by Perl_pp_ftrowned */ 1248 Perl_pp_ftfile, /* implemented by Perl_pp_ftrowned */ 1249 Perl_pp_ftdir, /* implemented by Perl_pp_ftrowned */ 1250 Perl_pp_ftpipe, /* implemented by Perl_pp_ftrowned */ 1251 Perl_pp_ftsuid, /* implemented by Perl_pp_ftrowned */ 1252 Perl_pp_ftsgid, /* implemented by Perl_pp_ftrowned */ 1253 Perl_pp_ftsvtx, /* implemented by Perl_pp_ftrowned */ 1254 Perl_pp_ftlink, 1255 Perl_pp_fttty, 1256 Perl_pp_fttext, 1257 Perl_pp_ftbinary, /* implemented by Perl_pp_fttext */ 1258 Perl_pp_chdir, 1259 Perl_pp_chown, 1260 Perl_pp_chroot, 1261 Perl_pp_unlink, /* implemented by Perl_pp_chown */ 1262 Perl_pp_chmod, /* implemented by Perl_pp_chown */ 1263 Perl_pp_utime, /* implemented by Perl_pp_chown */ 1264 Perl_pp_rename, 1265 Perl_pp_link, 1266 Perl_pp_symlink, /* implemented by Perl_pp_link */ 1267 Perl_pp_readlink, 1268 Perl_pp_mkdir, 1269 Perl_pp_rmdir, 1270 Perl_pp_open_dir, 1271 Perl_pp_readdir, 1272 Perl_pp_telldir, 1273 Perl_pp_seekdir, 1274 Perl_pp_rewinddir, 1275 Perl_pp_closedir, 1276 Perl_pp_fork, 1277 Perl_pp_wait, 1278 Perl_pp_waitpid, 1279 Perl_pp_system, 1280 Perl_pp_exec, 1281 Perl_pp_kill, /* implemented by Perl_pp_chown */ 1282 Perl_pp_getppid, 1283 Perl_pp_getpgrp, 1284 Perl_pp_setpgrp, 1285 Perl_pp_getpriority, 1286 Perl_pp_setpriority, 1287 Perl_pp_time, 1288 Perl_pp_tms, 1289 Perl_pp_localtime, /* implemented by Perl_pp_gmtime */ 1290 Perl_pp_gmtime, 1291 Perl_pp_alarm, 1292 Perl_pp_sleep, 1293 Perl_pp_shmget, /* implemented by Perl_pp_semget */ 1294 Perl_pp_shmctl, /* implemented by Perl_pp_semctl */ 1295 Perl_pp_shmread, /* implemented by Perl_pp_shmwrite */ 1296 Perl_pp_shmwrite, 1297 Perl_pp_msgget, /* implemented by Perl_pp_semget */ 1298 Perl_pp_msgctl, /* implemented by Perl_pp_semctl */ 1299 Perl_pp_msgsnd, /* implemented by Perl_pp_shmwrite */ 1300 Perl_pp_msgrcv, /* implemented by Perl_pp_shmwrite */ 1301 Perl_pp_semop, /* implemented by Perl_pp_shmwrite */ 1302 Perl_pp_semget, 1303 Perl_pp_semctl, 1304 Perl_pp_require, 1305 Perl_pp_dofile, /* implemented by Perl_pp_require */ 1306 Perl_pp_hintseval, 1307 Perl_pp_entereval, 1308 Perl_pp_leaveeval, 1309 Perl_pp_entertry, 1310 Perl_pp_leavetry, 1311 Perl_pp_ghbyname, /* implemented by Perl_pp_ghostent */ 1312 Perl_pp_ghbyaddr, /* implemented by Perl_pp_ghostent */ 1313 Perl_pp_ghostent, 1314 Perl_pp_gnbyname, /* implemented by Perl_pp_gnetent */ 1315 Perl_pp_gnbyaddr, /* implemented by Perl_pp_gnetent */ 1316 Perl_pp_gnetent, 1317 Perl_pp_gpbyname, /* implemented by Perl_pp_gprotoent */ 1318 Perl_pp_gpbynumber, /* implemented by Perl_pp_gprotoent */ 1319 Perl_pp_gprotoent, 1320 Perl_pp_gsbyname, /* implemented by Perl_pp_gservent */ 1321 Perl_pp_gsbyport, /* implemented by Perl_pp_gservent */ 1322 Perl_pp_gservent, 1323 Perl_pp_shostent, 1324 Perl_pp_snetent, /* implemented by Perl_pp_shostent */ 1325 Perl_pp_sprotoent, /* implemented by Perl_pp_shostent */ 1326 Perl_pp_sservent, /* implemented by Perl_pp_shostent */ 1327 Perl_pp_ehostent, 1328 Perl_pp_enetent, /* implemented by Perl_pp_ehostent */ 1329 Perl_pp_eprotoent, /* implemented by Perl_pp_ehostent */ 1330 Perl_pp_eservent, /* implemented by Perl_pp_ehostent */ 1331 Perl_pp_gpwnam, /* implemented by Perl_pp_gpwent */ 1332 Perl_pp_gpwuid, /* implemented by Perl_pp_gpwent */ 1333 Perl_pp_gpwent, 1334 Perl_pp_spwent, /* implemented by Perl_pp_ehostent */ 1335 Perl_pp_epwent, /* implemented by Perl_pp_ehostent */ 1336 Perl_pp_ggrnam, /* implemented by Perl_pp_ggrent */ 1337 Perl_pp_ggrgid, /* implemented by Perl_pp_ggrent */ 1338 Perl_pp_ggrent, 1339 Perl_pp_sgrent, /* implemented by Perl_pp_ehostent */ 1340 Perl_pp_egrent, /* implemented by Perl_pp_ehostent */ 1341 Perl_pp_getlogin, 1342 Perl_pp_syscall, 1343 Perl_pp_lock, 1344 Perl_pp_once, 1345 Perl_pp_custom, /* implemented by Perl_unimplemented_op */ 1346 Perl_pp_coreargs, 1347 Perl_pp_runcv, 1348 Perl_pp_fc, 1349 Perl_pp_padcv, 1350 Perl_pp_introcv, 1351 Perl_pp_clonecv, 1352 Perl_pp_padrange, 1353 Perl_pp_refassign, 1354 Perl_pp_lvref, 1355 Perl_pp_lvrefslice, 1356 Perl_pp_lvavref, 1357 Perl_pp_anonconst, 1358 } 1359 #endif 1360 #ifdef PERL_PPADDR_INITED 1361 ; 1362 #endif 1363 1364 #ifdef PERL_GLOBAL_STRUCT_INIT 1365 # define PERL_CHECK_INITED 1366 static const Perl_check_t Gcheck[] 1367 #else 1368 # ifndef PERL_GLOBAL_STRUCT 1369 # define PERL_CHECK_INITED 1370 EXT Perl_check_t PL_check[] /* or perlvars.h */ 1371 # endif 1372 #endif 1373 #if (defined(DOINIT) && !defined(PERL_GLOBAL_STRUCT)) || defined(PERL_GLOBAL_STRUCT_INIT) 1374 # define PERL_CHECK_INITED 1375 = { 1376 Perl_ck_null, /* null */ 1377 Perl_ck_null, /* stub */ 1378 Perl_ck_fun, /* scalar */ 1379 Perl_ck_null, /* pushmark */ 1380 Perl_ck_null, /* wantarray */ 1381 Perl_ck_svconst, /* const */ 1382 Perl_ck_null, /* gvsv */ 1383 Perl_ck_null, /* gv */ 1384 Perl_ck_null, /* gelem */ 1385 Perl_ck_null, /* padsv */ 1386 Perl_ck_null, /* padav */ 1387 Perl_ck_null, /* padhv */ 1388 Perl_ck_null, /* padany */ 1389 Perl_ck_null, /* pushre */ 1390 Perl_ck_rvconst, /* rv2gv */ 1391 Perl_ck_rvconst, /* rv2sv */ 1392 Perl_ck_null, /* av2arylen */ 1393 Perl_ck_rvconst, /* rv2cv */ 1394 Perl_ck_anoncode, /* anoncode */ 1395 Perl_ck_prototype, /* prototype */ 1396 Perl_ck_spair, /* refgen */ 1397 Perl_ck_null, /* srefgen */ 1398 Perl_ck_fun, /* ref */ 1399 Perl_ck_fun, /* bless */ 1400 Perl_ck_backtick, /* backtick */ 1401 Perl_ck_glob, /* glob */ 1402 Perl_ck_readline, /* readline */ 1403 Perl_ck_null, /* rcatline */ 1404 Perl_ck_fun, /* regcmaybe */ 1405 Perl_ck_fun, /* regcreset */ 1406 Perl_ck_null, /* regcomp */ 1407 Perl_ck_match, /* match */ 1408 Perl_ck_match, /* qr */ 1409 Perl_ck_match, /* subst */ 1410 Perl_ck_null, /* substcont */ 1411 Perl_ck_match, /* trans */ 1412 Perl_ck_match, /* transr */ 1413 Perl_ck_sassign, /* sassign */ 1414 Perl_ck_null, /* aassign */ 1415 Perl_ck_spair, /* chop */ 1416 Perl_ck_null, /* schop */ 1417 Perl_ck_spair, /* chomp */ 1418 Perl_ck_null, /* schomp */ 1419 Perl_ck_defined, /* defined */ 1420 Perl_ck_fun, /* undef */ 1421 Perl_ck_fun, /* study */ 1422 Perl_ck_fun, /* pos */ 1423 Perl_ck_lfun, /* preinc */ 1424 Perl_ck_lfun, /* i_preinc */ 1425 Perl_ck_lfun, /* predec */ 1426 Perl_ck_lfun, /* i_predec */ 1427 Perl_ck_lfun, /* postinc */ 1428 Perl_ck_lfun, /* i_postinc */ 1429 Perl_ck_lfun, /* postdec */ 1430 Perl_ck_lfun, /* i_postdec */ 1431 Perl_ck_null, /* pow */ 1432 Perl_ck_null, /* multiply */ 1433 Perl_ck_null, /* i_multiply */ 1434 Perl_ck_null, /* divide */ 1435 Perl_ck_null, /* i_divide */ 1436 Perl_ck_null, /* modulo */ 1437 Perl_ck_null, /* i_modulo */ 1438 Perl_ck_repeat, /* repeat */ 1439 Perl_ck_null, /* add */ 1440 Perl_ck_null, /* i_add */ 1441 Perl_ck_null, /* subtract */ 1442 Perl_ck_null, /* i_subtract */ 1443 Perl_ck_concat, /* concat */ 1444 Perl_ck_stringify, /* stringify */ 1445 Perl_ck_bitop, /* left_shift */ 1446 Perl_ck_bitop, /* right_shift */ 1447 Perl_ck_cmp, /* lt */ 1448 Perl_ck_cmp, /* i_lt */ 1449 Perl_ck_cmp, /* gt */ 1450 Perl_ck_cmp, /* i_gt */ 1451 Perl_ck_cmp, /* le */ 1452 Perl_ck_cmp, /* i_le */ 1453 Perl_ck_cmp, /* ge */ 1454 Perl_ck_cmp, /* i_ge */ 1455 Perl_ck_null, /* eq */ 1456 Perl_ck_null, /* i_eq */ 1457 Perl_ck_null, /* ne */ 1458 Perl_ck_null, /* i_ne */ 1459 Perl_ck_null, /* ncmp */ 1460 Perl_ck_null, /* i_ncmp */ 1461 Perl_ck_null, /* slt */ 1462 Perl_ck_null, /* sgt */ 1463 Perl_ck_null, /* sle */ 1464 Perl_ck_null, /* sge */ 1465 Perl_ck_null, /* seq */ 1466 Perl_ck_null, /* sne */ 1467 Perl_ck_null, /* scmp */ 1468 Perl_ck_bitop, /* bit_and */ 1469 Perl_ck_bitop, /* bit_xor */ 1470 Perl_ck_bitop, /* bit_or */ 1471 Perl_ck_bitop, /* nbit_and */ 1472 Perl_ck_bitop, /* nbit_xor */ 1473 Perl_ck_bitop, /* nbit_or */ 1474 Perl_ck_bitop, /* sbit_and */ 1475 Perl_ck_bitop, /* sbit_xor */ 1476 Perl_ck_bitop, /* sbit_or */ 1477 Perl_ck_null, /* negate */ 1478 Perl_ck_null, /* i_negate */ 1479 Perl_ck_null, /* not */ 1480 Perl_ck_bitop, /* complement */ 1481 Perl_ck_bitop, /* ncomplement */ 1482 Perl_ck_bitop, /* scomplement */ 1483 Perl_ck_smartmatch, /* smartmatch */ 1484 Perl_ck_fun, /* atan2 */ 1485 Perl_ck_fun, /* sin */ 1486 Perl_ck_fun, /* cos */ 1487 Perl_ck_fun, /* rand */ 1488 Perl_ck_fun, /* srand */ 1489 Perl_ck_fun, /* exp */ 1490 Perl_ck_fun, /* log */ 1491 Perl_ck_fun, /* sqrt */ 1492 Perl_ck_fun, /* int */ 1493 Perl_ck_fun, /* hex */ 1494 Perl_ck_fun, /* oct */ 1495 Perl_ck_fun, /* abs */ 1496 Perl_ck_length, /* length */ 1497 Perl_ck_substr, /* substr */ 1498 Perl_ck_fun, /* vec */ 1499 Perl_ck_index, /* index */ 1500 Perl_ck_index, /* rindex */ 1501 Perl_ck_lfun, /* sprintf */ 1502 Perl_ck_fun, /* formline */ 1503 Perl_ck_fun, /* ord */ 1504 Perl_ck_fun, /* chr */ 1505 Perl_ck_fun, /* crypt */ 1506 Perl_ck_fun, /* ucfirst */ 1507 Perl_ck_fun, /* lcfirst */ 1508 Perl_ck_fun, /* uc */ 1509 Perl_ck_fun, /* lc */ 1510 Perl_ck_fun, /* quotemeta */ 1511 Perl_ck_rvconst, /* rv2av */ 1512 Perl_ck_null, /* aelemfast */ 1513 Perl_ck_null, /* aelemfast_lex */ 1514 Perl_ck_null, /* aelem */ 1515 Perl_ck_null, /* aslice */ 1516 Perl_ck_null, /* kvaslice */ 1517 Perl_ck_each, /* aeach */ 1518 Perl_ck_each, /* akeys */ 1519 Perl_ck_each, /* avalues */ 1520 Perl_ck_each, /* each */ 1521 Perl_ck_each, /* values */ 1522 Perl_ck_each, /* keys */ 1523 Perl_ck_delete, /* delete */ 1524 Perl_ck_exists, /* exists */ 1525 Perl_ck_rvconst, /* rv2hv */ 1526 Perl_ck_null, /* helem */ 1527 Perl_ck_null, /* hslice */ 1528 Perl_ck_null, /* kvhslice */ 1529 Perl_ck_null, /* multideref */ 1530 Perl_ck_fun, /* unpack */ 1531 Perl_ck_fun, /* pack */ 1532 Perl_ck_split, /* split */ 1533 Perl_ck_join, /* join */ 1534 Perl_ck_null, /* list */ 1535 Perl_ck_null, /* lslice */ 1536 Perl_ck_fun, /* anonlist */ 1537 Perl_ck_fun, /* anonhash */ 1538 Perl_ck_fun, /* splice */ 1539 Perl_ck_fun, /* push */ 1540 Perl_ck_shift, /* pop */ 1541 Perl_ck_shift, /* shift */ 1542 Perl_ck_fun, /* unshift */ 1543 Perl_ck_sort, /* sort */ 1544 Perl_ck_fun, /* reverse */ 1545 Perl_ck_grep, /* grepstart */ 1546 Perl_ck_null, /* grepwhile */ 1547 Perl_ck_grep, /* mapstart */ 1548 Perl_ck_null, /* mapwhile */ 1549 Perl_ck_null, /* range */ 1550 Perl_ck_null, /* flip */ 1551 Perl_ck_null, /* flop */ 1552 Perl_ck_null, /* and */ 1553 Perl_ck_null, /* or */ 1554 Perl_ck_null, /* xor */ 1555 Perl_ck_null, /* dor */ 1556 Perl_ck_null, /* cond_expr */ 1557 Perl_ck_null, /* andassign */ 1558 Perl_ck_null, /* orassign */ 1559 Perl_ck_null, /* dorassign */ 1560 Perl_ck_method, /* method */ 1561 Perl_ck_subr, /* entersub */ 1562 Perl_ck_null, /* leavesub */ 1563 Perl_ck_null, /* leavesublv */ 1564 Perl_ck_fun, /* caller */ 1565 Perl_ck_fun, /* warn */ 1566 Perl_ck_fun, /* die */ 1567 Perl_ck_fun, /* reset */ 1568 Perl_ck_null, /* lineseq */ 1569 Perl_ck_null, /* nextstate */ 1570 Perl_ck_null, /* dbstate */ 1571 Perl_ck_null, /* unstack */ 1572 Perl_ck_null, /* enter */ 1573 Perl_ck_null, /* leave */ 1574 Perl_ck_null, /* scope */ 1575 Perl_ck_null, /* enteriter */ 1576 Perl_ck_null, /* iter */ 1577 Perl_ck_null, /* enterloop */ 1578 Perl_ck_null, /* leaveloop */ 1579 Perl_ck_return, /* return */ 1580 Perl_ck_null, /* last */ 1581 Perl_ck_null, /* next */ 1582 Perl_ck_null, /* redo */ 1583 Perl_ck_null, /* dump */ 1584 Perl_ck_null, /* goto */ 1585 Perl_ck_fun, /* exit */ 1586 Perl_ck_null, /* method_named */ 1587 Perl_ck_null, /* method_super */ 1588 Perl_ck_null, /* method_redir */ 1589 Perl_ck_null, /* method_redir_super */ 1590 Perl_ck_null, /* entergiven */ 1591 Perl_ck_null, /* leavegiven */ 1592 Perl_ck_null, /* enterwhen */ 1593 Perl_ck_null, /* leavewhen */ 1594 Perl_ck_null, /* break */ 1595 Perl_ck_null, /* continue */ 1596 Perl_ck_open, /* open */ 1597 Perl_ck_fun, /* close */ 1598 Perl_ck_fun, /* pipe_op */ 1599 Perl_ck_fun, /* fileno */ 1600 Perl_ck_fun, /* umask */ 1601 Perl_ck_fun, /* binmode */ 1602 Perl_ck_fun, /* tie */ 1603 Perl_ck_fun, /* untie */ 1604 Perl_ck_fun, /* tied */ 1605 Perl_ck_fun, /* dbmopen */ 1606 Perl_ck_fun, /* dbmclose */ 1607 Perl_ck_select, /* sselect */ 1608 Perl_ck_select, /* select */ 1609 Perl_ck_eof, /* getc */ 1610 Perl_ck_fun, /* read */ 1611 Perl_ck_fun, /* enterwrite */ 1612 Perl_ck_null, /* leavewrite */ 1613 Perl_ck_listiob, /* prtf */ 1614 Perl_ck_listiob, /* print */ 1615 Perl_ck_listiob, /* say */ 1616 Perl_ck_fun, /* sysopen */ 1617 Perl_ck_fun, /* sysseek */ 1618 Perl_ck_fun, /* sysread */ 1619 Perl_ck_fun, /* syswrite */ 1620 Perl_ck_eof, /* eof */ 1621 Perl_ck_tell, /* tell */ 1622 Perl_ck_tell, /* seek */ 1623 Perl_ck_trunc, /* truncate */ 1624 Perl_ck_fun, /* fcntl */ 1625 Perl_ck_fun, /* ioctl */ 1626 Perl_ck_fun, /* flock */ 1627 Perl_ck_fun, /* send */ 1628 Perl_ck_fun, /* recv */ 1629 Perl_ck_fun, /* socket */ 1630 Perl_ck_fun, /* sockpair */ 1631 Perl_ck_fun, /* bind */ 1632 Perl_ck_fun, /* connect */ 1633 Perl_ck_fun, /* listen */ 1634 Perl_ck_fun, /* accept */ 1635 Perl_ck_fun, /* shutdown */ 1636 Perl_ck_fun, /* gsockopt */ 1637 Perl_ck_fun, /* ssockopt */ 1638 Perl_ck_fun, /* getsockname */ 1639 Perl_ck_fun, /* getpeername */ 1640 Perl_ck_ftst, /* lstat */ 1641 Perl_ck_ftst, /* stat */ 1642 Perl_ck_ftst, /* ftrread */ 1643 Perl_ck_ftst, /* ftrwrite */ 1644 Perl_ck_ftst, /* ftrexec */ 1645 Perl_ck_ftst, /* fteread */ 1646 Perl_ck_ftst, /* ftewrite */ 1647 Perl_ck_ftst, /* fteexec */ 1648 Perl_ck_ftst, /* ftis */ 1649 Perl_ck_ftst, /* ftsize */ 1650 Perl_ck_ftst, /* ftmtime */ 1651 Perl_ck_ftst, /* ftatime */ 1652 Perl_ck_ftst, /* ftctime */ 1653 Perl_ck_ftst, /* ftrowned */ 1654 Perl_ck_ftst, /* fteowned */ 1655 Perl_ck_ftst, /* ftzero */ 1656 Perl_ck_ftst, /* ftsock */ 1657 Perl_ck_ftst, /* ftchr */ 1658 Perl_ck_ftst, /* ftblk */ 1659 Perl_ck_ftst, /* ftfile */ 1660 Perl_ck_ftst, /* ftdir */ 1661 Perl_ck_ftst, /* ftpipe */ 1662 Perl_ck_ftst, /* ftsuid */ 1663 Perl_ck_ftst, /* ftsgid */ 1664 Perl_ck_ftst, /* ftsvtx */ 1665 Perl_ck_ftst, /* ftlink */ 1666 Perl_ck_ftst, /* fttty */ 1667 Perl_ck_ftst, /* fttext */ 1668 Perl_ck_ftst, /* ftbinary */ 1669 Perl_ck_trunc, /* chdir */ 1670 Perl_ck_fun, /* chown */ 1671 Perl_ck_fun, /* chroot */ 1672 Perl_ck_fun, /* unlink */ 1673 Perl_ck_fun, /* chmod */ 1674 Perl_ck_fun, /* utime */ 1675 Perl_ck_fun, /* rename */ 1676 Perl_ck_fun, /* link */ 1677 Perl_ck_fun, /* symlink */ 1678 Perl_ck_fun, /* readlink */ 1679 Perl_ck_fun, /* mkdir */ 1680 Perl_ck_fun, /* rmdir */ 1681 Perl_ck_fun, /* open_dir */ 1682 Perl_ck_fun, /* readdir */ 1683 Perl_ck_fun, /* telldir */ 1684 Perl_ck_fun, /* seekdir */ 1685 Perl_ck_fun, /* rewinddir */ 1686 Perl_ck_fun, /* closedir */ 1687 Perl_ck_null, /* fork */ 1688 Perl_ck_null, /* wait */ 1689 Perl_ck_fun, /* waitpid */ 1690 Perl_ck_exec, /* system */ 1691 Perl_ck_exec, /* exec */ 1692 Perl_ck_fun, /* kill */ 1693 Perl_ck_null, /* getppid */ 1694 Perl_ck_fun, /* getpgrp */ 1695 Perl_ck_fun, /* setpgrp */ 1696 Perl_ck_fun, /* getpriority */ 1697 Perl_ck_fun, /* setpriority */ 1698 Perl_ck_null, /* time */ 1699 Perl_ck_null, /* tms */ 1700 Perl_ck_fun, /* localtime */ 1701 Perl_ck_fun, /* gmtime */ 1702 Perl_ck_fun, /* alarm */ 1703 Perl_ck_fun, /* sleep */ 1704 Perl_ck_fun, /* shmget */ 1705 Perl_ck_fun, /* shmctl */ 1706 Perl_ck_fun, /* shmread */ 1707 Perl_ck_fun, /* shmwrite */ 1708 Perl_ck_fun, /* msgget */ 1709 Perl_ck_fun, /* msgctl */ 1710 Perl_ck_fun, /* msgsnd */ 1711 Perl_ck_fun, /* msgrcv */ 1712 Perl_ck_fun, /* semop */ 1713 Perl_ck_fun, /* semget */ 1714 Perl_ck_fun, /* semctl */ 1715 Perl_ck_require, /* require */ 1716 Perl_ck_fun, /* dofile */ 1717 Perl_ck_svconst, /* hintseval */ 1718 Perl_ck_eval, /* entereval */ 1719 Perl_ck_null, /* leaveeval */ 1720 Perl_ck_eval, /* entertry */ 1721 Perl_ck_null, /* leavetry */ 1722 Perl_ck_fun, /* ghbyname */ 1723 Perl_ck_fun, /* ghbyaddr */ 1724 Perl_ck_null, /* ghostent */ 1725 Perl_ck_fun, /* gnbyname */ 1726 Perl_ck_fun, /* gnbyaddr */ 1727 Perl_ck_null, /* gnetent */ 1728 Perl_ck_fun, /* gpbyname */ 1729 Perl_ck_fun, /* gpbynumber */ 1730 Perl_ck_null, /* gprotoent */ 1731 Perl_ck_fun, /* gsbyname */ 1732 Perl_ck_fun, /* gsbyport */ 1733 Perl_ck_null, /* gservent */ 1734 Perl_ck_fun, /* shostent */ 1735 Perl_ck_fun, /* snetent */ 1736 Perl_ck_fun, /* sprotoent */ 1737 Perl_ck_fun, /* sservent */ 1738 Perl_ck_null, /* ehostent */ 1739 Perl_ck_null, /* enetent */ 1740 Perl_ck_null, /* eprotoent */ 1741 Perl_ck_null, /* eservent */ 1742 Perl_ck_fun, /* gpwnam */ 1743 Perl_ck_fun, /* gpwuid */ 1744 Perl_ck_null, /* gpwent */ 1745 Perl_ck_null, /* spwent */ 1746 Perl_ck_null, /* epwent */ 1747 Perl_ck_fun, /* ggrnam */ 1748 Perl_ck_fun, /* ggrgid */ 1749 Perl_ck_null, /* ggrent */ 1750 Perl_ck_null, /* sgrent */ 1751 Perl_ck_null, /* egrent */ 1752 Perl_ck_null, /* getlogin */ 1753 Perl_ck_fun, /* syscall */ 1754 Perl_ck_rfun, /* lock */ 1755 Perl_ck_null, /* once */ 1756 Perl_ck_null, /* custom */ 1757 Perl_ck_null, /* coreargs */ 1758 Perl_ck_null, /* runcv */ 1759 Perl_ck_fun, /* fc */ 1760 Perl_ck_null, /* padcv */ 1761 Perl_ck_null, /* introcv */ 1762 Perl_ck_null, /* clonecv */ 1763 Perl_ck_null, /* padrange */ 1764 Perl_ck_refassign, /* refassign */ 1765 Perl_ck_null, /* lvref */ 1766 Perl_ck_null, /* lvrefslice */ 1767 Perl_ck_null, /* lvavref */ 1768 Perl_ck_null, /* anonconst */ 1769 } 1770 #endif 1771 #ifdef PERL_CHECK_INITED 1772 ; 1773 #endif /* #ifdef PERL_CHECK_INITED */ 1774 1775 #ifndef PERL_GLOBAL_STRUCT_INIT 1776 1777 #ifndef DOINIT 1778 EXTCONST U32 PL_opargs[]; 1779 #else 1780 EXTCONST U32 PL_opargs[] = { 1781 0x00000000, /* null */ 1782 0x00000000, /* stub */ 1783 0x00001b04, /* scalar */ 1784 0x00000004, /* pushmark */ 1785 0x00000004, /* wantarray */ 1786 0x00000604, /* const */ 1787 0x00000644, /* gvsv */ 1788 0x00000644, /* gv */ 1789 0x00011244, /* gelem */ 1790 0x00000044, /* padsv */ 1791 0x00000040, /* padav */ 1792 0x00000040, /* padhv */ 1793 0x00000040, /* padany */ 1794 0x00000540, /* pushre */ 1795 0x00000144, /* rv2gv */ 1796 0x00000144, /* rv2sv */ 1797 0x00000104, /* av2arylen */ 1798 0x00000140, /* rv2cv */ 1799 0x00000604, /* anoncode */ 1800 0x00009b84, /* prototype */ 1801 0x00002101, /* refgen */ 1802 0x00001106, /* srefgen */ 1803 0x00009b8c, /* ref */ 1804 0x00091404, /* bless */ 1805 0x00009b88, /* backtick */ 1806 0x00009408, /* glob */ 1807 0x0000eb08, /* readline */ 1808 0x00000608, /* rcatline */ 1809 0x00001104, /* regcmaybe */ 1810 0x00001104, /* regcreset */ 1811 0x00001304, /* regcomp */ 1812 0x00000500, /* match */ 1813 0x00000504, /* qr */ 1814 0x00001504, /* subst */ 1815 0x00000304, /* substcont */ 1816 0x00001804, /* trans */ 1817 0x00001804, /* transr */ 1818 0x00000004, /* sassign */ 1819 0x00022208, /* aassign */ 1820 0x00002b0d, /* chop */ 1821 0x00009b8c, /* schop */ 1822 0x00002b1d, /* chomp */ 1823 0x00009b9c, /* schomp */ 1824 0x00009b84, /* defined */ 1825 0x0000fb04, /* undef */ 1826 0x00009b84, /* study */ 1827 0x0000fb8c, /* pos */ 1828 0x00001164, /* preinc */ 1829 0x00001144, /* i_preinc */ 1830 0x00001164, /* predec */ 1831 0x00001144, /* i_predec */ 1832 0x0000112c, /* postinc */ 1833 0x0000110c, /* i_postinc */ 1834 0x0000112c, /* postdec */ 1835 0x0000110c, /* i_postdec */ 1836 0x0001121e, /* pow */ 1837 0x0001123e, /* multiply */ 1838 0x0001121e, /* i_multiply */ 1839 0x0001123e, /* divide */ 1840 0x0001121e, /* i_divide */ 1841 0x0001123e, /* modulo */ 1842 0x0001121e, /* i_modulo */ 1843 0x0001220b, /* repeat */ 1844 0x0001123e, /* add */ 1845 0x0001121e, /* i_add */ 1846 0x0001123e, /* subtract */ 1847 0x0001121e, /* i_subtract */ 1848 0x0001121e, /* concat */ 1849 0x0000141e, /* stringify */ 1850 0x0001121e, /* left_shift */ 1851 0x0001121e, /* right_shift */ 1852 0x00011226, /* lt */ 1853 0x00011206, /* i_lt */ 1854 0x00011226, /* gt */ 1855 0x00011206, /* i_gt */ 1856 0x00011226, /* le */ 1857 0x00011206, /* i_le */ 1858 0x00011226, /* ge */ 1859 0x00011206, /* i_ge */ 1860 0x00011226, /* eq */ 1861 0x00011206, /* i_eq */ 1862 0x00011226, /* ne */ 1863 0x00011206, /* i_ne */ 1864 0x0001122e, /* ncmp */ 1865 0x0001120e, /* i_ncmp */ 1866 0x00011206, /* slt */ 1867 0x00011206, /* sgt */ 1868 0x00011206, /* sle */ 1869 0x00011206, /* sge */ 1870 0x00011206, /* seq */ 1871 0x00011206, /* sne */ 1872 0x0001120e, /* scmp */ 1873 0x0001120e, /* bit_and */ 1874 0x0001120e, /* bit_xor */ 1875 0x0001120e, /* bit_or */ 1876 0x0001121e, /* nbit_and */ 1877 0x0001121e, /* nbit_xor */ 1878 0x0001121e, /* nbit_or */ 1879 0x0001120e, /* sbit_and */ 1880 0x0001120e, /* sbit_xor */ 1881 0x0001120e, /* sbit_or */ 1882 0x0000112e, /* negate */ 1883 0x0000110e, /* i_negate */ 1884 0x00001106, /* not */ 1885 0x0000110e, /* complement */ 1886 0x0000111e, /* ncomplement */ 1887 0x0000111e, /* scomplement */ 1888 0x00000204, /* smartmatch */ 1889 0x0001141e, /* atan2 */ 1890 0x00009b9e, /* sin */ 1891 0x00009b9e, /* cos */ 1892 0x00009b1c, /* rand */ 1893 0x00009b1c, /* srand */ 1894 0x00009b9e, /* exp */ 1895 0x00009b9e, /* log */ 1896 0x00009b9e, /* sqrt */ 1897 0x00009b9e, /* int */ 1898 0x00009b9e, /* hex */ 1899 0x00009b9e, /* oct */ 1900 0x00009b9e, /* abs */ 1901 0x00009b9e, /* length */ 1902 0x0991140c, /* substr */ 1903 0x0011140c, /* vec */ 1904 0x0091141c, /* index */ 1905 0x0091141c, /* rindex */ 1906 0x0002140f, /* sprintf */ 1907 0x00021405, /* formline */ 1908 0x00009b9e, /* ord */ 1909 0x00009b9e, /* chr */ 1910 0x0001141e, /* crypt */ 1911 0x00009b8e, /* ucfirst */ 1912 0x00009b8e, /* lcfirst */ 1913 0x00009b8e, /* uc */ 1914 0x00009b8e, /* lc */ 1915 0x00009b8e, /* quotemeta */ 1916 0x00000148, /* rv2av */ 1917 0x00013644, /* aelemfast */ 1918 0x00013040, /* aelemfast_lex */ 1919 0x00013204, /* aelem */ 1920 0x00023401, /* aslice */ 1921 0x00023401, /* kvaslice */ 1922 0x00003b40, /* aeach */ 1923 0x00003b08, /* akeys */ 1924 0x00003b48, /* avalues */ 1925 0x00004b40, /* each */ 1926 0x00004b48, /* values */ 1927 0x00004b08, /* keys */ 1928 0x00001b00, /* delete */ 1929 0x00001b04, /* exists */ 1930 0x00000140, /* rv2hv */ 1931 0x00014204, /* helem */ 1932 0x00024401, /* hslice */ 1933 0x00024401, /* kvhslice */ 1934 0x00000f44, /* multideref */ 1935 0x00091480, /* unpack */ 1936 0x0002140f, /* pack */ 1937 0x00111408, /* split */ 1938 0x0002140f, /* join */ 1939 0x00002401, /* list */ 1940 0x00224200, /* lslice */ 1941 0x00002405, /* anonlist */ 1942 0x00002405, /* anonhash */ 1943 0x02993401, /* splice */ 1944 0x0002341d, /* push */ 1945 0x0000bb04, /* pop */ 1946 0x0000bb04, /* shift */ 1947 0x0002341d, /* unshift */ 1948 0x0002d401, /* sort */ 1949 0x00002409, /* reverse */ 1950 0x00025401, /* grepstart */ 1951 0x00000308, /* grepwhile */ 1952 0x00025401, /* mapstart */ 1953 0x00000308, /* mapwhile */ 1954 0x00011300, /* range */ 1955 0x00011100, /* flip */ 1956 0x00000100, /* flop */ 1957 0x00000300, /* and */ 1958 0x00000300, /* or */ 1959 0x00011206, /* xor */ 1960 0x00000300, /* dor */ 1961 0x00000300, /* cond_expr */ 1962 0x00000304, /* andassign */ 1963 0x00000304, /* orassign */ 1964 0x00000304, /* dorassign */ 1965 0x00000e40, /* method */ 1966 0x00002141, /* entersub */ 1967 0x00000100, /* leavesub */ 1968 0x00000100, /* leavesublv */ 1969 0x00009b08, /* caller */ 1970 0x0000240d, /* warn */ 1971 0x0000240d, /* die */ 1972 0x00009b04, /* reset */ 1973 0x00000400, /* lineseq */ 1974 0x00000a04, /* nextstate */ 1975 0x00000a04, /* dbstate */ 1976 0x00000004, /* unstack */ 1977 0x00000000, /* enter */ 1978 0x00000400, /* leave */ 1979 0x00000400, /* scope */ 1980 0x00000940, /* enteriter */ 1981 0x00000000, /* iter */ 1982 0x00000940, /* enterloop */ 1983 0x00000200, /* leaveloop */ 1984 0x00002401, /* return */ 1985 0x00000d04, /* last */ 1986 0x00000d04, /* next */ 1987 0x00000d04, /* redo */ 1988 0x00000d44, /* dump */ 1989 0x00000d04, /* goto */ 1990 0x00009b04, /* exit */ 1991 0x00000e40, /* method_named */ 1992 0x00000e40, /* method_super */ 1993 0x00000e40, /* method_redir */ 1994 0x00000e40, /* method_redir_super */ 1995 0x00000340, /* entergiven */ 1996 0x00000100, /* leavegiven */ 1997 0x00000340, /* enterwhen */ 1998 0x00000100, /* leavewhen */ 1999 0x00000000, /* break */ 2000 0x00000000, /* continue */ 2001 0x0029640d, /* open */ 2002 0x0000eb04, /* close */ 2003 0x00066404, /* pipe_op */ 2004 0x00006b0c, /* fileno */ 2005 0x00009b0c, /* umask */ 2006 0x00096404, /* binmode */ 2007 0x00217445, /* tie */ 2008 0x00007b04, /* untie */ 2009 0x00007b44, /* tied */ 2010 0x00114404, /* dbmopen */ 2011 0x00004b04, /* dbmclose */ 2012 0x01111408, /* sselect */ 2013 0x0000e40c, /* select */ 2014 0x0000eb0c, /* getc */ 2015 0x0917640d, /* read */ 2016 0x0000eb04, /* enterwrite */ 2017 0x00000100, /* leavewrite */ 2018 0x0002e405, /* prtf */ 2019 0x0002e405, /* print */ 2020 0x0002e405, /* say */ 2021 0x09116404, /* sysopen */ 2022 0x00116404, /* sysseek */ 2023 0x0917640d, /* sysread */ 2024 0x0991640d, /* syswrite */ 2025 0x0000eb04, /* eof */ 2026 0x0000eb0c, /* tell */ 2027 0x00116404, /* seek */ 2028 0x00011404, /* truncate */ 2029 0x0011640c, /* fcntl */ 2030 0x0011640c, /* ioctl */ 2031 0x0001641c, /* flock */ 2032 0x0911640d, /* send */ 2033 0x0117640d, /* recv */ 2034 0x01116404, /* socket */ 2035 0x11166404, /* sockpair */ 2036 0x00016404, /* bind */ 2037 0x00016404, /* connect */ 2038 0x00016404, /* listen */ 2039 0x0006640c, /* accept */ 2040 0x0001640c, /* shutdown */ 2041 0x00116404, /* gsockopt */ 2042 0x01116404, /* ssockopt */ 2043 0x00006b04, /* getsockname */ 2044 0x00006b04, /* getpeername */ 2045 0x0000ec80, /* lstat */ 2046 0x0000ec80, /* stat */ 2047 0x00006c84, /* ftrread */ 2048 0x00006c84, /* ftrwrite */ 2049 0x00006c84, /* ftrexec */ 2050 0x00006c84, /* fteread */ 2051 0x00006c84, /* ftewrite */ 2052 0x00006c84, /* fteexec */ 2053 0x00006c84, /* ftis */ 2054 0x00006c8c, /* ftsize */ 2055 0x00006c8c, /* ftmtime */ 2056 0x00006c8c, /* ftatime */ 2057 0x00006c8c, /* ftctime */ 2058 0x00006c84, /* ftrowned */ 2059 0x00006c84, /* fteowned */ 2060 0x00006c84, /* ftzero */ 2061 0x00006c84, /* ftsock */ 2062 0x00006c84, /* ftchr */ 2063 0x00006c84, /* ftblk */ 2064 0x00006c84, /* ftfile */ 2065 0x00006c84, /* ftdir */ 2066 0x00006c84, /* ftpipe */ 2067 0x00006c84, /* ftsuid */ 2068 0x00006c84, /* ftsgid */ 2069 0x00006c84, /* ftsvtx */ 2070 0x00006c84, /* ftlink */ 2071 0x00006c04, /* fttty */ 2072 0x00006c84, /* fttext */ 2073 0x00006c84, /* ftbinary */ 2074 0x00009b1c, /* chdir */ 2075 0x0000241d, /* chown */ 2076 0x00009b9c, /* chroot */ 2077 0x0000249d, /* unlink */ 2078 0x0000241d, /* chmod */ 2079 0x0000241d, /* utime */ 2080 0x0001141c, /* rename */ 2081 0x0001141c, /* link */ 2082 0x0001141c, /* symlink */ 2083 0x00009b8c, /* readlink */ 2084 0x0009949c, /* mkdir */ 2085 0x00009b9c, /* rmdir */ 2086 0x00016404, /* open_dir */ 2087 0x00006b00, /* readdir */ 2088 0x00006b0c, /* telldir */ 2089 0x00016404, /* seekdir */ 2090 0x00006b04, /* rewinddir */ 2091 0x00006b04, /* closedir */ 2092 0x0000000c, /* fork */ 2093 0x0000001c, /* wait */ 2094 0x0001141c, /* waitpid */ 2095 0x0002941d, /* system */ 2096 0x0002941d, /* exec */ 2097 0x0000241d, /* kill */ 2098 0x0000001c, /* getppid */ 2099 0x00009b1c, /* getpgrp */ 2100 0x0009941c, /* setpgrp */ 2101 0x0001141c, /* getpriority */ 2102 0x0011141c, /* setpriority */ 2103 0x0000001c, /* time */ 2104 0x00000000, /* tms */ 2105 0x00009b08, /* localtime */ 2106 0x00009b08, /* gmtime */ 2107 0x00009b8c, /* alarm */ 2108 0x00009b1c, /* sleep */ 2109 0x0011140d, /* shmget */ 2110 0x0011140d, /* shmctl */ 2111 0x0111140d, /* shmread */ 2112 0x0111140d, /* shmwrite */ 2113 0x0001140d, /* msgget */ 2114 0x0011140d, /* msgctl */ 2115 0x0011140d, /* msgsnd */ 2116 0x1111140d, /* msgrcv */ 2117 0x0001140d, /* semop */ 2118 0x0011140d, /* semget */ 2119 0x0111140d, /* semctl */ 2120 0x00009bc4, /* require */ 2121 0x00001140, /* dofile */ 2122 0x00000604, /* hintseval */ 2123 0x00009bc0, /* entereval */ 2124 0x00001100, /* leaveeval */ 2125 0x00000340, /* entertry */ 2126 0x00000400, /* leavetry */ 2127 0x00001b00, /* ghbyname */ 2128 0x00011400, /* ghbyaddr */ 2129 0x00000000, /* ghostent */ 2130 0x00001b00, /* gnbyname */ 2131 0x00011400, /* gnbyaddr */ 2132 0x00000000, /* gnetent */ 2133 0x00001b00, /* gpbyname */ 2134 0x00001400, /* gpbynumber */ 2135 0x00000000, /* gprotoent */ 2136 0x00011400, /* gsbyname */ 2137 0x00011400, /* gsbyport */ 2138 0x00000000, /* gservent */ 2139 0x00001b04, /* shostent */ 2140 0x00001b04, /* snetent */ 2141 0x00001b04, /* sprotoent */ 2142 0x00001b04, /* sservent */ 2143 0x00000004, /* ehostent */ 2144 0x00000004, /* enetent */ 2145 0x00000004, /* eprotoent */ 2146 0x00000004, /* eservent */ 2147 0x00001b00, /* gpwnam */ 2148 0x00001b00, /* gpwuid */ 2149 0x00000000, /* gpwent */ 2150 0x00000004, /* spwent */ 2151 0x00000004, /* epwent */ 2152 0x00001b00, /* ggrnam */ 2153 0x00001b00, /* ggrgid */ 2154 0x00000000, /* ggrent */ 2155 0x00000004, /* sgrent */ 2156 0x00000004, /* egrent */ 2157 0x0000000c, /* getlogin */ 2158 0x0002140d, /* syscall */ 2159 0x00007b04, /* lock */ 2160 0x00000300, /* once */ 2161 0x00000000, /* custom */ 2162 0x00000600, /* coreargs */ 2163 0x00000004, /* runcv */ 2164 0x00009b8e, /* fc */ 2165 0x00000040, /* padcv */ 2166 0x00000040, /* introcv */ 2167 0x00000040, /* clonecv */ 2168 0x00000040, /* padrange */ 2169 0x00000244, /* refassign */ 2170 0x00000b40, /* lvref */ 2171 0x00000440, /* lvrefslice */ 2172 0x00000b40, /* lvavref */ 2173 0x00000144, /* anonconst */ 2174 }; 2175 #endif 2176 2177 #endif /* !PERL_GLOBAL_STRUCT_INIT */ 2178 2179 END_EXTERN_C 2180 2181 2182 #define OPpLVREF_SV 0x00 2183 #define OPpARG1_MASK 0x01 2184 #define OPpCOREARGS_DEREF1 0x01 2185 #define OPpENTERSUB_INARGS 0x01 2186 #define OPpSORT_NUMERIC 0x01 2187 #define OPpTRANS_FROM_UTF 0x01 2188 #define OPpCONST_NOVER 0x02 2189 #define OPpCOREARGS_DEREF2 0x02 2190 #define OPpEVAL_HAS_HH 0x02 2191 #define OPpFT_ACCESS 0x02 2192 #define OPpHINT_STRICT_REFS 0x02 2193 #define OPpITER_REVERSED 0x02 2194 #define OPpSORT_INTEGER 0x02 2195 #define OPpTRANS_TO_UTF 0x02 2196 #define OPpARG2_MASK 0x03 2197 #define OPpCONST_SHORTCIRCUIT 0x04 2198 #define OPpDONT_INIT_GV 0x04 2199 #define OPpENTERSUB_HASTARG 0x04 2200 #define OPpEVAL_UNICODE 0x04 2201 #define OPpFT_STACKED 0x04 2202 #define OPpLVREF_ELEM 0x04 2203 #define OPpSLICEWARNING 0x04 2204 #define OPpSORT_REVERSE 0x04 2205 #define OPpTRANS_IDENTICAL 0x04 2206 #define OPpARG3_MASK 0x07 2207 #define OPpPADRANGE_COUNTSHIFT 0x07 2208 #define OPpCONST_STRICT 0x08 2209 #define OPpENTERSUB_AMPER 0x08 2210 #define OPpEVAL_BYTES 0x08 2211 #define OPpFT_STACKING 0x08 2212 #define OPpITER_DEF 0x08 2213 #define OPpLVREF_ITER 0x08 2214 #define OPpMAYBE_LVSUB 0x08 2215 #define OPpREVERSE_INPLACE 0x08 2216 #define OPpSORT_INPLACE 0x08 2217 #define OPpTRANS_SQUASH 0x08 2218 #define OPpARG4_MASK 0x0f 2219 #define OPpASSIGN_COMMON_AGG 0x10 2220 #define OPpCONST_ENTERED 0x10 2221 #define OPpDEREF_AV 0x10 2222 #define OPpEVAL_COPHH 0x10 2223 #define OPpFT_AFTER_t 0x10 2224 #define OPpLVREF_AV 0x10 2225 #define OPpMAYBE_TRUEBOOL 0x10 2226 #define OPpMULTIDEREF_EXISTS 0x10 2227 #define OPpOPEN_IN_RAW 0x10 2228 #define OPpSORT_DESCEND 0x10 2229 #define OPpSUBSTR_REPL_FIRST 0x10 2230 #define OPpTARGET_MY 0x10 2231 #define OPpASSIGN_COMMON_RC1 0x20 2232 #define OPpDEREF_HV 0x20 2233 #define OPpEARLY_CV 0x20 2234 #define OPpEVAL_RE_REPARSING 0x20 2235 #define OPpHUSH_VMSISH 0x20 2236 #define OPpLVREF_HV 0x20 2237 #define OPpMAY_RETURN_CONSTANT 0x20 2238 #define OPpMULTIDEREF_DELETE 0x20 2239 #define OPpOPEN_IN_CRLF 0x20 2240 #define OPpSORT_QSORT 0x20 2241 #define OPpTRANS_COMPLEMENT 0x20 2242 #define OPpTRUEBOOL 0x20 2243 #define OPpDEREF 0x30 2244 #define OPpDEREF_SV 0x30 2245 #define OPpLVREF_CV 0x30 2246 #define OPpLVREF_TYPE 0x30 2247 #define OPpALLOW_FAKE 0x40 2248 #define OPpASSIGN_BACKWARDS 0x40 2249 #define OPpASSIGN_COMMON_SCALAR 0x40 2250 #define OPpCONST_BARE 0x40 2251 #define OPpCOREARGS_SCALARMOD 0x40 2252 #define OPpENTERSUB_DB 0x40 2253 #define OPpEXISTS_SUB 0x40 2254 #define OPpFLIP_LINENUM 0x40 2255 #define OPpLIST_GUESSED 0x40 2256 #define OPpLVAL_DEFER 0x40 2257 #define OPpOPEN_OUT_RAW 0x40 2258 #define OPpOUR_INTRO 0x40 2259 #define OPpPAD_STATE 0x40 2260 #define OPpREFCOUNTED 0x40 2261 #define OPpREPEAT_DOLIST 0x40 2262 #define OPpRUNTIME 0x40 2263 #define OPpSLICE 0x40 2264 #define OPpSORT_STABLE 0x40 2265 #define OPpTRANS_GROWS 0x40 2266 #define OPpPADRANGE_COUNTMASK 0x7f 2267 #define OPpASSIGN_CV_TO_GV 0x80 2268 #define OPpCOREARGS_PUSHMARK 0x80 2269 #define OPpENTERSUB_NOPAREN 0x80 2270 #define OPpLVALUE 0x80 2271 #define OPpLVAL_INTRO 0x80 2272 #define OPpOFFBYONE 0x80 2273 #define OPpOPEN_OUT_CRLF 0x80 2274 #define OPpPV_IS_UTF8 0x80 2275 #define OPpSPLIT_IMPLIM 0x80 2276 #define OPpTRANS_DELETE 0x80 2277 START_EXTERN_C 2278 2279 #ifndef PERL_GLOBAL_STRUCT_INIT 2280 2281 # ifndef DOINIT 2282 2283 /* data about the flags in op_private */ 2284 2285 EXTCONST I16 PL_op_private_bitdef_ix[]; 2286 EXTCONST U16 PL_op_private_bitdefs[]; 2287 EXTCONST char PL_op_private_labels[]; 2288 EXTCONST I16 PL_op_private_bitfields[]; 2289 EXTCONST U8 PL_op_private_valid[]; 2290 2291 # else 2292 2293 2294 /* PL_op_private_labels[]: the short descriptions of private flags. 2295 * All labels are concatenated into a single char array 2296 * (separated by \0's) for compactness. 2297 */ 2298 2299 EXTCONST char PL_op_private_labels[] = { 2300 '$','M','O','D','\0', 2301 '+','1','\0', 2302 '-','\0', 2303 '<','U','T','F','\0', 2304 '>','U','T','F','\0', 2305 'A','M','P','E','R','\0', 2306 'A','V','\0', 2307 'B','A','R','E','\0', 2308 'B','K','W','A','R','D','\0', 2309 'B','O','O','L','\0', 2310 'B','O','O','L','?','\0', 2311 'B','Y','T','E','S','\0', 2312 'C','O','M','P','L','\0', 2313 'C','O','M','_','A','G','G','\0', 2314 'C','O','M','_','R','C','1','\0', 2315 'C','O','M','_','S','C','A','L','A','R','\0', 2316 'C','O','N','S','T','\0', 2317 'C','O','P','H','H','\0', 2318 'C','V','\0', 2319 'C','V','2','G','V','\0', 2320 'D','B','G','\0', 2321 'D','E','F','\0', 2322 'D','E','L','\0', 2323 'D','E','L','E','T','E','\0', 2324 'D','E','R','E','F','1','\0', 2325 'D','E','R','E','F','2','\0', 2326 'D','E','S','C','\0', 2327 'D','O','L','I','S','T','\0', 2328 'D','R','E','F','A','V','\0', 2329 'D','R','E','F','H','V','\0', 2330 'D','R','E','F','S','V','\0', 2331 'E','A','R','L','Y','C','V','\0', 2332 'E','L','E','M','\0', 2333 'E','N','T','E','R','E','D','\0', 2334 'E','X','I','S','T','S','\0', 2335 'F','A','K','E','\0', 2336 'F','T','A','C','C','E','S','S','\0', 2337 'F','T','A','F','T','E','R','t','\0', 2338 'F','T','S','T','A','C','K','E','D','\0', 2339 'F','T','S','T','A','C','K','I','N','G','\0', 2340 'G','R','O','W','S','\0', 2341 'G','U','E','S','S','E','D','\0', 2342 'H','A','S','_','H','H','\0', 2343 'H','U','S','H','\0', 2344 'H','V','\0', 2345 'I','D','E','N','T','\0', 2346 'I','M','P','L','I','M','\0', 2347 'I','N','A','R','G','S','\0', 2348 'I','N','B','I','N','\0', 2349 'I','N','C','R','\0', 2350 'I','N','P','L','A','C','E','\0', 2351 'I','N','T','\0', 2352 'I','T','E','R','\0', 2353 'L','I','N','E','N','U','M','\0', 2354 'L','V','\0', 2355 'L','V','D','E','F','E','R','\0', 2356 'L','V','I','N','T','R','O','\0', 2357 'L','V','S','U','B','\0', 2358 'M','A','R','K','\0', 2359 'N','O','(',')','\0', 2360 'N','O','I','N','I','T','\0', 2361 'N','O','V','E','R','\0', 2362 'N','U','M','\0', 2363 'O','U','R','I','N','T','R','\0', 2364 'O','U','T','B','I','N','\0', 2365 'O','U','T','C','R','\0', 2366 'Q','S','O','R','T','\0', 2367 'R','E','F','C','\0', 2368 'R','E','P','A','R','S','E','\0', 2369 'R','E','P','L','1','S','T','\0', 2370 'R','E','V','\0', 2371 'R','E','V','E','R','S','E','D','\0', 2372 'R','T','I','M','E','\0', 2373 'S','H','O','R','T','\0', 2374 'S','L','I','C','E','\0', 2375 'S','L','I','C','E','W','A','R','N','\0', 2376 'S','Q','U','A','S','H','\0', 2377 'S','T','A','B','L','E','\0', 2378 'S','T','A','T','E','\0', 2379 'S','T','R','I','C','T','\0', 2380 'S','U','B','\0', 2381 'S','V','\0', 2382 'T','A','R','G','\0', 2383 'T','A','R','G','M','Y','\0', 2384 'U','N','I','\0', 2385 'U','T','F','\0', 2386 2387 }; 2388 2389 2390 2391 /* PL_op_private_bitfields[]: details about each bit field type. 2392 * Each definition consists of the following list of words: 2393 * bitmin 2394 * label (index into PL_op_private_labels[]; -1 if no label) 2395 * repeat for each enum entry (if any): 2396 * enum value 2397 * enum label (index into PL_op_private_labels[]) 2398 * -1 2399 */ 2400 2401 EXTCONST I16 PL_op_private_bitfields[] = { 2402 0, 8, -1, 2403 0, 8, -1, 2404 0, 8, -1, 2405 0, 8, -1, 2406 0, 8, -1, 2407 0, 8, -1, 2408 4, -1, 1, 157, 2, 164, 3, 171, -1, 2409 4, -1, 0, 507, 1, 26, 2, 276, 3, 103, -1, 2410 2411 }; 2412 2413 2414 /* PL_op_private_bitdef_ix[]: map an op number to a starting position 2415 * in PL_op_private_bitdefs. If -1, the op has no bits defined */ 2416 2417 EXTCONST I16 PL_op_private_bitdef_ix[] = { 2418 -1, /* null */ 2419 -1, /* stub */ 2420 0, /* scalar */ 2421 1, /* pushmark */ 2422 3, /* wantarray */ 2423 4, /* const */ 2424 9, /* gvsv */ 2425 11, /* gv */ 2426 12, /* gelem */ 2427 13, /* padsv */ 2428 16, /* padav */ 2429 20, /* padhv */ 2430 -1, /* padany */ 2431 26, /* pushre */ 2432 27, /* rv2gv */ 2433 34, /* rv2sv */ 2434 39, /* av2arylen */ 2435 41, /* rv2cv */ 2436 -1, /* anoncode */ 2437 0, /* prototype */ 2438 0, /* refgen */ 2439 0, /* srefgen */ 2440 0, /* ref */ 2441 48, /* bless */ 2442 49, /* backtick */ 2443 48, /* glob */ 2444 0, /* readline */ 2445 -1, /* rcatline */ 2446 0, /* regcmaybe */ 2447 0, /* regcreset */ 2448 0, /* regcomp */ 2449 26, /* match */ 2450 26, /* qr */ 2451 26, /* subst */ 2452 54, /* substcont */ 2453 56, /* trans */ 2454 56, /* transr */ 2455 63, /* sassign */ 2456 66, /* aassign */ 2457 0, /* chop */ 2458 0, /* schop */ 2459 71, /* chomp */ 2460 71, /* schomp */ 2461 0, /* defined */ 2462 0, /* undef */ 2463 0, /* study */ 2464 39, /* pos */ 2465 0, /* preinc */ 2466 0, /* i_preinc */ 2467 0, /* predec */ 2468 0, /* i_predec */ 2469 0, /* postinc */ 2470 0, /* i_postinc */ 2471 0, /* postdec */ 2472 0, /* i_postdec */ 2473 73, /* pow */ 2474 73, /* multiply */ 2475 73, /* i_multiply */ 2476 73, /* divide */ 2477 73, /* i_divide */ 2478 73, /* modulo */ 2479 73, /* i_modulo */ 2480 75, /* repeat */ 2481 73, /* add */ 2482 73, /* i_add */ 2483 73, /* subtract */ 2484 73, /* i_subtract */ 2485 73, /* concat */ 2486 77, /* stringify */ 2487 73, /* left_shift */ 2488 73, /* right_shift */ 2489 12, /* lt */ 2490 12, /* i_lt */ 2491 12, /* gt */ 2492 12, /* i_gt */ 2493 12, /* le */ 2494 12, /* i_le */ 2495 12, /* ge */ 2496 12, /* i_ge */ 2497 12, /* eq */ 2498 12, /* i_eq */ 2499 12, /* ne */ 2500 12, /* i_ne */ 2501 12, /* ncmp */ 2502 12, /* i_ncmp */ 2503 12, /* slt */ 2504 12, /* sgt */ 2505 12, /* sle */ 2506 12, /* sge */ 2507 12, /* seq */ 2508 12, /* sne */ 2509 12, /* scmp */ 2510 12, /* bit_and */ 2511 12, /* bit_xor */ 2512 12, /* bit_or */ 2513 73, /* nbit_and */ 2514 73, /* nbit_xor */ 2515 73, /* nbit_or */ 2516 12, /* sbit_and */ 2517 12, /* sbit_xor */ 2518 12, /* sbit_or */ 2519 0, /* negate */ 2520 0, /* i_negate */ 2521 0, /* not */ 2522 0, /* complement */ 2523 71, /* ncomplement */ 2524 71, /* scomplement */ 2525 12, /* smartmatch */ 2526 77, /* atan2 */ 2527 71, /* sin */ 2528 71, /* cos */ 2529 77, /* rand */ 2530 77, /* srand */ 2531 71, /* exp */ 2532 71, /* log */ 2533 71, /* sqrt */ 2534 71, /* int */ 2535 71, /* hex */ 2536 71, /* oct */ 2537 71, /* abs */ 2538 71, /* length */ 2539 79, /* substr */ 2540 82, /* vec */ 2541 77, /* index */ 2542 77, /* rindex */ 2543 48, /* sprintf */ 2544 48, /* formline */ 2545 71, /* ord */ 2546 71, /* chr */ 2547 77, /* crypt */ 2548 0, /* ucfirst */ 2549 0, /* lcfirst */ 2550 0, /* uc */ 2551 0, /* lc */ 2552 0, /* quotemeta */ 2553 84, /* rv2av */ 2554 90, /* aelemfast */ 2555 90, /* aelemfast_lex */ 2556 91, /* aelem */ 2557 96, /* aslice */ 2558 99, /* kvaslice */ 2559 0, /* aeach */ 2560 0, /* akeys */ 2561 0, /* avalues */ 2562 0, /* each */ 2563 0, /* values */ 2564 39, /* keys */ 2565 100, /* delete */ 2566 103, /* exists */ 2567 105, /* rv2hv */ 2568 91, /* helem */ 2569 96, /* hslice */ 2570 99, /* kvhslice */ 2571 113, /* multideref */ 2572 48, /* unpack */ 2573 48, /* pack */ 2574 120, /* split */ 2575 48, /* join */ 2576 122, /* list */ 2577 12, /* lslice */ 2578 48, /* anonlist */ 2579 48, /* anonhash */ 2580 48, /* splice */ 2581 77, /* push */ 2582 0, /* pop */ 2583 0, /* shift */ 2584 77, /* unshift */ 2585 124, /* sort */ 2586 131, /* reverse */ 2587 0, /* grepstart */ 2588 0, /* grepwhile */ 2589 0, /* mapstart */ 2590 0, /* mapwhile */ 2591 0, /* range */ 2592 133, /* flip */ 2593 133, /* flop */ 2594 0, /* and */ 2595 0, /* or */ 2596 12, /* xor */ 2597 0, /* dor */ 2598 135, /* cond_expr */ 2599 0, /* andassign */ 2600 0, /* orassign */ 2601 0, /* dorassign */ 2602 0, /* method */ 2603 137, /* entersub */ 2604 144, /* leavesub */ 2605 144, /* leavesublv */ 2606 146, /* caller */ 2607 48, /* warn */ 2608 48, /* die */ 2609 48, /* reset */ 2610 -1, /* lineseq */ 2611 148, /* nextstate */ 2612 148, /* dbstate */ 2613 -1, /* unstack */ 2614 -1, /* enter */ 2615 149, /* leave */ 2616 -1, /* scope */ 2617 151, /* enteriter */ 2618 155, /* iter */ 2619 -1, /* enterloop */ 2620 156, /* leaveloop */ 2621 -1, /* return */ 2622 158, /* last */ 2623 158, /* next */ 2624 158, /* redo */ 2625 158, /* dump */ 2626 158, /* goto */ 2627 48, /* exit */ 2628 0, /* method_named */ 2629 0, /* method_super */ 2630 0, /* method_redir */ 2631 0, /* method_redir_super */ 2632 0, /* entergiven */ 2633 0, /* leavegiven */ 2634 0, /* enterwhen */ 2635 0, /* leavewhen */ 2636 -1, /* break */ 2637 -1, /* continue */ 2638 160, /* open */ 2639 48, /* close */ 2640 48, /* pipe_op */ 2641 48, /* fileno */ 2642 48, /* umask */ 2643 48, /* binmode */ 2644 48, /* tie */ 2645 0, /* untie */ 2646 0, /* tied */ 2647 48, /* dbmopen */ 2648 0, /* dbmclose */ 2649 48, /* sselect */ 2650 48, /* select */ 2651 48, /* getc */ 2652 48, /* read */ 2653 48, /* enterwrite */ 2654 144, /* leavewrite */ 2655 -1, /* prtf */ 2656 -1, /* print */ 2657 -1, /* say */ 2658 48, /* sysopen */ 2659 48, /* sysseek */ 2660 48, /* sysread */ 2661 48, /* syswrite */ 2662 48, /* eof */ 2663 48, /* tell */ 2664 48, /* seek */ 2665 48, /* truncate */ 2666 48, /* fcntl */ 2667 48, /* ioctl */ 2668 77, /* flock */ 2669 48, /* send */ 2670 48, /* recv */ 2671 48, /* socket */ 2672 48, /* sockpair */ 2673 48, /* bind */ 2674 48, /* connect */ 2675 48, /* listen */ 2676 48, /* accept */ 2677 48, /* shutdown */ 2678 48, /* gsockopt */ 2679 48, /* ssockopt */ 2680 0, /* getsockname */ 2681 0, /* getpeername */ 2682 0, /* lstat */ 2683 0, /* stat */ 2684 165, /* ftrread */ 2685 165, /* ftrwrite */ 2686 165, /* ftrexec */ 2687 165, /* fteread */ 2688 165, /* ftewrite */ 2689 165, /* fteexec */ 2690 170, /* ftis */ 2691 170, /* ftsize */ 2692 170, /* ftmtime */ 2693 170, /* ftatime */ 2694 170, /* ftctime */ 2695 170, /* ftrowned */ 2696 170, /* fteowned */ 2697 170, /* ftzero */ 2698 170, /* ftsock */ 2699 170, /* ftchr */ 2700 170, /* ftblk */ 2701 170, /* ftfile */ 2702 170, /* ftdir */ 2703 170, /* ftpipe */ 2704 170, /* ftsuid */ 2705 170, /* ftsgid */ 2706 170, /* ftsvtx */ 2707 170, /* ftlink */ 2708 170, /* fttty */ 2709 170, /* fttext */ 2710 170, /* ftbinary */ 2711 77, /* chdir */ 2712 77, /* chown */ 2713 71, /* chroot */ 2714 77, /* unlink */ 2715 77, /* chmod */ 2716 77, /* utime */ 2717 77, /* rename */ 2718 77, /* link */ 2719 77, /* symlink */ 2720 0, /* readlink */ 2721 77, /* mkdir */ 2722 71, /* rmdir */ 2723 48, /* open_dir */ 2724 0, /* readdir */ 2725 0, /* telldir */ 2726 48, /* seekdir */ 2727 0, /* rewinddir */ 2728 0, /* closedir */ 2729 -1, /* fork */ 2730 174, /* wait */ 2731 77, /* waitpid */ 2732 77, /* system */ 2733 77, /* exec */ 2734 77, /* kill */ 2735 174, /* getppid */ 2736 77, /* getpgrp */ 2737 77, /* setpgrp */ 2738 77, /* getpriority */ 2739 77, /* setpriority */ 2740 174, /* time */ 2741 -1, /* tms */ 2742 0, /* localtime */ 2743 48, /* gmtime */ 2744 0, /* alarm */ 2745 77, /* sleep */ 2746 48, /* shmget */ 2747 48, /* shmctl */ 2748 48, /* shmread */ 2749 48, /* shmwrite */ 2750 48, /* msgget */ 2751 48, /* msgctl */ 2752 48, /* msgsnd */ 2753 48, /* msgrcv */ 2754 48, /* semop */ 2755 48, /* semget */ 2756 48, /* semctl */ 2757 0, /* require */ 2758 0, /* dofile */ 2759 -1, /* hintseval */ 2760 175, /* entereval */ 2761 144, /* leaveeval */ 2762 0, /* entertry */ 2763 -1, /* leavetry */ 2764 0, /* ghbyname */ 2765 48, /* ghbyaddr */ 2766 -1, /* ghostent */ 2767 0, /* gnbyname */ 2768 48, /* gnbyaddr */ 2769 -1, /* gnetent */ 2770 0, /* gpbyname */ 2771 48, /* gpbynumber */ 2772 -1, /* gprotoent */ 2773 48, /* gsbyname */ 2774 48, /* gsbyport */ 2775 -1, /* gservent */ 2776 0, /* shostent */ 2777 0, /* snetent */ 2778 0, /* sprotoent */ 2779 0, /* sservent */ 2780 -1, /* ehostent */ 2781 -1, /* enetent */ 2782 -1, /* eprotoent */ 2783 -1, /* eservent */ 2784 0, /* gpwnam */ 2785 0, /* gpwuid */ 2786 -1, /* gpwent */ 2787 -1, /* spwent */ 2788 -1, /* epwent */ 2789 0, /* ggrnam */ 2790 0, /* ggrgid */ 2791 -1, /* ggrent */ 2792 -1, /* sgrent */ 2793 -1, /* egrent */ 2794 -1, /* getlogin */ 2795 48, /* syscall */ 2796 0, /* lock */ 2797 0, /* once */ 2798 -1, /* custom */ 2799 181, /* coreargs */ 2800 3, /* runcv */ 2801 0, /* fc */ 2802 -1, /* padcv */ 2803 -1, /* introcv */ 2804 -1, /* clonecv */ 2805 185, /* padrange */ 2806 187, /* refassign */ 2807 193, /* lvref */ 2808 199, /* lvrefslice */ 2809 200, /* lvavref */ 2810 0, /* anonconst */ 2811 2812 }; 2813 2814 2815 2816 /* PL_op_private_bitdefs[]: given a starting position in this array (as 2817 * supplied by PL_op_private_bitdef_ix[]), each word (until a stop bit is 2818 * seen) defines the meaning of a particular op_private bit for a 2819 * particular op. Each word consists of: 2820 * bit 0: stop bit: this is the last bit def for the current op 2821 * bit 1: bitfield: if set, this defines a bit field rather than a flag 2822 * bits 2..4: unsigned number in the range 0..7 which is the bit number 2823 * bits 5..15: unsigned number in the range 0..2047 which is an index 2824 * into PL_op_private_labels[] (for a flag), or 2825 * into PL_op_private_bitfields[] (for a bit field) 2826 */ 2827 2828 EXTCONST U16 PL_op_private_bitdefs[] = { 2829 0x0003, /* scalar, prototype, refgen, srefgen, ref, readline, regcmaybe, regcreset, regcomp, chop, schop, defined, undef, study, preinc, i_preinc, predec, i_predec, postinc, i_postinc, postdec, i_postdec, negate, i_negate, not, complement, ucfirst, lcfirst, uc, lc, quotemeta, aeach, akeys, avalues, each, values, pop, shift, grepstart, grepwhile, mapstart, mapwhile, range, and, or, dor, andassign, orassign, dorassign, method, method_named, method_super, method_redir, method_redir_super, entergiven, leavegiven, enterwhen, leavewhen, untie, tied, dbmclose, getsockname, getpeername, lstat, stat, readlink, readdir, telldir, rewinddir, closedir, localtime, alarm, require, dofile, entertry, ghbyname, gnbyname, gpbyname, shostent, snetent, sprotoent, sservent, gpwnam, gpwuid, ggrnam, ggrgid, lock, once, fc, anonconst */ 2830 0x2b5c, 0x3d59, /* pushmark */ 2831 0x00bd, /* wantarray, runcv */ 2832 0x03b8, 0x17f0, 0x3e0c, 0x38c8, 0x2f25, /* const */ 2833 0x2b5c, 0x3079, /* gvsv */ 2834 0x1655, /* gv */ 2835 0x0067, /* gelem, lt, i_lt, gt, i_gt, le, i_le, ge, i_ge, eq, i_eq, ne, i_ne, ncmp, i_ncmp, slt, sgt, sle, sge, seq, sne, scmp, bit_and, bit_xor, bit_or, sbit_and, sbit_xor, sbit_or, smartmatch, lslice, xor */ 2836 0x2b5c, 0x3d58, 0x0257, /* padsv */ 2837 0x2b5c, 0x3d58, 0x2c4c, 0x3a49, /* padav */ 2838 0x2b5c, 0x3d58, 0x0534, 0x05d0, 0x2c4c, 0x3a49, /* padhv */ 2839 0x3819, /* pushre, match, qr, subst */ 2840 0x2b5c, 0x19d8, 0x0256, 0x2c4c, 0x2e48, 0x3e04, 0x0003, /* rv2gv */ 2841 0x2b5c, 0x3078, 0x0256, 0x3e04, 0x0003, /* rv2sv */ 2842 0x2c4c, 0x0003, /* av2arylen, pos, keys */ 2843 0x2dbc, 0x0e18, 0x0b74, 0x028c, 0x3fc8, 0x3e04, 0x0003, /* rv2cv */ 2844 0x012f, /* bless, glob, sprintf, formline, unpack, pack, join, anonlist, anonhash, splice, warn, die, reset, exit, close, pipe_op, fileno, umask, binmode, tie, dbmopen, sselect, select, getc, read, enterwrite, sysopen, sysseek, sysread, syswrite, eof, tell, seek, truncate, fcntl, ioctl, send, recv, socket, sockpair, bind, connect, listen, accept, shutdown, gsockopt, ssockopt, open_dir, seekdir, gmtime, shmget, shmctl, shmread, shmwrite, msgget, msgctl, msgsnd, msgrcv, semop, semget, semctl, ghbyaddr, gnbyaddr, gpbynumber, gsbyname, gsbyport, syscall */ 2845 0x325c, 0x3178, 0x2634, 0x2570, 0x0003, /* backtick */ 2846 0x3818, 0x0003, /* substcont */ 2847 0x0f1c, 0x1f58, 0x0754, 0x3b8c, 0x22e8, 0x01e4, 0x0141, /* trans, transr */ 2848 0x0d5c, 0x0458, 0x0067, /* sassign */ 2849 0x0a18, 0x0914, 0x0810, 0x2c4c, 0x0067, /* aassign */ 2850 0x4070, 0x0003, /* chomp, schomp, ncomplement, scomplement, sin, cos, exp, log, sqrt, int, hex, oct, abs, length, ord, chr, chroot, rmdir */ 2851 0x4070, 0x0067, /* pow, multiply, i_multiply, divide, i_divide, modulo, i_modulo, add, i_add, subtract, i_subtract, concat, left_shift, right_shift, nbit_and, nbit_xor, nbit_or */ 2852 0x12d8, 0x0067, /* repeat */ 2853 0x4070, 0x012f, /* stringify, atan2, rand, srand, index, rindex, crypt, push, unshift, flock, chdir, chown, unlink, chmod, utime, rename, link, symlink, mkdir, waitpid, system, exec, kill, getpgrp, setpgrp, getpriority, setpriority, sleep */ 2854 0x3570, 0x2c4c, 0x00cb, /* substr */ 2855 0x2c4c, 0x0067, /* vec */ 2856 0x2b5c, 0x3078, 0x2c4c, 0x3a48, 0x3e04, 0x0003, /* rv2av */ 2857 0x01ff, /* aelemfast, aelemfast_lex */ 2858 0x2b5c, 0x2a58, 0x0256, 0x2c4c, 0x0067, /* aelem, helem */ 2859 0x2b5c, 0x2c4c, 0x3a49, /* aslice, hslice */ 2860 0x2c4d, /* kvaslice, kvhslice */ 2861 0x2b5c, 0x3998, 0x0003, /* delete */ 2862 0x3ef8, 0x0003, /* exists */ 2863 0x2b5c, 0x3078, 0x0534, 0x05d0, 0x2c4c, 0x3a48, 0x3e04, 0x0003, /* rv2hv */ 2864 0x2b5c, 0x2a58, 0x0f94, 0x18f0, 0x2c4c, 0x3e04, 0x0003, /* multideref */ 2865 0x23bc, 0x3079, /* split */ 2866 0x2b5c, 0x2019, /* list */ 2867 0x3c78, 0x3314, 0x1230, 0x26cc, 0x3668, 0x27c4, 0x2fe1, /* sort */ 2868 0x26cc, 0x0003, /* reverse */ 2869 0x28f8, 0x0003, /* flip, flop */ 2870 0x2b5c, 0x0003, /* cond_expr */ 2871 0x2b5c, 0x0e18, 0x0256, 0x028c, 0x3fc8, 0x3e04, 0x2481, /* entersub */ 2872 0x33d8, 0x0003, /* leavesub, leavesublv, leavewrite, leaveeval */ 2873 0x00bc, 0x012f, /* caller */ 2874 0x21f5, /* nextstate, dbstate */ 2875 0x29fc, 0x33d9, /* leave */ 2876 0x2b5c, 0x3078, 0x0e8c, 0x36e5, /* enteriter */ 2877 0x36e5, /* iter */ 2878 0x29fc, 0x0067, /* leaveloop */ 2879 0x41dc, 0x0003, /* last, next, redo, dump, goto */ 2880 0x325c, 0x3178, 0x2634, 0x2570, 0x012f, /* open */ 2881 0x1b90, 0x1dec, 0x1ca8, 0x1a64, 0x0003, /* ftrread, ftrwrite, ftrexec, fteread, ftewrite, fteexec */ 2882 0x1b90, 0x1dec, 0x1ca8, 0x0003, /* ftis, ftsize, ftmtime, ftatime, ftctime, ftrowned, fteowned, ftzero, ftsock, ftchr, ftblk, ftfile, ftdir, ftpipe, ftsuid, ftsgid, ftsvtx, ftlink, fttty, fttext, ftbinary */ 2883 0x4071, /* wait, getppid, time */ 2884 0x3474, 0x0c30, 0x068c, 0x4148, 0x2104, 0x0003, /* entereval */ 2885 0x2d1c, 0x0018, 0x1144, 0x1061, /* coreargs */ 2886 0x2b5c, 0x019b, /* padrange */ 2887 0x2b5c, 0x3d58, 0x0376, 0x284c, 0x1748, 0x0067, /* refassign */ 2888 0x2b5c, 0x3d58, 0x0376, 0x284c, 0x1748, 0x0003, /* lvref */ 2889 0x2b5d, /* lvrefslice */ 2890 0x2b5c, 0x3d58, 0x0003, /* lvavref */ 2891 2892 }; 2893 2894 2895 /* PL_op_private_valid: for each op, indexed by op_type, indicate which 2896 * flags bits in op_private are legal */ 2897 2898 EXTCONST U8 PL_op_private_valid[] = { 2899 /* NULL */ (0xff), 2900 /* STUB */ (0), 2901 /* SCALAR */ (OPpARG1_MASK), 2902 /* PUSHMARK */ (OPpPAD_STATE|OPpLVAL_INTRO), 2903 /* WANTARRAY */ (OPpOFFBYONE), 2904 /* CONST */ (OPpCONST_NOVER|OPpCONST_SHORTCIRCUIT|OPpCONST_STRICT|OPpCONST_ENTERED|OPpCONST_BARE), 2905 /* GVSV */ (OPpOUR_INTRO|OPpLVAL_INTRO), 2906 /* GV */ (OPpEARLY_CV), 2907 /* GELEM */ (OPpARG2_MASK), 2908 /* PADSV */ (OPpDEREF|OPpPAD_STATE|OPpLVAL_INTRO), 2909 /* PADAV */ (OPpSLICEWARNING|OPpMAYBE_LVSUB|OPpPAD_STATE|OPpLVAL_INTRO), 2910 /* PADHV */ (OPpSLICEWARNING|OPpMAYBE_LVSUB|OPpMAYBE_TRUEBOOL|OPpTRUEBOOL|OPpPAD_STATE|OPpLVAL_INTRO), 2911 /* PADANY */ (0), 2912 /* PUSHRE */ (OPpRUNTIME), 2913 /* RV2GV */ (OPpARG1_MASK|OPpHINT_STRICT_REFS|OPpDONT_INIT_GV|OPpMAYBE_LVSUB|OPpDEREF|OPpALLOW_FAKE|OPpLVAL_INTRO), 2914 /* RV2SV */ (OPpARG1_MASK|OPpHINT_STRICT_REFS|OPpDEREF|OPpOUR_INTRO|OPpLVAL_INTRO), 2915 /* AV2ARYLEN */ (OPpARG1_MASK|OPpMAYBE_LVSUB), 2916 /* RV2CV */ (OPpARG1_MASK|OPpHINT_STRICT_REFS|OPpENTERSUB_HASTARG|OPpENTERSUB_AMPER|OPpMAY_RETURN_CONSTANT|OPpENTERSUB_DB|OPpENTERSUB_NOPAREN), 2917 /* ANONCODE */ (0), 2918 /* PROTOTYPE */ (OPpARG1_MASK), 2919 /* REFGEN */ (OPpARG1_MASK), 2920 /* SREFGEN */ (OPpARG1_MASK), 2921 /* REF */ (OPpARG1_MASK), 2922 /* BLESS */ (OPpARG4_MASK), 2923 /* BACKTICK */ (OPpARG1_MASK|OPpOPEN_IN_RAW|OPpOPEN_IN_CRLF|OPpOPEN_OUT_RAW|OPpOPEN_OUT_CRLF), 2924 /* GLOB */ (OPpARG4_MASK), 2925 /* READLINE */ (OPpARG1_MASK), 2926 /* RCATLINE */ (0), 2927 /* REGCMAYBE */ (OPpARG1_MASK), 2928 /* REGCRESET */ (OPpARG1_MASK), 2929 /* REGCOMP */ (OPpARG1_MASK), 2930 /* MATCH */ (OPpRUNTIME), 2931 /* QR */ (OPpRUNTIME), 2932 /* SUBST */ (OPpRUNTIME), 2933 /* SUBSTCONT */ (OPpARG1_MASK|OPpRUNTIME), 2934 /* TRANS */ (OPpTRANS_FROM_UTF|OPpTRANS_TO_UTF|OPpTRANS_IDENTICAL|OPpTRANS_SQUASH|OPpTRANS_COMPLEMENT|OPpTRANS_GROWS|OPpTRANS_DELETE), 2935 /* TRANSR */ (OPpTRANS_FROM_UTF|OPpTRANS_TO_UTF|OPpTRANS_IDENTICAL|OPpTRANS_SQUASH|OPpTRANS_COMPLEMENT|OPpTRANS_GROWS|OPpTRANS_DELETE), 2936 /* SASSIGN */ (OPpARG2_MASK|OPpASSIGN_BACKWARDS|OPpASSIGN_CV_TO_GV), 2937 /* AASSIGN */ (OPpARG2_MASK|OPpMAYBE_LVSUB|OPpASSIGN_COMMON_AGG|OPpASSIGN_COMMON_RC1|OPpASSIGN_COMMON_SCALAR), 2938 /* CHOP */ (OPpARG1_MASK), 2939 /* SCHOP */ (OPpARG1_MASK), 2940 /* CHOMP */ (OPpARG1_MASK|OPpTARGET_MY), 2941 /* SCHOMP */ (OPpARG1_MASK|OPpTARGET_MY), 2942 /* DEFINED */ (OPpARG1_MASK), 2943 /* UNDEF */ (OPpARG1_MASK), 2944 /* STUDY */ (OPpARG1_MASK), 2945 /* POS */ (OPpARG1_MASK|OPpMAYBE_LVSUB), 2946 /* PREINC */ (OPpARG1_MASK), 2947 /* I_PREINC */ (OPpARG1_MASK), 2948 /* PREDEC */ (OPpARG1_MASK), 2949 /* I_PREDEC */ (OPpARG1_MASK), 2950 /* POSTINC */ (OPpARG1_MASK), 2951 /* I_POSTINC */ (OPpARG1_MASK), 2952 /* POSTDEC */ (OPpARG1_MASK), 2953 /* I_POSTDEC */ (OPpARG1_MASK), 2954 /* POW */ (OPpARG2_MASK|OPpTARGET_MY), 2955 /* MULTIPLY */ (OPpARG2_MASK|OPpTARGET_MY), 2956 /* I_MULTIPLY */ (OPpARG2_MASK|OPpTARGET_MY), 2957 /* DIVIDE */ (OPpARG2_MASK|OPpTARGET_MY), 2958 /* I_DIVIDE */ (OPpARG2_MASK|OPpTARGET_MY), 2959 /* MODULO */ (OPpARG2_MASK|OPpTARGET_MY), 2960 /* I_MODULO */ (OPpARG2_MASK|OPpTARGET_MY), 2961 /* REPEAT */ (OPpARG2_MASK|OPpREPEAT_DOLIST), 2962 /* ADD */ (OPpARG2_MASK|OPpTARGET_MY), 2963 /* I_ADD */ (OPpARG2_MASK|OPpTARGET_MY), 2964 /* SUBTRACT */ (OPpARG2_MASK|OPpTARGET_MY), 2965 /* I_SUBTRACT */ (OPpARG2_MASK|OPpTARGET_MY), 2966 /* CONCAT */ (OPpARG2_MASK|OPpTARGET_MY), 2967 /* STRINGIFY */ (OPpARG4_MASK|OPpTARGET_MY), 2968 /* LEFT_SHIFT */ (OPpARG2_MASK|OPpTARGET_MY), 2969 /* RIGHT_SHIFT */ (OPpARG2_MASK|OPpTARGET_MY), 2970 /* LT */ (OPpARG2_MASK), 2971 /* I_LT */ (OPpARG2_MASK), 2972 /* GT */ (OPpARG2_MASK), 2973 /* I_GT */ (OPpARG2_MASK), 2974 /* LE */ (OPpARG2_MASK), 2975 /* I_LE */ (OPpARG2_MASK), 2976 /* GE */ (OPpARG2_MASK), 2977 /* I_GE */ (OPpARG2_MASK), 2978 /* EQ */ (OPpARG2_MASK), 2979 /* I_EQ */ (OPpARG2_MASK), 2980 /* NE */ (OPpARG2_MASK), 2981 /* I_NE */ (OPpARG2_MASK), 2982 /* NCMP */ (OPpARG2_MASK), 2983 /* I_NCMP */ (OPpARG2_MASK), 2984 /* SLT */ (OPpARG2_MASK), 2985 /* SGT */ (OPpARG2_MASK), 2986 /* SLE */ (OPpARG2_MASK), 2987 /* SGE */ (OPpARG2_MASK), 2988 /* SEQ */ (OPpARG2_MASK), 2989 /* SNE */ (OPpARG2_MASK), 2990 /* SCMP */ (OPpARG2_MASK), 2991 /* BIT_AND */ (OPpARG2_MASK), 2992 /* BIT_XOR */ (OPpARG2_MASK), 2993 /* BIT_OR */ (OPpARG2_MASK), 2994 /* NBIT_AND */ (OPpARG2_MASK|OPpTARGET_MY), 2995 /* NBIT_XOR */ (OPpARG2_MASK|OPpTARGET_MY), 2996 /* NBIT_OR */ (OPpARG2_MASK|OPpTARGET_MY), 2997 /* SBIT_AND */ (OPpARG2_MASK), 2998 /* SBIT_XOR */ (OPpARG2_MASK), 2999 /* SBIT_OR */ (OPpARG2_MASK), 3000 /* NEGATE */ (OPpARG1_MASK), 3001 /* I_NEGATE */ (OPpARG1_MASK), 3002 /* NOT */ (OPpARG1_MASK), 3003 /* COMPLEMENT */ (OPpARG1_MASK), 3004 /* NCOMPLEMENT */ (OPpARG1_MASK|OPpTARGET_MY), 3005 /* SCOMPLEMENT */ (OPpARG1_MASK|OPpTARGET_MY), 3006 /* SMARTMATCH */ (OPpARG2_MASK), 3007 /* ATAN2 */ (OPpARG4_MASK|OPpTARGET_MY), 3008 /* SIN */ (OPpARG1_MASK|OPpTARGET_MY), 3009 /* COS */ (OPpARG1_MASK|OPpTARGET_MY), 3010 /* RAND */ (OPpARG4_MASK|OPpTARGET_MY), 3011 /* SRAND */ (OPpARG4_MASK|OPpTARGET_MY), 3012 /* EXP */ (OPpARG1_MASK|OPpTARGET_MY), 3013 /* LOG */ (OPpARG1_MASK|OPpTARGET_MY), 3014 /* SQRT */ (OPpARG1_MASK|OPpTARGET_MY), 3015 /* INT */ (OPpARG1_MASK|OPpTARGET_MY), 3016 /* HEX */ (OPpARG1_MASK|OPpTARGET_MY), 3017 /* OCT */ (OPpARG1_MASK|OPpTARGET_MY), 3018 /* ABS */ (OPpARG1_MASK|OPpTARGET_MY), 3019 /* LENGTH */ (OPpARG1_MASK|OPpTARGET_MY), 3020 /* SUBSTR */ (OPpARG3_MASK|OPpMAYBE_LVSUB|OPpSUBSTR_REPL_FIRST), 3021 /* VEC */ (OPpARG2_MASK|OPpMAYBE_LVSUB), 3022 /* INDEX */ (OPpARG4_MASK|OPpTARGET_MY), 3023 /* RINDEX */ (OPpARG4_MASK|OPpTARGET_MY), 3024 /* SPRINTF */ (OPpARG4_MASK), 3025 /* FORMLINE */ (OPpARG4_MASK), 3026 /* ORD */ (OPpARG1_MASK|OPpTARGET_MY), 3027 /* CHR */ (OPpARG1_MASK|OPpTARGET_MY), 3028 /* CRYPT */ (OPpARG4_MASK|OPpTARGET_MY), 3029 /* UCFIRST */ (OPpARG1_MASK), 3030 /* LCFIRST */ (OPpARG1_MASK), 3031 /* UC */ (OPpARG1_MASK), 3032 /* LC */ (OPpARG1_MASK), 3033 /* QUOTEMETA */ (OPpARG1_MASK), 3034 /* RV2AV */ (OPpARG1_MASK|OPpHINT_STRICT_REFS|OPpSLICEWARNING|OPpMAYBE_LVSUB|OPpOUR_INTRO|OPpLVAL_INTRO), 3035 /* AELEMFAST */ (255), 3036 /* AELEMFAST_LEX */ (255), 3037 /* AELEM */ (OPpARG2_MASK|OPpMAYBE_LVSUB|OPpDEREF|OPpLVAL_DEFER|OPpLVAL_INTRO), 3038 /* ASLICE */ (OPpSLICEWARNING|OPpMAYBE_LVSUB|OPpLVAL_INTRO), 3039 /* KVASLICE */ (OPpMAYBE_LVSUB), 3040 /* AEACH */ (OPpARG1_MASK), 3041 /* AKEYS */ (OPpARG1_MASK), 3042 /* AVALUES */ (OPpARG1_MASK), 3043 /* EACH */ (OPpARG1_MASK), 3044 /* VALUES */ (OPpARG1_MASK), 3045 /* KEYS */ (OPpARG1_MASK|OPpMAYBE_LVSUB), 3046 /* DELETE */ (OPpARG1_MASK|OPpSLICE|OPpLVAL_INTRO), 3047 /* EXISTS */ (OPpARG1_MASK|OPpEXISTS_SUB), 3048 /* RV2HV */ (OPpARG1_MASK|OPpHINT_STRICT_REFS|OPpSLICEWARNING|OPpMAYBE_LVSUB|OPpMAYBE_TRUEBOOL|OPpTRUEBOOL|OPpOUR_INTRO|OPpLVAL_INTRO), 3049 /* HELEM */ (OPpARG2_MASK|OPpMAYBE_LVSUB|OPpDEREF|OPpLVAL_DEFER|OPpLVAL_INTRO), 3050 /* HSLICE */ (OPpSLICEWARNING|OPpMAYBE_LVSUB|OPpLVAL_INTRO), 3051 /* KVHSLICE */ (OPpMAYBE_LVSUB), 3052 /* MULTIDEREF */ (OPpARG1_MASK|OPpHINT_STRICT_REFS|OPpMAYBE_LVSUB|OPpMULTIDEREF_EXISTS|OPpMULTIDEREF_DELETE|OPpLVAL_DEFER|OPpLVAL_INTRO), 3053 /* UNPACK */ (OPpARG4_MASK), 3054 /* PACK */ (OPpARG4_MASK), 3055 /* SPLIT */ (OPpOUR_INTRO|OPpSPLIT_IMPLIM), 3056 /* JOIN */ (OPpARG4_MASK), 3057 /* LIST */ (OPpLIST_GUESSED|OPpLVAL_INTRO), 3058 /* LSLICE */ (OPpARG2_MASK), 3059 /* ANONLIST */ (OPpARG4_MASK), 3060 /* ANONHASH */ (OPpARG4_MASK), 3061 /* SPLICE */ (OPpARG4_MASK), 3062 /* PUSH */ (OPpARG4_MASK|OPpTARGET_MY), 3063 /* POP */ (OPpARG1_MASK), 3064 /* SHIFT */ (OPpARG1_MASK), 3065 /* UNSHIFT */ (OPpARG4_MASK|OPpTARGET_MY), 3066 /* SORT */ (OPpSORT_NUMERIC|OPpSORT_INTEGER|OPpSORT_REVERSE|OPpSORT_INPLACE|OPpSORT_DESCEND|OPpSORT_QSORT|OPpSORT_STABLE), 3067 /* REVERSE */ (OPpARG1_MASK|OPpREVERSE_INPLACE), 3068 /* GREPSTART */ (OPpARG1_MASK), 3069 /* GREPWHILE */ (OPpARG1_MASK), 3070 /* MAPSTART */ (OPpARG1_MASK), 3071 /* MAPWHILE */ (OPpARG1_MASK), 3072 /* RANGE */ (OPpARG1_MASK), 3073 /* FLIP */ (OPpARG1_MASK|OPpFLIP_LINENUM), 3074 /* FLOP */ (OPpARG1_MASK|OPpFLIP_LINENUM), 3075 /* AND */ (OPpARG1_MASK), 3076 /* OR */ (OPpARG1_MASK), 3077 /* XOR */ (OPpARG2_MASK), 3078 /* DOR */ (OPpARG1_MASK), 3079 /* COND_EXPR */ (OPpARG1_MASK|OPpLVAL_INTRO), 3080 /* ANDASSIGN */ (OPpARG1_MASK), 3081 /* ORASSIGN */ (OPpARG1_MASK), 3082 /* DORASSIGN */ (OPpARG1_MASK), 3083 /* METHOD */ (OPpARG1_MASK), 3084 /* ENTERSUB */ (OPpENTERSUB_INARGS|OPpHINT_STRICT_REFS|OPpENTERSUB_HASTARG|OPpENTERSUB_AMPER|OPpDEREF|OPpENTERSUB_DB|OPpLVAL_INTRO), 3085 /* LEAVESUB */ (OPpARG1_MASK|OPpREFCOUNTED), 3086 /* LEAVESUBLV */ (OPpARG1_MASK|OPpREFCOUNTED), 3087 /* CALLER */ (OPpARG4_MASK|OPpOFFBYONE), 3088 /* WARN */ (OPpARG4_MASK), 3089 /* DIE */ (OPpARG4_MASK), 3090 /* RESET */ (OPpARG4_MASK), 3091 /* LINESEQ */ (0), 3092 /* NEXTSTATE */ (OPpHUSH_VMSISH), 3093 /* DBSTATE */ (OPpHUSH_VMSISH), 3094 /* UNSTACK */ (0), 3095 /* ENTER */ (0), 3096 /* LEAVE */ (OPpREFCOUNTED|OPpLVALUE), 3097 /* SCOPE */ (0), 3098 /* ENTERITER */ (OPpITER_REVERSED|OPpITER_DEF|OPpOUR_INTRO|OPpLVAL_INTRO), 3099 /* ITER */ (OPpITER_REVERSED), 3100 /* ENTERLOOP */ (0), 3101 /* LEAVELOOP */ (OPpARG2_MASK|OPpLVALUE), 3102 /* RETURN */ (0), 3103 /* LAST */ (OPpARG1_MASK|OPpPV_IS_UTF8), 3104 /* NEXT */ (OPpARG1_MASK|OPpPV_IS_UTF8), 3105 /* REDO */ (OPpARG1_MASK|OPpPV_IS_UTF8), 3106 /* DUMP */ (OPpARG1_MASK|OPpPV_IS_UTF8), 3107 /* GOTO */ (OPpARG1_MASK|OPpPV_IS_UTF8), 3108 /* EXIT */ (OPpARG4_MASK), 3109 /* METHOD_NAMED */ (OPpARG1_MASK), 3110 /* METHOD_SUPER */ (OPpARG1_MASK), 3111 /* METHOD_REDIR */ (OPpARG1_MASK), 3112 /* METHOD_REDIR_SUPER */ (OPpARG1_MASK), 3113 /* ENTERGIVEN */ (OPpARG1_MASK), 3114 /* LEAVEGIVEN */ (OPpARG1_MASK), 3115 /* ENTERWHEN */ (OPpARG1_MASK), 3116 /* LEAVEWHEN */ (OPpARG1_MASK), 3117 /* BREAK */ (0), 3118 /* CONTINUE */ (0), 3119 /* OPEN */ (OPpARG4_MASK|OPpOPEN_IN_RAW|OPpOPEN_IN_CRLF|OPpOPEN_OUT_RAW|OPpOPEN_OUT_CRLF), 3120 /* CLOSE */ (OPpARG4_MASK), 3121 /* PIPE_OP */ (OPpARG4_MASK), 3122 /* FILENO */ (OPpARG4_MASK), 3123 /* UMASK */ (OPpARG4_MASK), 3124 /* BINMODE */ (OPpARG4_MASK), 3125 /* TIE */ (OPpARG4_MASK), 3126 /* UNTIE */ (OPpARG1_MASK), 3127 /* TIED */ (OPpARG1_MASK), 3128 /* DBMOPEN */ (OPpARG4_MASK), 3129 /* DBMCLOSE */ (OPpARG1_MASK), 3130 /* SSELECT */ (OPpARG4_MASK), 3131 /* SELECT */ (OPpARG4_MASK), 3132 /* GETC */ (OPpARG4_MASK), 3133 /* READ */ (OPpARG4_MASK), 3134 /* ENTERWRITE */ (OPpARG4_MASK), 3135 /* LEAVEWRITE */ (OPpARG1_MASK|OPpREFCOUNTED), 3136 /* PRTF */ (0), 3137 /* PRINT */ (0), 3138 /* SAY */ (0), 3139 /* SYSOPEN */ (OPpARG4_MASK), 3140 /* SYSSEEK */ (OPpARG4_MASK), 3141 /* SYSREAD */ (OPpARG4_MASK), 3142 /* SYSWRITE */ (OPpARG4_MASK), 3143 /* EOF */ (OPpARG4_MASK), 3144 /* TELL */ (OPpARG4_MASK), 3145 /* SEEK */ (OPpARG4_MASK), 3146 /* TRUNCATE */ (OPpARG4_MASK), 3147 /* FCNTL */ (OPpARG4_MASK), 3148 /* IOCTL */ (OPpARG4_MASK), 3149 /* FLOCK */ (OPpARG4_MASK|OPpTARGET_MY), 3150 /* SEND */ (OPpARG4_MASK), 3151 /* RECV */ (OPpARG4_MASK), 3152 /* SOCKET */ (OPpARG4_MASK), 3153 /* SOCKPAIR */ (OPpARG4_MASK), 3154 /* BIND */ (OPpARG4_MASK), 3155 /* CONNECT */ (OPpARG4_MASK), 3156 /* LISTEN */ (OPpARG4_MASK), 3157 /* ACCEPT */ (OPpARG4_MASK), 3158 /* SHUTDOWN */ (OPpARG4_MASK), 3159 /* GSOCKOPT */ (OPpARG4_MASK), 3160 /* SSOCKOPT */ (OPpARG4_MASK), 3161 /* GETSOCKNAME */ (OPpARG1_MASK), 3162 /* GETPEERNAME */ (OPpARG1_MASK), 3163 /* LSTAT */ (OPpARG1_MASK), 3164 /* STAT */ (OPpARG1_MASK), 3165 /* FTRREAD */ (OPpARG1_MASK|OPpFT_ACCESS|OPpFT_STACKED|OPpFT_STACKING|OPpFT_AFTER_t), 3166 /* FTRWRITE */ (OPpARG1_MASK|OPpFT_ACCESS|OPpFT_STACKED|OPpFT_STACKING|OPpFT_AFTER_t), 3167 /* FTREXEC */ (OPpARG1_MASK|OPpFT_ACCESS|OPpFT_STACKED|OPpFT_STACKING|OPpFT_AFTER_t), 3168 /* FTEREAD */ (OPpARG1_MASK|OPpFT_ACCESS|OPpFT_STACKED|OPpFT_STACKING|OPpFT_AFTER_t), 3169 /* FTEWRITE */ (OPpARG1_MASK|OPpFT_ACCESS|OPpFT_STACKED|OPpFT_STACKING|OPpFT_AFTER_t), 3170 /* FTEEXEC */ (OPpARG1_MASK|OPpFT_ACCESS|OPpFT_STACKED|OPpFT_STACKING|OPpFT_AFTER_t), 3171 /* FTIS */ (OPpARG1_MASK|OPpFT_STACKED|OPpFT_STACKING|OPpFT_AFTER_t), 3172 /* FTSIZE */ (OPpARG1_MASK|OPpFT_STACKED|OPpFT_STACKING|OPpFT_AFTER_t), 3173 /* FTMTIME */ (OPpARG1_MASK|OPpFT_STACKED|OPpFT_STACKING|OPpFT_AFTER_t), 3174 /* FTATIME */ (OPpARG1_MASK|OPpFT_STACKED|OPpFT_STACKING|OPpFT_AFTER_t), 3175 /* FTCTIME */ (OPpARG1_MASK|OPpFT_STACKED|OPpFT_STACKING|OPpFT_AFTER_t), 3176 /* FTROWNED */ (OPpARG1_MASK|OPpFT_STACKED|OPpFT_STACKING|OPpFT_AFTER_t), 3177 /* FTEOWNED */ (OPpARG1_MASK|OPpFT_STACKED|OPpFT_STACKING|OPpFT_AFTER_t), 3178 /* FTZERO */ (OPpARG1_MASK|OPpFT_STACKED|OPpFT_STACKING|OPpFT_AFTER_t), 3179 /* FTSOCK */ (OPpARG1_MASK|OPpFT_STACKED|OPpFT_STACKING|OPpFT_AFTER_t), 3180 /* FTCHR */ (OPpARG1_MASK|OPpFT_STACKED|OPpFT_STACKING|OPpFT_AFTER_t), 3181 /* FTBLK */ (OPpARG1_MASK|OPpFT_STACKED|OPpFT_STACKING|OPpFT_AFTER_t), 3182 /* FTFILE */ (OPpARG1_MASK|OPpFT_STACKED|OPpFT_STACKING|OPpFT_AFTER_t), 3183 /* FTDIR */ (OPpARG1_MASK|OPpFT_STACKED|OPpFT_STACKING|OPpFT_AFTER_t), 3184 /* FTPIPE */ (OPpARG1_MASK|OPpFT_STACKED|OPpFT_STACKING|OPpFT_AFTER_t), 3185 /* FTSUID */ (OPpARG1_MASK|OPpFT_STACKED|OPpFT_STACKING|OPpFT_AFTER_t), 3186 /* FTSGID */ (OPpARG1_MASK|OPpFT_STACKED|OPpFT_STACKING|OPpFT_AFTER_t), 3187 /* FTSVTX */ (OPpARG1_MASK|OPpFT_STACKED|OPpFT_STACKING|OPpFT_AFTER_t), 3188 /* FTLINK */ (OPpARG1_MASK|OPpFT_STACKED|OPpFT_STACKING|OPpFT_AFTER_t), 3189 /* FTTTY */ (OPpARG1_MASK|OPpFT_STACKED|OPpFT_STACKING|OPpFT_AFTER_t), 3190 /* FTTEXT */ (OPpARG1_MASK|OPpFT_STACKED|OPpFT_STACKING|OPpFT_AFTER_t), 3191 /* FTBINARY */ (OPpARG1_MASK|OPpFT_STACKED|OPpFT_STACKING|OPpFT_AFTER_t), 3192 /* CHDIR */ (OPpARG4_MASK|OPpTARGET_MY), 3193 /* CHOWN */ (OPpARG4_MASK|OPpTARGET_MY), 3194 /* CHROOT */ (OPpARG1_MASK|OPpTARGET_MY), 3195 /* UNLINK */ (OPpARG4_MASK|OPpTARGET_MY), 3196 /* CHMOD */ (OPpARG4_MASK|OPpTARGET_MY), 3197 /* UTIME */ (OPpARG4_MASK|OPpTARGET_MY), 3198 /* RENAME */ (OPpARG4_MASK|OPpTARGET_MY), 3199 /* LINK */ (OPpARG4_MASK|OPpTARGET_MY), 3200 /* SYMLINK */ (OPpARG4_MASK|OPpTARGET_MY), 3201 /* READLINK */ (OPpARG1_MASK), 3202 /* MKDIR */ (OPpARG4_MASK|OPpTARGET_MY), 3203 /* RMDIR */ (OPpARG1_MASK|OPpTARGET_MY), 3204 /* OPEN_DIR */ (OPpARG4_MASK), 3205 /* READDIR */ (OPpARG1_MASK), 3206 /* TELLDIR */ (OPpARG1_MASK), 3207 /* SEEKDIR */ (OPpARG4_MASK), 3208 /* REWINDDIR */ (OPpARG1_MASK), 3209 /* CLOSEDIR */ (OPpARG1_MASK), 3210 /* FORK */ (0), 3211 /* WAIT */ (OPpTARGET_MY), 3212 /* WAITPID */ (OPpARG4_MASK|OPpTARGET_MY), 3213 /* SYSTEM */ (OPpARG4_MASK|OPpTARGET_MY), 3214 /* EXEC */ (OPpARG4_MASK|OPpTARGET_MY), 3215 /* KILL */ (OPpARG4_MASK|OPpTARGET_MY), 3216 /* GETPPID */ (OPpTARGET_MY), 3217 /* GETPGRP */ (OPpARG4_MASK|OPpTARGET_MY), 3218 /* SETPGRP */ (OPpARG4_MASK|OPpTARGET_MY), 3219 /* GETPRIORITY */ (OPpARG4_MASK|OPpTARGET_MY), 3220 /* SETPRIORITY */ (OPpARG4_MASK|OPpTARGET_MY), 3221 /* TIME */ (OPpTARGET_MY), 3222 /* TMS */ (0), 3223 /* LOCALTIME */ (OPpARG1_MASK), 3224 /* GMTIME */ (OPpARG4_MASK), 3225 /* ALARM */ (OPpARG1_MASK), 3226 /* SLEEP */ (OPpARG4_MASK|OPpTARGET_MY), 3227 /* SHMGET */ (OPpARG4_MASK), 3228 /* SHMCTL */ (OPpARG4_MASK), 3229 /* SHMREAD */ (OPpARG4_MASK), 3230 /* SHMWRITE */ (OPpARG4_MASK), 3231 /* MSGGET */ (OPpARG4_MASK), 3232 /* MSGCTL */ (OPpARG4_MASK), 3233 /* MSGSND */ (OPpARG4_MASK), 3234 /* MSGRCV */ (OPpARG4_MASK), 3235 /* SEMOP */ (OPpARG4_MASK), 3236 /* SEMGET */ (OPpARG4_MASK), 3237 /* SEMCTL */ (OPpARG4_MASK), 3238 /* REQUIRE */ (OPpARG1_MASK), 3239 /* DOFILE */ (OPpARG1_MASK), 3240 /* HINTSEVAL */ (0), 3241 /* ENTEREVAL */ (OPpARG1_MASK|OPpEVAL_HAS_HH|OPpEVAL_UNICODE|OPpEVAL_BYTES|OPpEVAL_COPHH|OPpEVAL_RE_REPARSING), 3242 /* LEAVEEVAL */ (OPpARG1_MASK|OPpREFCOUNTED), 3243 /* ENTERTRY */ (OPpARG1_MASK), 3244 /* LEAVETRY */ (0), 3245 /* GHBYNAME */ (OPpARG1_MASK), 3246 /* GHBYADDR */ (OPpARG4_MASK), 3247 /* GHOSTENT */ (0), 3248 /* GNBYNAME */ (OPpARG1_MASK), 3249 /* GNBYADDR */ (OPpARG4_MASK), 3250 /* GNETENT */ (0), 3251 /* GPBYNAME */ (OPpARG1_MASK), 3252 /* GPBYNUMBER */ (OPpARG4_MASK), 3253 /* GPROTOENT */ (0), 3254 /* GSBYNAME */ (OPpARG4_MASK), 3255 /* GSBYPORT */ (OPpARG4_MASK), 3256 /* GSERVENT */ (0), 3257 /* SHOSTENT */ (OPpARG1_MASK), 3258 /* SNETENT */ (OPpARG1_MASK), 3259 /* SPROTOENT */ (OPpARG1_MASK), 3260 /* SSERVENT */ (OPpARG1_MASK), 3261 /* EHOSTENT */ (0), 3262 /* ENETENT */ (0), 3263 /* EPROTOENT */ (0), 3264 /* ESERVENT */ (0), 3265 /* GPWNAM */ (OPpARG1_MASK), 3266 /* GPWUID */ (OPpARG1_MASK), 3267 /* GPWENT */ (0), 3268 /* SPWENT */ (0), 3269 /* EPWENT */ (0), 3270 /* GGRNAM */ (OPpARG1_MASK), 3271 /* GGRGID */ (OPpARG1_MASK), 3272 /* GGRENT */ (0), 3273 /* SGRENT */ (0), 3274 /* EGRENT */ (0), 3275 /* GETLOGIN */ (0), 3276 /* SYSCALL */ (OPpARG4_MASK), 3277 /* LOCK */ (OPpARG1_MASK), 3278 /* ONCE */ (OPpARG1_MASK), 3279 /* CUSTOM */ (0xff), 3280 /* COREARGS */ (OPpCOREARGS_DEREF1|OPpCOREARGS_DEREF2|OPpCOREARGS_SCALARMOD|OPpCOREARGS_PUSHMARK), 3281 /* RUNCV */ (OPpOFFBYONE), 3282 /* FC */ (OPpARG1_MASK), 3283 /* PADCV */ (0), 3284 /* INTROCV */ (0), 3285 /* CLONECV */ (0), 3286 /* PADRANGE */ (OPpPADRANGE_COUNTMASK|OPpLVAL_INTRO), 3287 /* REFASSIGN */ (OPpARG2_MASK|OPpLVREF_ELEM|OPpLVREF_ITER|OPpLVREF_TYPE|OPpPAD_STATE|OPpLVAL_INTRO), 3288 /* LVREF */ (OPpARG1_MASK|OPpLVREF_ELEM|OPpLVREF_ITER|OPpLVREF_TYPE|OPpPAD_STATE|OPpLVAL_INTRO), 3289 /* LVREFSLICE */ (OPpLVAL_INTRO), 3290 /* LVAVREF */ (OPpARG1_MASK|OPpPAD_STATE|OPpLVAL_INTRO), 3291 /* ANONCONST */ (OPpARG1_MASK), 3292 3293 }; 3294 3295 # endif /* !DOINIT */ 3296 #endif /* !PERL_GLOBAL_STRUCT_INIT */ 3297 3298 END_EXTERN_C 3299 3300 3301 3302 /* ex: set ro: */ 3303