projects / p5sagit/p5-mst-13.2.git / blame
? search:
summary | shortlog | log | commit | commitdiff | tree
blob | history | HEAD
Oops. Failed to remove the now obsolete comment about custom ops.
[p5sagit/p5-mst-13.2.git] / opcode.h
CommitLineData
37442d52 1/* -*- buffer-read-only: t -*-
2 *
d6376244 3 * opcode.h
4 *
5b9081af 5 * Copyright (C) 1993, 1994, 1995, 1996, 1997, 1998, 1999, 2000,
6 * 2001, 2002, 2003, 2004, 2005, 2006, 2007 by Larry Wall and others
d6376244 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 opcode.pl from its data. Any changes made here
13 * will be lost!
14 */
a27f85b3 15
27da23d5 16#ifndef PERL_GLOBAL_STRUCT_INIT
17
864dbfa3 18#define Perl_pp_i_preinc Perl_pp_preinc
19#define Perl_pp_i_predec Perl_pp_predec
20#define Perl_pp_i_postinc Perl_pp_postinc
21#define Perl_pp_i_postdec Perl_pp_postdec
748a9306 22
65bca31a 23PERL_PPDEF(Perl_unimplemented_op)
24
73c4f7a1 25START_EXTERN_C
26
4a36906c 27#define OP_NAME(o) ((o)->op_type == OP_CUSTOM ? custom_op_name(o) : \
28 PL_op_name[(o)->op_type])
29#define OP_DESC(o) ((o)->op_type == OP_CUSTOM ? custom_op_desc(o) : \
30 PL_op_desc[(o)->op_type])
438c221d 31
79072805 32#ifndef DOINIT
27da23d5 33EXTCONST char* const PL_op_name[];
79072805 34#else
27da23d5 35EXTCONST char* const PL_op_name[] = {
c07a80fd 36 "null",
37 "stub",
38 "scalar",
39 "pushmark",
40 "wantarray",
41 "const",
42 "gvsv",
43 "gv",
44 "gelem",
45 "padsv",
46 "padav",
47 "padhv",
48 "padany",
49 "pushre",
50 "rv2gv",
51 "rv2sv",
52 "av2arylen",
53 "rv2cv",
54 "anoncode",
55 "prototype",
56 "refgen",
57 "srefgen",
58 "ref",
59 "bless",
60 "backtick",
61 "glob",
62 "readline",
63 "rcatline",
64 "regcmaybe",
2cd61cdb 65 "regcreset",
c07a80fd 66 "regcomp",
67 "match",
8782bef2 68 "qr",
c07a80fd 69 "subst",
70 "substcont",
71 "trans",
72 "sassign",
73 "aassign",
74 "chop",
75 "schop",
76 "chomp",
77 "schomp",
78 "defined",
79 "undef",
80 "study",
81 "pos",
82 "preinc",
83 "i_preinc",
84 "predec",
85 "i_predec",
86 "postinc",
87 "i_postinc",
88 "postdec",
89 "i_postdec",
90 "pow",
91 "multiply",
92 "i_multiply",
93 "divide",
94 "i_divide",
95 "modulo",
96 "i_modulo",
97 "repeat",
98 "add",
99 "i_add",
100 "subtract",
101 "i_subtract",
102 "concat",
103 "stringify",
104 "left_shift",
105 "right_shift",
106 "lt",
107 "i_lt",
108 "gt",
109 "i_gt",
110 "le",
111 "i_le",
112 "ge",
113 "i_ge",
114 "eq",
115 "i_eq",
116 "ne",
117 "i_ne",
118 "ncmp",
119 "i_ncmp",
120 "slt",
121 "sgt",
122 "sle",
123 "sge",
124 "seq",
125 "sne",
126 "scmp",
127 "bit_and",
128 "bit_xor",
129 "bit_or",
130 "negate",
131 "i_negate",
132 "not",
133 "complement",
134 "atan2",
135 "sin",
136 "cos",
137 "rand",
138 "srand",
139 "exp",
140 "log",
141 "sqrt",
142 "int",
143 "hex",
144 "oct",
145 "abs",
146 "length",
147 "substr",
148 "vec",
149 "index",
150 "rindex",
151 "sprintf",
152 "formline",
153 "ord",
154 "chr",
155 "crypt",
156 "ucfirst",
157 "lcfirst",
158 "uc",
159 "lc",
160 "quotemeta",
161 "rv2av",
162 "aelemfast",
163 "aelem",
164 "aslice",
165 "each",
166 "values",
167 "keys",
168 "delete",
169 "exists",
170 "rv2hv",
171 "helem",
172 "hslice",
173 "unpack",
174 "pack",
175 "split",
176 "join",
177 "list",
178 "lslice",
179 "anonlist",
180 "anonhash",
181 "splice",
182 "push",
183 "pop",
184 "shift",
185 "unshift",
186 "sort",
187 "reverse",
188 "grepstart",
189 "grepwhile",
190 "mapstart",
191 "mapwhile",
192 "range",
193 "flip",
194 "flop",
195 "and",
196 "or",
197 "xor",
198 "cond_expr",
199 "andassign",
200 "orassign",
201 "method",
202 "entersub",
203 "leavesub",
cd06dffe 204 "leavesublv",
c07a80fd 205 "caller",
206 "warn",
207 "die",
208 "reset",
209 "lineseq",
210 "nextstate",
211 "dbstate",
212 "unstack",
213 "enter",
214 "leave",
215 "scope",
216 "enteriter",
217 "iter",
218 "enterloop",
219 "leaveloop",
220 "return",
221 "last",
222 "next",
223 "redo",
224 "dump",
225 "goto",
226 "exit",
227 "open",
228 "close",
229 "pipe_op",
230 "fileno",
231 "umask",
232 "binmode",
233 "tie",
234 "untie",
235 "tied",
236 "dbmopen",
237 "dbmclose",
238 "sselect",
239 "select",
240 "getc",
241 "read",
242 "enterwrite",
243 "leavewrite",
244 "prtf",
245 "print",
246 "sysopen",
137443ea 247 "sysseek",
c07a80fd 248 "sysread",
249 "syswrite",
250 "send",
251 "recv",
252 "eof",
253 "tell",
254 "seek",
255 "truncate",
256 "fcntl",
257 "ioctl",
258 "flock",
259 "socket",
260 "sockpair",
261 "bind",
262 "connect",
263 "listen",
264 "accept",
265 "shutdown",
266 "gsockopt",
267 "ssockopt",
268 "getsockname",
269 "getpeername",
270 "lstat",
271 "stat",
272 "ftrread",
273 "ftrwrite",
274 "ftrexec",
275 "fteread",
276 "ftewrite",
277 "fteexec",
278 "ftis",
c07a80fd 279 "ftsize",
280 "ftmtime",
281 "ftatime",
282 "ftctime",
7834bb7e 283 "ftrowned",
284 "fteowned",
285 "ftzero",
c07a80fd 286 "ftsock",
287 "ftchr",
288 "ftblk",
289 "ftfile",
290 "ftdir",
291 "ftpipe",
c07a80fd 292 "ftsuid",
293 "ftsgid",
294 "ftsvtx",
7834bb7e 295 "ftlink",
c07a80fd 296 "fttty",
297 "fttext",
298 "ftbinary",
299 "chdir",
300 "chown",
301 "chroot",
302 "unlink",
303 "chmod",
304 "utime",
305 "rename",
306 "link",
307 "symlink",
308 "readlink",
309 "mkdir",
310 "rmdir",
311 "open_dir",
312 "readdir",
313 "telldir",
314 "seekdir",
315 "rewinddir",
316 "closedir",
317 "fork",
318 "wait",
319 "waitpid",
320 "system",
321 "exec",
322 "kill",
323 "getppid",
324 "getpgrp",
325 "setpgrp",
326 "getpriority",
327 "setpriority",
328 "time",
329 "tms",
330 "localtime",
331 "gmtime",
332 "alarm",
333 "sleep",
334 "shmget",
335 "shmctl",
336 "shmread",
337 "shmwrite",
338 "msgget",
339 "msgctl",
340 "msgsnd",
341 "msgrcv",
7834bb7e 342 "semop",
c07a80fd 343 "semget",
344 "semctl",
c07a80fd 345 "require",
346 "dofile",
347 "entereval",
348 "leaveeval",
349 "entertry",
350 "leavetry",
351 "ghbyname",
352 "ghbyaddr",
353 "ghostent",
354 "gnbyname",
355 "gnbyaddr",
356 "gnetent",
357 "gpbyname",
358 "gpbynumber",
359 "gprotoent",
360 "gsbyname",
361 "gsbyport",
362 "gservent",
363 "shostent",
364 "snetent",
365 "sprotoent",
366 "sservent",
367 "ehostent",
368 "enetent",
369 "eprotoent",
370 "eservent",
371 "gpwnam",
372 "gpwuid",
373 "gpwent",
374 "spwent",
375 "epwent",
376 "ggrnam",
377 "ggrgid",
378 "ggrent",
379 "sgrent",
380 "egrent",
381 "getlogin",
382 "syscall",
c0329465 383 "lock",
7399586d 384 "setstate",
f5d5a27c 385 "method_named",
c963b151 386 "dor",
387 "dorassign",
0d863452 388 "entergiven",
389 "leavegiven",
390 "enterwhen",
391 "leavewhen",
392 "break",
393 "continue",
394 "smartmatch",
395 "say",
438c221d 396 "custom",
c07a80fd 397};
398#endif
399
400#ifndef DOINIT
27da23d5 401EXTCONST char* const PL_op_desc[];
c07a80fd 402#else
27da23d5 403EXTCONST char* const PL_op_desc[] = {
79072805 404 "null operation",
93a17b20 405 "stub",
406 "scalar",
79072805 407 "pushmark",
408 "wantarray",
79072805 409 "constant item",
79072805 410 "scalar variable",
411 "glob value",
c07a80fd 412 "glob elem",
93a17b20 413 "private variable",
414 "private array",
415 "private hash",
f1612b5c 416 "private value",
79072805 417 "push regexp",
418 "ref-to-glob cast",
b89fed5f 419 "scalar dereference",
79072805 420 "array length",
b89fed5f 421 "subroutine dereference",
a0d0e21e 422 "anonymous subroutine",
c07a80fd 423 "subroutine prototype",
8990e307 424 "reference constructor",
dfa0f641 425 "single ref constructor",
79072805 426 "reference-type operator",
427 "bless",
b3f4d674 428 "quoted execution (``, qx)",
79072805 429 "glob",
430 "<HANDLE>",
431 "append I/O operator",
f1612b5c 432 "regexp internal guard",
433 "regexp internal reset",
79072805 434 "regexp compilation",
42d38218 435 "pattern match (m//)",
436 "pattern quote (qr//)",
437 "substitution (s///)",
f1612b5c 438 "substitution iterator",
439 "transliteration (tr///)",
79072805 440 "scalar assignment",
441 "list assignment",
79072805 442 "chop",
a0d0e21e 443 "scalar chop",
f1612b5c 444 "chomp",
445 "scalar chomp",
79072805 446 "defined operator",
447 "undef operator",
448 "study",
a0d0e21e 449 "match position",
42d38218 450 "preincrement (++)",
451 "integer preincrement (++)",
452 "predecrement (--)",
453 "integer predecrement (--)",
454 "postincrement (++)",
455 "integer postincrement (++)",
456 "postdecrement (--)",
457 "integer postdecrement (--)",
458 "exponentiation (**)",
459 "multiplication (*)",
460 "integer multiplication (*)",
461 "division (/)",
462 "integer division (/)",
463 "modulus (%)",
464 "integer modulus (%)",
465 "repeat (x)",
466 "addition (+)",
467 "integer addition (+)",
468 "subtraction (-)",
469 "integer subtraction (-)",
297b36dc 470 "concatenation (.) or string",
a0d0e21e 471 "string",
42d38218 472 "left bitshift (<<)",
473 "right bitshift (>>)",
474 "numeric lt (<)",
475 "integer lt (<)",
476 "numeric gt (>)",
477 "integer gt (>)",
478 "numeric le (<=)",
479 "integer le (<=)",
480 "numeric ge (>=)",
481 "integer ge (>=)",
482 "numeric eq (==)",
483 "integer eq (==)",
484 "numeric ne (!=)",
485 "integer ne (!=)",
486 "numeric comparison (<=>)",
487 "integer comparison (<=>)",
79072805 488 "string lt",
489 "string gt",
490 "string le",
491 "string ge",
492 "string eq",
493 "string ne",
42d38218 494 "string comparison (cmp)",
495 "bitwise and (&)",
496 "bitwise xor (^)",
497 "bitwise or (|)",
f1612b5c 498 "negation (-)",
499 "integer negation (-)",
79072805 500 "not",
42d38218 501 "1's complement (~)",
79072805 502 "atan2",
503 "sin",
504 "cos",
505 "rand",
506 "srand",
507 "exp",
508 "log",
509 "sqrt",
510 "int",
511 "hex",
512 "oct",
463ee0b2 513 "abs",
79072805 514 "length",
515 "substr",
516 "vec",
517 "index",
518 "rindex",
519 "sprintf",
520 "formline",
521 "ord",
463ee0b2 522 "chr",
79072805 523 "crypt",
42d38218 524 "ucfirst",
525 "lcfirst",
526 "uc",
527 "lc",
528 "quotemeta",
f1612b5c 529 "array dereference",
530 "constant array element",
79072805 531 "array element",
532 "array slice",
533 "each",
534 "values",
535 "keys",
536 "delete",
42d38218 537 "exists",
f1612b5c 538 "hash dereference",
539 "hash element",
aa689395 540 "hash slice",
79072805 541 "unpack",
542 "pack",
543 "split",
297b36dc 544 "join or string",
79072805 545 "list",
546 "list slice",
42d38218 547 "anonymous list ([])",
548 "anonymous hash ({})",
79072805 549 "splice",
550 "push",
551 "pop",
552 "shift",
553 "unshift",
554 "sort",
555 "reverse",
556 "grep",
557 "grep iterator",
a0d0e21e 558 "map",
559 "map iterator",
79072805 560 "flipflop",
561 "range (or flip)",
562 "range (or flop)",
42d38218 563 "logical and (&&)",
564 "logical or (||)",
a0d0e21e 565 "logical xor",
f1612b5c 566 "conditional expression",
42d38218 567 "logical and assignment (&&=)",
568 "logical or assignment (||=)",
79072805 569 "method lookup",
570 "subroutine entry",
571 "subroutine exit",
78f9721b 572 "lvalue subroutine return",
79072805 573 "caller",
574 "warn",
575 "die",
f1612b5c 576 "symbol reset",
79072805 577 "line sequence",
578 "next statement",
93a17b20 579 "debug next statement",
e9c54c90 580 "iteration finalizer",
79072805 581 "block entry",
582 "block exit",
463ee0b2 583 "block",
79072805 584 "foreach loop entry",
585 "foreach loop iterator",
586 "loop entry",
587 "loop exit",
588 "return",
589 "last",
590 "next",
591 "redo",
592 "dump",
593 "goto",
594 "exit",
79072805 595 "open",
596 "close",
597 "pipe",
598 "fileno",
599 "umask",
600 "binmode",
463ee0b2 601 "tie",
602 "untie",
c07a80fd 603 "tied",
79072805 604 "dbmopen",
605 "dbmclose",
606 "select system call",
607 "select",
608 "getc",
609 "read",
610 "write",
611 "write exit",
463ee0b2 612 "printf",
79072805 613 "print",
c07a80fd 614 "sysopen",
137443ea 615 "sysseek",
79072805 616 "sysread",
617 "syswrite",
618 "send",
619 "recv",
620 "eof",
621 "tell",
622 "seek",
623 "truncate",
624 "fcntl",
625 "ioctl",
626 "flock",
627 "socket",
628 "socketpair",
629 "bind",
630 "connect",
631 "listen",
632 "accept",
633 "shutdown",
634 "getsockopt",
635 "setsockopt",
636 "getsockname",
637 "getpeername",
638 "lstat",
639 "stat",
640 "-R",
641 "-W",
642 "-X",
643 "-r",
644 "-w",
645 "-x",
646 "-e",
79072805 647 "-s",
648 "-M",
649 "-A",
650 "-C",
7834bb7e 651 "-O",
652 "-o",
653 "-z",
79072805 654 "-S",
655 "-c",
656 "-b",
657 "-f",
658 "-d",
659 "-p",
79072805 660 "-u",
661 "-g",
662 "-k",
7834bb7e 663 "-l",
79072805 664 "-t",
665 "-T",
666 "-B",
667 "chdir",
668 "chown",
669 "chroot",
670 "unlink",
671 "chmod",
672 "utime",
673 "rename",
674 "link",
675 "symlink",
676 "readlink",
677 "mkdir",
678 "rmdir",
679 "opendir",
680 "readdir",
681 "telldir",
682 "seekdir",
683 "rewinddir",
684 "closedir",
685 "fork",
686 "wait",
687 "waitpid",
688 "system",
689 "exec",
690 "kill",
691 "getppid",
692 "getpgrp",
693 "setpgrp",
694 "getpriority",
695 "setpriority",
696 "time",
697 "times",
698 "localtime",
699 "gmtime",
700 "alarm",
701 "sleep",
702 "shmget",
703 "shmctl",
704 "shmread",
705 "shmwrite",
706 "msgget",
707 "msgctl",
708 "msgsnd",
709 "msgrcv",
7834bb7e 710 "semop",
79072805 711 "semget",
712 "semctl",
79072805 713 "require",
b3f4d674 714 "do \"file\"",
715 "eval \"string\"",
716 "eval \"string\" exit",
42d38218 717 "eval {block}",
f1612b5c 718 "eval {block} exit",
79072805 719 "gethostbyname",
720 "gethostbyaddr",
721 "gethostent",
722 "getnetbyname",
723 "getnetbyaddr",
724 "getnetent",
725 "getprotobyname",
726 "getprotobynumber",
727 "getprotoent",
728 "getservbyname",
729 "getservbyport",
730 "getservent",
731 "sethostent",
732 "setnetent",
733 "setprotoent",
734 "setservent",
735 "endhostent",
736 "endnetent",
737 "endprotoent",
738 "endservent",
739 "getpwnam",
740 "getpwuid",
741 "getpwent",
742 "setpwent",
743 "endpwent",
744 "getgrnam",
745 "getgrgid",
746 "getgrent",
747 "setgrent",
748 "endgrent",
749 "getlogin",
750 "syscall",
c0329465 751 "lock",
7399586d 752 "set statement info",
f5d5a27c 753 "method with known name",
c963b151 754 "defined or (//)",
755 "defined or assignment (//=)",
0d863452 756 "given()",
757 "leave given block",
758 "when()",
759 "leave when block",
760 "break",
761 "continue",
762 "smart match",
763 "say",
438c221d 764 "unknown custom operator",
79072805 765};
766#endif
767
73c4f7a1 768END_EXTERN_C
769
27da23d5 770#endif /* !PERL_GLOBAL_STRUCT_INIT */
771
73c4f7a1 772START_EXTERN_C
773
27da23d5 774#ifdef PERL_GLOBAL_STRUCT_INIT
97aff369 775# define PERL_PPADDR_INITED
27da23d5 776static const Perl_ppaddr_t Gppaddr[]
79072805 777#else
27da23d5 778# ifndef PERL_GLOBAL_STRUCT
97aff369 779# define PERL_PPADDR_INITED
27da23d5 780EXT Perl_ppaddr_t PL_ppaddr[] /* or perlvars.h */
781# endif
782#endif /* PERL_GLOBAL_STRUCT */
783#if (defined(DOINIT) && !defined(PERL_GLOBAL_STRUCT)) || defined(PERL_GLOBAL_STRUCT_INIT)
97aff369 784# define PERL_PPADDR_INITED
27da23d5 785= {
2b260de0 786 MEMBER_TO_FPTR(Perl_pp_null),
787 MEMBER_TO_FPTR(Perl_pp_stub),
0b612f93 788 MEMBER_TO_FPTR(Perl_pp_null), /* Perl_pp_scalar */
2b260de0 789 MEMBER_TO_FPTR(Perl_pp_pushmark),
790 MEMBER_TO_FPTR(Perl_pp_wantarray),
791 MEMBER_TO_FPTR(Perl_pp_const),
792 MEMBER_TO_FPTR(Perl_pp_gvsv),
793 MEMBER_TO_FPTR(Perl_pp_gv),
794 MEMBER_TO_FPTR(Perl_pp_gelem),
795 MEMBER_TO_FPTR(Perl_pp_padsv),
796 MEMBER_TO_FPTR(Perl_pp_padav),
797 MEMBER_TO_FPTR(Perl_pp_padhv),
65bca31a 798 MEMBER_TO_FPTR(Perl_unimplemented_op), /* Perl_pp_padany */
2b260de0 799 MEMBER_TO_FPTR(Perl_pp_pushre),
800 MEMBER_TO_FPTR(Perl_pp_rv2gv),
801 MEMBER_TO_FPTR(Perl_pp_rv2sv),
802 MEMBER_TO_FPTR(Perl_pp_av2arylen),
803 MEMBER_TO_FPTR(Perl_pp_rv2cv),
804 MEMBER_TO_FPTR(Perl_pp_anoncode),
805 MEMBER_TO_FPTR(Perl_pp_prototype),
806 MEMBER_TO_FPTR(Perl_pp_refgen),
807 MEMBER_TO_FPTR(Perl_pp_srefgen),
808 MEMBER_TO_FPTR(Perl_pp_ref),
809 MEMBER_TO_FPTR(Perl_pp_bless),
810 MEMBER_TO_FPTR(Perl_pp_backtick),
811 MEMBER_TO_FPTR(Perl_pp_glob),
812 MEMBER_TO_FPTR(Perl_pp_readline),
813 MEMBER_TO_FPTR(Perl_pp_rcatline),
0b612f93 814 MEMBER_TO_FPTR(Perl_pp_null), /* Perl_pp_regcmaybe */
2b260de0 815 MEMBER_TO_FPTR(Perl_pp_regcreset),
816 MEMBER_TO_FPTR(Perl_pp_regcomp),
817 MEMBER_TO_FPTR(Perl_pp_match),
818 MEMBER_TO_FPTR(Perl_pp_qr),
819 MEMBER_TO_FPTR(Perl_pp_subst),
820 MEMBER_TO_FPTR(Perl_pp_substcont),
821 MEMBER_TO_FPTR(Perl_pp_trans),
822 MEMBER_TO_FPTR(Perl_pp_sassign),
823 MEMBER_TO_FPTR(Perl_pp_aassign),
824 MEMBER_TO_FPTR(Perl_pp_chop),
825 MEMBER_TO_FPTR(Perl_pp_schop),
826 MEMBER_TO_FPTR(Perl_pp_chomp),
827 MEMBER_TO_FPTR(Perl_pp_schomp),
828 MEMBER_TO_FPTR(Perl_pp_defined),
829 MEMBER_TO_FPTR(Perl_pp_undef),
830 MEMBER_TO_FPTR(Perl_pp_study),
831 MEMBER_TO_FPTR(Perl_pp_pos),
832 MEMBER_TO_FPTR(Perl_pp_preinc),
833 MEMBER_TO_FPTR(Perl_pp_i_preinc),
834 MEMBER_TO_FPTR(Perl_pp_predec),
835 MEMBER_TO_FPTR(Perl_pp_i_predec),
836 MEMBER_TO_FPTR(Perl_pp_postinc),
837 MEMBER_TO_FPTR(Perl_pp_i_postinc),
838 MEMBER_TO_FPTR(Perl_pp_postdec),
839 MEMBER_TO_FPTR(Perl_pp_i_postdec),
840 MEMBER_TO_FPTR(Perl_pp_pow),
841 MEMBER_TO_FPTR(Perl_pp_multiply),
842 MEMBER_TO_FPTR(Perl_pp_i_multiply),
843 MEMBER_TO_FPTR(Perl_pp_divide),
844 MEMBER_TO_FPTR(Perl_pp_i_divide),
845 MEMBER_TO_FPTR(Perl_pp_modulo),
846 MEMBER_TO_FPTR(Perl_pp_i_modulo),
847 MEMBER_TO_FPTR(Perl_pp_repeat),
848 MEMBER_TO_FPTR(Perl_pp_add),
849 MEMBER_TO_FPTR(Perl_pp_i_add),
850 MEMBER_TO_FPTR(Perl_pp_subtract),
851 MEMBER_TO_FPTR(Perl_pp_i_subtract),
852 MEMBER_TO_FPTR(Perl_pp_concat),
853 MEMBER_TO_FPTR(Perl_pp_stringify),
854 MEMBER_TO_FPTR(Perl_pp_left_shift),
855 MEMBER_TO_FPTR(Perl_pp_right_shift),
856 MEMBER_TO_FPTR(Perl_pp_lt),
857 MEMBER_TO_FPTR(Perl_pp_i_lt),
858 MEMBER_TO_FPTR(Perl_pp_gt),
859 MEMBER_TO_FPTR(Perl_pp_i_gt),
860 MEMBER_TO_FPTR(Perl_pp_le),
861 MEMBER_TO_FPTR(Perl_pp_i_le),
862 MEMBER_TO_FPTR(Perl_pp_ge),
863 MEMBER_TO_FPTR(Perl_pp_i_ge),
864 MEMBER_TO_FPTR(Perl_pp_eq),
865 MEMBER_TO_FPTR(Perl_pp_i_eq),
866 MEMBER_TO_FPTR(Perl_pp_ne),
867 MEMBER_TO_FPTR(Perl_pp_i_ne),
868 MEMBER_TO_FPTR(Perl_pp_ncmp),
869 MEMBER_TO_FPTR(Perl_pp_i_ncmp),
afd9910b 870 MEMBER_TO_FPTR(Perl_pp_sle), /* Perl_pp_slt */
871 MEMBER_TO_FPTR(Perl_pp_sle), /* Perl_pp_sgt */
2b260de0 872 MEMBER_TO_FPTR(Perl_pp_sle),
afd9910b 873 MEMBER_TO_FPTR(Perl_pp_sle), /* Perl_pp_sge */
2b260de0 874 MEMBER_TO_FPTR(Perl_pp_seq),
875 MEMBER_TO_FPTR(Perl_pp_sne),
876 MEMBER_TO_FPTR(Perl_pp_scmp),
877 MEMBER_TO_FPTR(Perl_pp_bit_and),
3658c1f1 878 MEMBER_TO_FPTR(Perl_pp_bit_or), /* Perl_pp_bit_xor */
2b260de0 879 MEMBER_TO_FPTR(Perl_pp_bit_or),
880 MEMBER_TO_FPTR(Perl_pp_negate),
881 MEMBER_TO_FPTR(Perl_pp_i_negate),
882 MEMBER_TO_FPTR(Perl_pp_not),
883 MEMBER_TO_FPTR(Perl_pp_complement),
884 MEMBER_TO_FPTR(Perl_pp_atan2),
885 MEMBER_TO_FPTR(Perl_pp_sin),
71302fe3 886 MEMBER_TO_FPTR(Perl_pp_sin), /* Perl_pp_cos */
2b260de0 887 MEMBER_TO_FPTR(Perl_pp_rand),
888 MEMBER_TO_FPTR(Perl_pp_srand),
71302fe3 889 MEMBER_TO_FPTR(Perl_pp_sin), /* Perl_pp_exp */
890 MEMBER_TO_FPTR(Perl_pp_sin), /* Perl_pp_log */
891 MEMBER_TO_FPTR(Perl_pp_sin), /* Perl_pp_sqrt */
2b260de0 892 MEMBER_TO_FPTR(Perl_pp_int),
daa2adfd 893 MEMBER_TO_FPTR(Perl_pp_oct), /* Perl_pp_hex */
2b260de0 894 MEMBER_TO_FPTR(Perl_pp_oct),
895 MEMBER_TO_FPTR(Perl_pp_abs),
896 MEMBER_TO_FPTR(Perl_pp_length),
897 MEMBER_TO_FPTR(Perl_pp_substr),
898 MEMBER_TO_FPTR(Perl_pp_vec),
899 MEMBER_TO_FPTR(Perl_pp_index),
2723d216 900 MEMBER_TO_FPTR(Perl_pp_index), /* Perl_pp_rindex */
2b260de0 901 MEMBER_TO_FPTR(Perl_pp_sprintf),
902 MEMBER_TO_FPTR(Perl_pp_formline),
903 MEMBER_TO_FPTR(Perl_pp_ord),
904 MEMBER_TO_FPTR(Perl_pp_chr),
905 MEMBER_TO_FPTR(Perl_pp_crypt),
906 MEMBER_TO_FPTR(Perl_pp_ucfirst),
12e9c124 907 MEMBER_TO_FPTR(Perl_pp_ucfirst), /* Perl_pp_lcfirst */
2b260de0 908 MEMBER_TO_FPTR(Perl_pp_uc),
909 MEMBER_TO_FPTR(Perl_pp_lc),
910 MEMBER_TO_FPTR(Perl_pp_quotemeta),
911 MEMBER_TO_FPTR(Perl_pp_rv2av),
912 MEMBER_TO_FPTR(Perl_pp_aelemfast),
913 MEMBER_TO_FPTR(Perl_pp_aelem),
914 MEMBER_TO_FPTR(Perl_pp_aslice),
915 MEMBER_TO_FPTR(Perl_pp_each),
6faeeb49 916 MEMBER_TO_FPTR(Perl_do_kv), /* Perl_pp_values */
917 MEMBER_TO_FPTR(Perl_do_kv), /* Perl_pp_keys */
2b260de0 918 MEMBER_TO_FPTR(Perl_pp_delete),
919 MEMBER_TO_FPTR(Perl_pp_exists),
17ab7946 920 MEMBER_TO_FPTR(Perl_pp_rv2av), /* Perl_pp_rv2hv */
2b260de0 921 MEMBER_TO_FPTR(Perl_pp_helem),
922 MEMBER_TO_FPTR(Perl_pp_hslice),
923 MEMBER_TO_FPTR(Perl_pp_unpack),
924 MEMBER_TO_FPTR(Perl_pp_pack),
925 MEMBER_TO_FPTR(Perl_pp_split),
926 MEMBER_TO_FPTR(Perl_pp_join),
927 MEMBER_TO_FPTR(Perl_pp_list),
928 MEMBER_TO_FPTR(Perl_pp_lslice),
929 MEMBER_TO_FPTR(Perl_pp_anonlist),
930 MEMBER_TO_FPTR(Perl_pp_anonhash),
931 MEMBER_TO_FPTR(Perl_pp_splice),
932 MEMBER_TO_FPTR(Perl_pp_push),
789b4bc9 933 MEMBER_TO_FPTR(Perl_pp_shift), /* Perl_pp_pop */
2b260de0 934 MEMBER_TO_FPTR(Perl_pp_shift),
935 MEMBER_TO_FPTR(Perl_pp_unshift),
936 MEMBER_TO_FPTR(Perl_pp_sort),
937 MEMBER_TO_FPTR(Perl_pp_reverse),
938 MEMBER_TO_FPTR(Perl_pp_grepstart),
939 MEMBER_TO_FPTR(Perl_pp_grepwhile),
65bca31a 940 MEMBER_TO_FPTR(Perl_unimplemented_op), /* Perl_pp_mapstart */
2b260de0 941 MEMBER_TO_FPTR(Perl_pp_mapwhile),
942 MEMBER_TO_FPTR(Perl_pp_range),
943 MEMBER_TO_FPTR(Perl_pp_flip),
944 MEMBER_TO_FPTR(Perl_pp_flop),
62726f23 945 MEMBER_TO_FPTR(Perl_pp_and),
946 MEMBER_TO_FPTR(Perl_pp_or),
2b260de0 947 MEMBER_TO_FPTR(Perl_pp_xor),
948 MEMBER_TO_FPTR(Perl_pp_cond_expr),
62726f23 949 MEMBER_TO_FPTR(Perl_pp_and), /* Perl_pp_andassign */
950 MEMBER_TO_FPTR(Perl_pp_or), /* Perl_pp_orassign */
2b260de0 951 MEMBER_TO_FPTR(Perl_pp_method),
952 MEMBER_TO_FPTR(Perl_pp_entersub),
953 MEMBER_TO_FPTR(Perl_pp_leavesub),
954 MEMBER_TO_FPTR(Perl_pp_leavesublv),
955 MEMBER_TO_FPTR(Perl_pp_caller),
956 MEMBER_TO_FPTR(Perl_pp_warn),
957 MEMBER_TO_FPTR(Perl_pp_die),
958 MEMBER_TO_FPTR(Perl_pp_reset),
0b612f93 959 MEMBER_TO_FPTR(Perl_pp_null), /* Perl_pp_lineseq */
2b260de0 960 MEMBER_TO_FPTR(Perl_pp_nextstate),
961 MEMBER_TO_FPTR(Perl_pp_dbstate),
962 MEMBER_TO_FPTR(Perl_pp_unstack),
963 MEMBER_TO_FPTR(Perl_pp_enter),
964 MEMBER_TO_FPTR(Perl_pp_leave),
0b612f93 965 MEMBER_TO_FPTR(Perl_pp_null), /* Perl_pp_scope */
2b260de0 966 MEMBER_TO_FPTR(Perl_pp_enteriter),
967 MEMBER_TO_FPTR(Perl_pp_iter),
968 MEMBER_TO_FPTR(Perl_pp_enterloop),
969 MEMBER_TO_FPTR(Perl_pp_leaveloop),
970 MEMBER_TO_FPTR(Perl_pp_return),
971 MEMBER_TO_FPTR(Perl_pp_last),
972 MEMBER_TO_FPTR(Perl_pp_next),
973 MEMBER_TO_FPTR(Perl_pp_redo),
0b612f93 974 MEMBER_TO_FPTR(Perl_pp_goto), /* Perl_pp_dump */
2b260de0 975 MEMBER_TO_FPTR(Perl_pp_goto),
976 MEMBER_TO_FPTR(Perl_pp_exit),
977 MEMBER_TO_FPTR(Perl_pp_open),
978 MEMBER_TO_FPTR(Perl_pp_close),
979 MEMBER_TO_FPTR(Perl_pp_pipe_op),
980 MEMBER_TO_FPTR(Perl_pp_fileno),
981 MEMBER_TO_FPTR(Perl_pp_umask),
982 MEMBER_TO_FPTR(Perl_pp_binmode),
983 MEMBER_TO_FPTR(Perl_pp_tie),
984 MEMBER_TO_FPTR(Perl_pp_untie),
985 MEMBER_TO_FPTR(Perl_pp_tied),
986 MEMBER_TO_FPTR(Perl_pp_dbmopen),
0b612f93 987 MEMBER_TO_FPTR(Perl_pp_untie), /* Perl_pp_dbmclose */
2b260de0 988 MEMBER_TO_FPTR(Perl_pp_sselect),
989 MEMBER_TO_FPTR(Perl_pp_select),
990 MEMBER_TO_FPTR(Perl_pp_getc),
0b612f93 991 MEMBER_TO_FPTR(Perl_pp_sysread), /* Perl_pp_read */
2b260de0 992 MEMBER_TO_FPTR(Perl_pp_enterwrite),
993 MEMBER_TO_FPTR(Perl_pp_leavewrite),
994 MEMBER_TO_FPTR(Perl_pp_prtf),
995 MEMBER_TO_FPTR(Perl_pp_print),
996 MEMBER_TO_FPTR(Perl_pp_sysopen),
997 MEMBER_TO_FPTR(Perl_pp_sysseek),
998 MEMBER_TO_FPTR(Perl_pp_sysread),
64a1bc8e 999 MEMBER_TO_FPTR(Perl_pp_send), /* Perl_pp_syswrite */
2b260de0 1000 MEMBER_TO_FPTR(Perl_pp_send),
0b612f93 1001 MEMBER_TO_FPTR(Perl_pp_sysread), /* Perl_pp_recv */
2b260de0 1002 MEMBER_TO_FPTR(Perl_pp_eof),
1003 MEMBER_TO_FPTR(Perl_pp_tell),
0b612f93 1004 MEMBER_TO_FPTR(Perl_pp_sysseek), /* Perl_pp_seek */
2b260de0 1005 MEMBER_TO_FPTR(Perl_pp_truncate),
0b612f93 1006 MEMBER_TO_FPTR(Perl_pp_ioctl), /* Perl_pp_fcntl */
2b260de0 1007 MEMBER_TO_FPTR(Perl_pp_ioctl),
1008 MEMBER_TO_FPTR(Perl_pp_flock),
1009 MEMBER_TO_FPTR(Perl_pp_socket),
1010 MEMBER_TO_FPTR(Perl_pp_sockpair),
1011 MEMBER_TO_FPTR(Perl_pp_bind),
1012 MEMBER_TO_FPTR(Perl_pp_connect),
1013 MEMBER_TO_FPTR(Perl_pp_listen),
1014 MEMBER_TO_FPTR(Perl_pp_accept),
1015 MEMBER_TO_FPTR(Perl_pp_shutdown),
0b612f93 1016 MEMBER_TO_FPTR(Perl_pp_ssockopt), /* Perl_pp_gsockopt */
2b260de0 1017 MEMBER_TO_FPTR(Perl_pp_ssockopt),
0b612f93 1018 MEMBER_TO_FPTR(Perl_pp_getpeername), /* Perl_pp_getsockname */
2b260de0 1019 MEMBER_TO_FPTR(Perl_pp_getpeername),
0b612f93 1020 MEMBER_TO_FPTR(Perl_pp_stat), /* Perl_pp_lstat */
2b260de0 1021 MEMBER_TO_FPTR(Perl_pp_stat),
1022 MEMBER_TO_FPTR(Perl_pp_ftrread),
af9e49b4 1023 MEMBER_TO_FPTR(Perl_pp_ftrread), /* Perl_pp_ftrwrite */
1024 MEMBER_TO_FPTR(Perl_pp_ftrread), /* Perl_pp_ftrexec */
1025 MEMBER_TO_FPTR(Perl_pp_ftrread), /* Perl_pp_fteread */
1026 MEMBER_TO_FPTR(Perl_pp_ftrread), /* Perl_pp_ftewrite */
1027 MEMBER_TO_FPTR(Perl_pp_ftrread), /* Perl_pp_fteexec */
2b260de0 1028 MEMBER_TO_FPTR(Perl_pp_ftis),
957b0e1d 1029 MEMBER_TO_FPTR(Perl_pp_ftis), /* Perl_pp_ftsize */
1030 MEMBER_TO_FPTR(Perl_pp_ftis), /* Perl_pp_ftmtime */
1031 MEMBER_TO_FPTR(Perl_pp_ftis), /* Perl_pp_ftatime */
1032 MEMBER_TO_FPTR(Perl_pp_ftis), /* Perl_pp_ftctime */
7834bb7e 1033 MEMBER_TO_FPTR(Perl_pp_ftrowned),
1034 MEMBER_TO_FPTR(Perl_pp_ftrowned), /* Perl_pp_fteowned */
1035 MEMBER_TO_FPTR(Perl_pp_ftrowned), /* Perl_pp_ftzero */
f1cb2d48 1036 MEMBER_TO_FPTR(Perl_pp_ftrowned), /* Perl_pp_ftsock */
1037 MEMBER_TO_FPTR(Perl_pp_ftrowned), /* Perl_pp_ftchr */
1038 MEMBER_TO_FPTR(Perl_pp_ftrowned), /* Perl_pp_ftblk */
1039 MEMBER_TO_FPTR(Perl_pp_ftrowned), /* Perl_pp_ftfile */
1040 MEMBER_TO_FPTR(Perl_pp_ftrowned), /* Perl_pp_ftdir */
1041 MEMBER_TO_FPTR(Perl_pp_ftrowned), /* Perl_pp_ftpipe */
17ad201a 1042 MEMBER_TO_FPTR(Perl_pp_ftrowned), /* Perl_pp_ftsuid */
1043 MEMBER_TO_FPTR(Perl_pp_ftrowned), /* Perl_pp_ftsgid */
1044 MEMBER_TO_FPTR(Perl_pp_ftrowned), /* Perl_pp_ftsvtx */
7834bb7e 1045 MEMBER_TO_FPTR(Perl_pp_ftlink),
2b260de0 1046 MEMBER_TO_FPTR(Perl_pp_fttty),
1047 MEMBER_TO_FPTR(Perl_pp_fttext),
0b612f93 1048 MEMBER_TO_FPTR(Perl_pp_fttext), /* Perl_pp_ftbinary */
2b260de0 1049 MEMBER_TO_FPTR(Perl_pp_chdir),
1050 MEMBER_TO_FPTR(Perl_pp_chown),
1051 MEMBER_TO_FPTR(Perl_pp_chroot),
605b9385 1052 MEMBER_TO_FPTR(Perl_pp_chown), /* Perl_pp_unlink */
1053 MEMBER_TO_FPTR(Perl_pp_chown), /* Perl_pp_chmod */
1054 MEMBER_TO_FPTR(Perl_pp_chown), /* Perl_pp_utime */
2b260de0 1055 MEMBER_TO_FPTR(Perl_pp_rename),
1056 MEMBER_TO_FPTR(Perl_pp_link),
ce6987d0 1057 MEMBER_TO_FPTR(Perl_pp_link), /* Perl_pp_symlink */
2b260de0 1058 MEMBER_TO_FPTR(Perl_pp_readlink),
1059 MEMBER_TO_FPTR(Perl_pp_mkdir),
1060 MEMBER_TO_FPTR(Perl_pp_rmdir),
1061 MEMBER_TO_FPTR(Perl_pp_open_dir),
1062 MEMBER_TO_FPTR(Perl_pp_readdir),
1063 MEMBER_TO_FPTR(Perl_pp_telldir),
1064 MEMBER_TO_FPTR(Perl_pp_seekdir),
1065 MEMBER_TO_FPTR(Perl_pp_rewinddir),
1066 MEMBER_TO_FPTR(Perl_pp_closedir),
1067 MEMBER_TO_FPTR(Perl_pp_fork),
1068 MEMBER_TO_FPTR(Perl_pp_wait),
1069 MEMBER_TO_FPTR(Perl_pp_waitpid),
1070 MEMBER_TO_FPTR(Perl_pp_system),
1071 MEMBER_TO_FPTR(Perl_pp_exec),
605b9385 1072 MEMBER_TO_FPTR(Perl_pp_chown), /* Perl_pp_kill */
2b260de0 1073 MEMBER_TO_FPTR(Perl_pp_getppid),
1074 MEMBER_TO_FPTR(Perl_pp_getpgrp),
1075 MEMBER_TO_FPTR(Perl_pp_setpgrp),
1076 MEMBER_TO_FPTR(Perl_pp_getpriority),
1077 MEMBER_TO_FPTR(Perl_pp_setpriority),
1078 MEMBER_TO_FPTR(Perl_pp_time),
1079 MEMBER_TO_FPTR(Perl_pp_tms),
0b612f93 1080 MEMBER_TO_FPTR(Perl_pp_gmtime), /* Perl_pp_localtime */
2b260de0 1081 MEMBER_TO_FPTR(Perl_pp_gmtime),
1082 MEMBER_TO_FPTR(Perl_pp_alarm),
1083 MEMBER_TO_FPTR(Perl_pp_sleep),
0b612f93 1084 MEMBER_TO_FPTR(Perl_pp_semget), /* Perl_pp_shmget */
1085 MEMBER_TO_FPTR(Perl_pp_semctl), /* Perl_pp_shmctl */
1086 MEMBER_TO_FPTR(Perl_pp_shmwrite), /* Perl_pp_shmread */
2b260de0 1087 MEMBER_TO_FPTR(Perl_pp_shmwrite),
0b612f93 1088 MEMBER_TO_FPTR(Perl_pp_semget), /* Perl_pp_msgget */
1089 MEMBER_TO_FPTR(Perl_pp_semctl), /* Perl_pp_msgctl */
c9f7ac20 1090 MEMBER_TO_FPTR(Perl_pp_shmwrite), /* Perl_pp_msgsnd */
1091 MEMBER_TO_FPTR(Perl_pp_shmwrite), /* Perl_pp_msgrcv */
7834bb7e 1092 MEMBER_TO_FPTR(Perl_pp_shmwrite), /* Perl_pp_semop */
2b260de0 1093 MEMBER_TO_FPTR(Perl_pp_semget),
1094 MEMBER_TO_FPTR(Perl_pp_semctl),
2b260de0 1095 MEMBER_TO_FPTR(Perl_pp_require),
0b612f93 1096 MEMBER_TO_FPTR(Perl_pp_require), /* Perl_pp_dofile */
2b260de0 1097 MEMBER_TO_FPTR(Perl_pp_entereval),
1098 MEMBER_TO_FPTR(Perl_pp_leaveeval),
1099 MEMBER_TO_FPTR(Perl_pp_entertry),
1100 MEMBER_TO_FPTR(Perl_pp_leavetry),
0b612f93 1101 MEMBER_TO_FPTR(Perl_pp_ghostent), /* Perl_pp_ghbyname */
1102 MEMBER_TO_FPTR(Perl_pp_ghostent), /* Perl_pp_ghbyaddr */
2b260de0 1103 MEMBER_TO_FPTR(Perl_pp_ghostent),
0b612f93 1104 MEMBER_TO_FPTR(Perl_pp_gnetent), /* Perl_pp_gnbyname */
1105 MEMBER_TO_FPTR(Perl_pp_gnetent), /* Perl_pp_gnbyaddr */
2b260de0 1106 MEMBER_TO_FPTR(Perl_pp_gnetent),
0b612f93 1107 MEMBER_TO_FPTR(Perl_pp_gprotoent), /* Perl_pp_gpbyname */
1108 MEMBER_TO_FPTR(Perl_pp_gprotoent), /* Perl_pp_gpbynumber */
2b260de0 1109 MEMBER_TO_FPTR(Perl_pp_gprotoent),
0b612f93 1110 MEMBER_TO_FPTR(Perl_pp_gservent), /* Perl_pp_gsbyname */
1111 MEMBER_TO_FPTR(Perl_pp_gservent), /* Perl_pp_gsbyport */
2b260de0 1112 MEMBER_TO_FPTR(Perl_pp_gservent),
1113 MEMBER_TO_FPTR(Perl_pp_shostent),
1114 MEMBER_TO_FPTR(Perl_pp_snetent),
1115 MEMBER_TO_FPTR(Perl_pp_sprotoent),
1116 MEMBER_TO_FPTR(Perl_pp_sservent),
1117 MEMBER_TO_FPTR(Perl_pp_ehostent),
1118 MEMBER_TO_FPTR(Perl_pp_enetent),
1119 MEMBER_TO_FPTR(Perl_pp_eprotoent),
1120 MEMBER_TO_FPTR(Perl_pp_eservent),
0b612f93 1121 MEMBER_TO_FPTR(Perl_pp_gpwent), /* Perl_pp_gpwnam */
1122 MEMBER_TO_FPTR(Perl_pp_gpwent), /* Perl_pp_gpwuid */
2b260de0 1123 MEMBER_TO_FPTR(Perl_pp_gpwent),
1124 MEMBER_TO_FPTR(Perl_pp_spwent),
1125 MEMBER_TO_FPTR(Perl_pp_epwent),
0b612f93 1126 MEMBER_TO_FPTR(Perl_pp_ggrent), /* Perl_pp_ggrnam */
1127 MEMBER_TO_FPTR(Perl_pp_ggrent), /* Perl_pp_ggrgid */
2b260de0 1128 MEMBER_TO_FPTR(Perl_pp_ggrent),
1129 MEMBER_TO_FPTR(Perl_pp_sgrent),
1130 MEMBER_TO_FPTR(Perl_pp_egrent),
1131 MEMBER_TO_FPTR(Perl_pp_getlogin),
1132 MEMBER_TO_FPTR(Perl_pp_syscall),
1133 MEMBER_TO_FPTR(Perl_pp_lock),
2b260de0 1134 MEMBER_TO_FPTR(Perl_pp_setstate),
1135 MEMBER_TO_FPTR(Perl_pp_method_named),
25a55bd7 1136 MEMBER_TO_FPTR(Perl_pp_defined), /* Perl_pp_dor */
c960fc3b 1137 MEMBER_TO_FPTR(Perl_pp_defined), /* Perl_pp_dorassign */
0d863452 1138 MEMBER_TO_FPTR(Perl_pp_entergiven),
1139 MEMBER_TO_FPTR(Perl_pp_leavegiven),
1140 MEMBER_TO_FPTR(Perl_pp_enterwhen),
1141 MEMBER_TO_FPTR(Perl_pp_leavewhen),
1142 MEMBER_TO_FPTR(Perl_pp_break),
1143 MEMBER_TO_FPTR(Perl_pp_continue),
1144 MEMBER_TO_FPTR(Perl_pp_smartmatch),
1145 MEMBER_TO_FPTR(Perl_pp_print), /* Perl_pp_say */
d83386fa 1146 MEMBER_TO_FPTR(Perl_unimplemented_op), /* Perl_pp_custom */
27da23d5 1147}
79072805 1148#endif
97aff369 1149#ifdef PERL_PPADDR_INITED
27da23d5 1150;
97aff369 1151#endif
79072805 1152
27da23d5 1153#ifdef PERL_GLOBAL_STRUCT_INIT
97aff369 1154# define PERL_CHECK_INITED
27da23d5 1155static const Perl_check_t Gcheck[]
79072805 1156#else
27da23d5 1157# ifndef PERL_GLOBAL_STRUCT
97aff369 1158# define PERL_CHECK_INITED
27da23d5 1159EXT Perl_check_t PL_check[] /* or perlvars.h */
1160# endif
1161#endif
1162#if (defined(DOINIT) && !defined(PERL_GLOBAL_STRUCT)) || defined(PERL_GLOBAL_STRUCT_INIT)
97aff369 1163# define PERL_CHECK_INITED
27da23d5 1164= {
2b260de0 1165 MEMBER_TO_FPTR(Perl_ck_null), /* null */
1166 MEMBER_TO_FPTR(Perl_ck_null), /* stub */
1167 MEMBER_TO_FPTR(Perl_ck_fun), /* scalar */
1168 MEMBER_TO_FPTR(Perl_ck_null), /* pushmark */
1169 MEMBER_TO_FPTR(Perl_ck_null), /* wantarray */
1170 MEMBER_TO_FPTR(Perl_ck_svconst), /* const */
1171 MEMBER_TO_FPTR(Perl_ck_null), /* gvsv */
1172 MEMBER_TO_FPTR(Perl_ck_null), /* gv */
1173 MEMBER_TO_FPTR(Perl_ck_null), /* gelem */
1174 MEMBER_TO_FPTR(Perl_ck_null), /* padsv */
1175 MEMBER_TO_FPTR(Perl_ck_null), /* padav */
1176 MEMBER_TO_FPTR(Perl_ck_null), /* padhv */
1177 MEMBER_TO_FPTR(Perl_ck_null), /* padany */
1178 MEMBER_TO_FPTR(Perl_ck_null), /* pushre */
1179 MEMBER_TO_FPTR(Perl_ck_rvconst), /* rv2gv */
1180 MEMBER_TO_FPTR(Perl_ck_rvconst), /* rv2sv */
1181 MEMBER_TO_FPTR(Perl_ck_null), /* av2arylen */
1182 MEMBER_TO_FPTR(Perl_ck_rvconst), /* rv2cv */
1183 MEMBER_TO_FPTR(Perl_ck_anoncode), /* anoncode */
1184 MEMBER_TO_FPTR(Perl_ck_null), /* prototype */
1185 MEMBER_TO_FPTR(Perl_ck_spair), /* refgen */
1186 MEMBER_TO_FPTR(Perl_ck_null), /* srefgen */
1187 MEMBER_TO_FPTR(Perl_ck_fun), /* ref */
1188 MEMBER_TO_FPTR(Perl_ck_fun), /* bless */
16fe6d59 1189 MEMBER_TO_FPTR(Perl_ck_open), /* backtick */
2b260de0 1190 MEMBER_TO_FPTR(Perl_ck_glob), /* glob */
e4b7ebf3 1191 MEMBER_TO_FPTR(Perl_ck_readline), /* readline */
2b260de0 1192 MEMBER_TO_FPTR(Perl_ck_null), /* rcatline */
1193 MEMBER_TO_FPTR(Perl_ck_fun), /* regcmaybe */
1194 MEMBER_TO_FPTR(Perl_ck_fun), /* regcreset */
1195 MEMBER_TO_FPTR(Perl_ck_null), /* regcomp */
1196 MEMBER_TO_FPTR(Perl_ck_match), /* match */
1197 MEMBER_TO_FPTR(Perl_ck_match), /* qr */
59f00321 1198 MEMBER_TO_FPTR(Perl_ck_match), /* subst */
2b260de0 1199 MEMBER_TO_FPTR(Perl_ck_null), /* substcont */
59f00321 1200 MEMBER_TO_FPTR(Perl_ck_match), /* trans */
2b260de0 1201 MEMBER_TO_FPTR(Perl_ck_sassign), /* sassign */
1202 MEMBER_TO_FPTR(Perl_ck_null), /* aassign */
1203 MEMBER_TO_FPTR(Perl_ck_spair), /* chop */
1204 MEMBER_TO_FPTR(Perl_ck_null), /* schop */
1205 MEMBER_TO_FPTR(Perl_ck_spair), /* chomp */
1206 MEMBER_TO_FPTR(Perl_ck_null), /* schomp */
1207 MEMBER_TO_FPTR(Perl_ck_defined), /* defined */
1208 MEMBER_TO_FPTR(Perl_ck_lfun), /* undef */
1209 MEMBER_TO_FPTR(Perl_ck_fun), /* study */
1210 MEMBER_TO_FPTR(Perl_ck_lfun), /* pos */
1211 MEMBER_TO_FPTR(Perl_ck_lfun), /* preinc */
1212 MEMBER_TO_FPTR(Perl_ck_lfun), /* i_preinc */
1213 MEMBER_TO_FPTR(Perl_ck_lfun), /* predec */
1214 MEMBER_TO_FPTR(Perl_ck_lfun), /* i_predec */
1215 MEMBER_TO_FPTR(Perl_ck_lfun), /* postinc */
1216 MEMBER_TO_FPTR(Perl_ck_lfun), /* i_postinc */
1217 MEMBER_TO_FPTR(Perl_ck_lfun), /* postdec */
1218 MEMBER_TO_FPTR(Perl_ck_lfun), /* i_postdec */
1219 MEMBER_TO_FPTR(Perl_ck_null), /* pow */
1220 MEMBER_TO_FPTR(Perl_ck_null), /* multiply */
1221 MEMBER_TO_FPTR(Perl_ck_null), /* i_multiply */
1222 MEMBER_TO_FPTR(Perl_ck_null), /* divide */
1223 MEMBER_TO_FPTR(Perl_ck_null), /* i_divide */
1224 MEMBER_TO_FPTR(Perl_ck_null), /* modulo */
1225 MEMBER_TO_FPTR(Perl_ck_null), /* i_modulo */
1226 MEMBER_TO_FPTR(Perl_ck_repeat), /* repeat */
1227 MEMBER_TO_FPTR(Perl_ck_null), /* add */
1228 MEMBER_TO_FPTR(Perl_ck_null), /* i_add */
1229 MEMBER_TO_FPTR(Perl_ck_null), /* subtract */
1230 MEMBER_TO_FPTR(Perl_ck_null), /* i_subtract */
1231 MEMBER_TO_FPTR(Perl_ck_concat), /* concat */
1232 MEMBER_TO_FPTR(Perl_ck_fun), /* stringify */
1233 MEMBER_TO_FPTR(Perl_ck_bitop), /* left_shift */
1234 MEMBER_TO_FPTR(Perl_ck_bitop), /* right_shift */
1235 MEMBER_TO_FPTR(Perl_ck_null), /* lt */
1236 MEMBER_TO_FPTR(Perl_ck_null), /* i_lt */
1237 MEMBER_TO_FPTR(Perl_ck_null), /* gt */
1238 MEMBER_TO_FPTR(Perl_ck_null), /* i_gt */
1239 MEMBER_TO_FPTR(Perl_ck_null), /* le */
1240 MEMBER_TO_FPTR(Perl_ck_null), /* i_le */
1241 MEMBER_TO_FPTR(Perl_ck_null), /* ge */
1242 MEMBER_TO_FPTR(Perl_ck_null), /* i_ge */
1243 MEMBER_TO_FPTR(Perl_ck_null), /* eq */
1244 MEMBER_TO_FPTR(Perl_ck_null), /* i_eq */
1245 MEMBER_TO_FPTR(Perl_ck_null), /* ne */
1246 MEMBER_TO_FPTR(Perl_ck_null), /* i_ne */
1247 MEMBER_TO_FPTR(Perl_ck_null), /* ncmp */
1248 MEMBER_TO_FPTR(Perl_ck_null), /* i_ncmp */
2de3dbcc 1249 MEMBER_TO_FPTR(Perl_ck_null), /* slt */
1250 MEMBER_TO_FPTR(Perl_ck_null), /* sgt */
1251 MEMBER_TO_FPTR(Perl_ck_null), /* sle */
1252 MEMBER_TO_FPTR(Perl_ck_null), /* sge */
2b260de0 1253 MEMBER_TO_FPTR(Perl_ck_null), /* seq */
1254 MEMBER_TO_FPTR(Perl_ck_null), /* sne */
2de3dbcc 1255 MEMBER_TO_FPTR(Perl_ck_null), /* scmp */
2b260de0 1256 MEMBER_TO_FPTR(Perl_ck_bitop), /* bit_and */
1257 MEMBER_TO_FPTR(Perl_ck_bitop), /* bit_xor */
1258 MEMBER_TO_FPTR(Perl_ck_bitop), /* bit_or */
1259 MEMBER_TO_FPTR(Perl_ck_null), /* negate */
1260 MEMBER_TO_FPTR(Perl_ck_null), /* i_negate */
1261 MEMBER_TO_FPTR(Perl_ck_null), /* not */
1262 MEMBER_TO_FPTR(Perl_ck_bitop), /* complement */
1263 MEMBER_TO_FPTR(Perl_ck_fun), /* atan2 */
1264 MEMBER_TO_FPTR(Perl_ck_fun), /* sin */
1265 MEMBER_TO_FPTR(Perl_ck_fun), /* cos */
1266 MEMBER_TO_FPTR(Perl_ck_fun), /* rand */
1267 MEMBER_TO_FPTR(Perl_ck_fun), /* srand */
1268 MEMBER_TO_FPTR(Perl_ck_fun), /* exp */
1269 MEMBER_TO_FPTR(Perl_ck_fun), /* log */
1270 MEMBER_TO_FPTR(Perl_ck_fun), /* sqrt */
1271 MEMBER_TO_FPTR(Perl_ck_fun), /* int */
1272 MEMBER_TO_FPTR(Perl_ck_fun), /* hex */
1273 MEMBER_TO_FPTR(Perl_ck_fun), /* oct */
1274 MEMBER_TO_FPTR(Perl_ck_fun), /* abs */
1275 MEMBER_TO_FPTR(Perl_ck_lengthconst), /* length */
444155da 1276 MEMBER_TO_FPTR(Perl_ck_substr), /* substr */
2b260de0 1277 MEMBER_TO_FPTR(Perl_ck_fun), /* vec */
1278 MEMBER_TO_FPTR(Perl_ck_index), /* index */
1279 MEMBER_TO_FPTR(Perl_ck_index), /* rindex */
2de3dbcc 1280 MEMBER_TO_FPTR(Perl_ck_fun), /* sprintf */
2b260de0 1281 MEMBER_TO_FPTR(Perl_ck_fun), /* formline */
1282 MEMBER_TO_FPTR(Perl_ck_fun), /* ord */
1283 MEMBER_TO_FPTR(Perl_ck_fun), /* chr */
1284 MEMBER_TO_FPTR(Perl_ck_fun), /* crypt */
2de3dbcc 1285 MEMBER_TO_FPTR(Perl_ck_fun), /* ucfirst */
1286 MEMBER_TO_FPTR(Perl_ck_fun), /* lcfirst */
1287 MEMBER_TO_FPTR(Perl_ck_fun), /* uc */
1288 MEMBER_TO_FPTR(Perl_ck_fun), /* lc */
2b260de0 1289 MEMBER_TO_FPTR(Perl_ck_fun), /* quotemeta */
1290 MEMBER_TO_FPTR(Perl_ck_rvconst), /* rv2av */
1291 MEMBER_TO_FPTR(Perl_ck_null), /* aelemfast */
1292 MEMBER_TO_FPTR(Perl_ck_null), /* aelem */
1293 MEMBER_TO_FPTR(Perl_ck_null), /* aslice */
1294 MEMBER_TO_FPTR(Perl_ck_fun), /* each */
1295 MEMBER_TO_FPTR(Perl_ck_fun), /* values */
1296 MEMBER_TO_FPTR(Perl_ck_fun), /* keys */
1297 MEMBER_TO_FPTR(Perl_ck_delete), /* delete */
1298 MEMBER_TO_FPTR(Perl_ck_exists), /* exists */
1299 MEMBER_TO_FPTR(Perl_ck_rvconst), /* rv2hv */
1300 MEMBER_TO_FPTR(Perl_ck_null), /* helem */
1301 MEMBER_TO_FPTR(Perl_ck_null), /* hslice */
bab9c0ac 1302 MEMBER_TO_FPTR(Perl_ck_unpack), /* unpack */
2b260de0 1303 MEMBER_TO_FPTR(Perl_ck_fun), /* pack */
1304 MEMBER_TO_FPTR(Perl_ck_split), /* split */
1305 MEMBER_TO_FPTR(Perl_ck_join), /* join */
1306 MEMBER_TO_FPTR(Perl_ck_null), /* list */
1307 MEMBER_TO_FPTR(Perl_ck_null), /* lslice */
1308 MEMBER_TO_FPTR(Perl_ck_fun), /* anonlist */
1309 MEMBER_TO_FPTR(Perl_ck_fun), /* anonhash */
1310 MEMBER_TO_FPTR(Perl_ck_fun), /* splice */
1311 MEMBER_TO_FPTR(Perl_ck_fun), /* push */
1312 MEMBER_TO_FPTR(Perl_ck_shift), /* pop */
1313 MEMBER_TO_FPTR(Perl_ck_shift), /* shift */
1314 MEMBER_TO_FPTR(Perl_ck_fun), /* unshift */
1315 MEMBER_TO_FPTR(Perl_ck_sort), /* sort */
1316 MEMBER_TO_FPTR(Perl_ck_fun), /* reverse */
1317 MEMBER_TO_FPTR(Perl_ck_grep), /* grepstart */
1318 MEMBER_TO_FPTR(Perl_ck_null), /* grepwhile */
1319 MEMBER_TO_FPTR(Perl_ck_grep), /* mapstart */
1320 MEMBER_TO_FPTR(Perl_ck_null), /* mapwhile */
1321 MEMBER_TO_FPTR(Perl_ck_null), /* range */
1322 MEMBER_TO_FPTR(Perl_ck_null), /* flip */
1323 MEMBER_TO_FPTR(Perl_ck_null), /* flop */
1324 MEMBER_TO_FPTR(Perl_ck_null), /* and */
1325 MEMBER_TO_FPTR(Perl_ck_null), /* or */
1326 MEMBER_TO_FPTR(Perl_ck_null), /* xor */
1327 MEMBER_TO_FPTR(Perl_ck_null), /* cond_expr */
1328 MEMBER_TO_FPTR(Perl_ck_null), /* andassign */
1329 MEMBER_TO_FPTR(Perl_ck_null), /* orassign */
1330 MEMBER_TO_FPTR(Perl_ck_method), /* method */
1331 MEMBER_TO_FPTR(Perl_ck_subr), /* entersub */
1332 MEMBER_TO_FPTR(Perl_ck_null), /* leavesub */
1333 MEMBER_TO_FPTR(Perl_ck_null), /* leavesublv */
1334 MEMBER_TO_FPTR(Perl_ck_fun), /* caller */
1335 MEMBER_TO_FPTR(Perl_ck_fun), /* warn */
96e176bf 1336 MEMBER_TO_FPTR(Perl_ck_die), /* die */
2b260de0 1337 MEMBER_TO_FPTR(Perl_ck_fun), /* reset */
1338 MEMBER_TO_FPTR(Perl_ck_null), /* lineseq */
722969e2 1339 MEMBER_TO_FPTR(Perl_ck_null), /* nextstate */
1340 MEMBER_TO_FPTR(Perl_ck_null), /* dbstate */
2b260de0 1341 MEMBER_TO_FPTR(Perl_ck_null), /* unstack */
1342 MEMBER_TO_FPTR(Perl_ck_null), /* enter */
1343 MEMBER_TO_FPTR(Perl_ck_null), /* leave */
1344 MEMBER_TO_FPTR(Perl_ck_null), /* scope */
1345 MEMBER_TO_FPTR(Perl_ck_null), /* enteriter */
1346 MEMBER_TO_FPTR(Perl_ck_null), /* iter */
1347 MEMBER_TO_FPTR(Perl_ck_null), /* enterloop */
1348 MEMBER_TO_FPTR(Perl_ck_null), /* leaveloop */
78f9721b 1349 MEMBER_TO_FPTR(Perl_ck_return), /* return */
2b260de0 1350 MEMBER_TO_FPTR(Perl_ck_null), /* last */
1351 MEMBER_TO_FPTR(Perl_ck_null), /* next */
1352 MEMBER_TO_FPTR(Perl_ck_null), /* redo */
1353 MEMBER_TO_FPTR(Perl_ck_null), /* dump */
1354 MEMBER_TO_FPTR(Perl_ck_null), /* goto */
d98f61e7 1355 MEMBER_TO_FPTR(Perl_ck_exit), /* exit */
16fe6d59 1356 MEMBER_TO_FPTR(Perl_ck_open), /* open */
2b260de0 1357 MEMBER_TO_FPTR(Perl_ck_fun), /* close */
1358 MEMBER_TO_FPTR(Perl_ck_fun), /* pipe_op */
1359 MEMBER_TO_FPTR(Perl_ck_fun), /* fileno */
a86a20aa 1360 MEMBER_TO_FPTR(Perl_ck_fun), /* umask */
2b260de0 1361 MEMBER_TO_FPTR(Perl_ck_fun), /* binmode */
1362 MEMBER_TO_FPTR(Perl_ck_fun), /* tie */
1363 MEMBER_TO_FPTR(Perl_ck_fun), /* untie */
1364 MEMBER_TO_FPTR(Perl_ck_fun), /* tied */
1365 MEMBER_TO_FPTR(Perl_ck_fun), /* dbmopen */
1366 MEMBER_TO_FPTR(Perl_ck_fun), /* dbmclose */
1367 MEMBER_TO_FPTR(Perl_ck_select), /* sselect */
1368 MEMBER_TO_FPTR(Perl_ck_select), /* select */
1369 MEMBER_TO_FPTR(Perl_ck_eof), /* getc */
1370 MEMBER_TO_FPTR(Perl_ck_fun), /* read */
1371 MEMBER_TO_FPTR(Perl_ck_fun), /* enterwrite */
1372 MEMBER_TO_FPTR(Perl_ck_null), /* leavewrite */
1373 MEMBER_TO_FPTR(Perl_ck_listiob), /* prtf */
1374 MEMBER_TO_FPTR(Perl_ck_listiob), /* print */
1375 MEMBER_TO_FPTR(Perl_ck_fun), /* sysopen */
1376 MEMBER_TO_FPTR(Perl_ck_fun), /* sysseek */
1377 MEMBER_TO_FPTR(Perl_ck_fun), /* sysread */
1378 MEMBER_TO_FPTR(Perl_ck_fun), /* syswrite */
1379 MEMBER_TO_FPTR(Perl_ck_fun), /* send */
1380 MEMBER_TO_FPTR(Perl_ck_fun), /* recv */
1381 MEMBER_TO_FPTR(Perl_ck_eof), /* eof */
1382 MEMBER_TO_FPTR(Perl_ck_fun), /* tell */
1383 MEMBER_TO_FPTR(Perl_ck_fun), /* seek */
1384 MEMBER_TO_FPTR(Perl_ck_trunc), /* truncate */
1385 MEMBER_TO_FPTR(Perl_ck_fun), /* fcntl */
1386 MEMBER_TO_FPTR(Perl_ck_fun), /* ioctl */
1387 MEMBER_TO_FPTR(Perl_ck_fun), /* flock */
1388 MEMBER_TO_FPTR(Perl_ck_fun), /* socket */
1389 MEMBER_TO_FPTR(Perl_ck_fun), /* sockpair */
1390 MEMBER_TO_FPTR(Perl_ck_fun), /* bind */
1391 MEMBER_TO_FPTR(Perl_ck_fun), /* connect */
1392 MEMBER_TO_FPTR(Perl_ck_fun), /* listen */
1393 MEMBER_TO_FPTR(Perl_ck_fun), /* accept */
1394 MEMBER_TO_FPTR(Perl_ck_fun), /* shutdown */
1395 MEMBER_TO_FPTR(Perl_ck_fun), /* gsockopt */
1396 MEMBER_TO_FPTR(Perl_ck_fun), /* ssockopt */
1397 MEMBER_TO_FPTR(Perl_ck_fun), /* getsockname */
1398 MEMBER_TO_FPTR(Perl_ck_fun), /* getpeername */
1399 MEMBER_TO_FPTR(Perl_ck_ftst), /* lstat */
1400 MEMBER_TO_FPTR(Perl_ck_ftst), /* stat */
1401 MEMBER_TO_FPTR(Perl_ck_ftst), /* ftrread */
1402 MEMBER_TO_FPTR(Perl_ck_ftst), /* ftrwrite */
1403 MEMBER_TO_FPTR(Perl_ck_ftst), /* ftrexec */
1404 MEMBER_TO_FPTR(Perl_ck_ftst), /* fteread */
1405 MEMBER_TO_FPTR(Perl_ck_ftst), /* ftewrite */
1406 MEMBER_TO_FPTR(Perl_ck_ftst), /* fteexec */
1407 MEMBER_TO_FPTR(Perl_ck_ftst), /* ftis */
2b260de0 1408 MEMBER_TO_FPTR(Perl_ck_ftst), /* ftsize */
1409 MEMBER_TO_FPTR(Perl_ck_ftst), /* ftmtime */
1410 MEMBER_TO_FPTR(Perl_ck_ftst), /* ftatime */
1411 MEMBER_TO_FPTR(Perl_ck_ftst), /* ftctime */
7834bb7e 1412 MEMBER_TO_FPTR(Perl_ck_ftst), /* ftrowned */
1413 MEMBER_TO_FPTR(Perl_ck_ftst), /* fteowned */
1414 MEMBER_TO_FPTR(Perl_ck_ftst), /* ftzero */
2b260de0 1415 MEMBER_TO_FPTR(Perl_ck_ftst), /* ftsock */
1416 MEMBER_TO_FPTR(Perl_ck_ftst), /* ftchr */
1417 MEMBER_TO_FPTR(Perl_ck_ftst), /* ftblk */
1418 MEMBER_TO_FPTR(Perl_ck_ftst), /* ftfile */
1419 MEMBER_TO_FPTR(Perl_ck_ftst), /* ftdir */
1420 MEMBER_TO_FPTR(Perl_ck_ftst), /* ftpipe */
2b260de0 1421 MEMBER_TO_FPTR(Perl_ck_ftst), /* ftsuid */
1422 MEMBER_TO_FPTR(Perl_ck_ftst), /* ftsgid */
1423 MEMBER_TO_FPTR(Perl_ck_ftst), /* ftsvtx */
7834bb7e 1424 MEMBER_TO_FPTR(Perl_ck_ftst), /* ftlink */
2b260de0 1425 MEMBER_TO_FPTR(Perl_ck_ftst), /* fttty */
1426 MEMBER_TO_FPTR(Perl_ck_ftst), /* fttext */
1427 MEMBER_TO_FPTR(Perl_ck_ftst), /* ftbinary */
d4ac975e 1428 MEMBER_TO_FPTR(Perl_ck_chdir), /* chdir */
2b260de0 1429 MEMBER_TO_FPTR(Perl_ck_fun), /* chown */
1430 MEMBER_TO_FPTR(Perl_ck_fun), /* chroot */
1431 MEMBER_TO_FPTR(Perl_ck_fun), /* unlink */
a86a20aa 1432 MEMBER_TO_FPTR(Perl_ck_fun), /* chmod */
2b260de0 1433 MEMBER_TO_FPTR(Perl_ck_fun), /* utime */
1434 MEMBER_TO_FPTR(Perl_ck_fun), /* rename */
1435 MEMBER_TO_FPTR(Perl_ck_fun), /* link */
1436 MEMBER_TO_FPTR(Perl_ck_fun), /* symlink */
1437 MEMBER_TO_FPTR(Perl_ck_fun), /* readlink */
a86a20aa 1438 MEMBER_TO_FPTR(Perl_ck_fun), /* mkdir */
2b260de0 1439 MEMBER_TO_FPTR(Perl_ck_fun), /* rmdir */
1440 MEMBER_TO_FPTR(Perl_ck_fun), /* open_dir */
1441 MEMBER_TO_FPTR(Perl_ck_fun), /* readdir */
1442 MEMBER_TO_FPTR(Perl_ck_fun), /* telldir */
1443 MEMBER_TO_FPTR(Perl_ck_fun), /* seekdir */
1444 MEMBER_TO_FPTR(Perl_ck_fun), /* rewinddir */
1445 MEMBER_TO_FPTR(Perl_ck_fun), /* closedir */
1446 MEMBER_TO_FPTR(Perl_ck_null), /* fork */
1447 MEMBER_TO_FPTR(Perl_ck_null), /* wait */
1448 MEMBER_TO_FPTR(Perl_ck_fun), /* waitpid */
1449 MEMBER_TO_FPTR(Perl_ck_exec), /* system */
1450 MEMBER_TO_FPTR(Perl_ck_exec), /* exec */
1451 MEMBER_TO_FPTR(Perl_ck_fun), /* kill */
1452 MEMBER_TO_FPTR(Perl_ck_null), /* getppid */
1453 MEMBER_TO_FPTR(Perl_ck_fun), /* getpgrp */
1454 MEMBER_TO_FPTR(Perl_ck_fun), /* setpgrp */
1455 MEMBER_TO_FPTR(Perl_ck_fun), /* getpriority */
1456 MEMBER_TO_FPTR(Perl_ck_fun), /* setpriority */
1457 MEMBER_TO_FPTR(Perl_ck_null), /* time */
1458 MEMBER_TO_FPTR(Perl_ck_null), /* tms */
1459 MEMBER_TO_FPTR(Perl_ck_fun), /* localtime */
1460 MEMBER_TO_FPTR(Perl_ck_fun), /* gmtime */
1461 MEMBER_TO_FPTR(Perl_ck_fun), /* alarm */
1462 MEMBER_TO_FPTR(Perl_ck_fun), /* sleep */
1463 MEMBER_TO_FPTR(Perl_ck_fun), /* shmget */
1464 MEMBER_TO_FPTR(Perl_ck_fun), /* shmctl */
1465 MEMBER_TO_FPTR(Perl_ck_fun), /* shmread */
1466 MEMBER_TO_FPTR(Perl_ck_fun), /* shmwrite */
1467 MEMBER_TO_FPTR(Perl_ck_fun), /* msgget */
1468 MEMBER_TO_FPTR(Perl_ck_fun), /* msgctl */
1469 MEMBER_TO_FPTR(Perl_ck_fun), /* msgsnd */
1470 MEMBER_TO_FPTR(Perl_ck_fun), /* msgrcv */
7834bb7e 1471 MEMBER_TO_FPTR(Perl_ck_fun), /* semop */
2b260de0 1472 MEMBER_TO_FPTR(Perl_ck_fun), /* semget */
1473 MEMBER_TO_FPTR(Perl_ck_fun), /* semctl */
2b260de0 1474 MEMBER_TO_FPTR(Perl_ck_require), /* require */
1475 MEMBER_TO_FPTR(Perl_ck_fun), /* dofile */
1476 MEMBER_TO_FPTR(Perl_ck_eval), /* entereval */
1477 MEMBER_TO_FPTR(Perl_ck_null), /* leaveeval */
1478 MEMBER_TO_FPTR(Perl_ck_null), /* entertry */
1479 MEMBER_TO_FPTR(Perl_ck_null), /* leavetry */
1480 MEMBER_TO_FPTR(Perl_ck_fun), /* ghbyname */
1481 MEMBER_TO_FPTR(Perl_ck_fun), /* ghbyaddr */
1482 MEMBER_TO_FPTR(Perl_ck_null), /* ghostent */
1483 MEMBER_TO_FPTR(Perl_ck_fun), /* gnbyname */
1484 MEMBER_TO_FPTR(Perl_ck_fun), /* gnbyaddr */
1485 MEMBER_TO_FPTR(Perl_ck_null), /* gnetent */
1486 MEMBER_TO_FPTR(Perl_ck_fun), /* gpbyname */
1487 MEMBER_TO_FPTR(Perl_ck_fun), /* gpbynumber */
1488 MEMBER_TO_FPTR(Perl_ck_null), /* gprotoent */
1489 MEMBER_TO_FPTR(Perl_ck_fun), /* gsbyname */
1490 MEMBER_TO_FPTR(Perl_ck_fun), /* gsbyport */
1491 MEMBER_TO_FPTR(Perl_ck_null), /* gservent */
1492 MEMBER_TO_FPTR(Perl_ck_fun), /* shostent */
1493 MEMBER_TO_FPTR(Perl_ck_fun), /* snetent */
1494 MEMBER_TO_FPTR(Perl_ck_fun), /* sprotoent */
1495 MEMBER_TO_FPTR(Perl_ck_fun), /* sservent */
1496 MEMBER_TO_FPTR(Perl_ck_null), /* ehostent */
1497 MEMBER_TO_FPTR(Perl_ck_null), /* enetent */
1498 MEMBER_TO_FPTR(Perl_ck_null), /* eprotoent */
1499 MEMBER_TO_FPTR(Perl_ck_null), /* eservent */
1500 MEMBER_TO_FPTR(Perl_ck_fun), /* gpwnam */
1501 MEMBER_TO_FPTR(Perl_ck_fun), /* gpwuid */
1502 MEMBER_TO_FPTR(Perl_ck_null), /* gpwent */
1503 MEMBER_TO_FPTR(Perl_ck_null), /* spwent */
1504 MEMBER_TO_FPTR(Perl_ck_null), /* epwent */
1505 MEMBER_TO_FPTR(Perl_ck_fun), /* ggrnam */
1506 MEMBER_TO_FPTR(Perl_ck_fun), /* ggrgid */
1507 MEMBER_TO_FPTR(Perl_ck_null), /* ggrent */
1508 MEMBER_TO_FPTR(Perl_ck_null), /* sgrent */
1509 MEMBER_TO_FPTR(Perl_ck_null), /* egrent */
1510 MEMBER_TO_FPTR(Perl_ck_null), /* getlogin */
1511 MEMBER_TO_FPTR(Perl_ck_fun), /* syscall */
1512 MEMBER_TO_FPTR(Perl_ck_rfun), /* lock */
2b260de0 1513 MEMBER_TO_FPTR(Perl_ck_null), /* setstate */
1514 MEMBER_TO_FPTR(Perl_ck_null), /* method_named */
c963b151 1515 MEMBER_TO_FPTR(Perl_ck_null), /* dor */
1516 MEMBER_TO_FPTR(Perl_ck_null), /* dorassign */
0d863452 1517 MEMBER_TO_FPTR(Perl_ck_null), /* entergiven */
1518 MEMBER_TO_FPTR(Perl_ck_null), /* leavegiven */
1519 MEMBER_TO_FPTR(Perl_ck_null), /* enterwhen */
1520 MEMBER_TO_FPTR(Perl_ck_null), /* leavewhen */
1521 MEMBER_TO_FPTR(Perl_ck_null), /* break */
1522 MEMBER_TO_FPTR(Perl_ck_null), /* continue */
1523 MEMBER_TO_FPTR(Perl_ck_smartmatch), /* smartmatch */
cfc4a7da 1524 MEMBER_TO_FPTR(Perl_ck_listiob), /* say */
438c221d 1525 MEMBER_TO_FPTR(Perl_ck_null), /* custom */
27da23d5 1526}
79072805 1527#endif
97aff369 1528#ifdef PERL_CHECK_INITED
27da23d5 1529;
97aff369 1530#endif /* #ifdef PERL_CHECK_INITED */
27da23d5 1531
1532#ifndef PERL_GLOBAL_STRUCT_INIT
79072805 1533
1534#ifndef DOINIT
1ccb7c8d 1535EXTCONST U32 PL_opargs[];
79072805 1536#else
1ccb7c8d 1537EXTCONST U32 PL_opargs[] = {
79072805 1538 0x00000000, /* null */
93a17b20 1539 0x00000000, /* stub */
1a67a97c 1540 0x00003604, /* scalar */
79072805 1541 0x00000004, /* pushmark */
1542 0x00000014, /* wantarray */
1a67a97c 1543 0x00000c04, /* const */
7934575e 1544 0x00000c44, /* gvsv */
1545 0x00000c44, /* gv */
b162f9ea 1546 0x00022440, /* gelem */
748a9306 1547 0x00000044, /* padsv */
1548 0x00000040, /* padav */
1549 0x00000040, /* padhv */
1550 0x00000040, /* padany */
1a67a97c 1551 0x00000a40, /* pushre */
b162f9ea 1552 0x00000244, /* rv2gv */
1553 0x00000244, /* rv2sv */
1554 0x00000214, /* av2arylen */
1555 0x00000240, /* rv2cv */
1a67a97c 1556 0x00000c00, /* anoncode */
1557 0x00003604, /* prototype */
b162f9ea 1558 0x00004201, /* refgen */
1559 0x00002206, /* srefgen */
1a67a97c 1560 0x0001368c, /* ref */
1561 0x00122804, /* bless */
01f5bc1b 1562 0x00013688, /* backtick */
649da076 1563 0x00012808, /* glob */
b04ef359 1564 0x0001d608, /* readline */
5fc9b9e4 1565 0x00000c08, /* rcatline */
b162f9ea 1566 0x00002204, /* regcmaybe */
1567 0x00002204, /* regcreset */
1568 0x00002604, /* regcomp */
1a67a97c 1569 0x00000a40, /* match */
1570 0x00000a04, /* qr */
1571 0x00002a54, /* subst */
b162f9ea 1572 0x00000654, /* substcont */
1a67a97c 1573 0x00003014, /* trans */
79072805 1574 0x00000004, /* sassign */
b162f9ea 1575 0x00044408, /* aassign */
21f5b33c 1576 0x0000560d, /* chop */
1577 0x0001368c, /* schop */
1a67a97c 1578 0x0000570d, /* chomp */
1579 0x0001378c, /* schomp */
1580 0x00013694, /* defined */
1581 0x00013604, /* undef */
1582 0x00013684, /* study */
1583 0x0001368c, /* pos */
b162f9ea 1584 0x00002264, /* preinc */
1585 0x00002254, /* i_preinc */
1586 0x00002264, /* predec */
1587 0x00002254, /* i_predec */
21f5b33c 1588 0x0000226c, /* postinc */
b162f9ea 1589 0x0000235c, /* i_postinc */
21f5b33c 1590 0x0000226c, /* postdec */
b162f9ea 1591 0x0000235c, /* i_postdec */
1592 0x0002250e, /* pow */
1593 0x0002252e, /* multiply */
1594 0x0002251e, /* i_multiply */
1595 0x0002252e, /* divide */
1596 0x0002251e, /* i_divide */
1597 0x0002253e, /* modulo */
1598 0x0002251e, /* i_modulo */
1599 0x00024409, /* repeat */
1600 0x0002252e, /* add */
1601 0x0002251e, /* i_add */
1602 0x0002252e, /* subtract */
1603 0x0002251e, /* i_subtract */
df91b2c5 1604 0x0002250e, /* concat */
1a67a97c 1605 0x0000290e, /* stringify */
b162f9ea 1606 0x0002250e, /* left_shift */
1607 0x0002250e, /* right_shift */
1608 0x00022436, /* lt */
1609 0x00022416, /* i_lt */
1610 0x00022436, /* gt */
1611 0x00022416, /* i_gt */
1612 0x00022436, /* le */
1613 0x00022416, /* i_le */
1614 0x00022436, /* ge */
1615 0x00022416, /* i_ge */
1616 0x00022436, /* eq */
1617 0x00022416, /* i_eq */
1618 0x00022436, /* ne */
1619 0x00022416, /* i_ne */
1620 0x0002243e, /* ncmp */
1621 0x0002241e, /* i_ncmp */
1622 0x00022416, /* slt */
1623 0x00022416, /* sgt */
1624 0x00022416, /* sle */
1625 0x00022416, /* sge */
1626 0x00022416, /* seq */
1627 0x00022416, /* sne */
1628 0x0002241e, /* scmp */
21f5b33c 1629 0x0002240e, /* bit_and */
1630 0x0002240e, /* bit_xor */
1631 0x0002240e, /* bit_or */
1632 0x0000222e, /* negate */
b162f9ea 1633 0x0000231e, /* i_negate */
1634 0x00002216, /* not */
21f5b33c 1635 0x0000220e, /* complement */
1a67a97c 1636 0x0002290e, /* atan2 */
1637 0x0001378e, /* sin */
1638 0x0001378e, /* cos */
1639 0x0001370c, /* rand */
1640 0x00013604, /* srand */
1641 0x0001378e, /* exp */
1642 0x0001378e, /* log */
1643 0x0001378e, /* sqrt */
1644 0x0001378e, /* int */
1645 0x0001378e, /* hex */
1646 0x0001378e, /* oct */
1647 0x0001378e, /* abs */
1648 0x0001379c, /* length */
1649 0x1322280c, /* substr */
1650 0x0022281c, /* vec */
1651 0x0122291c, /* index */
1652 0x0122291c, /* rindex */
fc7325bb 1653 0x0004280d, /* sprintf */
1a67a97c 1654 0x00042805, /* formline */
1655 0x0001379e, /* ord */
1656 0x0001378e, /* chr */
1657 0x0002290e, /* crypt */
1658 0x0001368e, /* ucfirst */
1659 0x0001368e, /* lcfirst */
1660 0x0001368e, /* uc */
1661 0x0001368e, /* lc */
69b47968 1662 0x0001368e, /* quotemeta */
b162f9ea 1663 0x00000248, /* rv2av */
7934575e 1664 0x00026c04, /* aelemfast */
b162f9ea 1665 0x00026404, /* aelem */
1a67a97c 1666 0x00046801, /* aslice */
59af0135 1667 0x00009600, /* each */
1a67a97c 1668 0x00009608, /* values */
1669 0x00009608, /* keys */
1670 0x00003600, /* delete */
1671 0x00003614, /* exists */
b162f9ea 1672 0x00000248, /* rv2hv */
1673 0x00028404, /* helem */
1a67a97c 1674 0x00048801, /* hslice */
13dcffc6 1675 0x00122800, /* unpack */
1a67a97c 1676 0x0004280d, /* pack */
1677 0x00222808, /* split */
69b47968 1678 0x0004280d, /* join */
1a67a97c 1679 0x00004801, /* list */
b162f9ea 1680 0x00448400, /* lslice */
1a67a97c 1681 0x00004805, /* anonlist */
1682 0x00004805, /* anonhash */
1683 0x05326801, /* splice */
1684 0x0004691d, /* push */
26f600bc 1685 0x00017604, /* pop */
1686 0x00017604, /* shift */
1a67a97c 1687 0x0004691d, /* unshift */
cd299c6e 1688 0x0005a841, /* sort */
1a67a97c 1689 0x00004809, /* reverse */
1690 0x0004a841, /* grepstart */
b162f9ea 1691 0x00000648, /* grepwhile */
1a67a97c 1692 0x0004a841, /* mapstart */
b162f9ea 1693 0x00000648, /* mapwhile */
1a67a97c 1694 0x00022600, /* range */
b162f9ea 1695 0x00022200, /* flip */
1696 0x00000200, /* flop */
1697 0x00000600, /* and */
1698 0x00000600, /* or */
888b73cf 1699 0x00022406, /* xor */
1a67a97c 1700 0x00000640, /* cond_expr */
b162f9ea 1701 0x00000604, /* andassign */
1702 0x00000604, /* orassign */
1703 0x00000240, /* method */
1704 0x00004249, /* entersub */
1705 0x00000200, /* leavesub */
cd06dffe 1706 0x00000200, /* leavesublv */
1a67a97c 1707 0x00013608, /* caller */
1708 0x0000481d, /* warn */
1709 0x0000485d, /* die */
1710 0x00013614, /* reset */
1711 0x00000800, /* lineseq */
1712 0x00001404, /* nextstate */
1713 0x00001404, /* dbstate */
79072805 1714 0x00000004, /* unstack */
1715 0x00000000, /* enter */
1a67a97c 1716 0x00000800, /* leave */
1717 0x00000800, /* scope */
1718 0x00001240, /* enteriter */
79072805 1719 0x00000000, /* iter */
1a67a97c 1720 0x00001240, /* enterloop */
b162f9ea 1721 0x00000400, /* leaveloop */
1a67a97c 1722 0x00004841, /* return */
1723 0x00001a44, /* last */
1724 0x00001a44, /* next */
1725 0x00001a44, /* redo */
1726 0x00001a44, /* dump */
1727 0x00001a44, /* goto */
1728 0x00013644, /* exit */
a567e93b 1729 0x0052c81d, /* open */
1a67a97c 1730 0x0001d614, /* close */
1731 0x000cc814, /* pipe_op */
1732 0x0000d61c, /* fileno */
1733 0x0001361c, /* umask */
1c1fc3ea 1734 0x0012c804, /* binmode */
1a67a97c 1735 0x0042e855, /* tie */
1736 0x0000f614, /* untie */
1737 0x0000f604, /* tied */
1738 0x00228814, /* dbmopen */
1739 0x00009614, /* dbmclose */
1740 0x02222808, /* sselect */
1741 0x0001c80c, /* select */
1742 0x0001d60c, /* getc */
1743 0x122ec81d, /* read */
1744 0x0001d654, /* enterwrite */
b162f9ea 1745 0x00000200, /* leavewrite */
1a67a97c 1746 0x0005c815, /* prtf */
1747 0x0005c815, /* print */
1748 0x1222c804, /* sysopen */
1749 0x0022c804, /* sysseek */
1750 0x122ec81d, /* sysread */
1751 0x1322c81d, /* syswrite */
1752 0x1222c81d, /* send */
1753 0x022ec81d, /* recv */
1754 0x0001d614, /* eof */
1755 0x0001d60c, /* tell */
1756 0x0022c804, /* seek */
1757 0x00022814, /* truncate */
1758 0x0022c80c, /* fcntl */
1759 0x0022c80c, /* ioctl */
1760 0x0002c91c, /* flock */
1761 0x0222c814, /* socket */
1762 0x222cc814, /* sockpair */
1763 0x0002c814, /* bind */
1764 0x0002c814, /* connect */
1765 0x0002c814, /* listen */
1766 0x000cc81c, /* accept */
1767 0x0002c81c, /* shutdown */
1768 0x0022c814, /* gsockopt */
1769 0x0222c814, /* ssockopt */
1770 0x0000d614, /* getsockname */
1771 0x0000d614, /* getpeername */
1772 0x0000d880, /* lstat */
1773 0x0000d880, /* stat */
1774 0x0000d894, /* ftrread */
1775 0x0000d894, /* ftrwrite */
1776 0x0000d894, /* ftrexec */
1777 0x0000d894, /* fteread */
1778 0x0000d894, /* ftewrite */
1779 0x0000d894, /* fteexec */
1780 0x0000d894, /* ftis */
1a67a97c 1781 0x0000d89c, /* ftsize */
1782 0x0000d88c, /* ftmtime */
1783 0x0000d88c, /* ftatime */
1784 0x0000d88c, /* ftctime */
7834bb7e 1785 0x0000d894, /* ftrowned */
1786 0x0000d894, /* fteowned */
1787 0x0000d894, /* ftzero */
1a67a97c 1788 0x0000d894, /* ftsock */
1789 0x0000d894, /* ftchr */
1790 0x0000d894, /* ftblk */
1791 0x0000d894, /* ftfile */
1792 0x0000d894, /* ftdir */
1793 0x0000d894, /* ftpipe */
1a67a97c 1794 0x0000d894, /* ftsuid */
1795 0x0000d894, /* ftsgid */
1796 0x0000d894, /* ftsvtx */
7834bb7e 1797 0x0000d894, /* ftlink */
1a67a97c 1798 0x0000d814, /* fttty */
1799 0x0000d894, /* fttext */
1800 0x0000d894, /* ftbinary */
1801 0x0001371c, /* chdir */
1802 0x0000491d, /* chown */
1803 0x0001379c, /* chroot */
1804 0x0000499d, /* unlink */
1805 0x0000491d, /* chmod */
1806 0x0000491d, /* utime */
1807 0x0002291c, /* rename */
1808 0x0002291c, /* link */
1809 0x0002291c, /* symlink */
1810 0x0001368c, /* readlink */
491873e5 1811 0x0013299c, /* mkdir */
1a67a97c 1812 0x0001379c, /* rmdir */
1e2c6ed7 1813 0x0002c814, /* open_dir */
1a67a97c 1814 0x0000d600, /* readdir */
1815 0x0000d60c, /* telldir */
1816 0x0002c804, /* seekdir */
1817 0x0000d604, /* rewinddir */
1818 0x0000d614, /* closedir */
79072805 1819 0x0000001c, /* fork */
b162f9ea 1820 0x0000011c, /* wait */
1a67a97c 1821 0x0002291c, /* waitpid */
1822 0x0005291d, /* system */
1823 0x0005295d, /* exec */
1824 0x0000495d, /* kill */
b162f9ea 1825 0x0000011c, /* getppid */
1a67a97c 1826 0x0001371c, /* getpgrp */
1827 0x0013291c, /* setpgrp */
1828 0x0002291c, /* getpriority */
1829 0x0022291c, /* setpriority */
b162f9ea 1830 0x0000011c, /* time */
79072805 1831 0x00000000, /* tms */
1a67a97c 1832 0x00013608, /* localtime */
1833 0x00013608, /* gmtime */
1834 0x0001369c, /* alarm */
1835 0x0001371c, /* sleep */
1836 0x0022281d, /* shmget */
1837 0x0022281d, /* shmctl */
1838 0x0222281d, /* shmread */
1839 0x0222281d, /* shmwrite */
1840 0x0002281d, /* msgget */
1841 0x0022281d, /* msgctl */
1842 0x0022281d, /* msgsnd */
1843 0x2222281d, /* msgrcv */
7834bb7e 1844 0x0002281d, /* semop */
1a67a97c 1845 0x0022281d, /* semget */
1846 0x0222281d, /* semctl */
1a67a97c 1847 0x000136c0, /* require */
b162f9ea 1848 0x00002240, /* dofile */
1a67a97c 1849 0x00003640, /* entereval */
b162f9ea 1850 0x00002200, /* leaveeval */
1851 0x00000600, /* entertry */
1a67a97c 1852 0x00000800, /* leavetry */
1853 0x00003600, /* ghbyname */
1854 0x00022800, /* ghbyaddr */
79072805 1855 0x00000000, /* ghostent */
1a67a97c 1856 0x00003600, /* gnbyname */
1857 0x00022800, /* gnbyaddr */
79072805 1858 0x00000000, /* gnetent */
1a67a97c 1859 0x00003600, /* gpbyname */
1860 0x00002800, /* gpbynumber */
79072805 1861 0x00000000, /* gprotoent */
1a67a97c 1862 0x00022800, /* gsbyname */
1863 0x00022800, /* gsbyport */
79072805 1864 0x00000000, /* gservent */
1a67a97c 1865 0x00003614, /* shostent */
1866 0x00003614, /* snetent */
1867 0x00003614, /* sprotoent */
1868 0x00003614, /* sservent */
93a17b20 1869 0x00000014, /* ehostent */
1870 0x00000014, /* enetent */
1871 0x00000014, /* eprotoent */
1872 0x00000014, /* eservent */
1a67a97c 1873 0x00003600, /* gpwnam */
1874 0x00003600, /* gpwuid */
79072805 1875 0x00000000, /* gpwent */
a0d0e21e 1876 0x00000014, /* spwent */
1877 0x00000014, /* epwent */
1a67a97c 1878 0x00003600, /* ggrnam */
1879 0x00003600, /* ggrgid */
79072805 1880 0x00000000, /* ggrent */
a0d0e21e 1881 0x00000014, /* sgrent */
1882 0x00000014, /* egrent */
79072805 1883 0x0000000c, /* getlogin */
1a67a97c 1884 0x0004281d, /* syscall */
5a47f09b 1885 0x0000f604, /* lock */
3f872cb9 1886 0x00001404, /* setstate */
f5d5a27c 1887 0x00000c40, /* method_named */
c963b151 1888 0x00000600, /* dor */
1889 0x00000604, /* dorassign */
0d863452 1890 0x00000640, /* entergiven */
1891 0x00000200, /* leavegiven */
1892 0x00000640, /* enterwhen */
1893 0x00000200, /* leavewhen */
1894 0x00000000, /* break */
1895 0x00000000, /* continue */
1896 0x00000404, /* smartmatch */
1897 0x0005c815, /* say */
438c221d 1898 0x00000000, /* custom */
79072805 1899};
1900#endif
73c4f7a1 1901
bae1192d 1902#endif /* !PERL_GLOBAL_STRUCT_INIT */
1903
73c4f7a1 1904END_EXTERN_C
27da23d5 1905
37442d52 1906/* ex: set ro: */
Unnamed repository; edit this file to name it for gitweb.