From 1ed9529a68bd28442a30b93f455d9575b05123cd Mon Sep 17 00:00:00 2001
From: Jack Jansen <jack.jansen@cwi.nl>
Date: Mon, 22 Jul 1996 15:25:10 +0000
Subject: [PATCH] Added PyOS_CheckStack() function which returns -1 when we are
 running low on stackspace.

---
 Mac/Python/macglue.c | 14 ++++++++++++++
 1 file changed, 14 insertions(+)

diff --git a/Mac/Python/macglue.c b/Mac/Python/macglue.c
index 74fa2eef732..e0cbd1a9358 100644
--- a/Mac/Python/macglue.c
+++ b/Mac/Python/macglue.c
@@ -225,6 +225,20 @@ PyMac_Error(OSErr err)
 	return PyErr_Mac(PyMac_GetOSErrException(), err);
 }
 
+#ifdef USE_STACKCHECK
+/* Check for stack overflow */
+int
+PyOS_CheckStack()
+{
+	long left;
+	
+	left = StackSpace();
+	if ( left < 4000 )
+		return -1;
+	return 0;
+}
+#endif /* USE_STACKCHECK */
+
 /* The catcher routine (which may not be used for all compilers) */
 static RETSIGTYPE
 intcatcher(sig)