diff options
| author | Simon Marlow <simonmar@microsoft.com> | 2007-02-28 13:07:14 +0000 |
|---|---|---|
| committer | Simon Marlow <simonmar@microsoft.com> | 2007-02-28 13:07:14 +0000 |
| commit | 9ff76535edb25ab7434284adddb5c64708ecb547 (patch) | |
| tree | 3f2fb3ec0b66cd1c85d73a56e92e36b57de1b362 /rts/Printer.c | |
| parent | 6a7778b95a726f460288123d0539310bb66302f4 (diff) | |
| download | haskell-9ff76535edb25ab7434284adddb5c64708ecb547.tar.gz | |
Remove vectored returns.
We recently discovered that they aren't a win any more, and just cost
code size.
Diffstat (limited to 'rts/Printer.c')
| -rw-r--r-- | rts/Printer.c | 6 |
1 files changed, 0 insertions, 6 deletions
diff --git a/rts/Printer.c b/rts/Printer.c index 666b7db6ce..6da32fc6f8 100644 --- a/rts/Printer.c +++ b/rts/Printer.c @@ -261,9 +261,7 @@ printClosure( StgClosure *obj ) /* Cannot happen -- use default case. case RET_BCO: case RET_SMALL: - case RET_VEC_SMALL: case RET_BIG: - case RET_VEC_BIG: case RET_DYN: case RET_FUN: */ @@ -576,7 +574,6 @@ printStackChunk( StgPtr sp, StgPtr spBottom ) } case RET_SMALL: - case RET_VEC_SMALL: debugBelch("RET_SMALL (%p)\n", info); bitmap = info->layout.bitmap; printSmallBitmap(spBottom, sp+1, @@ -595,7 +592,6 @@ printStackChunk( StgPtr sp, StgPtr spBottom ) } case RET_BIG: - case RET_VEC_BIG: barf("todo"); case RET_FUN: @@ -682,9 +678,7 @@ static char *closure_type_names[] = { "IND_STATIC", "RET_BCO", "RET_SMALL", - "RET_VEC_SMALL", "RET_BIG", - "RET_VEC_BIG", "RET_DYN", "RET_FUN", "UPDATE_FRAME", |