X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=compiler%2FnativeGen%2FPIC.hs;fp=compiler%2FnativeGen%2FPIC.hs;h=b49748083435b9bea48ddb9d06693b256669cc88;hb=8ae8c865716e0ee03383ddfae58ab778ce527412;hp=a573b6b5db866ae1d552846d2f7b3ca1e7c36aa3;hpb=23cb13ad4de8021cfba9644cf1e993df99a4f4c1;p=ghc-hetmet.git

diff --git a/compiler/nativeGen/PIC.hs b/compiler/nativeGen/PIC.hs
index a573b6b..b497480 100644
--- a/compiler/nativeGen/PIC.hs
+++ b/compiler/nativeGen/PIC.hs
@@ -69,7 +69,7 @@ import CLabel           ( CLabel, ForeignLabelSource(..), pprCLabel,
                           dynamicLinkerLabelInfo, mkPicBaseLabel,
                           labelDynamic, externallyVisibleCLabel )
 
-import CLabel           ( mkForeignLabel, pprDebugCLabel )
+import CLabel           ( mkForeignLabel )
 
 
 import StaticFlags	( opt_PIC, opt_Static )
@@ -104,7 +104,7 @@ data ReferenceKind
         deriving(Eq)
 
 
-cmmMakeDynamicReference
+cmmMakeDynamicReference, cmmMakeDynamicReference'
   :: Monad m => DynFlags
              -> (CLabel -> m ())  -- a monad & a function
                                   -- used for recording imported symbols
@@ -112,9 +112,7 @@ cmmMakeDynamicReference
              -> CLabel            -- the label
              -> m CmmExpr
 
-cmmMakeDynamicReference dflags addImport referenceKind lbl
-   = cmmMakeDynamicReference' dflags addImport referenceKind lbl
-
+cmmMakeDynamicReference = cmmMakeDynamicReference'
   
 cmmMakeDynamicReference' dflags addImport referenceKind lbl
   | Just _ <- dynamicLinkerLabelInfo lbl