From 4acfa1fa110c8c7312e08cda8474b82e4bddd860 Mon Sep 17 00:00:00 2001
From: David Jones <drj@ravenbrook.com>
Date: Mon, 1 Dec 1997 15:39:24 +0000
Subject: [PATCH] New unit

stack probe

Copied from Perforce
 Change: 19030
 ServerID: perforce.ravenbrook.com
---
 mps/src/span.c | 30 ++++++++++++++++++++++++++++++
 1 file changed, 30 insertions(+)
 create mode 100644 mps/src/span.c

diff --git a/mps/src/span.c b/mps/src/span.c
new file mode 100644
index 00000000000..6681b92774a
--- /dev/null
+++ b/mps/src/span.c
@@ -0,0 +1,30 @@
+/* impl.c.span: ANSI STACK PROBE
+ *
+ * $HopeName$
+ * Copyright (C) 1997 Howard T. Duck.  All rights reserved.
+ *
+ * READERSHIP
+ *
+ * .readership: Any MPS developer.
+ *
+ * PURPOSE
+ *
+ * .purpose: The purpose of the ANSI Stack Probe is to provide a
+ * non-functional implementation of the Stack Probe interface.
+ * Stack Probe has a function implementation on platforms where the
+ * MPS takes some special action to avoid stack overflow.
+ *
+ * DESIGN
+ *
+ * design.mps.sp (non-existant)
+ */
+
+#include "mpm.h"
+
+SRCID(span, "$HopeName$");
+
+void StackProbe(Word depth)
+{
+  AVER(depth == 0);
+  NOOP;
+}