Commit b3d9636a authored by Ömer Sinan Ağacan's avatar Ömer Sinan Ağacan Committed by Austin Seipp

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
parent 34bae1f7
......@@ -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;
......
Markdown is supported
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