/* Copyright (C) 2009 William Hart This file is part of FLINT. FLINT is free software: you can redistribute it and/or modify it under the terms of the GNU Lesser General Public License (LGPL) as published by the Free Software Foundation; either version 2.1 of the License, or (at your option) any later version. See . */ #include #include "flint.h" #include "ulong_extras.h" #include "fmpz.h" void fmpz_addmul(fmpz_t f, const fmpz_t g, const fmpz_t h) { fmpz c1, c2; __mpz_struct * mpz_ptr; c1 = *g; if (!COEFF_IS_MPZ(c1)) /* g is small */ { if (c1 < WORD(0)) fmpz_submul_ui(f, h, -c1); else fmpz_addmul_ui(f, h, c1); return; } c2 = *h; if (!COEFF_IS_MPZ(c2)) /* h is small */ { if (c2 < WORD(0)) fmpz_submul_ui(f, g, -c2); else fmpz_addmul_ui(f, g, c2); return; } /* both g and h are large */ mpz_ptr = _fmpz_promote_val(f); mpz_addmul(mpz_ptr, COEFF_TO_PTR(c1), COEFF_TO_PTR(c2)); _fmpz_demote_val(f); /* cancellation may have occurred */ }