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 /includes | |
| 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 'includes')
| -rw-r--r-- | includes/mkDerivedConstants.c | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/includes/mkDerivedConstants.c b/includes/mkDerivedConstants.c index 3b80aacb36..b6d0106cf1 100644 --- a/includes/mkDerivedConstants.c +++ b/includes/mkDerivedConstants.c @@ -342,6 +342,8 @@ main(int argc, char *argv[]) closure_field(StgAtomicInvariant, code); + closure_field(StgTRecHeader, enclosing_trec); + closure_size(StgCatchSTMFrame); closure_field(StgCatchSTMFrame, handler); closure_field(StgCatchSTMFrame, code); |