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
d04e338c
Commit
d04e338c
authored
Jan 30, 2008
by
Ian Lynagh
Browse files
Fix warnings on non-Windows
parent
4b0a3a1f
Changes
2
Hide whitespace changes
Inline
Side-by-side
compiler/coreSyn/CoreUtils.lhs
View file @
d04e338c
...
...
@@ -1521,7 +1521,7 @@ rhsIsStatic :: PackageId -> CoreExpr -> Bool
-- When opt_RuntimeTypes is on, we keep type lambdas and treat
-- them as making the RHS re-entrant (non-updatable).
rhsIsStatic this_pkg rhs = is_static False rhs
rhsIsStatic
_
this_pkg rhs = is_static False rhs
where
is_static :: Bool -- True <=> in a constructor argument; must be atomic
-> CoreExpr -> Bool
...
...
@@ -1549,7 +1549,7 @@ rhsIsStatic this_pkg rhs = is_static False rhs
where
go (Var f) n_val_args
#if mingw32_TARGET_OS
| not (isDllName this_pkg (idName f))
| not (isDllName
_
this_pkg (idName f))
#endif
= saturated_data_con f n_val_args
|| (in_arg && n_val_args == 0)
...
...
compiler/main/DynFlags.hs
View file @
d04e338c
...
...
@@ -88,9 +88,6 @@ import {-# SOURCE #-} ErrUtils ( Severity(..), Message, mkLocMessage )
import
Data.IORef
(
readIORef
)
import
Control.Exception
(
throwDyn
)
import
Control.Monad
(
when
)
#
ifndef
mingw32_TARGET_OS
import
Util
(
split
)
#
endif
import
Data.Char
import
System.FilePath
...
...
@@ -1670,7 +1667,7 @@ setOptHpcDir arg = upd $ \ d -> d{hpcDir = arg}
machdepCCOpts
::
DynFlags
->
([
String
],
-- flags for all C compilations
[
String
])
-- for registerised HC compilations
machdepCCOpts
dflags
machdepCCOpts
_
dflags
#
if
alpha_TARGET_ARCH
=
(
[
"-w"
,
"-mieee"
#
ifdef
HAVE_THREADED_RTS_SUPPORT
...
...
@@ -1703,7 +1700,7 @@ machdepCCOpts dflags
--
-- -fomit-frame-pointer : *must* in .hc files; because we're stealing
-- the fp (%ebp) for our register maps.
=
let
n_regs
=
stolen_x86_regs
dflags
=
let
n_regs
=
stolen_x86_regs
_
dflags
sta
=
opt_Static
in
(
[
if
sta
then
"-DDONT_WANT_WIN32_DLL_SUPPORT"
else
""
...
...
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