Ticket #7629: Fix-adjustor.patch

File Fix-adjustor.patch, 519 bytes (added by wgmitchener, 13 months ago)

Patch for rts/Adjustor.c

  • ghc-7.4.2/rts/Adjustor.c

    old new  
    383383        int sz = totalArgumentSize(typeString); 
    384384         
    385385        adjustorStub->call[0] = 0xe8; 
    386         *(long*)&adjustorStub->call[1] = ((char*)&adjustorCode) - ((char*)adjustorStub + 5); 
     386        *(long*)&adjustorStub->call[1] = ((char*)&adjustorCode) - ((char*)code + 5); 
    387387        adjustorStub->hptr = hptr; 
    388388        adjustorStub->wptr = wptr; 
    389389