Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
What's new
10
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Sign in / Register
Toggle navigation
Open sidebar
Glasgow Haskell Compiler
GHC
Commits
d1bc75c8
Commit
d1bc75c8
authored
Apr 24, 2009
by
Ian Lynagh
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
Use a bang pattern when we where/let-bind values with unlifted types
parent
e9b2dc50
Changes
7
Hide whitespace changes
Inline
Side-by-side
Showing
7 changed files
with
10 additions
and
10 deletions
+10
-10
testsuite/tests/ghc-regress/deSugar/should_compile/ds035.hs
testsuite/tests/ghc-regress/deSugar/should_compile/ds035.hs
+2
-2
testsuite/tests/ghc-regress/deSugar/should_compile/ds057.hs
testsuite/tests/ghc-regress/deSugar/should_compile/ds057.hs
+1
-1
testsuite/tests/ghc-regress/ghci.debugger/scripts/all.T
testsuite/tests/ghc-regress/ghci.debugger/scripts/all.T
+1
-1
testsuite/tests/ghc-regress/ghci.debugger/scripts/dynbrk009.hs
...uite/tests/ghc-regress/ghci.debugger/scripts/dynbrk009.hs
+1
-1
testsuite/tests/ghc-regress/ghci.debugger/scripts/dynbrk009.stdout
.../tests/ghc-regress/ghci.debugger/scripts/dynbrk009.stdout
+3
-3
testsuite/tests/ghc-regress/simplCore/should_compile/simpl004.hs
...te/tests/ghc-regress/simplCore/should_compile/simpl004.hs
+1
-1
testsuite/tests/ghc-regress/typecheck/should_compile/tc185.hs
...suite/tests/ghc-regress/typecheck/should_compile/tc185.hs
+1
-1
No files found.
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
Markdown
is supported
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