[project @ 2001-07-23 17:28:33 by simonmar]

[ghc-hetmet.git] / ghc / rts / PrimOps.hc

diff --git a/ghc/rts/PrimOps.hc b/ghc/rts/PrimOps.hc
index 9c59110..8b4946c 100644 (file)
--- a/ghc/rts/PrimOps.hc
+++ b/ghc/rts/PrimOps.hc
@@ -1,5 +1,5 @@
 /* -----------------------------------------------------------------------------
- * $Id: PrimOps.hc,v 1.80 2001/07/23 17:23:19 simonmar Exp $
+ * $Id: PrimOps.hc,v 1.81 2001/07/23 17:28:33 simonmar Exp $
  *
  * (c) The GHC Team, 1998-2000
  *
@@ -594,23 +594,8 @@ FN_(word64ToIntegerzh_fast)
    FE_
 }
 
-#elif SIZEOF_VOID_P == 8
 
-FN_(word64ToIntegerzh_fast)
-{
-  FB_
-  JMP_(wordToIntegerzh_fast);
-  FE_
-}
-
-FN_(int64ToIntegerzh_fast)
-{
-  FB_
-  JMP_(intToIntegerzh_fast);
-  FE_
-}
-
-#endif /* SUPPORT_LONG_LONGS || SIZEOF_VOID_P == 8 */
+#endif /* HAVE_LONG_LONG */
 
 /* ToDo: this is shockingly inefficient */