diff --git a/rts/Interpreter.c b/rts/Interpreter.c index c2b721368a468f557da89639a3bd3f0a88b81100..9530ff826ba47dc11884169c2b18f1d80a6723c7 100644 --- a/rts/Interpreter.c +++ b/rts/Interpreter.c @@ -1275,21 +1275,21 @@ run_BCO: case bci_PUSH8_W: { W_ off = BCO_GET_LARGE_ARG; - *(StgWord*)(Sp_minusW(1)) = *(StgWord8*)(Sp_plusB(off)); + *(StgWord8*)(Sp_minusW(1)) = *(StgWord8*)(Sp_plusB(off)); Sp_subW(1); goto nextInsn; } case bci_PUSH16_W: { W_ off = BCO_GET_LARGE_ARG; - *(StgWord*)(Sp_minusW(1)) = *(StgWord16*)(Sp_plusB(off)); + *(StgWord16*)(Sp_minusW(1)) = *(StgWord16*)(Sp_plusB(off)); Sp_subW(1); goto nextInsn; } case bci_PUSH32_W: { W_ off = BCO_GET_LARGE_ARG; - *(StgWord*)(Sp_minusW(1)) = *(StgWord32*)(Sp_plusB(off)); + *(StgWord32*)(Sp_minusW(1)) = *(StgWord32*)(Sp_plusB(off)); Sp_subW(1); goto nextInsn; }