Skip to content
This repository

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse code

phase 1 of somewhat major rearrangement of PERL_OBJECT stuff

(objpp.h is gone, embed.pl now does some of that); objXSUB.h
should soon be automated also; the global variables that
escaped the PL_foo conversion are now reined in; renamed
MAGIC in regcomp.h to REG_MAGIC to avoid collision with the
type of same name; duplicated lists of pp_things in various
places is now gone; result has only been tested on win32

p4raw-id: //depot/perl@2133
  • Loading branch information...
commit 22c35a8c2392967a5ba6b5370695be464bd7012c 1 parent 854e644
Gurusamy Sarathy authored

Showing 65 changed files with 3,039 additions and 5,269 deletions. Show diff stats Hide diff stats

  1. +2 2 MANIFEST
  2. +6 3 Makefile.SH
  3. +6 6 av.c
  4. +1 1  bytecode.h
  5. +2 0  byterun.h
  6. +2 2 cop.h
  7. +4 4 doio.c
  8. +1 1  doop.c
  9. +2 2 dump.c
  10. +1,186 160 embed.h
  11. +256 35 embed.pl
  12. +7 15 embedvar.h
  13. +11 11 ext/B/B.xs
  14. +0 2  ext/POSIX/POSIX.xs
  15. +1 1  ext/Thread/Thread.xs
  16. +15 506 global.sym
  17. +8 1,406 globals.c
  18. +68 0 globvar.sym
  19. +14 14 gv.c
  20. +1 1  malloc.c
  21. +26 26 mg.c
  22. +11 1 objXSUB.h
  23. +0 1,611 objpp.h
  24. +102 98 op.c
  25. +16 394 opcode.h
  26. +39 24 opcode.pl
  27. +7 10 perl.c
  28. +127 134 perl.h
  29. +3 5 perl_exp.SH
  30. +1 5 perlvars.h
  31. +11 11 perly.c
  32. +1 1  pod/perlguts.pod
  33. +17 14 pp.c
  34. +1 4 pp.h
  35. +344 0 pp.sym
  36. +11 11 pp_ctl.c
  37. +14 14 pp_hot.c
  38. +378 344 pp_proto.h
  39. +86 86 pp_sys.c
  40. +10 43 proto.h
  41. +32 32 regcomp.c
  42. +6 6 regcomp.h
  43. +2 2 regcomp.pl
  44. +4 4 regcomp.sym
  45. +20 21 regexec.c
  46. +10 10 regnodes.h
  47. +8 11 run.c
  48. +3 3 scope.c
  49. +54 58 sv.c
  50. +9 2 t/op/filetest.t
  51. +2 0  taint.c
  52. +4 1 thrdvar.h
  53. +0 1  thread.sym
  54. +7 9 toke.c
  55. +23 40 util.c
  56. +2 2 win32/Makefile
  57. +2 1  win32/config.bc
  58. +2 1  win32/config.gc
  59. +2 1  win32/config.vc
  60. +5 5 win32/config_H.bc
  61. +6 6 win32/config_H.gc
  62. +5 5 win32/config_H.vc
  63. +21 30 win32/makedef.pl
  64. +6 4 win32/makefile.mk
  65. +6 6 win32/perlhost.h
4 MANIFEST
@@ -346,6 +346,7 @@ fakethr.h Fake threads header
346 346 form.h Public declarations for the above
347 347 global.sym Symbols that need hiding when embedded
348 348 globals.c File to declare global symbols (for shared library)
  349 +globvar.sym Global variables that need hiding when embedded
349 350 gv.c Glob value code
350 351 gv.h Glob value header
351 352 h2pl/README How to turn .ph files into .pl files
@@ -777,7 +778,6 @@ mpeix/relink MPE/iX port
777 778 mv-if-diff Script to mv a file if it changed
778 779 myconfig Prints summary of the current configuration
779 780 nostdio.h Cause compile error on stdio calls
780   -objpp.h Scoping macros for Perl Object
781 781 op.c Opcode syntax tree code
782 782 op.h Opcode syntax tree header
783 783 opcode.h Automatically generated opcode header
@@ -920,6 +920,7 @@ pod/splitman Splits perlfunc into multiple man pages
920 920 pod/splitpod Splits perlfunc into multiple pod pages
921 921 pp.c Push/Pop code
922 922 pp.h Push/Pop code defs
  923 +pp.sym Push/Pop code symbols
923 924 pp_ctl.c Push/Pop code for control flow
924 925 pp_hot.c Push/Pop code for heavily used opcodes
925 926 pp_proto.h C++ definitions for Push/Pop code
@@ -1165,7 +1166,6 @@ t/pragma/warning.t See if warning controls work
1165 1166 taint.c Tainting code
1166 1167 thrdvar.h Per-thread variables
1167 1168 thread.h Threading header
1168   -thread.sym Symbols for threads
1169 1169 toke.c The tokener
1170 1170 universal.c The default UNIVERSAL package methods
1171 1171 unixish.h Defines that are assumed on Unix
9 Makefile.SH
@@ -451,14 +451,17 @@ perly.h: perly.y
451 451
452 452 # No compat3.sym here since and including the 5.004_50.
453 453 # No interp.sym since 5.005_03.
454   -SYM = global.sym perlio.sym thread.sym
  454 +SYM = global.sym globvar.sym perlio.sym pp.sym
455 455
456   -SYMH = perlvars.h thrdvar.h
  456 +SYMH = perlvars.h intrpvar.h thrdvar.h
457 457
458 458 # The following files are generated automatically
459 459 # keywords.h: keywords.pl
460 460 # opcode.h: opcode.pl
461   -# embed.h: embed.pl global.sym interp.sym
  461 +# pp_proto.h: opcode.pl
  462 +# pp.sym: opcode.pl
  463 +# embed.h: embed.pl [* needs pp.sym generated by opcode.pl! *]
  464 +# embedvar.h: embed.pl [* needs pp.sym generated by opcode.pl! *]
462 465 # byterun.h: bytecode.pl
463 466 # byterun.c: bytecode.pl
464 467 # lib/B/Asmdata.pm: bytecode.pl
12 av.c
@@ -217,7 +217,7 @@ av_store(register AV *av, I32 key, SV *val)
217 217 }
218 218
219 219 if (SvREADONLY(av) && key >= AvFILL(av))
220   - croak(no_modify);
  220 + croak(PL_no_modify);
221 221
222 222 if (SvRMAGICAL(av)) {
223 223 if (mg_find((SV*)av,'P')) {
@@ -336,7 +336,7 @@ av_clear(register AV *av)
336 336 /*SUPPRESS 560*/
337 337
338 338 if (SvREADONLY(av))
339   - croak(no_modify);
  339 + croak(PL_no_modify);
340 340
341 341 /* Give any tie a chance to cleanup first */
342 342 if (SvRMAGICAL(av))
@@ -396,7 +396,7 @@ av_push(register AV *av, SV *val)
396 396 if (!av)
397 397 return;
398 398 if (SvREADONLY(av))
399   - croak(no_modify);
  399 + croak(PL_no_modify);
400 400
401 401 if (mg = SvTIED_mg((SV*)av, 'P')) {
402 402 dSP;
@@ -424,7 +424,7 @@ av_pop(register AV *av)
424 424 if (!av || AvFILL(av) < 0)
425 425 return &PL_sv_undef;
426 426 if (SvREADONLY(av))
427   - croak(no_modify);
  427 + croak(PL_no_modify);
428 428 if (mg = SvTIED_mg((SV*)av, 'P')) {
429 429 dSP;
430 430 PUSHSTACKi(PERLSI_MAGIC);
@@ -458,7 +458,7 @@ av_unshift(register AV *av, register I32 num)
458 458 if (!av || num <= 0)
459 459 return;
460 460 if (SvREADONLY(av))
461   - croak(no_modify);
  461 + croak(PL_no_modify);
462 462
463 463 if (mg = SvTIED_mg((SV*)av, 'P')) {
464 464 dSP;
@@ -510,7 +510,7 @@ av_shift(register AV *av)
510 510 if (!av || AvFILL(av) < 0)
511 511 return &PL_sv_undef;
512 512 if (SvREADONLY(av))
513   - croak(no_modify);
  513 + croak(PL_no_modify);
514 514 if (mg = SvTIED_mg((SV*)av, 'P')) {
515 515 dSP;
516 516 PUSHSTACKi(PERLSI_MAGIC);
2  bytecode.h
@@ -151,7 +151,7 @@ typedef IV IV64;
151 151 o->op_type = arg; \
152 152 if (arg == OP_MAPSTART) \
153 153 arg = OP_GREPSTART; \
154   - o->op_ppaddr = ppaddr[arg]; \
  154 + o->op_ppaddr = PL_ppaddr[arg]; \
155 155 } STMT_END
156 156 #define BSET_op_ppaddr(o, arg) croak("op_ppaddr not yet implemented")
157 157 #define BSET_curpad(pad, arg) pad = AvARRAY(arg)
2  byterun.h
@@ -17,7 +17,9 @@ struct bytestream {
17 17 };
18 18 #endif /* INDIRECT_BGET_MACROS */
19 19
  20 +#ifndef PERL_OBJECT
20 21 void *bset_obj_store _((void *, I32));
  22 +#endif
21 23
22 24 enum {
23 25 INSN_RET, /* 0 */
4 cop.h
@@ -187,7 +187,7 @@ struct block {
187 187 cx->blk_oldpm = PL_curpm, \
188 188 cx->blk_gimme = gimme; \
189 189 DEBUG_l( PerlIO_printf(PerlIO_stderr(), "Entering block %ld, type %s\n", \
190   - (long)cxstack_ix, block_type[t]); )
  190 + (long)cxstack_ix, PL_block_type[t]); )
191 191
192 192 /* Exit a block (RETURN and LAST). */
193 193 #define POPBLOCK(cx,pm) cx = &cxstack[cxstack_ix--], \
@@ -199,7 +199,7 @@ struct block {
199 199 pm = cx->blk_oldpm, \
200 200 gimme = cx->blk_gimme; \
201 201 DEBUG_l( PerlIO_printf(PerlIO_stderr(), "Leaving block %ld, type %s\n", \
202   - (long)cxstack_ix+1,block_type[CxTYPE(cx)]); )
  202 + (long)cxstack_ix+1,PL_block_type[CxTYPE(cx)]); )
203 203
204 204 /* Continue a block elsewhere (NEXT and REDO). */
205 205 #define TOPBLOCK(cx) cx = &cxstack[cxstack_ix], \
8 doio.c
@@ -306,7 +306,7 @@ do_open(GV *gv, register char *name, I32 len, int as_raw, int rawmode, int rawpe
306 306 if (!fp) {
307 307 dTHR;
308 308 if (ckWARN(WARN_NEWLINE) && IoTYPE(io) == '<' && strchr(name, '\n'))
309   - warner(WARN_NEWLINE, warn_nl, "open");
  309 + warner(WARN_NEWLINE, PL_warn_nl, "open");
310 310 goto say_false;
311 311 }
312 312 if (IoTYPE(io) &&
@@ -889,7 +889,7 @@ do_print(register SV *sv, PerlIO *fp)
889 889 {
890 890 dTHR;
891 891 if (ckWARN(WARN_UNINITIALIZED))
892   - warner(WARN_UNINITIALIZED, warn_uninit);
  892 + warner(WARN_UNINITIALIZED, PL_warn_uninit);
893 893 }
894 894 return TRUE;
895 895 case SVt_IV:
@@ -957,7 +957,7 @@ my_stat(ARGSproto)
957 957 PL_laststype = OP_STAT;
958 958 PL_laststatval = PerlLIO_stat(s, &PL_statcache);
959 959 if (PL_laststatval < 0 && ckWARN(WARN_NEWLINE) && strchr(s, '\n'))
960   - warner(WARN_NEWLINE, warn_nl, "stat");
  960 + warner(WARN_NEWLINE, PL_warn_nl, "stat");
961 961 return PL_laststatval;
962 962 }
963 963 }
@@ -988,7 +988,7 @@ my_lstat(ARGSproto)
988 988 PL_laststatval = PerlLIO_stat(SvPV(sv, PL_na),&PL_statcache);
989 989 #endif
990 990 if (PL_laststatval < 0 && ckWARN(WARN_NEWLINE) && strchr(SvPV(sv, PL_na), '\n'))
991   - warner(WARN_NEWLINE, warn_nl, "lstat");
  991 + warner(WARN_NEWLINE, PL_warn_nl, "lstat");
992 992 return PL_laststatval;
993 993 }
994 994
2  doop.c
@@ -597,7 +597,7 @@ do_trans(SV *sv)
597 597 STRLEN len;
598 598
599 599 if (SvREADONLY(sv) && !(PL_op->op_private & OPpTRANS_IDENTICAL))
600   - croak(no_modify);
  600 + croak(PL_no_modify);
601 601
602 602 (void)SvPV(sv, len);
603 603 if (!len)
4 dump.c
@@ -110,7 +110,7 @@ dump_op(OP *o)
110 110 PerlIO_printf(Perl_debug_log, "%-4d", o->op_seq);
111 111 else
112 112 PerlIO_printf(Perl_debug_log, " ");
113   - dump("TYPE = %s ===> ", op_name[o->op_type]);
  113 + dump("TYPE = %s ===> ", PL_op_name[o->op_type]);
114 114 if (o->op_next) {
115 115 if (o->op_seq)
116 116 PerlIO_printf(Perl_debug_log, "%d\n", o->op_next->op_seq);
@@ -122,7 +122,7 @@ dump_op(OP *o)
122 122 PL_dumplvl++;
123 123 if (o->op_targ) {
124 124 if (o->op_type == OP_NULL)
125   - dump(" (was %s)\n", op_name[o->op_targ]);
  125 + dump(" (was %s)\n", PL_op_name[o->op_targ]);
126 126 else
127 127 dump("TARG = %d\n", o->op_targ);
128 128 }
1,346 embed.h
... ... @@ -1,37 +1,22 @@
1 1 /* !!!!!!! DO NOT EDIT THIS FILE !!!!!!!
2   - This file is built by embed.pl from global.sym, intrpvar.h,
  2 + This file is built by embed.pl from global.sym, pp.sym, intrpvar.h,
3 3 and thrdvar.h. Any changes made here will be lost!
4 4 */
5 5
6 6 /* (Doing namespace management portably in C is really gross.) */
7 7
8   -/* EMBED has no run-time penalty, but helps keep the Perl namespace
9   - from colliding with that used by other libraries pulled in
10   - by extensions or by embedding perl. Allow a cc -DNO_EMBED
11   - override, however, to keep binary compatability with previous
12   - versions of perl.
13   -*/
14   -#ifndef NO_EMBED
15   -# define EMBED 1
16   -#endif
  8 +/* NO_EMBED is no longer supported. i.e. EMBED is always active. */
17 9
18   -/* Hide global symbols? */
  10 +/* Hide global symbols */
19 11
20   -#ifdef EMBED
  12 +#if !defined(PERL_OBJECT)
21 13
22   -#define AMG_names Perl_AMG_names
23   -#define Error Perl_Error
24 14 #define Gv_AMupdate Perl_Gv_AMupdate
25   -#define abs_amg Perl_abs_amg
26   -#define add_amg Perl_add_amg
27   -#define add_ass_amg Perl_add_ass_amg
28   -#define additem Perl_additem
29 15 #define amagic_call Perl_amagic_call
30 16 #define append_elem Perl_append_elem
31 17 #define append_list Perl_append_list
32 18 #define apply Perl_apply
33 19 #define assertref Perl_assertref
34   -#define atan2_amg Perl_atan2_amg
35 20 #define av_clear Perl_av_clear
36 21 #define av_extend Perl_av_extend
37 22 #define av_fake Perl_av_fake
@@ -51,22 +36,19 @@
51 36 #define avhv_iternext Perl_avhv_iternext
52 37 #define avhv_iterval Perl_avhv_iterval
53 38 #define avhv_keys Perl_avhv_keys
54   -#define band_amg Perl_band_amg
55 39 #define bind_match Perl_bind_match
56 40 #define block_end Perl_block_end
57 41 #define block_gimme Perl_block_gimme
58 42 #define block_start Perl_block_start
59   -#define block_type Perl_block_type
60   -#define bool__amg Perl_bool__amg
61 43 #define boot_core_UNIVERSAL Perl_boot_core_UNIVERSAL
62   -#define bor_amg Perl_bor_amg
63 44 #define bset_obj_store Perl_bset_obj_store
64   -#define bxor_amg Perl_bxor_amg
65 45 #define byterun Perl_byterun
66 46 #define call_list Perl_call_list
67 47 #define cando Perl_cando
  48 +#define cast_i32 Perl_cast_i32
  49 +#define cast_iv Perl_cast_iv
68 50 #define cast_ulong Perl_cast_ulong
69   -#define check Perl_check
  51 +#define cast_uv Perl_cast_uv
70 52 #define check_uni Perl_check_uni
71 53 #define checkcomma Perl_checkcomma
72 54 #define ck_aelem Perl_ck_aelem
@@ -83,7 +65,6 @@
83 65 #define ck_fun_locale Perl_ck_fun_locale
84 66 #define ck_glob Perl_ck_glob
85 67 #define ck_grep Perl_ck_grep
86   -#define ck_gvconst Perl_ck_gvconst
87 68 #define ck_index Perl_ck_index
88 69 #define ck_lengthconst Perl_ck_lengthconst
89 70 #define ck_lfun Perl_ck_lfun
@@ -92,7 +73,6 @@
92 73 #define ck_null Perl_ck_null
93 74 #define ck_repeat Perl_ck_repeat
94 75 #define ck_require Perl_ck_require
95   -#define ck_retarget Perl_ck_retarget
96 76 #define ck_rfun Perl_ck_rfun
97 77 #define ck_rvconst Perl_ck_rvconst
98 78 #define ck_scmp Perl_ck_scmp
@@ -104,12 +84,8 @@
104 84 #define ck_subr Perl_ck_subr
105 85 #define ck_svconst Perl_ck_svconst
106 86 #define ck_trunc Perl_ck_trunc
107   -#define compl_amg Perl_compl_amg
108   -#define concat_amg Perl_concat_amg
109   -#define concat_ass_amg Perl_concat_ass_amg
110 87 #define condpair_magic Perl_condpair_magic
111 88 #define convert Perl_convert
112   -#define cos_amg Perl_cos_amg
113 89 #define croak Perl_croak
114 90 #define cv_ckproto Perl_cv_ckproto
115 91 #define cv_clone Perl_cv_clone
@@ -117,21 +93,16 @@
117 93 #define cv_undef Perl_cv_undef
118 94 #define cx_dump Perl_cx_dump
119 95 #define cxinc Perl_cxinc
120   -#define dc Perl_dc
121 96 #define deb Perl_deb
122 97 #define deb_growlevel Perl_deb_growlevel
123 98 #define debop Perl_debop
124 99 #define debprofdump Perl_debprofdump
125 100 #define debstack Perl_debstack
126 101 #define debstackptrs Perl_debstackptrs
127   -#define dec_amg Perl_dec_amg
128 102 #define delimcpy Perl_delimcpy
129 103 #define deprecate Perl_deprecate
130   -#define di Perl_di
131 104 #define die Perl_die
132 105 #define die_where Perl_die_where
133   -#define div_amg Perl_div_amg
134   -#define div_ass_amg Perl_div_ass_amg
135 106 #define do_aexec Perl_do_aexec
136 107 #define do_binmode Perl_do_binmode
137 108 #define do_chomp Perl_do_chomp
@@ -164,7 +135,6 @@
164 135 #define dopoptoeval Perl_dopoptoeval
165 136 #define dounwind Perl_dounwind
166 137 #define dowantarray Perl_dowantarray
167   -#define ds Perl_ds
168 138 #define dump_all Perl_dump_all
169 139 #define dump_eval Perl_dump_eval
170 140 #define dump_fds Perl_dump_fds
@@ -175,10 +145,6 @@
175 145 #define dump_packsubs Perl_dump_packsubs
176 146 #define dump_pm Perl_dump_pm
177 147 #define dump_sub Perl_dump_sub
178   -#define eq_amg Perl_eq_amg
179   -#define exp_amg Perl_exp_amg
180   -#define expectterm Perl_expectterm
181   -#define fallback_amg Perl_fallback_amg
182 148 #define fbm_compile Perl_fbm_compile
183 149 #define fbm_instr Perl_fbm_instr
184 150 #define fetch_gv Perl_fetch_gv
@@ -188,17 +154,13 @@
188 154 #define filter_read Perl_filter_read
189 155 #define find_script Perl_find_script
190 156 #define find_threadsv Perl_find_threadsv
191   -#define fold Perl_fold
192 157 #define fold_constants Perl_fold_constants
193   -#define fold_locale Perl_fold_locale
194 158 #define force_ident Perl_force_ident
195 159 #define force_list Perl_force_list
196 160 #define force_next Perl_force_next
197 161 #define force_word Perl_force_word
198 162 #define form Perl_form
199 163 #define free_tmps Perl_free_tmps
200   -#define freq Perl_freq
201   -#define ge_amg Perl_ge_amg
202 164 #define gen_constant_list Perl_gen_constant_list
203 165 #define get_no_modify Perl_get_no_modify
204 166 #define get_op_descs Perl_get_op_descs
@@ -207,7 +169,6 @@
207 169 #define get_specialsv_list Perl_get_specialsv_list
208 170 #define gp_free Perl_gp_free
209 171 #define gp_ref Perl_gp_ref
210   -#define gt_amg Perl_gt_amg
211 172 #define gv_AVadd Perl_gv_AVadd
212 173 #define gv_HVadd Perl_gv_HVadd
213 174 #define gv_IOadd Perl_gv_IOadd
@@ -249,7 +210,6 @@
249 210 #define hv_undef Perl_hv_undef
250 211 #define ibcmp Perl_ibcmp
251 212 #define ibcmp_locale Perl_ibcmp_locale
252   -#define inc_amg Perl_inc_amg
253 213 #define ingroup Perl_ingroup
254 214 #define init_stacks Perl_init_stacks
255 215 #define init_thread_intern Perl_init_thread_intern
@@ -285,8 +245,6 @@
285 245 #define is_utf8_upper Perl_is_utf8_upper
286 246 #define jmaybe Perl_jmaybe
287 247 #define keyword Perl_keyword
288   -#define know_next Perl_know_next
289   -#define le_amg Perl_le_amg
290 248 #define leave_scope Perl_leave_scope
291 249 #define lex_end Perl_lex_end
292 250 #define lex_start Perl_lex_start
@@ -294,11 +252,7 @@
294 252 #define list Perl_list
295 253 #define listkids Perl_listkids
296 254 #define localize Perl_localize
297   -#define log_amg Perl_log_amg
298 255 #define looks_like_number Perl_looks_like_number
299   -#define lshift_amg Perl_lshift_amg
300   -#define lshift_ass_amg Perl_lshift_ass_amg
301   -#define lt_amg Perl_lt_amg
302 256 #define magic_clear_all_env Perl_magic_clear_all_env
303 257 #define magic_clearenv Perl_magic_clearenv
304 258 #define magic_clearpack Perl_magic_clearpack
@@ -360,13 +314,9 @@
360 314 #define mg_set Perl_mg_set
361 315 #define mg_size Perl_mg_size
362 316 #define mod Perl_mod
363   -#define mod_amg Perl_mod_amg
364   -#define mod_ass_amg Perl_mod_ass_amg
365 317 #define modkids Perl_modkids
366 318 #define moreswitches Perl_moreswitches
367 319 #define mstats Perl_mstats
368   -#define mult_amg Perl_mult_amg
369   -#define mult_ass_amg Perl_mult_ass_amg
370 320 #define my Perl_my
371 321 #define my_bcopy Perl_my_bcopy
372 322 #define my_bzero Perl_my_bzero
@@ -384,9 +334,6 @@
384 334 #define my_stat Perl_my_stat
385 335 #define my_swap Perl_my_swap
386 336 #define my_unexec Perl_my_unexec
387   -#define ncmp_amg Perl_ncmp_amg
388   -#define ne_amg Perl_ne_amg
389   -#define neg_amg Perl_neg_amg
390 337 #define newANONHASH Perl_newANONHASH
391 338 #define newANONLIST Perl_newANONLIST
392 339 #define newANONSUB Perl_newANONSUB
@@ -439,33 +386,13 @@
439 386 #define new_struct_thread Perl_new_struct_thread
440 387 #define nextargv Perl_nextargv
441 388 #define ninstr Perl_ninstr
442   -#define no_aelem Perl_no_aelem
443   -#define no_dir_func Perl_no_dir_func
444 389 #define no_fh_allowed Perl_no_fh_allowed
445   -#define no_func Perl_no_func
446   -#define no_helem Perl_no_helem
447   -#define no_mem Perl_no_mem
448   -#define no_modify Perl_no_modify
449   -#define no_myglob Perl_no_myglob
450 390 #define no_op Perl_no_op
451   -#define no_security Perl_no_security
452   -#define no_sock_func Perl_no_sock_func
453   -#define no_symref Perl_no_symref
454   -#define no_usym Perl_no_usym
455   -#define no_wrongref Perl_no_wrongref
456   -#define nointrp Perl_nointrp
457   -#define nomem Perl_nomem
458   -#define nomethod_amg Perl_nomethod_amg
459   -#define not_amg Perl_not_amg
460   -#define numer_amg Perl_numer_amg
461 391 #define oopsAV Perl_oopsAV
462 392 #define oopsCV Perl_oopsCV
463 393 #define oopsHV Perl_oopsHV
464 394 #define op_const_sv Perl_op_const_sv
465   -#define op_desc Perl_op_desc
466 395 #define op_free Perl_op_free
467   -#define op_name Perl_op_name
468   -#define opargs Perl_opargs
469 396 #define package Perl_package
470 397 #define pad_alloc Perl_pad_alloc
471 398 #define pad_allocmy Perl_pad_allocmy
@@ -482,8 +409,6 @@
482 409 #define pmtrans Perl_pmtrans
483 410 #define pop_return Perl_pop_return
484 411 #define pop_scope Perl_pop_scope
485   -#define pow_amg Perl_pow_amg
486   -#define pow_ass_amg Perl_pow_ass_amg
487 412 #define pp_aassign Perl_pp_aassign
488 413 #define pp_abs Perl_pp_abs
489 414 #define pp_accept Perl_pp_accept
@@ -523,7 +448,6 @@
523 448 #define pp_const Perl_pp_const
524 449 #define pp_cos Perl_pp_cos
525 450 #define pp_crypt Perl_pp_crypt
526   -#define pp_cswitch Perl_pp_cswitch
527 451 #define pp_dbmclose Perl_pp_dbmclose
528 452 #define pp_dbmopen Perl_pp_dbmopen
529 453 #define pp_dbstate Perl_pp_dbstate
@@ -542,7 +466,6 @@
542 466 #define pp_enteriter Perl_pp_enteriter
543 467 #define pp_enterloop Perl_pp_enterloop
544 468 #define pp_entersub Perl_pp_entersub
545   -#define pp_entersubr Perl_pp_entersubr
546 469 #define pp_entertry Perl_pp_entertry
547 470 #define pp_enterwrite Perl_pp_enterwrite
548 471 #define pp_eof Perl_pp_eof
@@ -550,7 +473,6 @@
550 473 #define pp_epwent Perl_pp_epwent
551 474 #define pp_eq Perl_pp_eq
552 475 #define pp_eservent Perl_pp_eservent
553   -#define pp_evalonce Perl_pp_evalonce
554 476 #define pp_exec Perl_pp_exec
555 477 #define pp_exists Perl_pp_exists
556 478 #define pp_exit Perl_pp_exit
@@ -643,7 +565,6 @@
643 565 #define pp_i_subtract Perl_pp_i_subtract
644 566 #define pp_index Perl_pp_index
645 567 #define pp_int Perl_pp_int
646   -#define pp_interp Perl_pp_interp
647 568 #define pp_ioctl Perl_pp_ioctl
648 569 #define pp_iter Perl_pp_iter
649 570 #define pp_join Perl_pp_join
@@ -671,7 +592,6 @@
671 592 #define pp_lslice Perl_pp_lslice
672 593 #define pp_lstat Perl_pp_lstat
673 594 #define pp_lt Perl_pp_lt
674   -#define pp_map Perl_pp_map
675 595 #define pp_mapstart Perl_pp_mapstart
676 596 #define pp_mapwhile Perl_pp_mapwhile
677 597 #define pp_match Perl_pp_match
@@ -689,7 +609,6 @@
689 609 #define pp_next Perl_pp_next
690 610 #define pp_nextstate Perl_pp_nextstate
691 611 #define pp_not Perl_pp_not
692   -#define pp_nswitch Perl_pp_nswitch
693 612 #define pp_null Perl_pp_null
694 613 #define pp_oct Perl_pp_oct
695 614 #define pp_open Perl_pp_open
@@ -834,30 +753,20 @@
834 753 #define pp_wantarray Perl_pp_wantarray
835 754 #define pp_warn Perl_pp_warn
836 755 #define pp_xor Perl_pp_xor
837   -#define ppaddr Perl_ppaddr
838 756 #define pregcomp Perl_pregcomp
839 757 #define pregexec Perl_pregexec
840 758 #define pregfree Perl_pregfree
841 759 #define prepend_elem Perl_prepend_elem
842   -#define psig_name Perl_psig_name
843   -#define psig_ptr Perl_psig_ptr
844 760 #define push_return Perl_push_return
845 761 #define push_scope Perl_push_scope
846   -#define q Perl_q
847   -#define reall_srchlen Perl_reall_srchlen
848 762 #define ref Perl_ref
849 763 #define refkids Perl_refkids
850 764 #define regdump Perl_regdump
851 765 #define regexec_flags Perl_regexec_flags
852   -#define regkind Perl_regkind
853 766 #define regnext Perl_regnext
854 767 #define regprop Perl_regprop
855   -#define repeat_amg Perl_repeat_amg
856   -#define repeat_ass_amg Perl_repeat_ass_amg
857 768 #define repeatcpy Perl_repeatcpy
858 769 #define rninstr Perl_rninstr
859   -#define rshift_amg Perl_rshift_amg
860   -#define rshift_ass_amg Perl_rshift_ass_amg
861 770 #define rsignal Perl_rsignal
862 771 #define rsignal_restore Perl_rsignal_restore
863 772 #define rsignal_save Perl_rsignal_save
@@ -910,7 +819,6 @@
910 819 #define savepv Perl_savepv
911 820 #define savepvn Perl_savepvn
912 821 #define savestack_grow Perl_savestack_grow
913   -#define saw_return Perl_saw_return
914 822 #define sawparens Perl_sawparens
915 823 #define scalar Perl_scalar
916 824 #define scalarkids Perl_scalarkids
@@ -930,32 +838,17 @@
930 838 #define scan_subst Perl_scan_subst
931 839 #define scan_trans Perl_scan_trans
932 840 #define scan_word Perl_scan_word
933   -#define scmp_amg Perl_scmp_amg
934 841 #define scope Perl_scope
935 842 #define screaminstr Perl_screaminstr
936   -#define seq_amg Perl_seq_amg
937 843 #define setdefout Perl_setdefout
938 844 #define setenv_getix Perl_setenv_getix
939   -#define sge_amg Perl_sge_amg
940   -#define sgt_amg Perl_sgt_amg
941 845 #define share_hek Perl_share_hek
942 846 #define sharepvn Perl_sharepvn
943   -#define sig_name Perl_sig_name
944   -#define sig_num Perl_sig_num
945 847 #define sighandler Perl_sighandler
946   -#define simple Perl_simple
947   -#define sin_amg Perl_sin_amg
948 848 #define skipspace Perl_skipspace
949   -#define sle_amg Perl_sle_amg
950   -#define slt_amg Perl_slt_amg
951   -#define sne_amg Perl_sne_amg
952   -#define sqrt_amg Perl_sqrt_amg
953 849 #define stack_grow Perl_stack_grow
954 850 #define start_subparse Perl_start_subparse
955   -#define string_amg Perl_string_amg
956 851 #define sub_crush_depth Perl_sub_crush_depth
957   -#define subtr_amg Perl_subtr_amg
958   -#define subtr_ass_amg Perl_subtr_ass_amg
959 852 #define sv_2bool Perl_sv_2bool
960 853 #define sv_2cv Perl_sv_2cv
961 854 #define sv_2io Perl_sv_2io
@@ -1073,63 +966,1196 @@
1073 966 #define utf8skip Perl_utf8skip
1074 967 #define utilize Perl_utilize
1075 968 #define uv_to_utf8 Perl_uv_to_utf8
1076   -#define varies Perl_varies
1077 969 #define vivify_defelem Perl_vivify_defelem
1078 970 #define vivify_ref Perl_vivify_ref
1079   -#define vtbl_amagic Perl_vtbl_amagic
1080   -#define vtbl_amagicelem Perl_vtbl_amagicelem
1081   -#define vtbl_arylen Perl_vtbl_arylen
1082   -#define vtbl_bm Perl_vtbl_bm
1083   -#define vtbl_collxfrm Perl_vtbl_collxfrm
1084   -#define vtbl_dbline Perl_vtbl_dbline
1085   -#define vtbl_defelem Perl_vtbl_defelem
1086   -#define vtbl_env Perl_vtbl_env
1087   -#define vtbl_envelem Perl_vtbl_envelem
1088   -#define vtbl_fm Perl_vtbl_fm
1089   -#define vtbl_glob Perl_vtbl_glob
1090   -#define vtbl_isa Perl_vtbl_isa
1091   -#define vtbl_isaelem Perl_vtbl_isaelem
1092   -#define vtbl_mglob Perl_vtbl_mglob
1093   -#define vtbl_mutex Perl_vtbl_mutex
1094   -#define vtbl_nkeys Perl_vtbl_nkeys
1095   -#define vtbl_pack Perl_vtbl_pack
1096   -#define vtbl_packelem Perl_vtbl_packelem
1097   -#define vtbl_pos Perl_vtbl_pos
1098   -#define vtbl_regexp Perl_vtbl_regexp
1099   -#define vtbl_sig Perl_vtbl_sig
1100   -#define vtbl_sigelem Perl_vtbl_sigelem
1101   -#define vtbl_substr Perl_vtbl_substr
1102   -#define vtbl_sv Perl_vtbl_sv
1103   -#define vtbl_taint Perl_vtbl_taint
1104   -#define vtbl_uvar Perl_vtbl_uvar
1105   -#define vtbl_vec Perl_vtbl_vec
1106 971 #define wait4pid Perl_wait4pid
1107 972 #define warn Perl_warn
1108   -#define warn_nl Perl_warn_nl
1109   -#define warn_nosemi Perl_warn_nosemi
1110   -#define warn_reserved Perl_warn_reserved
1111   -#define warn_uninit Perl_warn_uninit
1112 973 #define warner Perl_warner
1113 974 #define watch Perl_watch
1114   -#define watchaddr Perl_watchaddr
1115   -#define watchok Perl_watchok
1116 975 #define whichsig Perl_whichsig
1117   -#define yycheck Perl_yycheck
1118   -#define yydefred Perl_yydefred
1119 976 #define yydestruct Perl_yydestruct
1120   -#define yydgoto Perl_yydgoto
1121 977 #define yyerror Perl_yyerror
1122   -#define yygindex Perl_yygindex
1123   -#define yylen Perl_yylen
1124 978 #define yylex Perl_yylex
1125   -#define yylhs Perl_yylhs
1126   -#define yyname Perl_yyname
1127 979 #define yyparse Perl_yyparse
1128   -#define yyrindex Perl_yyrindex
1129   -#define yyrule Perl_yyrule
1130   -#define yysindex Perl_yysindex
1131   -#define yytable Perl_yytable
1132 980 #define yywarn Perl_yywarn
1133 981
1134   -#endif /* EMBED */
  982 +#else /* PERL_OBJECT */
  983 +
  984 +#define Gv_AMupdate CPerlObj::Perl_Gv_AMupdate
  985 +#define add_data CPerlObj::Perl_add_data
  986 +#define amagic_call CPerlObj::Perl_amagic_call
  987 +#define amagic_cmp CPerlObj::Perl_amagic_cmp
  988 +#define amagic_cmp_locale CPerlObj::Perl_amagic_cmp_locale
  989 +#define ao CPerlObj::Perl_ao
  990 +#define append_elem CPerlObj::Perl_append_elem
  991 +#define append_list CPerlObj::Perl_append_list
  992 +#define apply CPerlObj::Perl_apply
  993 +#define asIV CPerlObj::Perl_asIV
  994 +#define asUV CPerlObj::Perl_asUV
  995 +#define assertref CPerlObj::Perl_assertref
  996 +#define av_clear CPerlObj::Perl_av_clear
  997 +#define av_extend CPerlObj::Perl_av_extend
  998 +#define av_fake CPerlObj::Perl_av_fake
  999 +#define av_fetch CPerlObj::Perl_av_fetch
  1000 +#define av_fill CPerlObj::Perl_av_fill
  1001 +#define av_len CPerlObj::Perl_av_len
  1002 +#define av_make CPerlObj::Perl_av_make
  1003 +#define av_pop CPerlObj::Perl_av_pop
  1004 +#define av_push CPerlObj::Perl_av_push
  1005 +#define av_reify CPerlObj::Perl_av_reify
  1006 +#define av_shift CPerlObj::Perl_av_shift
  1007 +#define av_store CPerlObj::Perl_av_store
  1008 +#define av_undef CPerlObj::Perl_av_undef
  1009 +#define av_unshift CPerlObj::Perl_av_unshift
  1010 +#define avhv_exists_ent CPerlObj::Perl_avhv_exists_ent
  1011 +#define avhv_fetch_ent CPerlObj::Perl_avhv_fetch_ent
  1012 +#define avhv_index_sv CPerlObj::Perl_avhv_index_sv
  1013 +#define avhv_iternext CPerlObj::Perl_avhv_iternext
  1014 +#define avhv_iterval CPerlObj::Perl_avhv_iterval
  1015 +#define avhv_keys CPerlObj::Perl_avhv_keys
  1016 +#define bad_type CPerlObj::Perl_bad_type
  1017 +#define bind_match CPerlObj::Perl_bind_match
  1018 +#define block_end CPerlObj::Perl_block_end
  1019 +#define block_gimme CPerlObj::Perl_block_gimme
  1020 +#define block_start CPerlObj::Perl_block_start
  1021 +#define boot_core_UNIVERSAL CPerlObj::Perl_boot_core_UNIVERSAL
  1022 +#define bset_obj_store CPerlObj::Perl_bset_obj_store
  1023 +#define bset_obj_store CPerlObj::Perl_bset_obj_store
  1024 +#define byterun CPerlObj::Perl_byterun
  1025 +#define cache_re CPerlObj::Perl_cache_re
  1026 +#define call_list CPerlObj::Perl_call_list
  1027 +#define cando CPerlObj::Perl_cando
  1028 +#define cast_i32 CPerlObj::Perl_cast_i32
  1029 +#define cast_iv CPerlObj::Perl_cast_iv
  1030 +#define cast_ulong CPerlObj::Perl_cast_ulong
  1031 +#define cast_uv CPerlObj::Perl_cast_uv
  1032 +#define check_uni CPerlObj::Perl_check_uni
  1033 +#define check_uni CPerlObj::Perl_check_uni
  1034 +#define checkcomma CPerlObj::Perl_checkcomma
  1035 +#define checkcomma CPerlObj::Perl_checkcomma
  1036 +#define ck_aelem CPerlObj::Perl_ck_aelem
  1037 +#define ck_anoncode CPerlObj::Perl_ck_anoncode
  1038 +#define ck_bitop CPerlObj::Perl_ck_bitop
  1039 +#define ck_concat CPerlObj::Perl_ck_concat
  1040 +#define ck_delete CPerlObj::Perl_ck_delete
  1041 +#define ck_eof CPerlObj::Perl_ck_eof
  1042 +#define ck_eval CPerlObj::Perl_ck_eval
  1043 +#define ck_exec CPerlObj::Perl_ck_exec
  1044 +#define ck_exists CPerlObj::Perl_ck_exists
  1045 +#define ck_ftst CPerlObj::Perl_ck_ftst
  1046 +#define ck_fun CPerlObj::Perl_ck_fun
  1047 +#define ck_fun_locale CPerlObj::Perl_ck_fun_locale
  1048 +#define ck_glob CPerlObj::Perl_ck_glob
  1049 +#define ck_grep CPerlObj::Perl_ck_grep
  1050 +#define ck_index CPerlObj::Perl_ck_index
  1051 +#define ck_lengthconst CPerlObj::Perl_ck_lengthconst
  1052 +#define ck_lfun CPerlObj::Perl_ck_lfun
  1053 +#define ck_listiob CPerlObj::Perl_ck_listiob
  1054 +#define ck_match CPerlObj::Perl_ck_match
  1055 +#define ck_null CPerlObj::Perl_ck_null
  1056 +#define ck_repeat CPerlObj::Perl_ck_repeat
  1057 +#define ck_require CPerlObj::Perl_ck_require
  1058 +#define ck_rfun CPerlObj::Perl_ck_rfun
  1059 +#define ck_rvconst CPerlObj::Perl_ck_rvconst
  1060 +#define ck_scmp CPerlObj::Perl_ck_scmp
  1061 +#define ck_select CPerlObj::Perl_ck_select
  1062 +#define ck_shift CPerlObj::Perl_ck_shift
  1063 +#define ck_sort CPerlObj::Perl_ck_sort
  1064 +#define ck_spair CPerlObj::Perl_ck_spair
  1065 +#define ck_split CPerlObj::Perl_ck_split
  1066 +#define ck_subr CPerlObj::Perl_ck_subr
  1067 +#define ck_svconst CPerlObj::Perl_ck_svconst
  1068 +#define ck_trunc CPerlObj::Perl_ck_trunc
  1069 +#define condpair_magic CPerlObj::Perl_condpair_magic
  1070 +#define convert CPerlObj::Perl_convert
  1071 +#define croak CPerlObj::Perl_croak
  1072 +#define cv_ckproto CPerlObj::Perl_cv_ckproto
  1073 +#define cv_clone CPerlObj::Perl_cv_clone
  1074 +#define cv_clone2 CPerlObj::Perl_cv_clone2
  1075 +#define cv_const_sv CPerlObj::Perl_cv_const_sv
  1076 +#define cv_undef CPerlObj::Perl_cv_undef
  1077 +#define cx_dump CPerlObj::Perl_cx_dump
  1078 +#define cxinc CPerlObj::Perl_cxinc
  1079 +#define deb CPerlObj::Perl_deb
  1080 +#define deb_growlevel CPerlObj::Perl_deb_growlevel
  1081 +#define debop CPerlObj::Perl_debop
  1082 +#define debprof CPerlObj::Perl_debprof
  1083 +#define debprofdump CPerlObj::Perl_debprofdump
  1084 +#define debstack CPerlObj::Perl_debstack
  1085 +#define debstackptrs CPerlObj::Perl_debstackptrs
  1086 +#define del_he CPerlObj::Perl_del_he
  1087 +#define del_sv CPerlObj::Perl_del_sv
  1088 +#define del_xiv CPerlObj::Perl_del_xiv
  1089 +#define del_xnv CPerlObj::Perl_del_xnv
  1090 +#define del_xpv CPerlObj::Perl_del_xpv
  1091 +#define del_xrv CPerlObj::Perl_del_xrv
  1092 +#define delimcpy CPerlObj::Perl_delimcpy
  1093 +#define depcom CPerlObj::Perl_depcom
  1094 +#define deprecate CPerlObj::Perl_deprecate
  1095 +#define die CPerlObj::Perl_die
  1096 +#define die_where CPerlObj::Perl_die_where
  1097 +#define div128 CPerlObj::Perl_div128
  1098 +#define do_aexec CPerlObj::Perl_do_aexec
  1099 +#define do_aspawn CPerlObj::Perl_do_aspawn
  1100 +#define do_binmode CPerlObj::Perl_do_binmode
  1101 +#define do_chomp CPerlObj::Perl_do_chomp
  1102 +#define do_chop CPerlObj::Perl_do_chop
  1103 +#define do_clean_all CPerlObj::Perl_do_clean_all
  1104 +#define do_clean_named_objs CPerlObj::Perl_do_clean_named_objs
  1105 +#define do_clean_objs CPerlObj::Perl_do_clean_objs
  1106 +#define do_close CPerlObj::Perl_do_close
  1107 +#define do_eof CPerlObj::Perl_do_eof
  1108 +#define do_exec CPerlObj::Perl_do_exec
  1109 +#define do_execfree CPerlObj::Perl_do_execfree
  1110 +#define do_ipcctl CPerlObj::Perl_do_ipcctl
  1111 +#define do_ipcget CPerlObj::Perl_do_ipcget
  1112 +#define do_join CPerlObj::Perl_do_join
  1113 +#define do_kv CPerlObj::Perl_do_kv
  1114 +#define do_msgrcv CPerlObj::Perl_do_msgrcv
  1115 +#define do_msgsnd CPerlObj::Perl_do_msgsnd
  1116 +#define do_open CPerlObj::Perl_do_open
  1117 +#define do_pipe CPerlObj::Perl_do_pipe
  1118 +#define do_print CPerlObj::Perl_do_print
  1119 +#define do_readline CPerlObj::Perl_do_readline
  1120 +#define do_report_used CPerlObj::Perl_do_report_used
  1121 +#define do_seek CPerlObj::Perl_do_seek
  1122 +#define do_semop CPerlObj::Perl_do_semop
  1123 +#define do_shmio CPerlObj::Perl_do_shmio
  1124 +#define do_sprintf CPerlObj::Perl_do_sprintf
  1125 +#define do_sysseek CPerlObj::Perl_do_sysseek
  1126 +#define do_tell CPerlObj::Perl_do_tell
  1127 +#define do_trans CPerlObj::Perl_do_trans
  1128 +#define do_trans_CC_complex CPerlObj::Perl_do_trans_CC_complex
  1129 +#define do_trans_CC_count CPerlObj::Perl_do_trans_CC_count
  1130 +#define do_trans_CC_simple CPerlObj::Perl_do_trans_CC_simple
  1131 +#define do_trans_CU_simple CPerlObj::Perl_do_trans_CU_simple
  1132 +#define do_trans_CU_trivial CPerlObj::Perl_do_trans_CU_trivial
  1133 +#define do_trans_UC_simple CPerlObj::Perl_do_trans_UC_simple
  1134 +#define do_trans_UC_trivial CPerlObj::Perl_do_trans_UC_trivial
  1135 +#define do_trans_UU_complex CPerlObj::Perl_do_trans_UU_complex
  1136 +#define do_trans_UU_count CPerlObj::Perl_do_trans_UU_count
  1137 +#define do_trans_UU_simple CPerlObj::Perl_do_trans_UU_simple
  1138 +#define do_vecset CPerlObj::Perl_do_vecset
  1139 +#define do_vop CPerlObj::Perl_do_vop
  1140 +#define docatch CPerlObj::Perl_docatch
  1141 +#define doencodes CPerlObj::Perl_doencodes
  1142 +#define doeval CPerlObj::Perl_doeval
  1143 +#define dofile CPerlObj::Perl_dofile
  1144 +#define dofindlabel CPerlObj::Perl_dofindlabel
  1145 +#define dofindlabel CPerlObj::Perl_dofindlabel
  1146 +#define doform CPerlObj::Perl_doform
  1147 +#define doparseform CPerlObj::Perl_doparseform
  1148 +#define dopoptoeval CPerlObj::Perl_dopoptoeval
  1149 +#define dopoptoeval CPerlObj::Perl_dopoptoeval
  1150 +#define dopoptolabel CPerlObj::Perl_dopoptolabel
  1151 +#define dopoptoloop CPerlObj::Perl_dopoptoloop
  1152 +#define dopoptosub CPerlObj::Perl_dopoptosub
  1153 +#define dopoptosub_at CPerlObj::Perl_dopoptosub_at
  1154 +#define dounwind CPerlObj::Perl_dounwind
  1155 +#define dowantarray CPerlObj::Perl_dowantarray
  1156 +#define dump CPerlObj::Perl_dump
  1157 +#define dump_all CPerlObj::Perl_dump_all
  1158 +#define dump_eval CPerlObj::Perl_dump_eval
  1159 +#define dump_fds CPerlObj::Perl_dump_fds
  1160 +#define dump_form CPerlObj::Perl_dump_form
  1161 +#define dump_gv CPerlObj::Perl_dump_gv
  1162 +#define dump_mstats CPerlObj::Perl_dump_mstats
  1163 +#define dump_op CPerlObj::Perl_dump_op
  1164 +#define dump_packsubs CPerlObj::Perl_dump_packsubs
  1165 +#define dump_pm CPerlObj::Perl_dump_pm
  1166 +#define dump_sub CPerlObj::Perl_dump_sub
  1167 +#define dumpuntil CPerlObj::Perl_dumpuntil
  1168 +#define emulate_eaccess CPerlObj::Perl_emulate_eaccess
  1169 +#define fbm_compile CPerlObj::Perl_fbm_compile
  1170 +#define fbm_instr CPerlObj::Perl_fbm_instr
  1171 +#define fetch_gv CPerlObj::Perl_fetch_gv
  1172 +#define fetch_io CPerlObj::Perl_fetch_io
  1173 +#define filter_add CPerlObj::Perl_filter_add
  1174 +#define filter_del CPerlObj::Perl_filter_del
  1175 +#define filter_gets CPerlObj::Perl_filter_gets
  1176 +#define filter_read CPerlObj::Perl_filter_read
  1177 +#define find_beginning CPerlObj::Perl_find_beginning
  1178 +#define find_script CPerlObj::Perl_find_script
  1179 +#define find_threadsv CPerlObj::Perl_find_threadsv
  1180 +#define fold_constants CPerlObj::Perl_fold_constants
  1181 +#define forbid_setid CPerlObj::Perl_forbid_setid
  1182 +#define force_ident CPerlObj::Perl_force_ident
  1183 +#define force_ident CPerlObj::Perl_force_ident
  1184 +#define force_list CPerlObj::Perl_force_list
  1185 +#define force_next CPerlObj::Perl_force_next
  1186 +#define force_next CPerlObj::Perl_force_next
  1187 +#define force_version CPerlObj::Perl_force_version
  1188 +#define force_word CPerlObj::Perl_force_word
  1189 +#define force_word CPerlObj::Perl_force_word
  1190 +#define form CPerlObj::Perl_form
  1191 +#define fprintf CPerlObj::Perl_fprintf
  1192 +#define free_tmps CPerlObj::Perl_free_tmps
  1193 +#define gen_constant_list CPerlObj::Perl_gen_constant_list
  1194 +#define get_db_sub CPerlObj::Perl_get_db_sub
  1195 +#define get_no_modify CPerlObj::Perl_get_no_modify
  1196 +#define get_op_descs CPerlObj::Perl_get_op_descs
  1197 +#define get_op_names CPerlObj::Perl_get_op_names
  1198 +#define get_opargs CPerlObj::Perl_get_opargs
  1199 +#define get_specialsv_list CPerlObj::Perl_get_specialsv_list
  1200 +#define gp_free CPerlObj::Perl_gp_free
  1201 +#define gp_ref CPerlObj::Perl_gp_ref
  1202 +#define gv_AVadd CPerlObj::Perl_gv_AVadd
  1203 +#define gv_HVadd CPerlObj::Perl_gv_HVadd
  1204 +#define gv_IOadd CPerlObj::Perl_gv_IOadd
  1205 +#define gv_autoload4 CPerlObj::Perl_gv_autoload4
  1206 +#define gv_check CPerlObj::Perl_gv_check
  1207 +#define gv_efullname CPerlObj::Perl_gv_efullname
  1208 +#define gv_efullname3 CPerlObj::Perl_gv_efullname3
  1209 +#define gv_ename CPerlObj::Perl_gv_ename
  1210 +#define gv_fetchfile CPerlObj::Perl_gv_fetchfile
  1211 +#define gv_fetchmeth CPerlObj::Perl_gv_fetchmeth
  1212 +#define gv_fetchmethod CPerlObj::Perl_gv_fetchmethod
  1213 +#define gv_fetchmethod_autoload CPerlObj::Perl_gv_fetchmethod_autoload
  1214 +#define gv_fetchpv CPerlObj::Perl_gv_fetchpv
  1215 +#define gv_fullname CPerlObj::Perl_gv_fullname
  1216 +#define gv_fullname3 CPerlObj::Perl_gv_fullname3
  1217 +#define gv_init CPerlObj::Perl_gv_init
  1218 +#define gv_init_sv CPerlObj::Perl_gv_init_sv
  1219 +#define gv_stashpv CPerlObj::Perl_gv_stashpv
  1220 +#define gv_stashpvn CPerlObj::Perl_gv_stashpvn
  1221 +#define gv_stashsv CPerlObj::Perl_gv_stashsv
  1222 +#define hfreeentries CPerlObj::Perl_hfreeentries
  1223 +#define hsplit CPerlObj::Perl_hsplit
  1224 +#define hv_clear CPerlObj::Perl_hv_clear
  1225 +#define hv_delayfree_ent CPerlObj::Perl_hv_delayfree_ent
  1226 +#define hv_delete CPerlObj::Perl_hv_delete
  1227 +#define hv_delete_ent CPerlObj::Perl_hv_delete_ent
  1228 +#define hv_exists CPerlObj::Perl_hv_exists
  1229 +#define hv_exists_ent CPerlObj::Perl_hv_exists_ent
  1230 +#define hv_fetch CPerlObj::Perl_hv_fetch
  1231 +#define hv_fetch_ent CPerlObj::Perl_hv_fetch_ent
  1232 +#define hv_free_ent CPerlObj::Perl_hv_free_ent
  1233 +#define hv_iterinit CPerlObj::Perl_hv_iterinit
  1234 +#define hv_iterkey CPerlObj::Perl_hv_iterkey
  1235 +#define hv_iterkeysv CPerlObj::Perl_hv_iterkeysv
  1236 +#define hv_iternext CPerlObj::Perl_hv_iternext
  1237 +#define hv_iternextsv CPerlObj::Perl_hv_iternextsv
  1238 +#define hv_iterval CPerlObj::Perl_hv_iterval
  1239 +#define hv_ksplit CPerlObj::Perl_hv_ksplit
  1240 +#define hv_magic CPerlObj::Perl_hv_magic
  1241 +#define hv_stashpv CPerlObj::Perl_hv_stashpv
  1242 +#define hv_store CPerlObj::Perl_hv_store
  1243 +#define hv_store_ent CPerlObj::Perl_hv_store_ent
  1244 +#define hv_undef CPerlObj::Perl_hv_undef
  1245 +#define ibcmp CPerlObj::Perl_ibcmp
  1246 +#define ibcmp_locale CPerlObj::Perl_ibcmp_locale
  1247 +#define incl_perldb CPerlObj::Perl_incl_perldb
  1248 +#define incline CPerlObj::Perl_incline
  1249 +#define incpush CPerlObj::Perl_incpush
  1250 +#define ingroup CPerlObj::Perl_ingroup
  1251 +#define init_debugger CPerlObj::Perl_init_debugger
  1252 +#define init_ids CPerlObj::Perl_init_ids
  1253 +#define init_interp CPerlObj::Perl_init_interp
  1254 +#define init_lexer CPerlObj::Perl_init_lexer
  1255 +#define init_main_stash CPerlObj::Perl_init_main_stash
  1256 +#define init_perllib CPerlObj::Perl_init_perllib
  1257 +#define init_postdump_symbols CPerlObj::Perl_init_postdump_symbols
  1258 +#define init_predump_symbols CPerlObj::Perl_init_predump_symbols
  1259 +#define init_stacks CPerlObj::Perl_init_stacks
  1260 +#define init_thread_intern CPerlObj::Perl_init_thread_intern
  1261 +#define instr CPerlObj::Perl_instr
  1262 +#define intro_my CPerlObj::Perl_intro_my
  1263 +#define intuit_method CPerlObj::Perl_intuit_method
  1264 +#define intuit_more CPerlObj::Perl_intuit_more
  1265 +#define intuit_more CPerlObj::Perl_intuit_more
  1266 +#define invert CPerlObj::Perl_invert
  1267 +#define io_close CPerlObj::Perl_io_close
  1268 +#define is_an_int CPerlObj::Perl_is_an_int
  1269 +#define is_uni_alnum CPerlObj::Perl_is_uni_alnum
  1270 +#define is_uni_alnum_lc CPerlObj::Perl_is_uni_alnum_lc
  1271 +#define is_uni_alpha CPerlObj::Perl_is_uni_alpha
  1272 +#define is_uni_alpha_lc CPerlObj::Perl_is_uni_alpha_lc
  1273 +#define is_uni_digit CPerlObj::Perl_is_uni_digit
  1274 +#define is_uni_digit_lc CPerlObj::Perl_is_uni_digit_lc
  1275 +#define is_uni_idfirst CPerlObj::Perl_is_uni_idfirst
  1276 +#define is_uni_idfirst_lc CPerlObj::Perl_is_uni_idfirst_lc
  1277 +#define is_uni_lower CPerlObj::Perl_is_uni_lower
  1278 +#define is_uni_lower_lc CPerlObj::Perl_is_uni_lower_lc
  1279 +#define is_uni_print CPerlObj::Perl_is_uni_print
  1280 +#define is_uni_print_lc CPerlObj::Perl_is_uni_print_lc
  1281 +#define is_uni_space CPerlObj::Perl_is_uni_space
  1282 +#define is_uni_space_lc CPerlObj::Perl_is_uni_space_lc
  1283 +#define is_uni_upper CPerlObj::Perl_is_uni_upper
  1284 +#define is_uni_upper_lc CPerlObj::Perl_is_uni_upper_lc
  1285 +#define is_utf8_alnum CPerlObj::Perl_is_utf8_alnum
  1286 +#define is_utf8_alpha CPerlObj::Perl_is_utf8_alpha
  1287 +#define is_utf8_digit CPerlObj::Perl_is_utf8_digit
  1288 +#define is_utf8_idfirst CPerlObj::Perl_is_utf8_idfirst
  1289 +#define is_utf8_lower CPerlObj::Perl_is_utf8_lower
  1290 +#define is_utf8_mark CPerlObj::Perl_is_utf8_mark
  1291 +#define is_utf8_print CPerlObj::Perl_is_utf8_print
  1292 +#define is_utf8_space CPerlObj::Perl_is_utf8_space
  1293 +#define is_utf8_upper CPerlObj::Perl_is_utf8_upper
  1294 +#define isa_lookup CPerlObj::Perl_isa_lookup
  1295 +#define jmaybe CPerlObj::Perl_jmaybe
  1296 +#define keyword CPerlObj::Perl_keyword
  1297 +#define leave_scope CPerlObj::Perl_leave_scope
  1298 +#define lex_end CPerlObj::Perl_lex_end
  1299 +#define lex_start CPerlObj::Perl_lex_start
  1300 +#define linklist CPerlObj::Perl_linklist
  1301 +#define list CPerlObj::Perl_list
  1302 +#define list_assignment CPerlObj::Perl_list_assignment
  1303 +#define listkids CPerlObj::Perl_listkids
  1304 +#define localize CPerlObj::Perl_localize
  1305 +#define looks_like_number CPerlObj::Perl_looks_like_number
  1306 +#define lop CPerlObj::Perl_lop
  1307 +#define magic_clear_all_env CPerlObj::Perl_magic_clear_all_env
  1308 +#define magic_clearenv CPerlObj::Perl_magic_clearenv
  1309 +#define magic_clearpack CPerlObj::Perl_magic_clearpack
  1310 +#define magic_clearsig CPerlObj::Perl_magic_clearsig
  1311 +#define magic_existspack CPerlObj::Perl_magic_existspack
  1312 +#define magic_freeregexp CPerlObj::Perl_magic_freeregexp
  1313 +#define magic_get CPerlObj::Perl_magic_get
  1314 +#define magic_getarylen CPerlObj::Perl_magic_getarylen
  1315 +#define magic_getdefelem CPerlObj::Perl_magic_getdefelem
  1316 +#define magic_getglob CPerlObj::Perl_magic_getglob
  1317 +#define magic_getnkeys CPerlObj::Perl_magic_getnkeys
  1318 +#define magic_getpack CPerlObj::Perl_magic_getpack
  1319 +#define magic_getpos CPerlObj::Perl_magic_getpos
  1320 +#define magic_getsig CPerlObj::Perl_magic_getsig
  1321 +#define magic_getsubstr CPerlObj::Perl_magic_getsubstr
  1322 +#define magic_gettaint CPerlObj::Perl_magic_gettaint
  1323 +#define magic_getuvar CPerlObj::Perl_magic_getuvar
  1324 +#define magic_getvec CPerlObj::Perl_magic_getvec
  1325 +#define magic_len CPerlObj::Perl_magic_len
  1326 +#define magic_methcall CPerlObj::Perl_magic_methcall
  1327 +#define magic_methcall CPerlObj::Perl_magic_methcall
  1328 +#define magic_methpack CPerlObj::Perl_magic_methpack
  1329 +#define magic_mutexfree CPerlObj::Perl_magic_mutexfree
  1330 +#define magic_nextpack CPerlObj::Perl_magic_nextpack
  1331 +#define magic_regdata_cnt CPerlObj::Perl_magic_regdata_cnt
  1332 +#define magic_regdatum_get CPerlObj::Perl_magic_regdatum_get
  1333 +#define magic_set CPerlObj::Perl_magic_set
  1334 +#define magic_set_all_env CPerlObj::Perl_magic_set_all_env
  1335 +#define magic_setamagic CPerlObj::Perl_magic_setamagic
  1336 +#define magic_setarylen CPerlObj::Perl_magic_setarylen
  1337 +#define magic_setbm CPerlObj::Perl_magic_setbm
  1338 +#define magic_setcollxfrm CPerlObj::Perl_magic_setcollxfrm
  1339 +#define magic_setdbline CPerlObj::Perl_magic_setdbline
  1340 +#define magic_setdefelem CPerlObj::Perl_magic_setdefelem
  1341 +#define magic_setenv CPerlObj::Perl_magic_setenv
  1342 +#define magic_setfm CPerlObj::Perl_magic_setfm
  1343 +#define magic_setglob CPerlObj::Perl_magic_setglob
  1344 +#define magic_setisa CPerlObj::Perl_magic_setisa
  1345 +#define magic_setmglob CPerlObj::Perl_magic_setmglob
  1346 +#define magic_setnkeys CPerlObj::Perl_magic_setnkeys
  1347 +#define magic_setpack CPerlObj::Perl_magic_setpack
  1348 +#define magic_setpos CPerlObj::Perl_magic_setpos
  1349 +#define magic_setsig CPerlObj::Perl_magic_setsig
  1350 +#define magic_setsubstr CPerlObj::Perl_magic_setsubstr
  1351 +#define magic_settaint CPerlObj::Perl_magic_settaint
  1352 +#define magic_setuvar CPerlObj::Perl_magic_setuvar
  1353 +#define magic_setvec CPerlObj::Perl_magic_setvec
  1354 +#define magic_sizepack CPerlObj::Perl_magic_sizepack
  1355 +#define magic_wipepack CPerlObj::Perl_magic_wipepack
  1356 +#define magicname CPerlObj::Perl_magicname
  1357 +#define malloced_size CPerlObj::Perl_malloced_size
  1358 +#define markstack_grow CPerlObj::Perl_markstack_grow
  1359 +#define mem_collxfrm CPerlObj::Perl_mem_collxfrm
  1360 +#define mess CPerlObj::Perl_mess
  1361 +#define mess_alloc CPerlObj::Perl_mess_alloc
  1362 +#define mg_clear CPerlObj::Perl_mg_clear
  1363 +#define mg_copy CPerlObj::Perl_mg_copy
  1364 +#define mg_find CPerlObj::Perl_mg_find
  1365 +#define mg_free CPerlObj::Perl_mg_free
  1366 +#define mg_get CPerlObj::Perl_mg_get
  1367 +#define mg_length CPerlObj::Perl_mg_length
  1368 +#define mg_magical CPerlObj::Perl_mg_magical
  1369 +#define mg_set CPerlObj::Perl_mg_set
  1370 +#define mg_size CPerlObj::Perl_mg_size
  1371 +#define missingterm CPerlObj::Perl_missingterm
  1372 +#define mod CPerlObj::Perl_mod
  1373 +#define modkids CPerlObj::Perl_modkids
  1374 +#define modkids CPerlObj::Perl_modkids
  1375 +#define more_he CPerlObj::Perl_more_he
  1376 +#define more_sv CPerlObj::Perl_more_sv
  1377 +#define more_xiv CPerlObj::Perl_more_xiv
  1378 +#define more_xnv CPerlObj::Perl_more_xnv
  1379 +#define more_xpv CPerlObj::Perl_more_xpv
  1380 +#define more_xrv CPerlObj::Perl_more_xrv
  1381 +#define moreswitches CPerlObj::Perl_moreswitches
  1382 +#define mstats CPerlObj::Perl_mstats
  1383 +#define mul128 CPerlObj::Perl_mul128
  1384 +#define my CPerlObj::Perl_my
  1385 +#define my_bcopy CPerlObj::Perl_my_bcopy
  1386 +#define my_bzero CPerlObj::Perl_my_bzero
  1387 +#define my_chsize CPerlObj::Perl_my_chsize
  1388 +#define my_exit CPerlObj::Perl_my_exit
  1389 +#define my_exit_jump CPerlObj::Perl_my_exit_jump
  1390 +#define my_failure_exit CPerlObj::Perl_my_failure_exit
  1391 +#define my_htonl CPerlObj::Perl_my_htonl
  1392 +#define my_lstat CPerlObj::Perl_my_lstat
  1393 +#define my_memcmp CPerlObj::Perl_my_memcmp
  1394 +#define my_memset CPerlObj::Perl_my_memset
  1395 +#define my_ntohl CPerlObj::Perl_my_ntohl
  1396 +#define my_pclose CPerlObj::Perl_my_pclose
  1397 +#define my_popen CPerlObj::Perl_my_popen
  1398 +#define my_safemalloc CPerlObj::Perl_my_safemalloc
  1399 +#define my_setenv CPerlObj::Perl_my_setenv
  1400 +#define my_stat CPerlObj::Perl_my_stat
  1401 +#define my_swap CPerlObj::Perl_my_swap
  1402 +#define my_unexec CPerlObj::Perl_my_unexec
  1403 +#define newANONHASH CPerlObj::Perl_newANONHASH
  1404 +#define newANONLIST CPerlObj::Perl_newANONLIST
  1405 +#define newANONSUB CPerlObj::Perl_newANONSUB
  1406 +#define newASSIGNOP CPerlObj::Perl_newASSIGNOP
  1407 +#define newAV CPerlObj::Perl_newAV
  1408 +#define newAVREF CPerlObj::Perl_newAVREF
  1409 +#define newBINOP CPerlObj::Perl_newBINOP
  1410 +#define newCONDOP CPerlObj::Perl_newCONDOP
  1411 +#define newCONSTSUB CPerlObj::Perl_newCONSTSUB
  1412 +#define newCVREF CPerlObj::Perl_newCVREF
  1413 +#define newDEFSVOP CPerlObj::Perl_newDEFSVOP
  1414 +#define newFORM CPerlObj::Perl_newFORM
  1415 +#define newFOROP CPerlObj::Perl_newFOROP
  1416 +#define newGVOP CPerlObj::Perl_newGVOP
  1417 +#define newGVREF CPerlObj::Perl_newGVREF
  1418 +#define newGVgen CPerlObj::Perl_newGVgen
  1419 +#define newHV CPerlObj::Perl_newHV
  1420 +#define newHVREF CPerlObj::Perl_newHVREF
  1421 +#define newHVhv CPerlObj::Perl_newHVhv
  1422 +#define newIO CPerlObj::Perl_newIO
  1423 +#define newLISTOP CPerlObj::Perl_newLISTOP
  1424 +#define newLOGOP CPerlObj::Perl_newLOGOP
  1425 +#define newLOOPEX CPerlObj::Perl_newLOOPEX
  1426 +#define newLOOPOP CPerlObj::Perl_newLOOPOP
  1427 +#define newNULLLIST CPerlObj::Perl_newNULLLIST
  1428 +#define newOP CPerlObj::Perl_newOP
  1429 +#define newPMOP CPerlObj::Perl_newPMOP
  1430 +#define newPROG CPerlObj::Perl_newPROG
  1431 +#define newPVOP CPerlObj::Perl_newPVOP
  1432 +#define newRANGE CPerlObj::Perl_newRANGE
  1433 +#define newRV CPerlObj::Perl_newRV
  1434 +#define newRV_noinc CPerlObj::Perl_newRV_noinc
  1435 +#define newSLICEOP CPerlObj::Perl_newSLICEOP
  1436 +#define newSTATEOP CPerlObj::Perl_newSTATEOP
  1437 +#define newSUB CPerlObj::Perl_newSUB
  1438 +#define newSV CPerlObj::Perl_newSV
  1439 +#define newSVOP CPerlObj::Perl_newSVOP
  1440 +#define newSVREF CPerlObj::Perl_newSVREF
  1441 +#define newSViv CPerlObj::Perl_newSViv
  1442 +#define newSVnv CPerlObj::Perl_newSVnv
  1443 +#define newSVpv CPerlObj::Perl_newSVpv
  1444 +#define newSVpvf CPerlObj::Perl_newSVpvf
  1445 +#define newSVpvn CPerlObj::Perl_newSVpvn
  1446 +#define newSVrv CPerlObj::Perl_newSVrv
  1447 +#define newSVsv CPerlObj::Perl_newSVsv
  1448 +#define newUNOP CPerlObj::Perl_newUNOP
  1449 +#define newWHILEOP CPerlObj::Perl_newWHILEOP
  1450 +#define newXS CPerlObj::Perl_newXS
  1451 +#define newXSUB CPerlObj::Perl_newXSUB
  1452 +#define new_constant CPerlObj::Perl_new_constant
  1453 +#define new_he CPerlObj::Perl_new_he
  1454 +#define new_logop CPerlObj::Perl_new_logop
  1455 +#define new_stackinfo CPerlObj::Perl_new_stackinfo
  1456 +#define new_struct_thread CPerlObj::Perl_new_struct_thread
  1457 +#define new_xiv CPerlObj::Perl_new_xiv
  1458 +#define new_xnv CPerlObj::Perl_new_xnv
  1459 +#define new_xpv CPerlObj::Perl_new_xpv
  1460 +#define new_xrv CPerlObj::Perl_new_xrv
  1461 +#define nextargv CPerlObj::Perl_nextargv
  1462 +#define nextchar CPerlObj::Perl_nextchar
  1463 +#define ninstr CPerlObj::Perl_ninstr
  1464 +#define no_fh_allowed CPerlObj::Perl_no_fh_allowed
  1465 +#define no_fh_allowed CPerlObj::Perl_no_fh_allowed
  1466 +#define no_op CPerlObj::Perl_no_op
  1467 +#define no_op CPerlObj::Perl_no_op
  1468 +#define not_a_number CPerlObj::Perl_not_a_number
  1469 +#define nuke_stacks CPerlObj::Perl_nuke_stacks
  1470 +#define null CPerlObj::Perl_null
  1471 +#define oopsAV CPerlObj::Perl_oopsAV
  1472 +#define oopsCV CPerlObj::Perl_oopsCV
  1473 +#define oopsHV CPerlObj::Perl_oopsHV
  1474 +#define op_const_sv CPerlObj::Perl_op_const_sv
  1475 +#define op_free CPerlObj::Perl_op_free
  1476 +#define open_script CPerlObj::Perl_open_script
  1477 +#define package CPerlObj::Perl_package
  1478 +#define pad_alloc CPerlObj::Perl_pad_alloc
  1479 +#define pad_allocmy CPerlObj::Perl_pad_allocmy
  1480 +#define pad_findlex CPerlObj::Perl_pad_findlex
  1481 +#define pad_findmy CPerlObj::Perl_pad_findmy
  1482 +#define pad_free CPerlObj::Perl_pad_free
  1483 +#define pad_leavemy CPerlObj::Perl_pad_leavemy
  1484 +#define pad_reset CPerlObj::Perl_pad_reset
  1485 +#define pad_sv CPerlObj::Perl_pad_sv
  1486 +#define pad_swipe CPerlObj::Perl_pad_swipe
  1487 +#define peep CPerlObj::Perl_peep
  1488 +#define perl_atexit CPerlObj::perl_atexit
  1489 +#define perl_call_argv CPerlObj::perl_call_argv
  1490 +#define perl_call_method CPerlObj::perl_call_method
  1491 +#define perl_call_pv CPerlObj::perl_call_pv
  1492 +#define perl_call_sv CPerlObj::perl_call_sv
  1493 +#define perl_construct CPerlObj::perl_construct
  1494 +#define perl_destruct CPerlObj::perl_destruct
  1495 +#define perl_eval_pv CPerlObj::perl_eval_pv
  1496 +#define perl_eval_sv CPerlObj::perl_eval_sv
  1497 +#define perl_free CPerlObj::perl_free
  1498 +#define perl_get_av CPerlObj::perl_get_av
  1499 +#define perl_get_cv CPerlObj::perl_get_cv
  1500 +#define perl_get_hv CPerlObj::perl_get_hv
  1501 +#define perl_get_sv CPerlObj::perl_get_sv
  1502 +#define perl_init_i18nl10n CPerlObj::perl_init_i18nl10n
  1503 +#define perl_init_i18nl14n CPerlObj::perl_init_i18nl14n
  1504 +#define perl_new_collate CPerlObj::perl_new_collate
  1505 +#define perl_new_ctype CPerlObj::perl_new_ctype
  1506 +#define perl_new_numeric CPerlObj::perl_new_numeric
  1507 +#define perl_parse CPerlObj::perl_parse
  1508 +#define perl_require_pv CPerlObj::perl_require_pv
  1509 +#define perl_run CPerlObj::perl_run
  1510 +#define perl_set_numeric_local CPerlObj::perl_set_numeric_local
  1511 +#define perl_set_numeric_standard CPerlObj::perl_set_numeric_standard
  1512 +#define pidgone CPerlObj::Perl_pidgone
  1513 +#define pmflag CPerlObj::Perl_pmflag
  1514 +#define pmruntime CPerlObj::Perl_pmruntime
  1515 +#define pmtrans CPerlObj::Perl_pmtrans
  1516 +#define pop_return CPerlObj::Perl_pop_return
  1517 +#define pop_scope CPerlObj::Perl_pop_scope
  1518 +#define pp_aassign CPerlObj::Perl_pp_aassign
  1519 +#define pp_abs CPerlObj::Perl_pp_abs
  1520 +#define pp_accept CPerlObj::Perl_pp_accept
  1521 +#define pp_add CPerlObj::Perl_pp_add
  1522 +#define pp_aelem CPerlObj::Perl_pp_aelem
  1523 +#define pp_aelemfast CPerlObj::Perl_pp_aelemfast
  1524 +#define pp_alarm CPerlObj::Perl_pp_alarm
  1525