Remove some __HADDOCK__ CPP
authorIan Lynagh <ian@well-typed.com>
Tue, 9 Apr 2013 10:58:45 +0000 (11:58 +0100)
committerIan Lynagh <ian@well-typed.com>
Tue, 9 Apr 2013 10:58:45 +0000 (11:58 +0100)
I think these are all redundant, now that haddock uses the GHC API

compiler/HsVersions.h
compiler/ghci/ByteCodeItbls.lhs
compiler/utils/FastString.lhs

index 9a83af9..bd28c69 100644 (file)
@@ -24,7 +24,6 @@ you will screw up the layout where they are used in case expressions!
 
 /* Global variables may not work in other Haskell implementations,
  * but we need them currently! so the conditional on GLASGOW won't do. */
-#ifndef __HADDOCK__
 #if defined(__GLASGOW_HASKELL__) || !defined(__GLASGOW_HASKELL__)
 #define GLOBAL_VAR(name,value,ty)  \
 {-# NOINLINE name #-};             \
@@ -36,15 +35,6 @@ name = Util.global (value);
 name :: IORef (ty);                 \
 name = Util.globalM (value);
 #endif
-#else /* __HADDOCK__ */
-#define GLOBAL_VAR(name,value,ty)  \
-name :: IORef (ty);                \
-name = Util.global (value);
-
-#define GLOBAL_VAR_M(name,value,ty) \
-name :: IORef (ty);                 \
-name = Util.globalM (value);
-#endif
 
 #define ASSERT(e)      if debugIsOn && not (e) then (assertPanic __FILE__ __LINE__) else
 #define ASSERT2(e,msg) if debugIsOn && not (e) then (assertPprPanic __FILE__ __LINE__ (msg)) else
index c79e08d..72b8fa5 100644 (file)
@@ -263,10 +263,8 @@ byte6 w = fromIntegral (w `shiftR` 48)
 byte7 w = fromIntegral (w `shiftR` 56)
 #endif
 
-#ifndef __HADDOCK__
 -- entry point for direct returns for created constr itbls
 foreign import ccall "&stg_interp_constr_entry" stg_interp_constr_entry :: Ptr ()
-#endif
 
 
 
index 1eeab0f..36b1b1e 100644 (file)
@@ -207,10 +207,8 @@ cmpFS f1@(FastString u1 _ _ _) f2@(FastString u2 _ _ _) =
   if u1 == u2 then EQ else
   compare (fastStringToByteString f1) (fastStringToByteString f2)
 
-#ifndef __HADDOCK__
 foreign import ccall unsafe "ghc_memcmp"
   memcmp :: Ptr a -> Ptr b -> Int -> IO Int
-#endif
 
 -- -----------------------------------------------------------------------------
 -- Construction