diff options
| author | Ian Lynagh <ian@well-typed.com> | 2013-05-13 20:45:11 +0100 |
|---|---|---|
| committer | Ian Lynagh <ian@well-typed.com> | 2013-05-13 21:46:45 +0100 |
| commit | b8447a93b36d19f4c1dd81881ff10adf8c781fbe (patch) | |
| tree | 06dcc065a3c6e3cd7e0ec090d49f2fd0f3fdac21 /compiler/cmm/CLabel.hs | |
| parent | 58dccedb6a9c522907e9009616df2eff74ddf4c9 (diff) | |
| download | haskell-b8447a93b36d19f4c1dd81881ff10adf8c781fbe.tar.gz | |
Make the current module available to labelDynamic
It doesn't actually use it yet
Diffstat (limited to 'compiler/cmm/CLabel.hs')
| -rw-r--r-- | compiler/cmm/CLabel.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/compiler/cmm/CLabel.hs b/compiler/cmm/CLabel.hs index a2830b9c2f..c14c958218 100644 --- a/compiler/cmm/CLabel.hs +++ b/compiler/cmm/CLabel.hs @@ -837,8 +837,8 @@ idInfoLabelType info = -- @labelDynamic@ returns @True@ if the label is located -- in a DLL, be it a data reference or not. -labelDynamic :: DynFlags -> PackageId -> CLabel -> Bool -labelDynamic dflags this_pkg lbl = +labelDynamic :: DynFlags -> PackageId -> Module -> CLabel -> Bool +labelDynamic dflags this_pkg _this_mod lbl = case lbl of -- is the RTS in a DLL or not? RtsLabel _ -> not (gopt Opt_Static dflags) && (this_pkg /= rtsPackageId) |