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 /testsuite/tests/codeGen/should_run/T13825-unit.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 'testsuite/tests/codeGen/should_run/T13825-unit.hs')
| -rw-r--r-- | testsuite/tests/codeGen/should_run/T13825-unit.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/testsuite/tests/codeGen/should_run/T13825-unit.hs b/testsuite/tests/codeGen/should_run/T13825-unit.hs index bd3d7fbb33..1197dc60fe 100644 --- a/testsuite/tests/codeGen/should_run/T13825-unit.hs +++ b/testsuite/tests/codeGen/should_run/T13825-unit.hs @@ -69,7 +69,7 @@ assert_32_64 actual expected32 expected64 = do runTest :: [(a, PrimRep)] -> Ghc (WordOff , WordOff, [FieldOffOrPadding a]) runTest prim_reps = do dflags <- getDynFlags - return $ mkVirtHeapOffsetsWithPadding dflags False (mkNonVoids prim_reps) + return $ mkVirtHeapOffsetsWithPadding dflags StdHeader (mkNonVoids prim_reps) where mkNonVoids = map (\(a, prim_rep) -> NonVoid (prim_rep, a)) |