Ticket #7629: Fix-adjustor.patch

File Fix-adjustor.patch, 519 bytes (added by wgmitchener, 2 years 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