diff options
| author | Peter Trommler <ptrommler@acm.org> | 2018-05-27 11:11:37 -0400 |
|---|---|---|
| committer | Ben Gamari <ben@smart-cactus.org> | 2018-05-30 10:02:09 -0400 |
| commit | bdfc85b8cbcb49cc879aebad4cc1b50123f8c02c (patch) | |
| tree | 1c505a25be28e5e8800365f227520dc8052c1c49 /libraries/ghci | |
| parent | e4003b6dc6a84d870116de9f47057c15b1576f36 (diff) | |
| download | haskell-bdfc85b8cbcb49cc879aebad4cc1b50123f8c02c.tar.gz | |
Fix validate for GHCi without TABLES_NEXT_TO_CODE
Suppress warning about unused match.
Fixes #15187
Reviewers: bgamari, simonmar, erikd, hvr
Reviewed By: bgamari, simonmar
Subscribers: rwbarton, thomie, carter
Differential Revision: https://phabricator.haskell.org/D4741
Diffstat (limited to 'libraries/ghci')
| -rw-r--r-- | libraries/ghci/GHCi/InfoTable.hsc | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/libraries/ghci/GHCi/InfoTable.hsc b/libraries/ghci/GHCi/InfoTable.hsc index cd712ba925..ca5757257c 100644 --- a/libraries/ghci/GHCi/InfoTable.hsc +++ b/libraries/ghci/GHCi/InfoTable.hsc @@ -320,11 +320,11 @@ data StgConInfoTable = StgConInfoTable { pokeConItbl :: Ptr StgConInfoTable -> Ptr StgConInfoTable -> StgConInfoTable -> IO () -pokeConItbl wr_ptr ex_ptr itbl = do +pokeConItbl wr_ptr _ex_ptr itbl = do #if defined(TABLES_NEXT_TO_CODE) -- Write the offset to the con_desc from the end of the standard InfoTable -- at the first byte. - let con_desc_offset = conDesc itbl `minusPtr` (ex_ptr `plusPtr` conInfoTableSizeB) + let con_desc_offset = conDesc itbl `minusPtr` (_ex_ptr `plusPtr` conInfoTableSizeB) (#poke StgConInfoTable, con_desc) wr_ptr con_desc_offset #else -- Write the con_desc address after the end of the info table. |