diff options
| author | Thomas Miedema <thomasmiedema@gmail.com> | 2015-08-21 10:38:06 +0200 |
|---|---|---|
| committer | Ben Gamari <ben@smart-cactus.org> | 2015-08-21 12:10:07 +0200 |
| commit | 3452473b4bb180ba327520067b8c6f2a8d6c4f4b (patch) | |
| tree | 9ff61fd6658051170001ea806ad2c60086083a27 /compiler/codeGen/CodeGen/Platform.hs | |
| parent | 9e8562ae02701270e2c1dfcee3279d862dc5b7b6 (diff) | |
| download | haskell-3452473b4bb180ba327520067b8c6f2a8d6c4f4b.tar.gz | |
Delete FastBool
This reverses some of the work done in Trac #1405, and assumes GHC is
smart enough to do its own unboxing of booleans now.
I would like to do some more performance measurements, but the code
changes can be reviewed already.
Test Plan:
With a perf build:
./inplace/bin/ghc-stage2 nofib/spectral/simple/Main.hs -fforce-recomp
+RTS -t --machine-readable
before:
```
[("bytes allocated", "1300744864")
,("num_GCs", "302")
,("average_bytes_used", "8811118")
,("max_bytes_used", "24477464")
,("num_byte_usage_samples", "9")
,("peak_megabytes_allocated", "64")
,("init_cpu_seconds", "0.001")
,("init_wall_seconds", "0.001")
,("mutator_cpu_seconds", "2.833")
,("mutator_wall_seconds", "4.283")
,("GC_cpu_seconds", "0.960")
,("GC_wall_seconds", "0.961")
]
```
after:
```
[("bytes allocated", "1301088064")
,("num_GCs", "310")
,("average_bytes_used", "8820253")
,("max_bytes_used", "24539904")
,("num_byte_usage_samples", "9")
,("peak_megabytes_allocated", "64")
,("init_cpu_seconds", "0.001")
,("init_wall_seconds", "0.001")
,("mutator_cpu_seconds", "2.876")
,("mutator_wall_seconds", "4.474")
,("GC_cpu_seconds", "0.965")
,("GC_wall_seconds", "0.979")
]
```
CPU time seems to be up a bit, but I'm not sure. Unfortunately CPU time
measurements are rather noisy.
Reviewers: austin, bgamari, rwbarton
Subscribers: nomeata
Differential Revision: https://phabricator.haskell.org/D1143
GHC Trac Issues: #1405
Diffstat (limited to 'compiler/codeGen/CodeGen/Platform.hs')
| -rw-r--r-- | compiler/codeGen/CodeGen/Platform.hs | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/compiler/codeGen/CodeGen/Platform.hs b/compiler/codeGen/CodeGen/Platform.hs index 9af4712c29..80452d0585 100644 --- a/compiler/codeGen/CodeGen/Platform.hs +++ b/compiler/codeGen/CodeGen/Platform.hs @@ -4,7 +4,6 @@ module CodeGen.Platform where import CmmExpr -import FastBool import Platform import Reg @@ -97,7 +96,7 @@ globalRegMaybe platform | otherwise -> NoRegs.globalRegMaybe -freeReg :: Platform -> RegNo -> FastBool +freeReg :: Platform -> RegNo -> Bool freeReg platform | platformUnregisterised platform = NoRegs.freeReg | otherwise |