Commit df7a20ce authored by Simon Marlow's avatar Simon Marlow
Browse files

Eliminate "r = r" in mkAssign

parent 1469a124
...@@ -167,6 +167,7 @@ mkComment _ = nilOL ...@@ -167,6 +167,7 @@ mkComment _ = nilOL
---------- Assignment and store ---------- Assignment and store
mkAssign :: CmmReg -> CmmExpr -> CmmAGraph mkAssign :: CmmReg -> CmmExpr -> CmmAGraph
mkAssign l (CmmReg r) | l == r = mkNop
mkAssign l r = mkMiddle $ CmmAssign l r mkAssign l r = mkMiddle $ CmmAssign l r
mkStore :: CmmExpr -> CmmExpr -> CmmAGraph mkStore :: CmmExpr -> CmmExpr -> CmmAGraph
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment