diff options
Diffstat (limited to 'testsuite')
| -rw-r--r-- | testsuite/tests/ghci.debugger/Unboxed.hs | 10 | ||||
| -rw-r--r-- | testsuite/tests/ghci.debugger/scripts/print035.script | 5 | ||||
| -rw-r--r-- | testsuite/tests/ghci.debugger/scripts/print035.stdout | 3 |
3 files changed, 9 insertions, 9 deletions
diff --git a/testsuite/tests/ghci.debugger/Unboxed.hs b/testsuite/tests/ghci.debugger/Unboxed.hs index a285fefb8f..0a886825eb 100644 --- a/testsuite/tests/ghci.debugger/Unboxed.hs +++ b/testsuite/tests/ghci.debugger/Unboxed.hs @@ -1,12 +1,10 @@ +{-# LANGUAGE UnboxedTuples #-} + +module Unboxed where + data Unboxed1 = Unboxed1 (# Int, Bool #) data Unboxed2 = Unboxed2 (# Int, (# Int, Bool #) #) o1 = Unboxed1 (# 5, True #) o2 = Unboxed2 (# 6, (# 7, False #) #) - -force_them :: Int -force_them = x + (if b then 1 else 2) + y + z + (if c then 3 else 4) - where - Unboxed1 (# x, b #) = o1 - Unboxed2 (# y, (# z, c #) #) = o2
\ No newline at end of file diff --git a/testsuite/tests/ghci.debugger/scripts/print035.script b/testsuite/tests/ghci.debugger/scripts/print035.script index a4511f0908..0fd6139bc0 100644 --- a/testsuite/tests/ghci.debugger/scripts/print035.script +++ b/testsuite/tests/ghci.debugger/scripts/print035.script @@ -5,6 +5,7 @@ :l Unboxed :p o1 :p o2 -force_them +o1 `seq` () +o2 `seq` () :p o1 -:p o2
\ No newline at end of file +:p o2 diff --git a/testsuite/tests/ghci.debugger/scripts/print035.stdout b/testsuite/tests/ghci.debugger/scripts/print035.stdout index 8f89277ee2..117cd94cb1 100644 --- a/testsuite/tests/ghci.debugger/scripts/print035.stdout +++ b/testsuite/tests/ghci.debugger/scripts/print035.stdout @@ -1,5 +1,6 @@ o1 = (_t1::Unboxed1) o2 = (_t2::Unboxed2) -23 +() +() o1 = Unboxed1 ((#,#) 5 True) o2 = Unboxed2 ((#,#) 6 ((#,#) 7 False)) |