Ticket #3279: assert.patch

File assert.patch, 0.8 KB (added by Baughn, 10 months ago)

  • rts/StgStdThunks.cmm 

    diff -rN -u old-ghc/rts/StgStdThunks.cmm new-ghc/rts/StgStdThunks.cmm
    old new  
    7070#define SELECTOR_CODE_UPD(offset)                                       \ 
    7171  INFO_TABLE_RET(stg_sel_ret_##offset##_upd, RET_SMALL, RET_PARAMS)    \ 
    7272  {                                                                    \ 
     73      ASSERT(UNTAG(R1) != stg_dummy_ret_closure);                      \ 
    7374      R1 = StgClosure_payload(UNTAG(R1),offset);                       \ 
    7475      GET_SAVED_CCCS;                                                  \ 
    7576      Sp = Sp + SIZEOF_StgHeader;                                      \