Detecting errors of reentrant APIs: getgrgid_r and the like

[p5sagit/p5-mst-13.2.git] / perlapi.h

diff --git a/perlapi.h b/perlapi.h
index e350586..f752637 100644 (file)
--- a/perlapi.h
+++ b/perlapi.h
@@ -474,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
@@ -664,6 +666,8 @@ END_EXTERN_C
 #define PL_Sv                  (*Perl_TSv_ptr(aTHX))
 #undef  PL_Xpv
 #define PL_Xpv                 (*Perl_TXpv_ptr(aTHX))
+#undef  PL_av_fetch_sv
+#define PL_av_fetch_sv         (*Perl_Tav_fetch_sv_ptr(aTHX))
 #undef  PL_bodytarget
 #define PL_bodytarget          (*Perl_Tbodytarget_ptr(aTHX))
 #undef  PL_bostr
@@ -708,6 +712,8 @@ END_EXTERN_C
 #define PL_formtarget          (*Perl_Tformtarget_ptr(aTHX))
 #undef  PL_hv_fetch_ent_mh
 #define PL_hv_fetch_ent_mh     (*Perl_Thv_fetch_ent_mh_ptr(aTHX))
+#undef  PL_hv_fetch_sv
+#define PL_hv_fetch_sv         (*Perl_Thv_fetch_sv_ptr(aTHX))
 #undef  PL_in_eval
 #define PL_in_eval             (*Perl_Tin_eval_ptr(aTHX))
 #undef  PL_last_in_gv