X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=includes%2FStorage.h;h=604e49e0434d5c914335d54f293bb834e92fe29f;hb=622e67a80631c7528ebfa51e9a863c27e74f1c6b;hp=da24a785ad3c7184a7f138e327bcc4d843c76bb2;hpb=dcecd7a5170b54d06df3f7eb6e8f38585a283a21;p=ghc-hetmet.git 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: