X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;ds=sidebyside;f=includes%2FStorage.h;h=604e49e0434d5c914335d54f293bb834e92fe29f;hb=2eb04ca0f8d0ec72b417cddc60672c696b4a3daa;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: