Simplify link_caf and mkForeignLabel functions
authorÖmer Sinan Ağacan <omeragacan@gmail.com>
Mon, 24 Jun 2019 11:24:58 +0000 (14:24 +0300)
committerMarge Bot <ben+marge-bot@smart-cactus.org>
Tue, 25 Jun 2019 05:36:50 +0000 (01:36 -0400)
compiler/cmm/CLabel.hs
compiler/codeGen/StgCmmBind.hs

index 95f5a41..0c3dae8 100644 (file)
@@ -579,8 +579,7 @@ mkForeignLabel
         -> FunctionOrData
         -> CLabel
 
-mkForeignLabel str mb_sz src fod
-    = ForeignLabel str mb_sz src  fod
+mkForeignLabel = ForeignLabel
 
 
 -- | Update the label size field in a ForeignLabel
index f8bdc0d..6e6e6ac 100644 (file)
@@ -664,7 +664,7 @@ setupUpdate closure_info node body
 
         ; if closureUpdReqd closure_info
           then do       -- Blackhole the (updatable) CAF:
-                { upd_closure <- link_caf node True
+                { upd_closure <- link_caf node
                 ; pushUpdateFrame mkBHUpdInfoLabel upd_closure body }
           else do {tickyUpdateFrameOmitted; body}
     }
@@ -704,11 +704,10 @@ emitUpdateFrame dflags frame lbl updatee = do
 -- See Note [CAF management] in rts/sm/Storage.c
 
 link_caf :: LocalReg           -- pointer to the closure
-         -> Bool               -- True <=> updatable, False <=> single-entry
          -> FCode CmmExpr      -- Returns amode for closure to be updated
 -- This function returns the address of the black hole, so it can be
 -- updated with the new value when available.
-link_caf node _is_upd = do
+link_caf node = do
   { dflags <- getDynFlags
         -- Call the RTS function newCAF, returning the newly-allocated
         -- blackhole indirection closure