diff options
| author | Ian Lynagh <ian@well-typed.com> | 2012-10-21 14:48:29 +0100 |
|---|---|---|
| committer | Ian Lynagh <ian@well-typed.com> | 2012-10-21 14:48:29 +0100 |
| commit | b09352165101afb1d5f502350664dfc7a5bba10c (patch) | |
| tree | 9dc925518dc5fa5e2c139b709f2fd91a74abcd77 /compiler/prelude/PrelRules.lhs | |
| parent | 2cf9093ec82ef0ca4b7ed7ffdfeac3a25c3d9ee8 (diff) | |
| download | haskell-b09352165101afb1d5f502350664dfc7a5bba10c.tar.gz | |
Add a rule for (plusAddr# x 0) == x; fixes #7284
Diffstat (limited to 'compiler/prelude/PrelRules.lhs')
| -rw-r--r-- | compiler/prelude/PrelRules.lhs | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/compiler/prelude/PrelRules.lhs b/compiler/prelude/PrelRules.lhs index baa50f8591..dcfb530db1 100644 --- a/compiler/prelude/PrelRules.lhs +++ b/compiler/prelude/PrelRules.lhs @@ -241,6 +241,8 @@ primOpRules nm WordLtOp = mkRelOpRule nm (<) [ boundsCmp Lt ] primOpRules nm WordEqOp = mkRelOpRule nm (==) [ litEq True ] primOpRules nm WordNeOp = mkRelOpRule nm (/=) [ litEq False ] +primOpRules nm AddrAddOp = mkPrimOpRule nm 2 [ rightIdentityDynFlags zeroi ] + primOpRules nm SeqOp = mkPrimOpRule nm 4 [ seqRule ] primOpRules nm SparkOp = mkPrimOpRule nm 4 [ sparkRule ] |