1 files changed, 25 insertions, 0 deletions

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;
+}