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/sm | |
| 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/sm')
| -rw-r--r-- | rts/sm/Compact.c | 2 | ||||
| -rw-r--r-- | rts/sm/Evac.c | 2 | ||||
| -rw-r--r-- | rts/sm/Scav.c | 2 |
3 files changed, 0 insertions, 6 deletions
diff --git a/rts/sm/Compact.c b/rts/sm/Compact.c index 62d9152898..feebef87aa 100644 --- a/rts/sm/Compact.c +++ b/rts/sm/Compact.c @@ -266,7 +266,6 @@ thread_stack(StgPtr p, StgPtr stack_end) case STOP_FRAME: case CATCH_FRAME: case RET_SMALL: - case RET_VEC_SMALL: bitmap = BITMAP_BITS(info->i.layout.bitmap); size = BITMAP_SIZE(info->i.layout.bitmap); p++; @@ -298,7 +297,6 @@ thread_stack(StgPtr p, StgPtr stack_end) // large bitmap (> 32 entries, or 64 on a 64-bit machine) case RET_BIG: - case RET_VEC_BIG: p++; size = GET_LARGE_BITMAP(&info->i)->size; thread_large_bitmap(p, GET_LARGE_BITMAP(&info->i), size); diff --git a/rts/sm/Evac.c b/rts/sm/Evac.c index 6ca7d85fc2..dda5659675 100644 --- a/rts/sm/Evac.c +++ b/rts/sm/Evac.c @@ -546,9 +546,7 @@ loop: case RET_BCO: case RET_SMALL: - case RET_VEC_SMALL: case RET_BIG: - case RET_VEC_BIG: case RET_DYN: case UPDATE_FRAME: case STOP_FRAME: diff --git a/rts/sm/Scav.c b/rts/sm/Scav.c index 139ecad53f..0de029edd5 100644 --- a/rts/sm/Scav.c +++ b/rts/sm/Scav.c @@ -1649,7 +1649,6 @@ scavenge_stack(StgPtr p, StgPtr stack_end) case STOP_FRAME: case CATCH_FRAME: case RET_SMALL: - case RET_VEC_SMALL: bitmap = BITMAP_BITS(info->i.layout.bitmap); size = BITMAP_SIZE(info->i.layout.bitmap); // NOTE: the payload starts immediately after the info-ptr, we @@ -1678,7 +1677,6 @@ scavenge_stack(StgPtr p, StgPtr stack_end) // large bitmap (> 32 entries, or > 64 on a 64-bit machine) case RET_BIG: - case RET_VEC_BIG: { nat size; |