Sven Tennie pushed to branch wip/supersven/fix-foundation-test-shift-amounts at Glasgow Haskell Compiler / GHC
Commits:
-
a78cefc2
by Sven Tennie at 2025-08-29T13:06:32+02:00
1 changed file:
Changes:
| ... | ... | @@ -67,19 +67,10 @@ is_divLikeOp entry = case entry of |
| 67 | 67 | _ -> False
|
| 68 | 68 | |
| 69 | 69 | is_shiftLikeOp :: Entry -> Bool
|
| 70 | -is_shiftLikeOp entry = case entry of
|
|
| 71 | - PrimOpSpec{} -> has_shift_like
|
|
| 72 | - PseudoOpSpec{} -> has_shift_like
|
|
| 73 | - PrimVecOpSpec{} -> has_shift_like
|
|
| 74 | - PrimTypeSpec{} -> False
|
|
| 75 | - PrimVecTypeSpec{} -> False
|
|
| 76 | - Section{} -> False
|
|
| 77 | - where
|
|
| 78 | - has_shift_like = case entry of
|
|
| 79 | - PrimOpSpec { name = n } -> "Shift" `Data.List.isInfixOf` n
|
|
| 80 | - PseudoOpSpec { name = n } -> "Shift" `Data.List.isInfixOf` n
|
|
| 81 | - PrimVecOpSpec { name = n } -> "Shift" `Data.List.isInfixOf` n
|
|
| 82 | - _ -> False
|
|
| 70 | +is_shiftLikeOp (PrimOpSpec {name = n}) = "Shift" `Data.List.isInfixOf` n
|
|
| 71 | +is_shiftLikeOp (PseudoOpSpec {name = n}) = "Shift" `Data.List.isInfixOf` n
|
|
| 72 | +is_shiftLikeOp (PrimVecOpSpec {name = n}) = "Shift" `Data.List.isInfixOf` n
|
|
| 73 | +is_shiftLikeOp _ = False
|
|
| 83 | 74 | |
| 84 | 75 | -- a binding of property to value
|
| 85 | 76 | data Option
|