diff options
author | Sylvain Henry <sylvain@haskus.fr> | 2020-03-03 13:36:56 +0100 |
---|---|---|
committer | Marge Bot <ben+marge-bot@smart-cactus.org> | 2020-03-13 02:30:22 -0400 |
commit | 44fad4a925c06fa2b14611ea08acea9210ee4e00 (patch) | |
tree | 584220a599fd2723cdd254aea0aa8383895b0c29 /compiler/GHC/Stg/Syntax.hs | |
parent | 6a65b8c2f5b4bc7abdb0ca3b5876df694acb8194 (diff) | |
download | haskell-44fad4a925c06fa2b14611ea08acea9210ee4e00.tar.gz |
Rename isDllName
I wanted to fix the dangling comment in `isDllName` ("This is the cause
of #", #8696 is already mentioned earlier). I took the opportunity to
change the function name to better reflect what it does.
Diffstat (limited to 'compiler/GHC/Stg/Syntax.hs')
-rw-r--r-- | compiler/GHC/Stg/Syntax.hs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/compiler/GHC/Stg/Syntax.hs b/compiler/GHC/Stg/Syntax.hs index 46e70d477e..1b8381b1b7 100644 --- a/compiler/GHC/Stg/Syntax.hs +++ b/compiler/GHC/Stg/Syntax.hs @@ -76,7 +76,7 @@ import VarSet import Literal ( Literal, literalType ) import Module ( Module ) import Outputable -import GHC.Driver.Packages ( isDllName ) +import GHC.Driver.Packages ( isDynLinkName ) import GHC.Platform import GHC.Core.Ppr( {- instances -} ) import PrimOp ( PrimOp, PrimCall ) @@ -127,14 +127,14 @@ data StgArg isDllConApp :: DynFlags -> Module -> DataCon -> [StgArg] -> Bool isDllConApp dflags this_mod con args | platformOS (targetPlatform dflags) == OSMinGW32 - = isDllName dflags this_mod (dataConName con) || any is_dll_arg args + = isDynLinkName dflags this_mod (dataConName con) || any is_dll_arg args | otherwise = False where -- NB: typePrimRep1 is legit because any free variables won't have -- unlifted type (there are no unlifted things at top level) is_dll_arg :: StgArg -> Bool is_dll_arg (StgVarArg v) = isAddrRep (typePrimRep1 (idType v)) - && isDllName dflags this_mod (idName v) + && isDynLinkName dflags this_mod (idName v) is_dll_arg _ = False -- True of machine addresses; these are the things that don't work across DLLs. |