diff options
| author | Peter Trommler <ptrommler@acm.org> | 2022-01-29 12:26:38 +0100 |
|---|---|---|
| committer | Marge Bot <ben+marge-bot@smart-cactus.org> | 2022-02-02 23:50:34 -0500 |
| commit | e59446c6a682587c21424e5830f305ab2f8f8cfa (patch) | |
| tree | fc8f39d6a0e10ddb9b7daea8986c8dc5c084df85 /compiler/GHC/Cmm | |
| parent | d1ef62889f0988317ce0eb495130021f27765689 (diff) | |
| download | haskell-e59446c6a682587c21424e5830f305ab2f8f8cfa.tar.gz | |
Check type first then expression
Diffstat (limited to 'compiler/GHC/Cmm')
| -rw-r--r-- | compiler/GHC/Cmm/CommonBlockElim.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/GHC/Cmm/CommonBlockElim.hs b/compiler/GHC/Cmm/CommonBlockElim.hs index 5ffab0451c..10eb9ccb3d 100644 --- a/compiler/GHC/Cmm/CommonBlockElim.hs +++ b/compiler/GHC/Cmm/CommonBlockElim.hs @@ -222,7 +222,7 @@ eqExprWith :: (BlockId -> BlockId -> Bool) eqExprWith eqBid = eq where CmmLit l1 `eq` CmmLit l2 = eqLit l1 l2 - CmmLoad e1 t1 `eq` CmmLoad e2 t2 = e1 `eq` e2 && t1 `cmmEqType` t2 + CmmLoad e1 t1 `eq` CmmLoad e2 t2 = t1 `cmmEqType` t2 && e1 `eq` e2 CmmReg r1 `eq` CmmReg r2 = r1==r2 CmmRegOff r1 i1 `eq` CmmRegOff r2 i2 = r1==r2 && i1==i2 CmmMachOp op1 es1 `eq` CmmMachOp op2 es2 = op1==op2 && es1 `eqs` es2 |