From 7acfca905d76140f4cc0b09c9a12de237de364cd Mon Sep 17 00:00:00 2001
From: Nick Barnes
Date: Wed, 31 Oct 2001 14:40:56 +0000
Subject: Branch imports for masters.

Copied from Perforce
 Change: 23678
 ServerID: perforce.ravenbrook.com

---
 mps/code/span.c | 25 +++++++++++++++++++++++++
 1 file changed, 25 insertions(+)
 create mode 100644 mps/code/span.c

(limited to 'mps/code/span.c')

diff --git a/mps/code/span.c b/mps/code/span.c
new file mode 100644
index 00000000000..24f203d26c4
--- /dev/null
+++ b/mps/code/span.c
@@ -0,0 +1,25 @@
+/* impl.c.span: ANSI STACK PROBE
+ *
+ * $HopeName: MMsrc!span.c(trunk.2) $
+ * Copyright (C) 1997 Harlequin Limited.  All rights reserved.
+ *
+ * PURPOSE
+ *
+ * .purpose: The purpose of the ANSI Stack Probe is to provide a
+ * non-functional implementation of the StackProbe interface.
+ * StackProbe has a function implementation on platforms where the
+ * MPS takes some special action to avoid stack overflow.
+ */
+
+#include "mpm.h"
+
+SRCID(span, "$HopeName: MMsrc!span.c(trunk.2) $");
+
+
+/* StackProbe -- probe above the stack to provoke early stack overflow */
+
+void StackProbe(Size depth)
+{
+  AVER(depth == 0);
+  NOOP;
+}
-- 
cgit v1.2.1