summaryrefslogtreecommitdiff
path: root/rts/sm/Evac.c
diff options
context:
space:
mode:
authorÖmer Sinan Ağacan <omeragacan@gmail.com>2019-04-22 09:58:56 +0300
committerMarge Bot <ben+marge-bot@smart-cactus.org>2019-04-25 14:35:09 -0400
commit4e22826716dc0d3b4ab8bdd538c569a280cd8083 (patch)
tree6f78d8e113909c03f5802d4f2cee680a3737038c /rts/sm/Evac.c
parentf85efdec3e0580591eed0d132404a20df9a76316 (diff)
downloadhaskell-4e22826716dc0d3b4ab8bdd538c569a280cd8083.tar.gz
Minor RTS refactoring:
- Remove redundant casting in evacuate_static_object - Remove redundant parens in STATIC_LINK - Fix a typo in GC.c
Diffstat (limited to 'rts/sm/Evac.c')
-rw-r--r--rts/sm/Evac.c2
1 files changed, 1 insertions, 1 deletions
diff --git a/rts/sm/Evac.c b/rts/sm/Evac.c
index b4050512a6..2a2a26ec09 100644
--- a/rts/sm/Evac.c
+++ b/rts/sm/Evac.c
@@ -333,7 +333,7 @@ evacuate_static_object (StgClosure **link_field, StgClosure *q)
StgWord link = (StgWord)*link_field;
// See Note [STATIC_LINK fields] for how the link field bits work
- if ((((StgWord)(link)&STATIC_BITS) | prev_static_flag) != 3) {
+ if (((link & STATIC_BITS) | prev_static_flag) != 3) {
StgWord new_list_head = (StgWord)q | static_flag;
#if !defined(THREADED_RTS)
*link_field = gct->static_objects;