X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=includes%2FStorage.h;h=604e49e0434d5c914335d54f293bb834e92fe29f;hp=da24a785ad3c7184a7f138e327bcc4d843c76bb2;hb=9ff76535edb25ab7434284adddb5c64708ecb547;hpb=6a7778b95a726f460288123d0539310bb66302f4 diff --git a/includes/Storage.h b/includes/Storage.h index da24a78..604e49e 100644 --- a/includes/Storage.h +++ b/includes/Storage.h @@ -458,7 +458,6 @@ INLINE_HEADER StgWord stack_frame_sizeW( StgClosure *frame ) return sizeofW(StgRetFun) + ((StgRetFun *)frame)->size; case RET_BIG: - case RET_VEC_BIG: return 1 + GET_LARGE_BITMAP(&info->i)->size; case RET_BCO: