Rodrigo Mesquita pushed to branch wip/romes/26640 at Glasgow Haskell Compiler / GHC
Commits:
-
4e902a24
by Rodrigo Mesquita at 2025-12-05T15:46:04+00:00
4 changed files:
- + testsuite/tests/bytecode/T26640.hs
- + testsuite/tests/bytecode/T26640.script
- + testsuite/tests/bytecode/T26640.stdout
- testsuite/tests/bytecode/all.T
Changes:
| 1 | +-- Main.hs
|
|
| 2 | +module Main where
|
|
| 3 | +main = pure ()
|
|
| 4 | + |
| 1 | +:l T26640
|
|
| 2 | +:break 3
|
|
| 3 | +main
|
|
| 4 | +import GHC.Conc
|
|
| 5 | +import GHC.Stack.CloneStack
|
|
| 6 | +() <- mapM_ (\ix -> do !_ <- decode =<< cloneThreadStack ix; return ()) =<< listThreads |
| 1 | +Breakpoint 0 activated at T26640.hs:3:8-14
|
|
| 2 | +Stopped in Main.main, T26640.hs:3:8-14
|
|
| 3 | +_result :: IO () = _ |
| ... | ... | @@ -8,6 +8,7 @@ test('T25975', extra_ways(ghci_ways), compile_and_run, |
| 8 | 8 | |
| 9 | 9 | test('T26565', extra_files(["T26565.hs"]), ghci_script, ['T26565.script'])
|
| 10 | 10 | test('T23973', extra_files(["T23973.hs"]), ghci_script, ['T23973.script'])
|
| 11 | +test('T26640', extra_files(["T26640.hs"]), ghci_script, ['T26640.script'])
|
|
| 11 | 12 | |
| 12 | 13 | # Nullary data constructors
|
| 13 | 14 | test('T26216', extra_files(["T26216_aux.hs"]), ghci_script, ['T26216.script']) |