set_ui.c revision 1.1.1.3 1 1.1 mrg /* mpq_set_ui(dest,ulong_num,ulong_den) -- Set DEST to the rational number
2 1.1 mrg ULONG_NUM/ULONG_DEN.
3 1.1 mrg
4 1.1.1.3 mrg Copyright 1991, 1994, 1995, 2001-2003 Free Software Foundation, Inc.
5 1.1 mrg
6 1.1 mrg This file is part of the GNU MP Library.
7 1.1 mrg
8 1.1 mrg The GNU MP Library is free software; you can redistribute it and/or modify
9 1.1.1.3 mrg it under the terms of either:
10 1.1.1.3 mrg
11 1.1.1.3 mrg * the GNU Lesser General Public License as published by the Free
12 1.1.1.3 mrg Software Foundation; either version 3 of the License, or (at your
13 1.1.1.3 mrg option) any later version.
14 1.1.1.3 mrg
15 1.1.1.3 mrg or
16 1.1.1.3 mrg
17 1.1.1.3 mrg * the GNU General Public License as published by the Free Software
18 1.1.1.3 mrg Foundation; either version 2 of the License, or (at your option) any
19 1.1.1.3 mrg later version.
20 1.1.1.3 mrg
21 1.1.1.3 mrg or both in parallel, as here.
22 1.1 mrg
23 1.1 mrg The GNU MP Library is distributed in the hope that it will be useful, but
24 1.1 mrg WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY
25 1.1.1.3 mrg or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
26 1.1.1.3 mrg for more details.
27 1.1 mrg
28 1.1.1.3 mrg You should have received copies of the GNU General Public License and the
29 1.1.1.3 mrg GNU Lesser General Public License along with the GNU MP Library. If not,
30 1.1.1.3 mrg see https://www.gnu.org/licenses/. */
31 1.1 mrg
32 1.1 mrg #include "gmp.h"
33 1.1 mrg #include "gmp-impl.h"
34 1.1 mrg
35 1.1 mrg void
36 1.1.1.3 mrg mpq_set_ui (mpq_t dest, unsigned long int num, unsigned long int den)
37 1.1 mrg {
38 1.1 mrg if (GMP_NUMB_BITS < BITS_PER_ULONG)
39 1.1 mrg {
40 1.1 mrg if (num == 0) /* Canonicalize 0/d to 0/1. */
41 1.1 mrg den = 1;
42 1.1 mrg mpz_set_ui (mpq_numref (dest), num);
43 1.1 mrg mpz_set_ui (mpq_denref (dest), den);
44 1.1 mrg return;
45 1.1 mrg }
46 1.1 mrg
47 1.1 mrg if (num == 0)
48 1.1 mrg {
49 1.1 mrg /* Canonicalize 0/n to 0/1. */
50 1.1 mrg den = 1;
51 1.1.1.2 mrg SIZ(NUM(dest)) = 0;
52 1.1 mrg }
53 1.1 mrg else
54 1.1 mrg {
55 1.1.1.2 mrg PTR(NUM(dest))[0] = num;
56 1.1.1.2 mrg SIZ(NUM(dest)) = 1;
57 1.1 mrg }
58 1.1 mrg
59 1.1.1.2 mrg PTR(DEN(dest))[0] = den;
60 1.1.1.2 mrg SIZ(DEN(dest)) = (den != 0);
61 1.1 mrg }
62