Provide infrastructure for PERL_ASYNC_CHECK() style safe signals.

Provides all the "cost" but no benefit yet - it is to allow cost
to be measured, and implementation experiments (just in mg.c?).

p4raw-id: //depot/perlio@8457

1 files changed, 1 insertions, 0 deletions

diff --git a/gv.c b/gv.c
index 8ee3f763c1..53389bfdae 100644
--- a/gv.c
+++ b/gv.c
@@ -753,6 +753,7 @@ Perl_gv_fetchpv(pTHX_ const char *nambeg, I32 add, I32 sv_type)
 		int sig_num[] = { SIG_NUM };
 		New(73, PL_psig_ptr, sizeof(sig_num)/sizeof(*sig_num), SV*);
 		New(73, PL_psig_name, sizeof(sig_num)/sizeof(*sig_num), SV*);
+		New(73, PL_psig_pend, sizeof(sig_num)/sizeof(*sig_num), int);
 	    }
 	    GvMULTI_on(gv);
 	    hv = GvHVn(gv);