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, 9 insertions, 0 deletions

diff --git a/mg.c b/mg.c
index 9f05d3c2c4..50136e2bae 100644
--- a/mg.c
+++ b/mg.c
@@ -2145,6 +2145,15 @@ Perl_whichsig(pTHX_ char *sig)
     return 0;
 }
 
+void
+Perl_despatch_signals(pTHX)
+{
+#ifndef PERL_OLD_SIGNALS
+ /* This is just a dummy for now */
+#endif
+ PL_sig_pending = 0;
+}
+
 static SV* sig_sv;
 
 Signal_t