diff options
| author | Simon Marlow <marlowsd@gmail.com> | 2018-03-05 15:12:57 -0500 |
|---|---|---|
| committer | Ben Gamari <ben@smart-cactus.org> | 2018-03-06 13:03:06 -0500 |
| commit | 488d63d6899d223ef87c26c218f0cf81ac670a90 (patch) | |
| tree | 166a686fe8e90a4110174e437d8d4c966d723188 /compiler/codeGen/StgCmmCon.hs | |
| parent | 1488591ac595d1b7be39345cc390737ea9a65fe3 (diff) | |
| download | haskell-488d63d6899d223ef87c26c218f0cf81ac670a90.tar.gz | |
Fix interpreter with profiling
This was broken by D3746 and/or D3809, but unfortunately we didn't
notice because CI at the time wasn't building the profiling way.
Test Plan:
```
cd testsuite/test/profiling/should_run
make WAY=ghci-ext-prof
```
Reviewers: bgamari, michalt, hvr, erikd
Subscribers: rwbarton, thomie, carter
GHC Trac Issues: #14705
Differential Revision: https://phabricator.haskell.org/D4437
Diffstat (limited to 'compiler/codeGen/StgCmmCon.hs')
| -rw-r--r-- | compiler/codeGen/StgCmmCon.hs | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/compiler/codeGen/StgCmmCon.hs b/compiler/codeGen/StgCmmCon.hs index 197291006b..8dadb4ede7 100644 --- a/compiler/codeGen/StgCmmCon.hs +++ b/compiler/codeGen/StgCmmCon.hs @@ -79,11 +79,10 @@ cgTopRhsCon dflags id con args = -- LAY IT OUT ; let - is_thunk = False (tot_wds, -- #ptr_wds + #nonptr_wds ptr_wds, -- #ptr_wds nv_args_w_offsets) = - mkVirtHeapOffsetsWithPadding dflags is_thunk (addArgReps args) + mkVirtHeapOffsetsWithPadding dflags StdHeader (addArgReps args) mk_payload (Padding len _) = return (CmmInt 0 (widthFromBytes len)) mk_payload (FieldOff arg _) = do |