diff options
| author | Ben Gamari <bgamari.foss@gmail.com> | 2016-12-16 11:59:26 -0500 |
|---|---|---|
| committer | Ben Gamari <ben@smart-cactus.org> | 2016-12-16 11:59:28 -0500 |
| commit | c889df86d7bc9eb4cd53e38c81feecaf5f932678 (patch) | |
| tree | 553aa08a25a587ad4d900630d1f8696825f7e2db /compiler/stgSyn | |
| parent | 13c1fc4dfc925afa328a6be9db191b11bf96d4a0 (diff) | |
| download | haskell-c889df86d7bc9eb4cd53e38c81feecaf5f932678.tar.gz | |
Packages: Kill unused UnitId argument to isDllName
Test Plan: Validate
Reviewers: austin, simonmar
Subscribers: thomie, ezyang
Differential Revision: https://phabricator.haskell.org/D2866
Diffstat (limited to 'compiler/stgSyn')
| -rw-r--r-- | compiler/stgSyn/StgSyn.hs | 6 |
1 files changed, 2 insertions, 4 deletions
diff --git a/compiler/stgSyn/StgSyn.hs b/compiler/stgSyn/StgSyn.hs index b553cd74dd..3ec37eefff 100644 --- a/compiler/stgSyn/StgSyn.hs +++ b/compiler/stgSyn/StgSyn.hs @@ -98,18 +98,16 @@ data GenStgArg occ isDllConApp :: DynFlags -> Module -> DataCon -> [StgArg] -> Bool isDllConApp dflags this_mod con args | platformOS (targetPlatform dflags) == OSMinGW32 - = isDllName dflags this_pkg this_mod (dataConName con) || any is_dll_arg args + = isDllName dflags this_mod (dataConName con) || any is_dll_arg args | otherwise = False where -- NB: typePrimRep 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 (typePrimRep (idType v)) - && isDllName dflags this_pkg this_mod (idName v) + && isDllName dflags this_mod (idName v) is_dll_arg _ = False - this_pkg = thisPackage dflags - -- True of machine addresses; these are the things that don't -- work across DLLs. The key point here is that VoidRep comes -- out False, so that a top level nullary GADT constructor is |