diff options
| author | Ian Lynagh <ian@well-typed.com> | 2013-05-13 19:12:03 +0100 |
|---|---|---|
| committer | Ian Lynagh <ian@well-typed.com> | 2013-05-13 19:12:03 +0100 |
| commit | 1cc96d54144f34f620e31d2dee133d17a2367610 (patch) | |
| tree | cbb1e429299637eb378131fc68e5a47628b9dc74 /compiler/nativeGen/PIC.hs | |
| parent | 9d18aeab53a621d9c620dc6242c271fbbcdc645c (diff) | |
| download | haskell-1cc96d54144f34f620e31d2dee133d17a2367610.tar.gz | |
Remove redundant cmmMakeDynamicReference' wrapper
Diffstat (limited to 'compiler/nativeGen/PIC.hs')
| -rw-r--r-- | compiler/nativeGen/PIC.hs | 6 |
1 files changed, 2 insertions, 4 deletions
diff --git a/compiler/nativeGen/PIC.hs b/compiler/nativeGen/PIC.hs index e46a823eaa..0187c4c410 100644 --- a/compiler/nativeGen/PIC.hs +++ b/compiler/nativeGen/PIC.hs @@ -97,7 +97,7 @@ data ReferenceKind deriving(Eq) -cmmMakeDynamicReference, cmmMakeDynamicReference' +cmmMakeDynamicReference :: Monad m => DynFlags -> (CLabel -> m ()) -- a monad & a function -- used for recording imported symbols @@ -105,9 +105,7 @@ cmmMakeDynamicReference, cmmMakeDynamicReference' -> CLabel -- the label -> m CmmExpr -cmmMakeDynamicReference = cmmMakeDynamicReference' - -cmmMakeDynamicReference' dflags addImport referenceKind lbl +cmmMakeDynamicReference dflags addImport referenceKind lbl | Just _ <- dynamicLinkerLabelInfo lbl = return $ CmmLit $ CmmLabel lbl -- already processed it, pass through |