diff options
| -rw-r--r-- | rts/Adjustor.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/rts/Adjustor.c b/rts/Adjustor.c index 1a0bc28d4e..fbf95df936 100644 --- a/rts/Adjustor.c +++ b/rts/Adjustor.c @@ -389,7 +389,7 @@ createAdjustor(int cconv, StgStablePtr hptr, int sz = totalArgumentSize(typeString); adjustorStub->call[0] = 0xe8; - *(long*)&adjustorStub->call[1] = ((char*)&adjustorCode) - ((char*)adjustorStub + 5); + *(long*)&adjustorStub->call[1] = ((char*)&adjustorCode) - ((char*)code + 5); adjustorStub->hptr = hptr; adjustorStub->wptr = wptr; |