diff options
| author | simonmar <unknown> | 2000-05-25 09:16:56 +0000 |
|---|---|---|
| committer | simonmar <unknown> | 2000-05-25 09:16:56 +0000 |
| commit | b537743d6e51e7f5f8da13b1c7e90b60844018a6 (patch) | |
| tree | 1d3a20fd51f789543064b1d1d4f7cae1e1112bcb /ghc | |
| parent | fac89d43e3edf41cfc8a427ece08d0e720ac2d84 (diff) | |
| download | haskell-b537743d6e51e7f5f8da13b1c7e90b60844018a6.tar.gz | |
[project @ 2000-05-25 09:16:56 by simonmar]
raise_info, the info table we use for overwriting thunks with an
exception, had the bogus closure type of FUN. This was mostly
harmless, but caused some confusion for THUNK_SELECTORs, which rightly
assumed that they shouldn't be pointing at FUNs.
The fix is to change the type to THUNK, which is slightly closer to
being true.
This fixes Alastair Reid's "THUNK_SELECTOR: strange selectee" bug.
Diffstat (limited to 'ghc')
| -rw-r--r-- | ghc/rts/Exception.hc | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/ghc/rts/Exception.hc b/ghc/rts/Exception.hc index e5389677f8..e11304af59 100644 --- a/ghc/rts/Exception.hc +++ b/ghc/rts/Exception.hc @@ -1,5 +1,5 @@ /* ----------------------------------------------------------------------------- - * $Id: Exception.hc,v 1.13 2000/04/26 09:44:18 simonmar Exp $ + * $Id: Exception.hc,v 1.14 2000/05/25 09:16:56 simonmar Exp $ * * (c) The GHC Team, 1998-1999 * @@ -329,7 +329,7 @@ FN_(catchzh_fast) * It is used in raisezh_fast to update thunks on the update list * -------------------------------------------------------------------------- */ -INFO_TABLE(raise_info,raise_entry,1,0,FUN,,EF_,0,0); +INFO_TABLE(raise_info,raise_entry,1,0,THUNK,,EF_,0,0); STGFUN(raise_entry) { FB_ |