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