diff options
author | sewardj <unknown> | 2001-02-06 12:01:00 +0000 |
---|---|---|
committer | sewardj <unknown> | 2001-02-06 12:01:00 +0000 |
commit | ac3eab7165fdfcd2775a01262f5ea7265b29d815 (patch) | |
tree | b281abcbb87047ebac390dbbf9f7e3e945888df4 | |
parent | 3a8cc90c45bea721ff9aceba4b4954bd42662ac8 (diff) | |
download | haskell-ac3eab7165fdfcd2775a01262f5ea7265b29d815.tar.gz |
[project @ 2001-02-06 12:01:00 by sewardj]
Add bci_STKCHECK and INTERP_STACK_CHECK_THRESH.
-rw-r--r-- | ghc/includes/Bytecodes.h | 11 |
1 files changed, 10 insertions, 1 deletions
diff --git a/ghc/includes/Bytecodes.h b/ghc/includes/Bytecodes.h index e6967d9eb7..7e1cd049d6 100644 --- a/ghc/includes/Bytecodes.h +++ b/ghc/includes/Bytecodes.h @@ -1,6 +1,6 @@ /* ----------------------------------------------------------------------------- - * $Id: Bytecodes.h,v 1.4 2000/12/19 16:48:58 sewardj Exp $ + * $Id: Bytecodes.h,v 1.5 2001/02/06 12:01:00 sewardj Exp $ * * (c) The GHC Team, 1998-2000 * @@ -50,5 +50,14 @@ #define bci_CASEFAIL 23 #define bci_ENTER 24 #define bci_RETURN 25 +#define bci_STKCHECK 26 + + +/* If a BCO definitely requires less than this many words of stack, + don't include an explicit STKCHECK insn in it. The interpreter + will check for this many words of stack before running each BCO, + rendering an explicit check unnecessary in the majority of + cases. */ +#define INTERP_STACK_CHECK_THRESH 50 /*-------------------------------------------------------------------------*/ |