/usr/share/ada/adainclude/gmpada/gmp_macros.c is in libgmpada5-dev 0.0.20131223-3+b1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 | // GMPAda, binding to the Ada Language for the GNU MultiPrecision library.
// Copyright (C) 2007-2010 Nicolas Boulenguez <nicolas.boulenguez@free.fr>
//
// This program is free software: you can redistribute it and/or modify
// it under the terms of the GNU General Public License as published by
// the Free Software Foundation, either version 3 of the License, or
// (at your option) any later version.
//
// This program is distributed in the hope that it will be useful,
// but WITHOUT ANY WARRANTY; without even the implied warranty of
// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
// GNU General Public License for more details.
//
// You should have received a copy of the GNU General Public License
// along with this program. If not, see <http://www.gnu.org/licenses/>.
#include <gmp.h>
inline int gmp_macro_mpz_cmp_si (mpz_t op1,
signed long int op2)
{
return mpz_cmp_si (op1, op2);
}
inline int gmp_macro_mpz_cmp_ui (mpz_t op1,
unsigned long int op2)
{
return mpz_cmp_ui (op1, op2);
}
inline int gmp_macro_mpz_sgn (mpz_t op)
{
return mpz_sgn (op);
}
inline int gmp_macro_mpz_odd_p (mpz_t op)
{
return mpz_odd_p (op);
}
inline int gmp_macro_mpz_even_p (mpz_t op)
{
return mpz_even_p (op);
}
inline int gmp_macro_mpq_cmp_ui (mpq_t op1,
unsigned long int num2,
unsigned long int den2)
{
return mpq_cmp_ui (op1, num2, den2);
}
inline int gmp_macro_mpq_cmp_si (mpq_t op1,
long int num2,
unsigned long int den2)
{
return mpq_cmp_si (op1, num2, den2);
}
inline void* gmp_macro_mpq_numref (mpq_t op)
{
return mpq_numref (op);
}
inline void* gmp_macro_mpq_denref (mpq_t op)
{
return mpq_denref (op);
}
inline int gmp_macro_mpq_sgn (mpq_t op)
{
return mpq_sgn (op);
}
inline int gmp_macro_mpz_kronecker (mpz_t a, mpz_t b)
{
return mpz_kronecker (a, b);
}
inline int gmp_macro_mpf_sgn (mpf_t op)
{
return mpf_sgn (op);
}
|