From ce08f86c8b1d404b3d9fec75a102b8cd65f8766a Mon Sep 17 00:00:00 2001
From: Nick Ing-Simmons <nik@tiuk.ti.com>
Date: Tue, 16 Jan 2001 22:07:26 +0000
Subject: 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
---
 perl.h | 5 +++++
 1 file changed, 5 insertions(+)

(limited to 'perl.h')

diff --git a/perl.h b/perl.h
index 19827a3101..bbea5dddd3 100644
--- a/perl.h
+++ b/perl.h
@@ -3338,6 +3338,11 @@ typedef struct am_table_short AMTS;
  * Keep this check simple, or it may slow down execution
  * massively.
  */
+
+#ifndef PERL_OLD_SIGNALS
+#define PERL_ASYNC_CHECK() if (PL_sig_pending) despatch_signals()
+#endif
+
 #ifndef PERL_ASYNC_CHECK
 #define PERL_ASYNC_CHECK()  NOOP
 #endif
-- 
cgit v1.2.1