Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Sign in / Register
Toggle navigation
Menu
Open sidebar
Glasgow Haskell Compiler
GHC
Commits
8859e1e3
Commit
8859e1e3
authored
Sep 06, 2013
by
aljee@hyper.cx
Committed by
thoughtpolice
Sep 08, 2013
Browse files
Test for Trac
#8242
Signed-off-by:
Austin Seipp
<
aseipp@pobox.com
>
parent
4c959e20
Changes
2
Hide whitespace changes
Inline
Side-by-side
testsuite/tests/rts/T8242.hs
0 → 100644
View file @
8859e1e3
{-# LANGUAGE BangPatterns #-}
{-# LANGUAGE MagicHash #-}
{-# LANGUAGE UnboxedTuples #-}
import
Control.Monad
import
GHC.Conc
import
Foreign.Marshal.Alloc
import
Foreign.Ptr
import
Foreign.Storable
import
Foreign.C.Types
import
GHC.IO
import
GHC.Exts
foreign
import
ccall
unsafe
"&puts"
puts
::
FunPtr
(
Ptr
CChar
->
IO
()
)
main
::
IO
()
main
=
alloca
$
\
ptr
@
(
Ptr
p
)
->
do
poke
(
ptr
::
Ptr
CChar
)
0
setNumCapabilities
2
let
!
(
FunPtr
puts
#
)
=
puts
replicateM_
10000
$
IO
$
\
s
->
let
!
(
#
s1
,
w
#
)
=
mkWeakNoFinalizer
#
()
()
s
!
(
#
s2
,
_
#
)
=
addCFinalizerToWeak
#
puts
#
p
0
#
nullAddr
#
w
s1
!
(
#
s3
,
_
#
)
=
addCFinalizerToWeak
#
puts
#
p
0
#
nullAddr
#
w
s2
!
(
#
s4
,
_
#
)
=
addCFinalizerToWeak
#
puts
#
p
0
#
nullAddr
#
w
s3
!
(
#
s5
,
_
#
)
=
addCFinalizerToWeak
#
puts
#
p
0
#
nullAddr
#
w
s4
!
(
#
s6
,
_
#
)
=
addCFinalizerToWeak
#
puts
#
p
0
#
nullAddr
#
w
s5
!
(
#
s7
,
_
#
)
=
addCFinalizerToWeak
#
puts
#
p
0
#
nullAddr
#
w
s6
!
(
#
s8
,
_
#
)
=
addCFinalizerToWeak
#
puts
#
p
0
#
nullAddr
#
w
s7
!
(
#
s9
,
_
#
)
=
addCFinalizerToWeak
#
puts
#
p
0
#
nullAddr
#
w
s8
!
(
#
s10
,
_
#
)
=
addCFinalizerToWeak
#
puts
#
p
0
#
nullAddr
#
w
s9
!
(
#
s11
,
_
#
)
=
addCFinalizerToWeak
#
puts
#
p
0
#
nullAddr
#
w
s10
!
(
#
s12
,
_
#
)
=
addCFinalizerToWeak
#
puts
#
p
0
#
nullAddr
#
w
s11
!
(
#
s13
,
_
#
)
=
addCFinalizerToWeak
#
puts
#
p
0
#
nullAddr
#
w
s12
!
(
#
s14
,
_
#
)
=
addCFinalizerToWeak
#
puts
#
p
0
#
nullAddr
#
w
s13
!
(
#
s15
,
_
#
)
=
addCFinalizerToWeak
#
puts
#
p
0
#
nullAddr
#
w
s14
!
(
#
s16
,
_
#
)
=
addCFinalizerToWeak
#
puts
#
p
0
#
nullAddr
#
w
s15
!
(
#
s17
,
_
#
)
=
addCFinalizerToWeak
#
puts
#
p
0
#
nullAddr
#
w
s16
!
(
#
s18
,
_
#
)
=
addCFinalizerToWeak
#
puts
#
p
0
#
nullAddr
#
w
s17
!
(
#
s19
,
_
#
)
=
addCFinalizerToWeak
#
puts
#
p
0
#
nullAddr
#
w
s18
!
(
#
s20
,
_
#
)
=
addCFinalizerToWeak
#
puts
#
p
0
#
nullAddr
#
w
s19
in
(
#
s20
,
()
#
)
testsuite/tests/rts/all.T
View file @
8859e1e3
...
...
@@ -188,3 +188,6 @@ test('linker_unload',
test
('
T8209
',
[
only_ways
(
threaded_ways
),
ignore_output
],
compile_and_run
,
[''])
test
('
T8242
',
[
only_ways
(
threaded_ways
),
ignore_output
],
compile_and_run
,
[''])
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment