Repository : http://darcs.haskell.org/ghc.git/
On branch : master https://github.com/ghc/ghc/commit/1cc96d54144f34f620e31d2dee133d17a2367610 >--------------------------------------------------------------- commit 1cc96d54144f34f620e31d2dee133d17a2367610 Author: Ian Lynagh <[email protected]> Date: Mon May 13 19:12:03 2013 +0100 Remove redundant cmmMakeDynamicReference' wrapper >--------------------------------------------------------------- compiler/nativeGen/PIC.hs | 6 ++---- 1 file changed, 2 insertions(+), 4 deletions(-) diff --git a/compiler/nativeGen/PIC.hs b/compiler/nativeGen/PIC.hs index e46a823..0187c4c 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 _______________________________________________ ghc-commits mailing list [email protected] http://www.haskell.org/mailman/listinfo/ghc-commits
