diff options
Diffstat (limited to 'libraries/base/GHC/StaticPtr.hs')
-rw-r--r-- | libraries/base/GHC/StaticPtr.hs | 9 |
1 files changed, 1 insertions, 8 deletions
diff --git a/libraries/base/GHC/StaticPtr.hs b/libraries/base/GHC/StaticPtr.hs index 9a1e1232bb..5ec74c63eb 100644 --- a/libraries/base/GHC/StaticPtr.hs +++ b/libraries/base/GHC/StaticPtr.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE ExistentialQuantification #-} {-# LANGUAGE MagicHash #-} {-# LANGUAGE UnboxedTuples #-} @@ -57,17 +56,11 @@ import GHC.Prim import GHC.Word (Word64(..)) -#include "MachDeps.h" - -- | A reference to a value of type @a@. -#if WORD_SIZE_IN_BITS < 64 data StaticPtr a = StaticPtr Word64# Word64# -- The flattened Fingerprint is -- convenient in the compiler. StaticPtrInfo a -#else -data StaticPtr a = StaticPtr Word# Word# - StaticPtrInfo a -#endif + -- | Dereferences a static pointer. deRefStaticPtr :: StaticPtr a -> a deRefStaticPtr (StaticPtr _ _ _ v) = v |