X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=perlapi.h;h=f75263702a9d61f63b669f42424159f977f45682;hb=929a4907d56d33ad69150da8025e2267d4eeb613;hp=c65a4c69e40cecfc2a31894b7e15c90b2b1f5dc7;hpb=f3548bdc4d2efd11e139d110e60764b9dae81319;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/perlapi.h b/perlapi.h
index c65a4c6..f752637 100644
--- a/perlapi.h
+++ b/perlapi.h
@@ -1,15 +1,17 @@
 /*
  *    perlapi.h
  *
- *    Copyright (c) 1997-2002, Larry Wall
+ *    Copyright (C) 1999, 2000, 2001, 2002, 2003, by Larry Wall and others
  *
  *    You may distribute under the terms of either the GNU General Public
  *    License or the Artistic License, as specified in the README file.
  *
- *
  * !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
- *  This file is built by embed.pl from data in embed.pl, pp.sym, intrpvar.h,
- *  perlvars.h and thrdvar.h.  Any changes made here will be lost!
+ * This file is built by embed.pl from data in embed.fnc, embed.pl,
+ * pp.sym, intrpvar.h, perlvars.h and thrdvar.h.
+ * Any changes made here will be lost!
+ *
+ * Edit those files and run 'make regen_headers' to effect changes.
  */
 
 /* declare accessor functions for Perl variables */
@@ -86,6 +88,8 @@ END_EXTERN_C
 #define PL_Argv			(*Perl_IArgv_ptr(aTHX))
 #undef  PL_Cmd
 #define PL_Cmd			(*Perl_ICmd_ptr(aTHX))
+#undef  PL_DBassertion
+#define PL_DBassertion		(*Perl_IDBassertion_ptr(aTHX))
 #undef  PL_DBcv
 #define PL_DBcv			(*Perl_IDBcv_ptr(aTHX))
 #undef  PL_DBgv
@@ -272,6 +276,8 @@ END_EXTERN_C
 #define PL_in_clean_all		(*Perl_Iin_clean_all_ptr(aTHX))
 #undef  PL_in_clean_objs
 #define PL_in_clean_objs	(*Perl_Iin_clean_objs_ptr(aTHX))
+#undef  PL_in_load_module
+#define PL_in_load_module	(*Perl_Iin_load_module_ptr(aTHX))
 #undef  PL_in_my
 #define PL_in_my		(*Perl_Iin_my_ptr(aTHX))
 #undef  PL_in_my_stash
@@ -468,6 +474,8 @@ END_EXTERN_C
 #define PL_ptr_table		(*Perl_Iptr_table_ptr(aTHX))
 #undef  PL_reentrant_buffer
 #define PL_reentrant_buffer	(*Perl_Ireentrant_buffer_ptr(aTHX))
+#undef  PL_reentrant_retint
+#define PL_reentrant_retint	(*Perl_Ireentrant_retint_ptr(aTHX))
 #undef  PL_regex_pad
 #define PL_regex_pad		(*Perl_Iregex_pad_ptr(aTHX))
 #undef  PL_regex_padav
@@ -484,18 +492,22 @@ END_EXTERN_C
 #define PL_savebegin		(*Perl_Isavebegin_ptr(aTHX))
 #undef  PL_sawampersand
 #define PL_sawampersand		(*Perl_Isawampersand_ptr(aTHX))
-#undef  PL_sh_path
-#define PL_sh_path		(*Perl_Ish_path_ptr(aTHX))
+#undef  PL_sh_path_compat
+#define PL_sh_path_compat	(*Perl_Ish_path_compat_ptr(aTHX))
 #undef  PL_sig_pending
 #define PL_sig_pending		(*Perl_Isig_pending_ptr(aTHX))
 #undef  PL_sighandlerp
 #define PL_sighandlerp		(*Perl_Isighandlerp_ptr(aTHX))
+#undef  PL_signals
+#define PL_signals		(*Perl_Isignals_ptr(aTHX))
 #undef  PL_sort_RealCmp
 #define PL_sort_RealCmp		(*Perl_Isort_RealCmp_ptr(aTHX))
 #undef  PL_splitstr
 #define PL_splitstr		(*Perl_Isplitstr_ptr(aTHX))
 #undef  PL_srand_called
 #define PL_srand_called		(*Perl_Isrand_called_ptr(aTHX))
+#undef  PL_stashcache
+#define PL_stashcache		(*Perl_Istashcache_ptr(aTHX))
 #undef  PL_statusvalue
 #define PL_statusvalue		(*Perl_Istatusvalue_ptr(aTHX))
 #undef  PL_statusvalue_vms
@@ -538,6 +550,8 @@ END_EXTERN_C
 #define PL_tokenbuf		(*Perl_Itokenbuf_ptr(aTHX))
 #undef  PL_uid
 #define PL_uid			(*Perl_Iuid_ptr(aTHX))
+#undef  PL_unicode
+#define PL_unicode		(*Perl_Iunicode_ptr(aTHX))
 #undef  PL_unsafe
 #define PL_unsafe		(*Perl_Iunsafe_ptr(aTHX))
 #undef  PL_utf8_alnum
@@ -580,10 +594,10 @@ END_EXTERN_C
 #define PL_utf8_upper		(*Perl_Iutf8_upper_ptr(aTHX))
 #undef  PL_utf8_xdigit
 #define PL_utf8_xdigit		(*Perl_Iutf8_xdigit_ptr(aTHX))
+#undef  PL_utf8locale
+#define PL_utf8locale		(*Perl_Iutf8locale_ptr(aTHX))
 #undef  PL_uudmap
 #define PL_uudmap		(*Perl_Iuudmap_ptr(aTHX))
-#undef  PL_wantutf8
-#define PL_wantutf8		(*Perl_Iwantutf8_ptr(aTHX))
 #undef  PL_warnhook
 #define PL_warnhook		(*Perl_Iwarnhook_ptr(aTHX))
 #undef  PL_widesyscalls
@@ -692,8 +706,6 @@ END_EXTERN_C
 #define PL_efloatsize		(*Perl_Tefloatsize_ptr(aTHX))
 #undef  PL_errors
 #define PL_errors		(*Perl_Terrors_ptr(aTHX))
-#undef  PL_extralen
-#define PL_extralen		(*Perl_Textralen_ptr(aTHX))
 #undef  PL_firstgv
 #define PL_firstgv		(*Perl_Tfirstgv_ptr(aTHX))
 #undef  PL_formtarget
@@ -778,20 +790,10 @@ END_EXTERN_C
 #define PL_reg_starttry		(*Perl_Treg_starttry_ptr(aTHX))
 #undef  PL_reg_sv
 #define PL_reg_sv		(*Perl_Treg_sv_ptr(aTHX))
-#undef  PL_reg_whilem_seen
-#define PL_reg_whilem_seen	(*Perl_Treg_whilem_seen_ptr(aTHX))
 #undef  PL_regbol
 #define PL_regbol		(*Perl_Tregbol_ptr(aTHX))
 #undef  PL_regcc
 #define PL_regcc		(*Perl_Tregcc_ptr(aTHX))
-#undef  PL_regcode
-#define PL_regcode		(*Perl_Tregcode_ptr(aTHX))
-#undef  PL_regcomp_parse
-#define PL_regcomp_parse	(*Perl_Tregcomp_parse_ptr(aTHX))
-#undef  PL_regcomp_rx
-#define PL_regcomp_rx		(*Perl_Tregcomp_rx_ptr(aTHX))
-#undef  PL_regcompat1
-#define PL_regcompat1		(*Perl_Tregcompat1_ptr(aTHX))
 #undef  PL_regcompp
 #define PL_regcompp		(*Perl_Tregcompp_ptr(aTHX))
 #undef  PL_regdata
@@ -804,8 +806,6 @@ END_EXTERN_C
 #define PL_regeol		(*Perl_Tregeol_ptr(aTHX))
 #undef  PL_regexecp
 #define PL_regexecp		(*Perl_Tregexecp_ptr(aTHX))
-#undef  PL_regflags
-#define PL_regflags		(*Perl_Tregflags_ptr(aTHX))
 #undef  PL_regfree
 #define PL_regfree		(*Perl_Tregfree_ptr(aTHX))
 #undef  PL_regindent
@@ -824,26 +824,18 @@ END_EXTERN_C
 #define PL_reglastparen		(*Perl_Treglastparen_ptr(aTHX))
 #undef  PL_regnarrate
 #define PL_regnarrate		(*Perl_Tregnarrate_ptr(aTHX))
-#undef  PL_regnaughty
-#define PL_regnaughty		(*Perl_Tregnaughty_ptr(aTHX))
 #undef  PL_regnpar
 #define PL_regnpar		(*Perl_Tregnpar_ptr(aTHX))
 #undef  PL_regprecomp
 #define PL_regprecomp		(*Perl_Tregprecomp_ptr(aTHX))
 #undef  PL_regprogram
 #define PL_regprogram		(*Perl_Tregprogram_ptr(aTHX))
-#undef  PL_regsawback
-#define PL_regsawback		(*Perl_Tregsawback_ptr(aTHX))
-#undef  PL_regseen
-#define PL_regseen		(*Perl_Tregseen_ptr(aTHX))
 #undef  PL_regsize
 #define PL_regsize		(*Perl_Tregsize_ptr(aTHX))
 #undef  PL_regstartp
 #define PL_regstartp		(*Perl_Tregstartp_ptr(aTHX))
 #undef  PL_regtill
 #define PL_regtill		(*Perl_Tregtill_ptr(aTHX))
-#undef  PL_regxend
-#define PL_regxend		(*Perl_Tregxend_ptr(aTHX))
 #undef  PL_restartop
 #define PL_restartop		(*Perl_Trestartop_ptr(aTHX))
 #undef  PL_retstack
@@ -872,10 +864,6 @@ END_EXTERN_C
 #define PL_screamnext		(*Perl_Tscreamnext_ptr(aTHX))
 #undef  PL_secondgv
 #define PL_secondgv		(*Perl_Tsecondgv_ptr(aTHX))
-#undef  PL_seen_evals
-#define PL_seen_evals		(*Perl_Tseen_evals_ptr(aTHX))
-#undef  PL_seen_zerolen
-#define PL_seen_zerolen		(*Perl_Tseen_zerolen_ptr(aTHX))
 #undef  PL_sortcop
 #define PL_sortcop		(*Perl_Tsortcop_ptr(aTHX))
 #undef  PL_sortcxix
@@ -926,6 +914,8 @@ END_EXTERN_C
 #define PL_curinterp		(*Perl_Gcurinterp_ptr(NULL))
 #undef  PL_do_undump
 #define PL_do_undump		(*Perl_Gdo_undump_ptr(NULL))
+#undef  PL_dollarzero_mutex
+#define PL_dollarzero_mutex	(*Perl_Gdollarzero_mutex_ptr(NULL))
 #undef  PL_hexdigit
 #define PL_hexdigit		(*Perl_Ghexdigit_ptr(NULL))
 #undef  PL_lockhook
@@ -942,6 +932,8 @@ END_EXTERN_C
 #define PL_runops_dbg		(*Perl_Grunops_dbg_ptr(NULL))
 #undef  PL_runops_std
 #define PL_runops_std		(*Perl_Grunops_std_ptr(NULL))
+#undef  PL_sh_path
+#define PL_sh_path		(*Perl_Gsh_path_ptr(NULL))
 #undef  PL_sharehook
 #define PL_sharehook		(*Perl_Gsharehook_ptr(NULL))
 #undef  PL_thr_key