[Git][ghc/ghc][wip/ghc-debug] Lint
Sven Tennie
gitlab at gitlab.haskell.org
Sun May 10 16:32:53 UTC 2020
Sven Tennie pushed to branch wip/ghc-debug at Glasgow Haskell Compiler / GHC
Commits:
a7b07308 by Sven Tennie at 2020-05-10T18:32:33+02:00
Lint
- - - - -
2 changed files:
- libraries/ghc-heap/GHC/Exts/Heap.hs
- libraries/ghc-heap/GHC/Exts/Heap/Closures.hs
Changes:
=====================================
libraries/ghc-heap/GHC/Exts/Heap.hs
=====================================
@@ -290,7 +290,7 @@ getClosureX get_closure_raw x = do
unless (length pts == 6) $
fail $ "Expected 6 ptr arguments to TSO, found "
++ show (length pts)
- pure $ TSOClosure
+ pure $ TSOClosure
{ info = itbl
, _link = (pts !! 0)
, global_link = (pts !! 1)
@@ -298,7 +298,7 @@ getClosureX get_closure_raw x = do
, trec = (pts !! 3)
, blocked_exceptions = (pts !! 4)
, bq = (pts !! 5)
- }
+ }
STACK -> do
unless (length pts >= 1) $
fail $ "Expected at least 1 ptr argument to STACK, found "
=====================================
libraries/ghc-heap/GHC/Exts/Heap/Closures.hs
=====================================
@@ -262,7 +262,7 @@ data GenClosure b
-- TODO: There are many more fields in a TSO closure which
-- are not yet implemented
-
+
-- | StgTSO
| TSOClosure
{ info :: !StgInfoTable
View it on GitLab: https://gitlab.haskell.org/ghc/ghc/-/commit/a7b07308a43857bca90a898bacee41f65c78c5ab
--
View it on GitLab: https://gitlab.haskell.org/ghc/ghc/-/commit/a7b07308a43857bca90a898bacee41f65c78c5ab
You're receiving this email because of your account on gitlab.haskell.org.
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://mail.haskell.org/pipermail/ghc-commits/attachments/20200510/0717fea5/attachment-0001.html>
More information about the ghc-commits
mailing list