Skip to content
GitLab
Menu
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
d1bc75c8
Commit
d1bc75c8
authored
Apr 24, 2009
by
Ian Lynagh
Browse files
Use a bang pattern when we where/let-bind values with unlifted types
parent
e9b2dc50
Changes
7
Hide whitespace changes
Inline
Side-by-side
testsuite/tests/ghc-regress/deSugar/should_compile/ds035.hs
View file @
d1bc75c8
...
...
@@ -19,5 +19,5 @@ main = putStr (case len4_twice of
_
->
"oops
\n
"
)
where
list4
=
mk
4
#
len4
=
clen
list4
len4_twice
=
len4
+#
len4
!
len4
=
clen
list4
!
len4_twice
=
len4
+#
len4
testsuite/tests/ghc-regress/deSugar/should_compile/ds057.hs
View file @
d1bc75c8
...
...
@@ -10,4 +10,4 @@ f# a# = (# '\0'#, a# #)
g
::
Int
->
(
Char
,
Int
)
g
(
I
#
a
#
)
=
(
C
#
c
#
,
I
#
b
#
)
where
(
#
c
#
,
b
#
#
)
=
f
#
a
#
where
!
(
#
c
#
,
b
#
#
)
=
f
#
a
#
testsuite/tests/ghc-regress/ghci.debugger/scripts/all.T
View file @
d1bc75c8
...
...
@@ -18,7 +18,7 @@ test('print016', normal, ghci_script, ['print016.script'])
test
('
print017
',
normal
,
ghci_script
,
['
print017.script
'])
test
('
print018
',
normal
,
ghci_script
,
['
print018.script
'])
test
('
print019
',
normal
,
ghci_script
,
['
print019.script
'])
test
('
print020
',
normal
,
ghci_script
,
['
print020.script
'])
test
('
print020
',
expect_broken
(
2806
)
,
ghci_script
,
['
print020.script
'])
test
('
print021
',
normal
,
ghci_script
,
['
print021.script
'])
test
('
print022
',
normal
,
ghci_script
,
['
print022.script
'])
test
('
print023
',
normal
,
ghci_script
,
['
print023.script
'])
...
...
testsuite/tests/ghc-regress/ghci.debugger/scripts/dynbrk009.hs
View file @
d1bc75c8
...
...
@@ -5,4 +5,4 @@ import GHC.Base
f
::
Int
->
Int
#
->
Int
#
f
x
i
=
i
test
=
let
I
#
i
=
3
in
I
#
(
f
2
i
)
\ No newline at end of file
test
=
let
!
(
I
#
i
)
=
3
in
I
#
(
f
2
i
)
\ No newline at end of file
testsuite/tests/ghc-regress/ghci.debugger/scripts/dynbrk009.stdout
View file @
d1bc75c8
Stopped at dynbrk009.hs:8:1
8
Stopped at dynbrk009.hs:8:
2
1
_result :: Int = _
Stopped at dynbrk009.hs:8:2
3
-3
1
Stopped at dynbrk009.hs:8:2
6
-3
5
_result :: Int = _
Stopped at dynbrk009.hs:8:
26-30
Stopped at dynbrk009.hs:8:
30-34
_result :: Int = _
Stopped at dynbrk009.hs:6:0-8
_result :: Int = _
...
...
testsuite/tests/ghc-regress/simplCore/should_compile/simpl004.hs
View file @
d1bc75c8
...
...
@@ -8,7 +8,7 @@ import GHC.Exts
f
ixs
@
(
_
,
ix_end
)
frozen
#
=
let
n
#
=
!
n
#
=
case
(
if
null
(
range
ixs
)
then
0
...
...
testsuite/tests/ghc-regress/typecheck/should_compile/tc185.hs
View file @
d1bc75c8
...
...
@@ -5,4 +5,4 @@
module
Bug
where
import
GHC.Base
foo
v
=
let
I
#
x
#
=
7
*
7
in
"Forty-Two"
\ No newline at end of file
foo
v
=
let
!
(
I
#
x
#
)
=
7
*
7
in
"Forty-Two"
\ No newline at end of file
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Attach a 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