diff options
| author | osa1 <omeragacan@gmail.com> | 2014-07-02 08:55:04 -0500 |
|---|---|---|
| committer | Austin Seipp <austin@well-typed.com> | 2014-07-02 08:55:04 -0500 |
| commit | b3d9636af37cfafbc947b69dff5747065f437804 (patch) | |
| tree | 4f214014c7b91898090f0503a2b5a90217b0133d /rts/Profiling.c | |
| parent | 34bae1f737e1492c152ccaafd457697b621c606b (diff) | |
| download | haskell-b3d9636af37cfafbc947b69dff5747065f437804.tar.gz | |
remove redundant condition checking in profiling RTS code
Summary: A redundant condition checking is removed, as discussed in http://www.haskell.org/pipermail/ghc-devs/2014-June/005088.html
Test Plan: validate
Reviewers: simonmar, austin
Reviewed By: austin
Subscribers: simonmar, relrod, carter
Differential Revision: https://phabricator.haskell.org/D37
Diffstat (limited to 'rts/Profiling.c')
| -rw-r--r-- | rts/Profiling.c | 6 |
1 files changed, 2 insertions, 4 deletions
diff --git a/rts/Profiling.c b/rts/Profiling.c index 50c9c391e7..53f64a7280 100644 --- a/rts/Profiling.c +++ b/rts/Profiling.c @@ -619,10 +619,8 @@ actualPush_ (CostCentreStack *ccs, CostCentre *cc, CostCentreStack *new_ccs) ccsSetSelected(new_ccs); /* update the memoization table for the parent stack */ - if (ccs != EMPTY_STACK) { - ccs->indexTable = addToIndexTable(ccs->indexTable, new_ccs, cc, - 0/*not a back edge*/); - } + ccs->indexTable = addToIndexTable(ccs->indexTable, new_ccs, cc, + 0/*not a back edge*/); /* return a pointer to the new stack */ return new_ccs; |