Improve dead block calculation, per Simon Marlow's advice.
Improve dead block calculation, per Simon Marlow's advice.

Signed-off-by: Edward Z. Yang <dbd597f5635f432486c5d365e9bb585b3eaa1853@mit.edu>

ryantm/ghc,shlevy/ghc,jstolarek/ghc,urbanslug/ghc,christiaanb/ghc,TomMD/ghc,anton-dessiatov/ghc,mcschroeder/ghc,bitemyapp/ghc,wxwxwwxxx/ghc,tjakway/ghcjvm,vTurbine/ghc,sgillespie/ghc,nushio3/ghc,urbanslug/ghc,hferreiro/replay,green-haskell/ghc,ezyang/ghc,forked-upstream-packages-for-ghcjs/ghc,green-haskell/ghc,gcampax/ghc,fmthoma/ghc,frantisekfarka/ghc-dsi,da-x/ghc,TomMD/ghc,spacekitteh/smcghc,da-x/ghc,fmthoma/ghc,snoyberg/ghc,gridaphobe/ghc,mettekou/ghc,mfine/ghc,ekmett/ghc,nushio3/ghc,frantisekfarka/ghc-dsi,nomeata/ghc,sdiehl/ghc,mfine/ghc,gridaphobe/ghc,anton-dessiatov/ghc,TomMD/ghc,shlevy/ghc,nathyong/microghc-ghc,elieux/ghc,vikraman/ghc,tibbe/ghc,vTurbine/ghc,gridaphobe/ghc,anton-dessiatov/ghc,sgillespie/ghc,ryantm/ghc,gridaphobe/ghc,ghc-android/ghc,snoyberg/ghc,elieux/ghc,elieux/ghc,sgillespie/ghc,TomMD/ghc,elieux/ghc,bitemyapp/ghc,urbanslug/ghc,ezyang/ghc,nushio3/ghc,siddhanathan/ghc,hferreiro/replay,ghc-android/ghc,gcampax/ghc,snoyberg/ghc,olsner/ghc,gcampax/ghc,frantisekfarka/ghc-dsi,bitemyapp/ghc,ml9951/ghc,holzensp/ghc,shlevy/ghc,spacekitteh/smcghc,ekmett/ghc,oldmanmike/ghc,vTurbine/ghc,holzensp/ghc,ilyasergey/GHC-XAppFix,sgillespie/ghc,ilyasergey/GHC-XAppFix,sgillespie/ghc,GaloisInc/halvm-ghc,nkaretnikov/ghc,nathyong/microghc-ghc,mfine/ghc,wxwxwwxxx/ghc,urbanslug/ghc,anton-dessiatov/ghc,tibbe/ghc,lukexi/ghc-7.8-arm64,ekmett/ghc,oldmanmike/ghc,shlevy/ghc,ml9951/ghc,mcschroeder/ghc,ghc-android/ghc,lukexi/ghc,AlexanderPankiv/ghc,olsner/ghc,anton-dessiatov/ghc,nkaretnikov/ghc,da-x/ghc,GaloisInc/halvm-ghc,vikraman/ghc,nushio3/ghc,wxwxwwxxx/ghc,ml9951/ghc,lukexi/ghc-7.8-arm64,da-x/ghc,vikraman/ghc,wxwxwwxxx/ghc,snoyberg/ghc,oldmanmike/ghc,holzensp/ghc,tibbe/ghc,bitemyapp/ghc,lukexi/ghc,acowley/ghc,hferreiro/replay,elieux/ghc,mettekou/ghc,vikraman/ghc,vTurbine/ghc,nomeata/ghc,sdiehl/ghc,mfine/ghc,frantisekfarka/ghc-dsi,vTurbine/ghc,AlexanderPankiv/ghc,elieux/ghc,christiaanb/ghc,tibbe/ghc,wxwxwwxxx/ghc,shlevy/ghc,ml9951/ghc,nushio3/ghc,ryantm/ghc,mcschroeder/ghc,jstolarek/ghc,TomMD/ghc,da-x/ghc,anton-dessiatov/ghc,ghc-android/ghc,sgillespie/ghc,nathyong/microghc-ghc,AlexanderPankiv/ghc,tjakway/ghcjvm,ml9951/ghc,green-haskell/ghc,mcmaniac/ghc,ezyang/ghc,AlexanderPankiv/ghc,mfine/ghc,mcschroeder/ghc,urbanslug/ghc,ilyasergey/GHC-XAppFix,ezyang/ghc,bitemyapp/ghc,ilyasergey/GHC-XAppFix,ghc-android/ghc,nomeata/ghc,ekmett/ghc,shlevy/ghc,urbanslug/ghc,christiaanb/ghc,green-haskell/ghc,gridaphobe/ghc,mcmaniac/ghc,holzensp/ghc,nathyong/microghc-ghc,hferreiro/replay,fmthoma/ghc,mettekou/ghc,fmthoma/ghc,nkaretnikov/ghc,nushio3/ghc,sdiehl/ghc,gcampax/ghc,ryantm/ghc,mcmaniac/ghc,TomMD/ghc,oldmanmike/ghc,oldmanmike/ghc,christiaanb/ghc,mcmaniac/ghc,hferreiro/replay,olsner/ghc,tibbe/ghc,acowley/ghc,forked-upstream-packages-for-ghcjs/ghc,ml9951/ghc,green-haskell/ghc,ghc-android/ghc,mettekou/ghc,ezyang/ghc,frantisekfarka/ghc-dsi,jstolarek/ghc,jstolarek/ghc,mcschroeder/ghc,lukexi/ghc-7.8-arm64,olsner/ghc,olsner/ghc,fmthoma/ghc,nkaretnikov/ghc,TomMD/ghc,acowley/ghc,oldmanmike/ghc,shlevy/ghc,da-x/ghc,gridaphobe/ghc,siddhanathan/ghc,spacekitteh/smcghc,nathyong/microghc-ghc,oldmanmike/ghc,christiaanb/ghc,gridaphobe/ghc,ryantm/ghc,wxwxwwxxx/ghc,ghc-android/ghc,tjakway/ghcjvm,lukexi/ghc,lukexi/ghc,nathyong/microghc-ghc,acowley/ghc,sdiehl/ghc,sgillespie/ghc,tjakway/ghcjvm,spacekitteh/smcghc,sdiehl/ghc,nomeata/ghc,tjakway/ghcjvm,urbanslug/ghc,christiaanb/ghc,olsner/ghc,GaloisInc/halvm-ghc,vikraman/ghc,fmthoma/ghc,nkaretnikov/ghc,nathyong/microghc-ghc,forked-upstream-packages-for-ghcjs/ghc,sdiehl/ghc,GaloisInc/halvm-ghc,sdiehl/ghc,siddhanathan/ghc,christiaanb/ghc,jstolarek/ghc,nushio3/ghc,nomeata/ghc,holzensp/ghc,forked-upstream-packages-for-ghcjs/ghc,vikraman/ghc,GaloisInc/halvm-ghc,tjakway/ghcjvm,snoyberg/ghc,vikraman/ghc,anton-dessiatov/ghc,vTurbine/ghc,hferreiro/replay,AlexanderPankiv/ghc,forked-upstream-packages-for-ghcjs/ghc,forked-upstream-packages-for-ghcjs/ghc,siddhanathan/ghc,lukexi/ghc,mcschroeder/ghc,ml9951/ghc,ezyang/ghc,gcampax/ghc,nkaretnikov/ghc,elieux/ghc,mcmaniac/ghc,lukexi/ghc-7.8-arm64,mfine/ghc,wxwxwwxxx/ghc,siddhanathan/ghc,GaloisInc/halvm-ghc,ml9951/ghc,mettekou/ghc,siddhanathan/ghc,mfine/ghc,gcampax/ghc,ezyang/ghc,gcampax/ghc,spacekitteh/smcghc,tjakway/ghcjvm,siddhanathan/ghc,GaloisInc/halvm-ghc,hferreiro/replay,snoyberg/ghc,olsner/ghc,vTurbine/ghc,AlexanderPankiv/ghc,mcschroeder/ghc,acowley/ghc,ekmett/ghc,acowley/ghc,fmthoma/ghc,da-x/ghc,snoyberg/ghc,acowley/ghc,forked-upstream-packages-for-ghcjs/ghc,nkaretnikov/ghc,AlexanderPankiv/ghc,mettekou/ghc,mettekou/ghc,lukexi/ghc-7.8-arm64