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
2528e684
Commit
2528e684
authored
Dec 17, 2019
by
Ben Gamari
🐢
Committed by
Marge Bot
Dec 30, 2019
1
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
driver: Include debug level in the recompilation check hash
Fixes
#17586
.
parent
d03dec8f
Pipeline
#14095
passed with stages
in 468 minutes and 56 seconds
Changes
5
Pipelines
1
Show whitespace changes
Inline
Side-by-side
Showing
5 changed files
with
19 additions
and
1 deletion
+19
-1
compiler/iface/FlagChecker.hs
compiler/iface/FlagChecker.hs
+1
-1
testsuite/tests/driver/T17586/Makefile
testsuite/tests/driver/T17586/Makefile
+9
-0
testsuite/tests/driver/T17586/T17586.hs
testsuite/tests/driver/T17586/T17586.hs
+2
-0
testsuite/tests/driver/T17586/T17586.stdout
testsuite/tests/driver/T17586/T17586.stdout
+6
-0
testsuite/tests/driver/T17586/all.T
testsuite/tests/driver/T17586/all.T
+1
-0
No files found.
compiler/iface/FlagChecker.hs
View file @
2528e684
...
@@ -61,7 +61,7 @@ fingerprintDynFlags dflags@DynFlags{..} this_mod nameio =
...
@@ -61,7 +61,7 @@ fingerprintDynFlags dflags@DynFlags{..} this_mod nameio =
ticky
=
ticky
=
map
(`
gopt
`
dflags
)
[
Opt_Ticky
,
Opt_Ticky_Allocd
,
Opt_Ticky_LNE
,
Opt_Ticky_Dyn_Thunk
]
map
(`
gopt
`
dflags
)
[
Opt_Ticky
,
Opt_Ticky_Allocd
,
Opt_Ticky_LNE
,
Opt_Ticky_Dyn_Thunk
]
flags
=
(
mainis
,
safeHs
,
lang
,
cpp
,
paths
,
prof
,
ticky
)
flags
=
(
(
mainis
,
safeHs
,
lang
,
cpp
)
,
(
paths
,
prof
,
ticky
,
debugLevel
)
)
in
-- pprTrace "flags" (ppr flags) $
in
-- pprTrace "flags" (ppr flags) $
computeFingerprint
nameio
flags
computeFingerprint
nameio
flags
...
...
testsuite/tests/driver/T17586/Makefile
0 → 100644
View file @
2528e684
TOP
=
../..
include
$(TOP)/mk/boilerplate.mk
include
$(TOP)/mk/test.mk
T17586
:
"
$(TEST_HC)
"
$(TEST_HC_OPTS)
-o
T17586 ./T17586.hs
./T17586
"
$(TEST_HC)
"
$(TEST_HC_OPTS)
-o
T17586 ./T17586.hs
-g3
./T17586
testsuite/tests/driver/T17586/T17586.hs
0 → 100644
View file @
2528e684
main
::
IO
()
main
=
putStrLn
"hello world"
testsuite/tests/driver/T17586/T17586.stdout
0 → 100644
View file @
2528e684
[1 of 1] Compiling Main ( T17586.hs, T17586.o )
Linking T17586 ...
hello world
[1 of 1] Compiling Main ( T17586.hs, T17586.o ) [flags changed]
Linking T17586 ...
hello world
testsuite/tests/driver/T17586/all.T
0 → 100644
View file @
2528e684
test
('
T17586
',
normal
,
makefile_test
,
[]
)
Marge Bot
💬
@marge-bot
mentioned in merge request
!2336 (closed)
·
Dec 30, 2019
mentioned in merge request
!2336 (closed)
mentioned in merge request !2336
Toggle commit list
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