Peter Trommler pushed to branch wip/T26519 at Glasgow Haskell Compiler / GHC
Commits:
-
9ed33fa4
by Peter Trommler at 2025-12-01T15:21:02+01:00
1 changed file:
Changes:
| ... | ... | @@ -2437,8 +2437,8 @@ srCode width sgn instr x y = do |
| 2437 | 2437 | let op_len = max W32 width
|
| 2438 | 2438 | extend = if sgn then extendSExpr else extendUExpr
|
| 2439 | 2439 | (src1, code1) <- getSomeReg (extend width op_len x)
|
| 2440 | - (src2, code2) <- getSomeReg (extendUExpr width op_len y)
|
|
| 2441 | - -- Note: Shift amount `y` is unsigned
|
|
| 2440 | + (src2, code2) <- getSomeReg y
|
|
| 2441 | + |
|
| 2442 | 2442 | let code dst = code1 `appOL` code2 `snocOL`
|
| 2443 | 2443 | instr (intFormat op_len) dst src1 (RIReg src2)
|
| 2444 | 2444 | return (Any (intFormat width) code)
|