X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Frts%2FPrimOps.hc;h=1f48c3b1103831de478a3b682baf61a2a9f80a8a;hb=9c370d695ac7b7b7108440b028b017459ae5ef02;hp=e9ed855ef0391ec5900f5b5e7888559eb3522d5e;hpb=60741e4205e743fc99d50f707c61db93d1372bc8;p=ghc-hetmet.git diff --git a/ghc/rts/PrimOps.hc b/ghc/rts/PrimOps.hc index e9ed855..1f48c3b 100644 --- a/ghc/rts/PrimOps.hc +++ b/ghc/rts/PrimOps.hc @@ -1,5 +1,5 @@ /* ----------------------------------------------------------------------------- - * $Id: PrimOps.hc,v 1.35 1999/12/01 14:34:38 simonmar Exp $ + * $Id: PrimOps.hc,v 1.36 1999/12/08 14:21:52 simonmar Exp $ * * (c) The GHC Team, 1998-1999 * @@ -704,10 +704,13 @@ FN_(name) \ FE_ \ } -GMP_TAKE2_RET1(plusIntegerzh_fast, mpz_add); -GMP_TAKE2_RET1(minusIntegerzh_fast, mpz_sub); -GMP_TAKE2_RET1(timesIntegerzh_fast, mpz_mul); -GMP_TAKE2_RET1(gcdIntegerzh_fast, mpz_gcd); +GMP_TAKE2_RET1(plusIntegerzh_fast, mpz_add); +GMP_TAKE2_RET1(minusIntegerzh_fast, mpz_sub); +GMP_TAKE2_RET1(timesIntegerzh_fast, mpz_mul); +GMP_TAKE2_RET1(gcdIntegerzh_fast, mpz_gcd); +GMP_TAKE2_RET1(quotIntegerzh_fast, mpz_tdiv_q); +GMP_TAKE2_RET1(remIntegerzh_fast, mpz_tdiv_r); +GMP_TAKE2_RET1(divExactIntegerzh_fast, mpz_divexact); GMP_TAKE2_RET2(quotRemIntegerzh_fast, mpz_tdiv_qr); GMP_TAKE2_RET2(divModIntegerzh_fast, mpz_fdiv_qr);