diff options
| author | sewardj <unknown> | 2001-03-21 10:56:04 +0000 |
|---|---|---|
| committer | sewardj <unknown> | 2001-03-21 10:56:04 +0000 |
| commit | 44f0f21f7e788f76bb766bab6560f5e8d09826ef (patch) | |
| tree | 358943b5d4a6f64df9757a33327971054dbd6d16 /ghc/includes/Bytecodes.h | |
| parent | 7d61cc6a3e4bb5bdfed7bdf71e2a1e9cdd0187d8 (diff) | |
| download | haskell-44f0f21f7e788f76bb766bab6560f5e8d09826ef.tar.gz | |
[project @ 2001-03-21 10:56:04 by sewardj]
RTS support for the ugly tagToEnum# hack. Actually a very general
thing -- just a bytecode unconditional jump, so we can do more general
control-flow in BCOs.
Diffstat (limited to 'ghc/includes/Bytecodes.h')
| -rw-r--r-- | ghc/includes/Bytecodes.h | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/ghc/includes/Bytecodes.h b/ghc/includes/Bytecodes.h index 7e1cd049d6..2e7842e844 100644 --- a/ghc/includes/Bytecodes.h +++ b/ghc/includes/Bytecodes.h @@ -1,6 +1,6 @@ /* ----------------------------------------------------------------------------- - * $Id: Bytecodes.h,v 1.5 2001/02/06 12:01:00 sewardj Exp $ + * $Id: Bytecodes.h,v 1.6 2001/03/21 10:56:04 sewardj Exp $ * * (c) The GHC Team, 1998-2000 * @@ -51,6 +51,7 @@ #define bci_ENTER 24 #define bci_RETURN 25 #define bci_STKCHECK 26 +#define bci_JMP 27 /* If a BCO definitely requires less than this many words of stack, |