X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Frts%2Fgmp%2Fgmp-impl.h;h=3d130d2f7f643ee5218c2215cc1eb8bfb9ec6f13;hb=8cd0553fbfa995657b3a570766749d4ec4fce3a3;hp=878b144acbfbac940595584c290094733acfa03a;hpb=5de39aa0868d6ff8528a533ef19e42d1a583bc12;p=ghc-hetmet.git

diff --git a/ghc/rts/gmp/gmp-impl.h b/ghc/rts/gmp/gmp-impl.h
index 878b144..3d130d2 100644
--- 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)