diff options
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 d5e50c2dff..afcfefc7fa 100644 --- a/libraries/ghci/GHCi/InfoTable.hsc +++ b/libraries/ghci/GHCi/InfoTable.hsc @@ -58,7 +58,7 @@ peekItbl a0 = do nptrs' <- (#peek StgInfoTable, layout.payload.nptrs) a0 tipe' <- (#peek StgInfoTable, type) a0 #if __GLASGOW_HASKELL__ > 804 - srtlen' <- (#peek StgInfoTable, has_srt) a0 + srtlen' <- (#peek StgInfoTable, srt) a0 #else srtlen' <- (#peek StgInfoTable, srt_bitmap) a0 #endif @@ -398,7 +398,7 @@ pokeItbl a0 itbl = do (#poke StgInfoTable, layout.payload.nptrs) a0 (nptrs itbl) (#poke StgInfoTable, type) a0 (tipe itbl) #if __GLASGOW_HASKELL__ > 804 - (#poke StgInfoTable, has_srt) a0 (srtlen itbl) + (#poke StgInfoTable, srt) a0 (srtlen itbl) #else (#poke StgInfoTable, srt_bitmap) a0 (srtlen itbl) #endif |