micro-opt: replace stmGetEnclosingTRec() with a field access

While fixing #3578 I noticed that this function was just a field
access to StgTRecHeader, so I inlined it manually.

1 files changed, 0 insertions, 10 deletions

diff --git a/rts/STM.c b/rts/STM.c
index 723f77acb6..7921a6750f 100644
--- a/rts/STM.c
+++ b/rts/STM.c
@@ -1026,16 +1026,6 @@ void stmCondemnTransaction(Capability *cap,
 
 /*......................................................................*/
 
-StgTRecHeader *stmGetEnclosingTRec(StgTRecHeader *trec) {
-  StgTRecHeader *outer;
-  TRACE("%p : stmGetEnclosingTRec", trec);
-  outer = trec -> enclosing_trec;
-  TRACE("%p : stmGetEnclosingTRec()=%p", trec, outer);
-  return outer;
-}
-
-/*......................................................................*/
-
 StgBool stmValidateNestOfTransactions(StgTRecHeader *trec) {
   StgTRecHeader *t;
   StgBool result;