Skip to content
Snippets Groups Projects
Commit 34d08a20 authored by Ben Gamari's avatar Ben Gamari Committed by Marge Bot
Browse files

Reg.Liveness: Strictness

parent 257f1567
No related branches found
No related tags found
No related merge requests found
Hide whitespace changes
Inline Side-by-side
compiler/GHC/CmmToAsm/Reg/Liveness.hs
+ 1
− 1
View file @ 34d08a20
......@@ -1001,7 +1001,7 @@ livenessBack
livenessBack _ liveregs _ done [] = (liveregs, done)
livenessBack platform liveregs blockmap acc (instr : instrs)
= let (liveregs', instr') = liveness1 platform liveregs blockmap instr
= let !(!liveregs', instr') = liveness1 platform liveregs blockmap instr
in livenessBack platform liveregs' blockmap (instr' : acc) instrs
......
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