diff options
| author | Simon Marlow <marlowsd@gmail.com> | 2011-12-09 10:20:13 +0000 |
|---|---|---|
| committer | Simon Marlow <marlowsd@gmail.com> | 2011-12-13 08:58:57 +0000 |
| commit | 5c1fbb46e8e64c81d887762207334731669adcc2 (patch) | |
| tree | 78f91879121c049a2d2a0b6c9501f72c1e3a3a80 /compiler/nativeGen/RegAlloc/Liveness.hs | |
| parent | c9f84e1484ccc53ac0b785ee720202e8aa3388be (diff) | |
| download | haskell-5c1fbb46e8e64c81d887762207334731669adcc2.tar.gz | |
some small optimisations
Diffstat (limited to 'compiler/nativeGen/RegAlloc/Liveness.hs')
| -rw-r--r-- | compiler/nativeGen/RegAlloc/Liveness.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/nativeGen/RegAlloc/Liveness.hs b/compiler/nativeGen/RegAlloc/Liveness.hs index 993156a67e..0212e8cb16 100644 --- a/compiler/nativeGen/RegAlloc/Liveness.hs +++ b/compiler/nativeGen/RegAlloc/Liveness.hs @@ -912,7 +912,7 @@ liveness1 liveregs blockmap (LiveInstr instr _) , liveDieWrite = mkUniqSet w_dying })) where - RU read written = regUsageOfInstr instr + !(RU read written) = regUsageOfInstr instr -- registers that were written here are dead going backwards. -- registers that were read here are live going backwards. |