[project @ 2001-01-17 12:14:30 by simonmar]

[ghc-hetmet.git] / ghc / rts / gmp / gmp-impl.h

diff --git a/ghc/rts/gmp/gmp-impl.h b/ghc/rts/gmp/gmp-impl.h
index 878b144..3d130d2 100644 (file)
--- a/ghc/rts/gmp/gmp-impl.h
+++ b/ghc/rts/gmp/gmp-impl.h
@@ -250,7 +250,6 @@ void mpn_copyi _PROTO ((mp_ptr, mp_srcptr, mp_size_t));
 
 #define mpn_sb_divrem_mn       __MPN(sb_divrem_mn)
 #define mpn_bz_divrem_n                __MPN(bz_divrem_n)
-#define mpn_tdiv_qr            __MPN(tdiv_qr)
 /* #define mpn_tdiv_q          __MPN(tdiv_q) */
 
 #define mpn_kara_mul_n __MPN(kara_mul_n)
@@ -284,7 +283,6 @@ mp_size_t mpn_fft_next_size _PROTO ((mp_size_t pl, int k));
 
 mp_limb_t mpn_sb_divrem_mn _PROTO ((mp_ptr, mp_ptr, mp_size_t, mp_srcptr, mp_size_t));
 mp_limb_t mpn_bz_divrem_n _PROTO ((mp_ptr, mp_ptr, mp_srcptr, mp_size_t));
-void mpn_tdiv_qr _PROTO ((mp_ptr, mp_ptr, mp_size_t, mp_srcptr, mp_size_t, mp_srcptr, mp_size_t));
 /* void mpn_tdiv_q _PROTO ((mp_ptr, mp_size_t, mp_srcptr, mp_size_t, mp_srcptr, mp_size_t)); */
 
 /* Copy NLIMBS *limbs* from SRC to DST, NLIMBS==0 allowed.  */
@@ -550,7 +548,7 @@ void mpn_com_n _PROTO ((mp_ptr, mp_srcptr, mp_size_t));
       mp_srcptr  __s = (s);     \
       mp_size_t  __n = (n);     \
       do                        \
-        *__d++ = *__s++;        \
+        *__d++ = ~ *__s++;      \
       while (--__n);            \
     }                           \
   while (0)