mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-04-06 22:31:13 -07:00
Code Issues Projects Releases Wiki Activity

Stackprobe type

Browse source 
Copied from Perforce
 Change: 21790
 ServerID: perforce.ravenbrook.com
This commit is contained in:
Pekka Pirinen 2001-04-12 15:13:01 +01:00
parent 94f27b81a3
commit 6f29bcbccc
1 changed files with 5 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

10
mps/src/span.c
View file

@ -1,24 +1,24 @@
/* impl.c.span: ANSI STACK PROBE
*
* $HopeName: MMsrc!span.c(trunk.1) $
* $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 Stack Probe interface.
* Stack Probe has a function implementation on platforms where the
* 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.1) $");
SRCID(span, "$HopeName: MMsrc!span.c(trunk.2) $");
/* StackProbe -- probe above the stack to provoke early stack overflow */
void StackProbe(Word depth)
void StackProbe(Size depth)
{
AVER(depth == 0);
NOOP;