Commit 23d26a3

committed

disable debug logs

1 parent a604d66 commit 23d26a3Copy full SHA for 23d26a3

File tree

-2

lines changed

external-stg-interpreter/lib/Stg
- Interpreter.hs
- Interpreter
  - Base.hs
  - GC.hs

-2

lines changed

Lines changed: 2 additions & 2 deletions

Original file line number	Diff line number	Diff line change
`@@ -385,7 +385,7 @@ data ThreadStatus`
`385`	`385`
`386`	`386`	`killAllThreads :: M ()`
`387`	`387`	`killAllThreads = do`
`388`		`- liftIO $putStrLn "[estgi] - killAllThreads"`
	`388`	`+ mylog "[estgi] - killAllThreads"`
`389`	`389`	`-- TODO: check if there are running threads`
`390`	`390`	`tsList <- gets $ IntMap.toList . ssThreads`
`391`	`391`	`let runnableThreads = [tid \| (tid, ts) <- tsList, tsStatus ts == ThreadRunning]`
`@@ -419,7 +419,7 @@ evalOnThread isMainThread setupAction = do`
`419`	`419`	`True -> loop resultOut -- HINT: the new scheduling is ready`
`420`	`420`	`False -> do`
`421`	`421`	`when isMainThread $ do`
`422`		`- liftIO $putStrLn "[estgi] - main hs thread finished"`
	`422`	`+ mylog "[estgi] - main hs thread finished"`
`423`	`423`	`killAllThreads`
`424`	`424`	`pure tsCurrentResult`
`425`	`425`	`loop result0`

Lines changed: 3 additions & 0 deletions

Original file line number	Diff line number	Diff line change
`@@ -1470,9 +1470,12 @@ traceLog msg = do`
`1470`	`1470`	`liftIO $ hPutStrLn thWholeProgramPath $ maybe "" BS8.unpack (tsLabel ts) ++ "\t" ++ show tid ++ "\t" ++ msg`
`1471`	`1471`
`1472`	`1472`	`mylog :: String -> M ()`
	`1473`	`+mylog _ = pure ()`
	`1474`	`+{-`
`1473`	`1475`	`mylog msg = do`
`1474`	`1476`	`ctid <- gets ssCurrentThreadId`
`1475`	`1477`	`pp <- gets ssCurrentProgramPoint`
`1476`	`1478`	`liftIO $ do`
`1477`	`1479`	`BS8.putStrLn . BS8.pack $ msg ++ " " ++ show pp ++ " " ++ show ctid`
`1478`	`1480`	`hFlush stdout`
	`1481`	`+-}`

Lines changed: 3 additions & 0 deletions

Original file line number	Diff line number	Diff line change
`@@ -158,9 +158,12 @@ finalizeDeadWeakPointers :: IntSet -> M ()`
`158`	`158`	`finalizeDeadWeakPointers rsWeaks = do`
`159`	`159`	`let deadWeaks = IntSet.toList rsWeaks`
`160`	`160`	`wdescs <- mapM lookupWeakPointerDescriptor deadWeaks`
	`161`	`+ {-`
`161`	`162`	`liftIO $ do`
`162`	`163`	`putStrLn $ " * GC - run finalizers for dead weak pointers: " ++ show rsWeaks`
`163`	`164`	`mapM_ print wdescs`
	`165`	`+ -}`
	`166`	`+ pure ()`
`164`	`167`	`-- TODO: implement it right`
`165`	`168`	`--forM_ deadWeaks PrimWeakPointer.finalizeWeak`
`166`	`169`

Comments

(0)