diff options
author | Simon Marlow <marlowsd@gmail.com> | 2009-10-14 13:17:27 +0000 |
---|---|---|
committer | Simon Marlow <marlowsd@gmail.com> | 2009-10-14 13:17:27 +0000 |
commit | 0856ac59cfb455d32a3042317fdba0f5e85cab9c (patch) | |
tree | e744d0c909780dabeffa65babfb9c4535f9a4d0a /rts/STM.c | |
parent | c5f93af1c663ab68f3b18f6a8c3264165a1c8883 (diff) | |
download | haskell-0856ac59cfb455d32a3042317fdba0f5e85cab9c.tar.gz |
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.
Diffstat (limited to 'rts/STM.c')
-rw-r--r-- | rts/STM.c | 10 |
1 files changed, 0 insertions, 10 deletions
@@ -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; |