Skip to content

Instantly share code, notes, and snippets.

@ytomino
Last active March 17, 2022 03:37
Show Gist options
  • Save ytomino/d418e56c20f88ca129eff2167b1025ca to your computer and use it in GitHub Desktop.
Save ytomino/d418e56c20f88ca129eff2167b1025ca to your computer and use it in GitHub Desktop.
GMP, MPFR, and MPC in x86_64-linux-gnu
-- This file is translated by "headmaster" version 0.31-1157199 (devel).
-- The original C header's license should be applied to this file.
-- All conditional-directives are expanded for the exclusive use of your
-- environment, it is not recommended to commit this file to any repository.
-------------------------------------------------------------------------------
with C.stddef;
package C.alloca is
pragma Preelaborate;
function alloca (size : stddef.size_t) return void_ptr;
pragma Import (C, alloca, "alloca");
ALLOCA_H : constant := 1;
end C.alloca;
-- This file is translated by "headmaster" version 0.31-1157199 (devel).
-- The original C header's license should be applied to this file.
-- All conditional-directives are expanded for the exclusive use of your
-- environment, it is not recommended to commit this file to any repository.
-------------------------------------------------------------------------------
package body C.bits.byteswap is
function bswap_32 (bsx : unsigned_int) return unsigned_int is
begin
return builtin_bswap32 (bsx);
end bswap_32;
function bswap_64 (bsx : types.uint64_t) return types.uint64_t is
begin
return types.uint64_t (builtin_bswap64 (unsigned_long_long (bsx)));
end bswap_64;
end C.bits.byteswap;
-- This file is translated by "headmaster" version 0.31-1157199 (devel).
-- The original C header's license should be applied to this file.
-- All conditional-directives are expanded for the exclusive use of your
-- environment, it is not recommended to commit this file to any repository.
-------------------------------------------------------------------------------
with C.bits.types;
package C.bits.byteswap is
pragma Preelaborate;
function bswap_32 (bsx : unsigned_int) return unsigned_int;
pragma Convention (C, bswap_32);
pragma Inline (bswap_32);
function bswap_64 (bsx : types.uint64_t) return types.uint64_t;
pragma Convention (C, bswap_64);
pragma Inline (bswap_64);
BITS_BYTESWAP_H : constant := 1;
-- __bswap_constant_16 (function macro)
-- __bswap_constant_32 (function macro)
-- __bswap_constant_64 (function macro)
end C.bits.byteswap;
-- This file is translated by "headmaster" version 0.31-1157199 (devel).
-- The original C header's license should be applied to this file.
-- All conditional-directives are expanded for the exclusive use of your
-- environment, it is not recommended to commit this file to any repository.
-------------------------------------------------------------------------------
package C.bits.byteswap_16 is
pragma Preelaborate;
-- __bswap_16 (function macro)
end C.bits.byteswap_16;
-- This file is translated by "headmaster" version 0.31-1157199 (devel).
-- The original C header's license should be applied to this file.
-- All conditional-directives are expanded for the exclusive use of your
-- environment, it is not recommended to commit this file to any repository.
-------------------------------------------------------------------------------
package C.bits.endian is
pragma Preelaborate;
BYTE_ORDER : constant := 1234;
end C.bits.endian;
-- This file is translated by "headmaster" version 0.31-1157199 (devel).
-- The original C header's license should be applied to this file.
-- All conditional-directives are expanded for the exclusive use of your
-- environment, it is not recommended to commit this file to any repository.
-------------------------------------------------------------------------------
package C.bits.local_lim is
pragma Preelaborate;
AIO_PRIO_DELTA_MAX : constant := 20;
DELAYTIMER_MAX : constant := 2147483647;
HOST_NAME_MAX : constant := 64;
LOGIN_NAME_MAX : constant := 256;
MQ_PRIO_MAX : constant := 32768;
PTHREAD_DESTRUCTOR_ITERATIONS : constant := 4;
PTHREAD_KEYS_MAX : constant := 1024;
PTHREAD_STACK_MIN : constant := 16384;
SEM_VALUE_MAX : constant := 2147483647;
TTY_NAME_MAX : constant := 32;
POSIX_THREAD_DESTRUCTOR_ITERATIONS : constant := 4;
POSIX_THREAD_KEYS_MAX : constant := 128;
POSIX_THREAD_THREADS_MAX : constant := 64;
end C.bits.local_lim;
-- This file is translated by "headmaster" version 0.31-1157199 (devel).
-- The original C header's license should be applied to this file.
-- All conditional-directives are expanded for the exclusive use of your
-- environment, it is not recommended to commit this file to any repository.
-------------------------------------------------------------------------------
package C.bits.posix1_lim is
pragma Preelaborate;
SSIZE_MAX : constant := 9223372036854775807;
BITS_POSIX1_LIM_H : constant := 1;
POSIX_AIO_LISTIO_MAX : constant := 2;
POSIX_AIO_MAX : constant := 1;
POSIX_ARG_MAX : constant := 4096;
POSIX_CHILD_MAX : constant := 25;
POSIX_CLOCKRES_MIN : constant := 20000000;
POSIX_DELAYTIMER_MAX : constant := 32;
POSIX_HOST_NAME_MAX : constant := 255;
POSIX_LINK_MAX : constant := 8;
POSIX_LOGIN_NAME_MAX : constant := 9;
POSIX_MAX_CANON : constant := 255;
POSIX_MAX_INPUT : constant := 255;
POSIX_MQ_OPEN_MAX : constant := 8;
POSIX_MQ_PRIO_MAX : constant := 32;
POSIX_NAME_MAX : constant := 14;
POSIX_NGROUPS_MAX : constant := 8;
POSIX_OPEN_MAX : constant := 20;
POSIX_PATH_MAX : constant := 256;
POSIX_PIPE_BUF : constant := 512;
POSIX_RE_DUP_MAX : constant := 255;
POSIX_RTSIG_MAX : constant := 8;
POSIX_SEM_NSEMS_MAX : constant := 256;
POSIX_SEM_VALUE_MAX : constant := 32767;
POSIX_SIGQUEUE_MAX : constant := 32;
POSIX_SSIZE_MAX : constant := 32767;
POSIX_STREAM_MAX : constant := 8;
POSIX_SYMLINK_MAX : constant := 255;
POSIX_SYMLOOP_MAX : constant := 8;
POSIX_TIMER_MAX : constant := 32;
POSIX_TTY_NAME_MAX : constant := 9;
POSIX_TZNAME_MAX : constant := 6;
end C.bits.posix1_lim;
-- This file is translated by "headmaster" version 0.31-1157199 (devel).
-- The original C header's license should be applied to this file.
-- All conditional-directives are expanded for the exclusive use of your
-- environment, it is not recommended to commit this file to any repository.
-------------------------------------------------------------------------------
package C.bits.posix2_lim is
pragma Preelaborate;
BC_BASE_MAX : constant := 99;
BC_DIM_MAX : constant := 2048;
BC_SCALE_MAX : constant := 99;
BC_STRING_MAX : constant := 1000;
CHARCLASS_NAME_MAX : constant := 2048;
COLL_WEIGHTS_MAX : constant := 255;
EXPR_NEST_MAX : constant := 32;
LINE_MAX : constant := 2048;
RE_DUP_MAX : constant := 32767;
BITS_POSIX2_LIM_H : constant := 1;
POSIX2_BC_BASE_MAX : constant := 99;
POSIX2_BC_DIM_MAX : constant := 2048;
POSIX2_BC_SCALE_MAX : constant := 99;
POSIX2_BC_STRING_MAX : constant := 1000;
POSIX2_CHARCLASS_NAME_MAX : constant := 14;
POSIX2_COLL_WEIGHTS_MAX : constant := 2;
POSIX2_EXPR_NEST_MAX : constant := 32;
POSIX2_LINE_MAX : constant := 2048;
POSIX2_RE_DUP_MAX : constant := 255;
end C.bits.posix2_lim;
-- This file is translated by "headmaster" version 0.31-1157199 (devel).
-- The original C header's license should be applied to this file.
-- All conditional-directives are expanded for the exclusive use of your
-- environment, it is not recommended to commit this file to any repository.
-------------------------------------------------------------------------------
package C.bits.pthreadtypes is
pragma Preelaborate;
subtype pthread_t is unsigned_long;
type union_pthread_attr_t;
type union_pthread_attr_t (Unchecked_Tag : unsigned_int := 0) is record
case Unchecked_Tag is
when 0 =>
size : char_array (0 .. 55);
when others =>
align : signed_long;
end case;
end record;
pragma Unchecked_Union (union_pthread_attr_t);
pragma Convention (C_Pass_By_Copy, union_pthread_attr_t);
subtype pthread_attr_t is union_pthread_attr_t;
type struct_pthread_internal_list;
type struct_pthread_internal_list_ptr is
access all struct_pthread_internal_list;
for struct_pthread_internal_list_ptr'Storage_Size use 0;
pragma No_Strict_Aliasing (struct_pthread_internal_list_ptr);
pragma Convention (C, struct_pthread_internal_list_ptr);
type struct_pthread_internal_list is record
prev : aliased struct_pthread_internal_list_ptr;
next : aliased struct_pthread_internal_list_ptr;
end record;
pragma Convention (C_Pass_By_Copy, struct_pthread_internal_list);
subtype pthread_list_t is struct_pthread_internal_list;
type struct_pthread_mutex_s;
type struct_pthread_mutex_s is record
lock : aliased signed_int;
count : aliased unsigned_int;
owner : aliased signed_int;
nusers : aliased unsigned_int;
kind : aliased signed_int;
spins : aliased signed_short;
elision : aliased signed_short;
list : aliased pthread_list_t;
end record;
pragma Convention (C_Pass_By_Copy, struct_pthread_mutex_s);
type union_3e18a114 (Unchecked_Tag : unsigned_int := 0) is record
case Unchecked_Tag is
when 0 =>
data : struct_pthread_mutex_s;
when 1 =>
size : char_array (0 .. 39);
when others =>
align : signed_long;
end case;
end record;
pragma Unchecked_Union (union_3e18a114);
pragma Convention (C_Pass_By_Copy, union_3e18a114);
subtype pthread_mutex_t is union_3e18a114;
type union_2d30f3ed (Unchecked_Tag : unsigned_int := 0) is record
case Unchecked_Tag is
when 0 =>
size : char_array (0 .. 3);
when others =>
align : signed_int;
end case;
end record;
pragma Unchecked_Union (union_2d30f3ed);
pragma Convention (C_Pass_By_Copy, union_2d30f3ed);
subtype pthread_mutexattr_t is union_2d30f3ed;
type struct_847975c1 is record
lock : aliased signed_int;
futex : aliased unsigned_int;
total_seq : aliased unsigned_long_long;
wakeup_seq : aliased unsigned_long_long;
woken_seq : aliased unsigned_long_long;
mutex : aliased void_ptr;
nwaiters : aliased unsigned_int;
broadcast_seq : aliased unsigned_int;
end record;
pragma Convention (C_Pass_By_Copy, struct_847975c1);
type union_766df38e (Unchecked_Tag : unsigned_int := 0) is record
case Unchecked_Tag is
when 0 =>
data : struct_847975c1;
when 1 =>
size : char_array (0 .. 47);
when others =>
align : signed_long_long;
end case;
end record;
pragma Unchecked_Union (union_766df38e);
pragma Convention (C_Pass_By_Copy, union_766df38e);
subtype pthread_cond_t is union_766df38e;
type union_e59bda7b (Unchecked_Tag : unsigned_int := 0) is record
case Unchecked_Tag is
when 0 =>
size : char_array (0 .. 3);
when others =>
align : signed_int;
end case;
end record;
pragma Unchecked_Union (union_e59bda7b);
pragma Convention (C_Pass_By_Copy, union_e59bda7b);
subtype pthread_condattr_t is union_e59bda7b;
subtype pthread_key_t is unsigned_int;
subtype pthread_once_t is signed_int;
type struct_47627da9 is record
lock : aliased signed_int;
nr_readers : aliased unsigned_int;
readers_wakeup : aliased unsigned_int;
writer_wakeup : aliased unsigned_int;
nr_readers_queued : aliased unsigned_int;
nr_writers_queued : aliased unsigned_int;
writer : aliased signed_int;
shared : aliased signed_int;
rwelision : aliased signed_char;
pad1 : aliased unsigned_char_array (0 .. 6);
pad2 : aliased unsigned_long;
flags : aliased unsigned_int;
end record;
pragma Convention (C_Pass_By_Copy, struct_47627da9);
type union_74237cad (Unchecked_Tag : unsigned_int := 0) is record
case Unchecked_Tag is
when 0 =>
data : struct_47627da9;
when 1 =>
size : char_array (0 .. 55);
when others =>
align : signed_long;
end case;
end record;
pragma Unchecked_Union (union_74237cad);
pragma Convention (C_Pass_By_Copy, union_74237cad);
subtype pthread_rwlock_t is union_74237cad;
type union_9074c3a7 (Unchecked_Tag : unsigned_int := 0) is record
case Unchecked_Tag is
when 0 =>
size : char_array (0 .. 7);
when others =>
align : signed_long;
end case;
end record;
pragma Unchecked_Union (union_9074c3a7);
pragma Convention (C_Pass_By_Copy, union_9074c3a7);
subtype pthread_rwlockattr_t is union_9074c3a7;
subtype pthread_spinlock_t is signed_int_volatile;
type union_76b18b58 (Unchecked_Tag : unsigned_int := 0) is record
case Unchecked_Tag is
when 0 =>
size : char_array (0 .. 31);
when others =>
align : signed_long;
end case;
end record;
pragma Unchecked_Union (union_76b18b58);
pragma Convention (C_Pass_By_Copy, union_76b18b58);
subtype pthread_barrier_t is union_76b18b58;
type union_aa31c06f (Unchecked_Tag : unsigned_int := 0) is record
case Unchecked_Tag is
when 0 =>
size : char_array (0 .. 3);
when others =>
align : signed_int;
end case;
end record;
pragma Unchecked_Union (union_aa31c06f);
pragma Convention (C_Pass_By_Copy, union_aa31c06f);
subtype pthread_barrierattr_t is union_aa31c06f;
BITS_PTHREADTYPES_H : constant := 1;
PTHREAD_MUTEX_HAVE_PREV : constant := 1;
-- __PTHREAD_RWLOCK_ELISION_EXTRA (unparsible)
PTHREAD_RWLOCK_INT_FLAGS_SHARED : constant := 1;
-- __PTHREAD_SPINS (unparsible)
SIZEOF_PTHREAD_ATTR_T : constant := 56;
SIZEOF_PTHREAD_BARRIERATTR_T : constant := 4;
SIZEOF_PTHREAD_BARRIER_T : constant := 32;
SIZEOF_PTHREAD_CONDATTR_T : constant := 4;
SIZEOF_PTHREAD_COND_T : constant := 48;
SIZEOF_PTHREAD_MUTEXATTR_T : constant := 4;
SIZEOF_PTHREAD_MUTEX_T : constant := 40;
SIZEOF_PTHREAD_RWLOCKATTR_T : constant := 8;
SIZEOF_PTHREAD_RWLOCK_T : constant := 56;
have_pthread_attr_t : constant := 1;
end C.bits.pthreadtypes;
-- This file is translated by "headmaster" version 0.31-1157199 (devel).
-- The original C header's license should be applied to this file.
-- All conditional-directives are expanded for the exclusive use of your
-- environment, it is not recommended to commit this file to any repository.
-------------------------------------------------------------------------------
package C.bits.select_h is
pragma Preelaborate;
-- __FD_CLR (uninterpretable)
-- __FD_ISSET (uninterpretable)
-- __FD_SET (uninterpretable)
-- __FD_ZERO (uninterpretable)
FD_ZERO_STOS : constant char_array (0 .. 5) := "stosq" & char'Val (0);
end C.bits.select_h;
-- This file is translated by "headmaster" version 0.31-1157199 (devel).
-- The original C header's license should be applied to this file.
-- All conditional-directives are expanded for the exclusive use of your
-- environment, it is not recommended to commit this file to any repository.
-------------------------------------------------------------------------------
package C.bits.sigset is
pragma Preelaborate;
subtype sig_atomic_t is signed_int;
type struct_957100ca is record
val : aliased unsigned_long_array (0 .. 15);
end record;
pragma Convention (C_Pass_By_Copy, struct_957100ca);
type struct_957100ca_const_ptr is access constant struct_957100ca;
for struct_957100ca_const_ptr'Storage_Size use 0;
pragma No_Strict_Aliasing (struct_957100ca_const_ptr);
pragma Convention (C, struct_957100ca_const_ptr);
subtype sigset_t is struct_957100ca;
subtype sigset_t_const_ptr is struct_957100ca_const_ptr;
SIGSET_H_types : constant := 1;
SIGSET_NWORDS : constant := 16;
end C.bits.sigset;
-- This file is translated by "headmaster" version 0.31-1157199 (devel).
-- The original C header's license should be applied to this file.
-- All conditional-directives are expanded for the exclusive use of your
-- environment, it is not recommended to commit this file to any repository.
-------------------------------------------------------------------------------
with C.bits.types;
package C.bits.time is
pragma Preelaborate;
type struct_timeval;
type struct_timeval is record
tv_sec : aliased types.qqtime_t;
tv_usec : aliased types.suseconds_t;
end record;
pragma Convention (C_Pass_By_Copy, struct_timeval);
type struct_timeval_ptr is access all struct_timeval;
for struct_timeval_ptr'Storage_Size use 0;
pragma No_Strict_Aliasing (struct_timeval_ptr);
pragma Convention (C, struct_timeval_ptr);
qSTRUCT_TIMEVAL : constant := 1;
end C.bits.time;
-- This file is translated by "headmaster" version 0.31-1157199 (devel).
-- The original C header's license should be applied to this file.
-- All conditional-directives are expanded for the exclusive use of your
-- environment, it is not recommended to commit this file to any repository.
-------------------------------------------------------------------------------
package C.bits.types is
pragma Preelaborate;
subtype u_char is unsigned_char;
subtype u_short is unsigned_short;
subtype u_int is unsigned_int;
subtype u_long is unsigned_long;
subtype int8_t is signed_char;
subtype uint8_t is unsigned_char;
subtype int16_t is signed_short;
subtype uint16_t is unsigned_short;
subtype int32_t is signed_int;
subtype uint32_t is unsigned_int;
subtype int64_t is signed_long;
subtype uint64_t is unsigned_long;
subtype quad_t is signed_long;
subtype quad_t_ptr is signed_long_ptr;
subtype u_quad_t is unsigned_long;
subtype dev_t is unsigned_long;
subtype uid_t is unsigned_int;
subtype gid_t is unsigned_int;
subtype ino_t is unsigned_long;
subtype ino64_t is unsigned_long;
subtype mode_t is unsigned_int;
subtype nlink_t is unsigned_long;
subtype off_t is signed_long;
subtype off64_t is signed_long;
subtype pid_t is signed_int;
type struct_47879b65 is record
val : aliased signed_int_array (0 .. 1);
end record;
pragma Convention (C_Pass_By_Copy, struct_47879b65);
subtype fsid_t is struct_47879b65;
subtype qqclock_t is signed_long;
subtype rlim_t is unsigned_long;
subtype rlim64_t is unsigned_long;
subtype id_t is unsigned_int;
subtype qqtime_t is signed_long;
subtype useconds_t is unsigned_int;
subtype suseconds_t is signed_long;
subtype daddr_t is signed_int;
subtype key_t is signed_int;
subtype qqclockid_t is signed_int;
subtype qqtimer_t is void_ptr;
subtype blksize_t is signed_long;
subtype blkcnt_t is signed_long;
subtype blkcnt64_t is signed_long;
subtype fsblkcnt_t is unsigned_long;
subtype fsblkcnt64_t is unsigned_long;
subtype fsfilcnt_t is unsigned_long;
subtype fsfilcnt64_t is unsigned_long;
subtype fsword_t is signed_long;
subtype ssize_t is signed_long;
subtype syscall_slong_t is signed_long;
subtype syscall_ulong_t is unsigned_long;
subtype loff_t is off64_t;
subtype qaddr_t is quad_t_ptr;
subtype caddr_t is char_ptr;
subtype intptr_t is signed_long;
subtype socklen_t is unsigned_int;
BITS_TYPES_H : constant := 1;
subtype S16_TYPE is signed_short;
subtype S32_TYPE is signed_int;
subtype S64_TYPE is signed_long;
subtype SLONG32_TYPE is signed_int;
subtype SLONGWORD_TYPE is signed_long;
subtype SQUAD_TYPE is signed_long;
subtype SWORD_TYPE is signed_long;
subtype U16_TYPE is unsigned_short;
subtype U32_TYPE is unsigned_int;
subtype U64_TYPE is unsigned_long;
subtype ULONG32_TYPE is unsigned_int;
subtype ULONGWORD_TYPE is unsigned_long;
subtype UQUAD_TYPE is unsigned_long;
subtype UWORD_TYPE is unsigned_long;
end C.bits.types;
-- This file is translated by "headmaster" version 0.31-1157199 (devel).
-- The original C header's license should be applied to this file.
-- All conditional-directives are expanded for the exclusive use of your
-- environment, it is not recommended to commit this file to any repository.
-------------------------------------------------------------------------------
package C.bits.typesizes is
pragma Preelaborate;
BITS_TYPESIZES_H : constant := 1;
subtype BLKCNT64_T_TYPE is signed_long;
subtype BLKCNT_T_TYPE is signed_long;
subtype BLKSIZE_T_TYPE is signed_long;
subtype CLOCKID_T_TYPE is signed_int;
subtype CLOCK_T_TYPE is signed_long;
subtype CPU_MASK_TYPE is unsigned_long;
subtype DADDR_T_TYPE is signed_int;
subtype DEV_T_TYPE is unsigned_long;
FD_SETSIZE : constant := 1024;
subtype FSBLKCNT64_T_TYPE is unsigned_long;
subtype FSBLKCNT_T_TYPE is unsigned_long;
subtype FSFILCNT64_T_TYPE is unsigned_long;
subtype FSFILCNT_T_TYPE is unsigned_long;
type struct_356c0c7a is record
val : aliased signed_int_array (0 .. 1);
end record;
pragma Convention (C_Pass_By_Copy, struct_356c0c7a);
subtype FSID_T_TYPE is struct_356c0c7a;
subtype FSWORD_T_TYPE is signed_long;
subtype GID_T_TYPE is unsigned_int;
subtype ID_T_TYPE is unsigned_int;
subtype INO64_T_TYPE is unsigned_long;
INO_T_MATCHES_INO64_T : constant := 1;
subtype INO_T_TYPE is unsigned_long;
subtype KEY_T_TYPE is signed_int;
subtype MODE_T_TYPE is unsigned_int;
subtype NLINK_T_TYPE is unsigned_long;
subtype OFF64_T_TYPE is signed_long;
OFF_T_MATCHES_OFF64_T : constant := 1;
subtype OFF_T_TYPE is signed_long;
subtype PID_T_TYPE is signed_int;
subtype RLIM64_T_TYPE is unsigned_long;
subtype RLIM_T_TYPE is unsigned_long;
subtype SSIZE_T_TYPE is signed_long;
subtype SUSECONDS_T_TYPE is signed_long;
subtype SYSCALL_SLONG_TYPE is signed_long;
subtype SYSCALL_ULONG_TYPE is unsigned_long;
-- __TIMER_T_TYPE (unparsible)
subtype TIME_T_TYPE is signed_long;
subtype UID_T_TYPE is unsigned_int;
subtype USECONDS_T_TYPE is unsigned_int;
end C.bits.typesizes;
-- This file is translated by "headmaster" version 0.31-1157199 (devel).
-- The original C header's license should be applied to this file.
-- All conditional-directives are expanded for the exclusive use of your
-- environment, it is not recommended to commit this file to any repository.
-------------------------------------------------------------------------------
package C.bits.waitflags is
pragma Preelaborate;
type enum_08338385 is (P_ALL, P_PID, P_PGID);
for enum_08338385 use (P_ALL => 0, P_PID => 1, P_PGID => 2);
pragma Convention (C, enum_08338385);
subtype idtype_t is enum_08338385;
WCONTINUED : constant := 8;
WEXITED : constant := 4;
WNOHANG : constant := 1;
WNOWAIT : constant := 16777216;
WSTOPPED : constant := 2;
WUNTRACED : constant := 2;
ENUM_IDTYPE_T : constant := 1;
WALL : constant := 1073741824;
WCLONE : constant := -2147483648;
WNOTHREAD : constant := 536870912;
end C.bits.waitflags;
-- This file is translated by "headmaster" version 0.31-1157199 (devel).
-- The original C header's license should be applied to this file.
-- All conditional-directives are expanded for the exclusive use of your
-- environment, it is not recommended to commit this file to any repository.
-------------------------------------------------------------------------------
package C.bits.waitstatus is
pragma Preelaborate;
-- __WCOREDUMP (function macro)
WCOREFLAG : constant := 128;
-- __WEXITSTATUS (function macro)
-- __WIFCONTINUED (function macro)
-- __WIFEXITED (function macro)
-- __WIFSIGNALED (function macro)
-- __WIFSTOPPED (function macro)
-- __WSTOPSIG (function macro)
-- __WTERMSIG (function macro)
W_CONTINUED : constant := 65535;
-- __W_EXITCODE (function macro)
-- __W_STOPCODE (function macro)
end C.bits.waitstatus;
-- This file is translated by "headmaster" version 0.31-1157199 (devel).
-- The original C header's license should be applied to this file.
-- All conditional-directives are expanded for the exclusive use of your
-- environment, it is not recommended to commit this file to any repository.
-------------------------------------------------------------------------------
package C.bits.wchar is
pragma Preelaborate;
BITS_WCHAR_H : constant := 1;
WCHAR_MAX : constant := 2147483647;
WCHAR_MIN : constant := -2147483648;
end C.bits.wchar;
-- This file is translated by "headmaster" version 0.31-1157199 (devel).
-- The original C header's license should be applied to this file.
-- All conditional-directives are expanded for the exclusive use of your
-- environment, it is not recommended to commit this file to any repository.
-------------------------------------------------------------------------------
package C.bits.wordsize is
pragma Preelaborate;
SYSCALL_WORDSIZE : constant := 64;
WORDSIZE : constant := 64;
WORDSIZE_TIME64_COMPAT32 : constant := 1;
end C.bits.wordsize;
-- This file is translated by "headmaster" version 0.31-1157199 (devel).
-- The original C header's license should be applied to this file.
-- All conditional-directives are expanded for the exclusive use of your
-- environment, it is not recommended to commit this file to any repository.
-------------------------------------------------------------------------------
package C.bits is
pragma Preelaborate;
end C.bits;
-- This file is translated by "headmaster" version 0.31-1157199 (devel).
-- The original C header's license should be applied to this file.
-- All conditional-directives are expanded for the exclusive use of your
-- environment, it is not recommended to commit this file to any repository.
-------------------------------------------------------------------------------
package C.endian is
pragma Preelaborate;
BIG_ENDIAN : constant := 4321;
BYTE_ORDER : constant := 1234;
LITTLE_ENDIAN : constant := 1234;
PDP_ENDIAN : constant := 3412;
ENDIAN_H : constant := 1;
qqBIG_ENDIAN : constant := 4321;
FLOAT_WORD_ORDER : constant := 1234;
qqLITTLE_ENDIAN : constant := 1234;
-- __LONG_LONG_PAIR (function macro)
qqPDP_ENDIAN : constant := 3412;
-- be16toh (function macro)
-- be32toh (function macro)
-- be64toh (function macro)
-- htobe16 (function macro)
-- htobe32 (function macro)
-- htobe64 (function macro)
-- htole16 (function macro)
-- htole32 (function macro)
-- htole64 (function macro)
-- le16toh (function macro)
-- le32toh (function macro)
-- le64toh (function macro)
end C.endian;
-- This file is translated by "headmaster" version 0.31-1157199 (devel).
-- The original C header's license should be applied to this file.
-- All conditional-directives are expanded for the exclusive use of your
-- environment, it is not recommended to commit this file to any repository.
-------------------------------------------------------------------------------
package C.features is
pragma Preelaborate;
ATFILE_SOURCE : constant := 1;
DEFAULT_SOURCE : constant := 1;
FEATURES_H : constant := 1;
POSIX_C_SOURCE : constant := 200809;
POSIX_SOURCE : constant := 1;
qqGLIBC_MINORqq : constant := 24;
-- __GLIBC_PREREQ (function macro)
qqGLIBCqq : constant := 2;
-- __GNUC_PREREQ (function macro)
qqGNU_LIBRARYqq : constant := 6;
-- __KERNEL_STRICT_NAMES (empty)
USE_ATFILE : constant := 1;
USE_FORTIFY_LEVEL : constant := 0;
USE_ISOC95 : constant := 1;
USE_ISOC99 : constant := 1;
USE_MISC : constant := 1;
USE_POSIX : constant := 1;
USE_POSIX199309 : constant := 1;
USE_POSIX199506 : constant := 1;
USE_POSIX2 : constant := 1;
USE_POSIX_IMPLICITLY : constant := 1;
USE_XOPEN2K : constant := 1;
USE_XOPEN2K8 : constant := 1;
end C.features;
-- This file is translated by "headmaster" version 0.31-1157199 (devel).
-- The original C header's license should be applied to this file.
-- All conditional-directives are expanded for the exclusive use of your
-- environment, it is not recommended to commit this file to any repository.
-------------------------------------------------------------------------------
with Ada.Unchecked_Conversion;
with C.stddef;
package C.gmp is
pragma Preelaborate;
subtype mp_limb_t is unsigned_long;
subtype mp_limb_t_ptr is unsigned_long_ptr;
subtype mp_limb_t_const_ptr is unsigned_long_const_ptr;
subtype mp_limb_t_volatile is unsigned_long_volatile;
subtype mp_limb_t_volatile_ptr is unsigned_long_volatile_ptr;
subtype mp_limb_t_volatile_const_ptr is unsigned_long_volatile_const_ptr;
subtype mp_limb_signed_t is signed_long;
subtype mp_limb_signed_t_ptr is signed_long_ptr;
subtype mp_bitcnt_t is unsigned_long;
type struct_6413d526 is record
mp_alloc : aliased signed_int;
mp_size : aliased signed_int;
mp_d : aliased mp_limb_t_ptr;
end record;
pragma Convention (C_Pass_By_Copy, struct_6413d526);
type struct_6413d526_array is array (size_t range <>) of
aliased struct_6413d526;
pragma Convention (C, struct_6413d526_array);
type struct_6413d526_const_ptr is access constant struct_6413d526;
for struct_6413d526_const_ptr'Storage_Size use 0;
pragma No_Strict_Aliasing (struct_6413d526_const_ptr);
pragma Convention (C, struct_6413d526_const_ptr);
type struct_6413d526_ptr is access all struct_6413d526;
for struct_6413d526_ptr'Storage_Size use 0;
pragma No_Strict_Aliasing (struct_6413d526_ptr);
pragma Convention (C, struct_6413d526_ptr);
subtype mpz_struct is struct_6413d526;
subtype mpz_struct_array is struct_6413d526_array;
subtype mpz_struct_const_ptr is struct_6413d526_const_ptr;
subtype mpz_struct_ptr is struct_6413d526_ptr;
subtype MP_INT is mpz_struct;
subtype mpz_t is mpz_struct_array (0 .. 0);
subtype mp_ptr is mp_limb_t_ptr;
subtype mp_srcptr is mp_limb_t_const_ptr;
subtype mp_size_t is signed_long;
subtype mp_size_t_ptr is signed_long_ptr;
subtype mp_exp_t is signed_long;
subtype mp_exp_t_ptr is signed_long_ptr;
type struct_93cb91cd is record
mp_num : aliased mpz_struct;
mp_den : aliased mpz_struct;
end record;
pragma Convention (C_Pass_By_Copy, struct_93cb91cd);
type struct_93cb91cd_array is array (size_t range <>) of
aliased struct_93cb91cd;
pragma Convention (C, struct_93cb91cd_array);
type struct_93cb91cd_const_ptr is access constant struct_93cb91cd;
for struct_93cb91cd_const_ptr'Storage_Size use 0;
pragma No_Strict_Aliasing (struct_93cb91cd_const_ptr);
pragma Convention (C, struct_93cb91cd_const_ptr);
type struct_93cb91cd_ptr is access all struct_93cb91cd;
for struct_93cb91cd_ptr'Storage_Size use 0;
pragma No_Strict_Aliasing (struct_93cb91cd_ptr);
pragma Convention (C, struct_93cb91cd_ptr);
subtype mpq_struct is struct_93cb91cd;
subtype mpq_struct_array is struct_93cb91cd_array;
subtype mpq_struct_const_ptr is struct_93cb91cd_const_ptr;
subtype mpq_struct_ptr is struct_93cb91cd_ptr;
subtype MP_RAT is mpq_struct;
subtype mpq_t is mpq_struct_array (0 .. 0);
type struct_94c1b8ec is record
mp_prec : aliased signed_int;
mp_size : aliased signed_int;
mp_exp : aliased mp_exp_t;
mp_d : aliased mp_limb_t_ptr;
end record;
pragma Convention (C_Pass_By_Copy, struct_94c1b8ec);
type struct_94c1b8ec_array is array (size_t range <>) of
aliased struct_94c1b8ec;
pragma Convention (C, struct_94c1b8ec_array);
type struct_94c1b8ec_const_ptr is access constant struct_94c1b8ec;
for struct_94c1b8ec_const_ptr'Storage_Size use 0;
pragma No_Strict_Aliasing (struct_94c1b8ec_const_ptr);
pragma Convention (C, struct_94c1b8ec_const_ptr);
type struct_94c1b8ec_ptr is access all struct_94c1b8ec;
for struct_94c1b8ec_ptr'Storage_Size use 0;
pragma No_Strict_Aliasing (struct_94c1b8ec_ptr);
pragma Convention (C, struct_94c1b8ec_ptr);
subtype mpf_struct is struct_94c1b8ec;
subtype mpf_struct_array is struct_94c1b8ec_array;
subtype mpf_struct_const_ptr is struct_94c1b8ec_const_ptr;
subtype mpf_struct_ptr is struct_94c1b8ec_ptr;
subtype mpf_t is mpf_struct_array (0 .. 0);
type enum_c9d9b213 is (GMP_RAND_ALG_DEFAULT);
for enum_c9d9b213 use (GMP_RAND_ALG_DEFAULT => 0);
pragma Convention (C, enum_c9d9b213);
function GMP_RAND_ALG_LC return enum_c9d9b213
renames GMP_RAND_ALG_DEFAULT;
subtype gmp_randalg_t is enum_c9d9b213;
type union_b0cca8bf (Unchecked_Tag : unsigned_int := 0) is record
case Unchecked_Tag is
when others =>
mp_lc : void_ptr;
end case;
end record;
pragma Unchecked_Union (union_b0cca8bf);
pragma Convention (C_Pass_By_Copy, union_b0cca8bf);
type struct_63b42a1a is record
mp_seed : aliased mpz_t;
mp_alg : aliased gmp_randalg_t;
mp_algdata : aliased union_b0cca8bf;
end record;
pragma Convention (C_Pass_By_Copy, struct_63b42a1a);
type struct_63b42a1a_array is array (size_t range <>) of
aliased struct_63b42a1a;
pragma Convention (C, struct_63b42a1a_array);
type struct_63b42a1a_ptr is access all struct_63b42a1a;
for struct_63b42a1a_ptr'Storage_Size use 0;
pragma No_Strict_Aliasing (struct_63b42a1a_ptr);
pragma Convention (C, struct_63b42a1a_ptr);
type struct_63b42a1a_const_ptr is access constant struct_63b42a1a;
for struct_63b42a1a_const_ptr'Storage_Size use 0;
pragma No_Strict_Aliasing (struct_63b42a1a_const_ptr);
pragma Convention (C, struct_63b42a1a_const_ptr);
subtype gmp_randstate_struct is struct_63b42a1a;
subtype gmp_randstate_struct_array is struct_63b42a1a_array;
subtype gmp_randstate_struct_ptr is struct_63b42a1a_ptr;
subtype gmp_randstate_struct_const_ptr is struct_63b42a1a_const_ptr;
subtype gmp_randstate_t is gmp_randstate_struct_array (0 .. 0);
subtype mpz_srcptr is mpz_struct_const_ptr;
subtype mpz_ptr is mpz_struct_ptr;
subtype mpf_srcptr is mpf_struct_const_ptr;
subtype mpf_ptr is mpf_struct_ptr;
subtype mpq_srcptr is mpq_struct_const_ptr;
subtype mpq_ptr is mpq_struct_ptr;
type access_8049cc57 is access function (a1 : stddef.size_t)
return void_ptr;
pragma Convention (C, access_8049cc57);
type access_8049cc57_ptr is access all access_8049cc57;
for access_8049cc57_ptr'Storage_Size use 0;
pragma No_Strict_Aliasing (access_8049cc57_ptr);
pragma Convention (C, access_8049cc57_ptr);
type access_a357404f is access function (a1 : void_ptr;
a2 : stddef.size_t; a3 : stddef.size_t) return void_ptr;
pragma Convention (C, access_a357404f);
type access_a357404f_ptr is access all access_a357404f;
for access_a357404f_ptr'Storage_Size use 0;
pragma No_Strict_Aliasing (access_a357404f_ptr);
pragma Convention (C, access_a357404f_ptr);
type access_fda29d15 is access procedure (a1 : void_ptr;
a2 : stddef.size_t);
pragma Convention (C, access_fda29d15);
type access_fda29d15_ptr is access all access_fda29d15;
for access_fda29d15_ptr'Storage_Size use 0;
pragma No_Strict_Aliasing (access_fda29d15_ptr);
pragma Convention (C, access_fda29d15_ptr);
procedure gmp_set_memory_functions (a1 : access_8049cc57;
a2 : access_a357404f; a3 : access_fda29d15);
pragma Import (C, gmp_set_memory_functions, "__gmp_set_memory_functions");
procedure gmp_get_memory_functions (a1 : access access_8049cc57;
a2 : access access_a357404f; a3 : access access_fda29d15);
pragma Import (C, gmp_get_memory_functions, "__gmp_get_memory_functions");
gmp_bits_per_limb : aliased signed_int;
pragma Import (C, gmp_bits_per_limb, "__gmp_bits_per_limb");
qqgmp_errno : aliased signed_int;
pragma Import (C, qqgmp_errno, "__gmp_errno");
qqgmp_version : aliased char_const_ptr;
pragma Import (C, qqgmp_version, "__gmp_version");
procedure qqgmp_randinit (a1 : access gmp_randstate_struct;
a2 : gmp_randalg_t);
pragma Import (C, qqgmp_randinit, "__gmp_randinit");
procedure qqgmp_randinit_default (a1 : access gmp_randstate_struct);
pragma Import (C, qqgmp_randinit_default, "__gmp_randinit_default");
procedure qqgmp_randinit_lc_2exp (a1 : access gmp_randstate_struct;
a2 : access constant mpz_struct; a3 : unsigned_long; a4 : mp_bitcnt_t);
pragma Import (C, qqgmp_randinit_lc_2exp, "__gmp_randinit_lc_2exp");
function qqgmp_randinit_lc_2exp_size (a1 : access gmp_randstate_struct;
a2 : mp_bitcnt_t) return signed_int;
pragma Import (C, qqgmp_randinit_lc_2exp_size,
"__gmp_randinit_lc_2exp_size");
procedure qqgmp_randinit_mt (a1 : access gmp_randstate_struct);
pragma Import (C, qqgmp_randinit_mt, "__gmp_randinit_mt");
procedure qqgmp_randinit_set (a1 : access gmp_randstate_struct;
a2 : access constant gmp_randstate_struct);
pragma Import (C, qqgmp_randinit_set, "__gmp_randinit_set");
procedure qqgmp_randseed (a1 : access gmp_randstate_struct;
a2 : access constant mpz_struct);
pragma Import (C, qqgmp_randseed, "__gmp_randseed");
procedure qqgmp_randseed_ui (a1 : access gmp_randstate_struct;
a2 : unsigned_long);
pragma Import (C, qqgmp_randseed_ui, "__gmp_randseed_ui");
procedure qqgmp_randclear (a1 : access gmp_randstate_struct);
pragma Import (C, qqgmp_randclear, "__gmp_randclear");
function qqgmp_urandomb_ui (a1 : access gmp_randstate_struct;
a2 : unsigned_long) return unsigned_long;
pragma Import (C, qqgmp_urandomb_ui, "__gmp_urandomb_ui");
function qqgmp_urandomm_ui (a1 : access gmp_randstate_struct;
a2 : unsigned_long) return unsigned_long;
pragma Import (C, qqgmp_urandomm_ui, "__gmp_urandomm_ui");
function qqgmp_asprintf (a1 : access char_ptr; a2 : access constant char)
return signed_int;
pragma Import (C, qqgmp_asprintf, "__gmp_asprintf");
function qqgmp_printf (a1 : access constant char) return signed_int;
procedure qqgmp_printf (a1 : access constant char; a2 : stddef.size_t;
a3 : access constant mpf_struct);
pragma Import (C, qqgmp_printf, "__gmp_printf");
function qqgmp_snprintf (a1 : access char; a2 : stddef.size_t;
a3 : access constant char) return signed_int;
pragma Import (C, qqgmp_snprintf, "__gmp_snprintf");
function qqgmp_sprintf (a1 : access char; a2 : access constant char)
return signed_int;
pragma Import (C, qqgmp_sprintf, "__gmp_sprintf");
function qqgmp_scanf (a1 : access constant char) return signed_int;
pragma Import (C, qqgmp_scanf, "__gmp_scanf");
function qqgmp_sscanf (a1 : access constant char;
a2 : access constant char) return signed_int;
pragma Import (C, qqgmp_sscanf, "__gmp_sscanf");
function gmpz_realloc (a1 : access mpz_struct; a2 : mp_size_t)
return void_ptr;
pragma Import (C, gmpz_realloc, "__gmpz_realloc");
procedure qqgmpz_abs (a1 : access mpz_struct;
a2 : access constant mpz_struct);
pragma Import (C, qqgmpz_abs, "__gmpz_abs");
procedure gmpz_add (a1 : access mpz_struct;
a2 : access constant mpz_struct; a3 : access constant mpz_struct);
pragma Import (C, gmpz_add, "__gmpz_add");
procedure gmpz_add_ui (a1 : access mpz_struct;
a2 : access constant mpz_struct; a3 : unsigned_long);
pragma Import (C, gmpz_add_ui, "__gmpz_add_ui");
procedure gmpz_addmul (a1 : access mpz_struct;
a2 : access constant mpz_struct; a3 : access constant mpz_struct);
pragma Import (C, gmpz_addmul, "__gmpz_addmul");
procedure gmpz_addmul_ui (a1 : access mpz_struct;
a2 : access constant mpz_struct; a3 : unsigned_long);
pragma Import (C, gmpz_addmul_ui, "__gmpz_addmul_ui");
procedure gmpz_and (a1 : access mpz_struct;
a2 : access constant mpz_struct; a3 : access constant mpz_struct);
pragma Import (C, gmpz_and, "__gmpz_and");
procedure gmpz_array_init (a1 : access mpz_struct; a2 : mp_size_t;
a3 : mp_size_t);
pragma Import (C, gmpz_array_init, "__gmpz_array_init");
procedure gmpz_bin_ui (a1 : access mpz_struct;
a2 : access constant mpz_struct; a3 : unsigned_long);
pragma Import (C, gmpz_bin_ui, "__gmpz_bin_ui");
procedure gmpz_bin_uiui (a1 : access mpz_struct; a2 : unsigned_long;
a3 : unsigned_long);
pragma Import (C, gmpz_bin_uiui, "__gmpz_bin_uiui");
procedure gmpz_cdiv_q (a1 : access mpz_struct;
a2 : access constant mpz_struct; a3 : access constant mpz_struct);
pragma Import (C, gmpz_cdiv_q, "__gmpz_cdiv_q");
procedure gmpz_cdiv_q_2exp (a1 : access mpz_struct;
a2 : access constant mpz_struct; a3 : mp_bitcnt_t);
pragma Import (C, gmpz_cdiv_q_2exp, "__gmpz_cdiv_q_2exp");
function gmpz_cdiv_q_ui (a1 : access mpz_struct;
a2 : access constant mpz_struct; a3 : unsigned_long)
return unsigned_long;
pragma Import (C, gmpz_cdiv_q_ui, "__gmpz_cdiv_q_ui");
procedure gmpz_cdiv_qr (a1 : access mpz_struct; a2 : access mpz_struct;
a3 : access constant mpz_struct; a4 : access constant mpz_struct);
pragma Import (C, gmpz_cdiv_qr, "__gmpz_cdiv_qr");
function gmpz_cdiv_qr_ui (a1 : access mpz_struct; a2 : access mpz_struct;
a3 : access constant mpz_struct; a4 : unsigned_long)
return unsigned_long;
pragma Import (C, gmpz_cdiv_qr_ui, "__gmpz_cdiv_qr_ui");
procedure gmpz_cdiv_r (a1 : access mpz_struct;
a2 : access constant mpz_struct; a3 : access constant mpz_struct);
pragma Import (C, gmpz_cdiv_r, "__gmpz_cdiv_r");
procedure gmpz_cdiv_r_2exp (a1 : access mpz_struct;
a2 : access constant mpz_struct; a3 : mp_bitcnt_t);
pragma Import (C, gmpz_cdiv_r_2exp, "__gmpz_cdiv_r_2exp");
function gmpz_cdiv_r_ui (a1 : access mpz_struct;
a2 : access constant mpz_struct; a3 : unsigned_long)
return unsigned_long;
pragma Import (C, gmpz_cdiv_r_ui, "__gmpz_cdiv_r_ui");
function gmpz_cdiv_ui (a1 : access constant mpz_struct;
a2 : unsigned_long) return unsigned_long;
pragma Import (C, gmpz_cdiv_ui, "__gmpz_cdiv_ui");
procedure gmpz_clear (a1 : access mpz_struct);
pragma Import (C, gmpz_clear, "__gmpz_clear");
procedure gmpz_clears (a1 : access mpz_struct);
pragma Import (C, gmpz_clears, "__gmpz_clears");
procedure gmpz_clrbit (a1 : access mpz_struct; a2 : mp_bitcnt_t);
pragma Import (C, gmpz_clrbit, "__gmpz_clrbit");
function gmpz_cmp (a1 : access constant mpz_struct;
a2 : access constant mpz_struct) return signed_int;
pragma Import (C, gmpz_cmp, "__gmpz_cmp");
function gmpz_cmp_d (a1 : access constant mpz_struct; a2 : double)
return signed_int;
pragma Import (C, gmpz_cmp_d, "__gmpz_cmp_d");
function gmpz_cmp_si (a1 : access constant mpz_struct; a2 : signed_long)
return signed_int;
pragma Import (C, gmpz_cmp_si, "__gmpz_cmp_si");
function gmpz_cmp_ui (a1 : access constant mpz_struct; a2 : unsigned_long)
return signed_int;
pragma Import (C, gmpz_cmp_ui, "__gmpz_cmp_ui");
function gmpz_cmpabs (a1 : access constant mpz_struct;
a2 : access constant mpz_struct) return signed_int;
pragma Import (C, gmpz_cmpabs, "__gmpz_cmpabs");
function gmpz_cmpabs_d (a1 : access constant mpz_struct; a2 : double)
return signed_int;
pragma Import (C, gmpz_cmpabs_d, "__gmpz_cmpabs_d");
function gmpz_cmpabs_ui (a1 : access constant mpz_struct;
a2 : unsigned_long) return signed_int;
pragma Import (C, gmpz_cmpabs_ui, "__gmpz_cmpabs_ui");
procedure gmpz_com (a1 : access mpz_struct;
a2 : access constant mpz_struct);
pragma Import (C, gmpz_com, "__gmpz_com");
procedure gmpz_combit (a1 : access mpz_struct; a2 : mp_bitcnt_t);
pragma Import (C, gmpz_combit, "__gmpz_combit");
function gmpz_congruent_p (a1 : access constant mpz_struct;
a2 : access constant mpz_struct; a3 : access constant mpz_struct)
return signed_int;
pragma Import (C, gmpz_congruent_p, "__gmpz_congruent_p");
function gmpz_congruent_2exp_p (a1 : access constant mpz_struct;
a2 : access constant mpz_struct; a3 : mp_bitcnt_t) return signed_int;
pragma Import (C, gmpz_congruent_2exp_p, "__gmpz_congruent_2exp_p");
function gmpz_congruent_ui_p (a1 : access constant mpz_struct;
a2 : unsigned_long; a3 : unsigned_long) return signed_int;
pragma Import (C, gmpz_congruent_ui_p, "__gmpz_congruent_ui_p");
procedure gmpz_divexact (a1 : access mpz_struct;
a2 : access constant mpz_struct; a3 : access constant mpz_struct);
pragma Import (C, gmpz_divexact, "__gmpz_divexact");
procedure gmpz_divexact_ui (a1 : access mpz_struct;
a2 : access constant mpz_struct; a3 : unsigned_long);
pragma Import (C, gmpz_divexact_ui, "__gmpz_divexact_ui");
function gmpz_divisible_p (a1 : access constant mpz_struct;
a2 : access constant mpz_struct) return signed_int;
pragma Import (C, gmpz_divisible_p, "__gmpz_divisible_p");
function gmpz_divisible_ui_p (a1 : access constant mpz_struct;
a2 : unsigned_long) return signed_int;
pragma Import (C, gmpz_divisible_ui_p, "__gmpz_divisible_ui_p");
function gmpz_divisible_2exp_p (a1 : access constant mpz_struct;
a2 : mp_bitcnt_t) return signed_int;
pragma Import (C, gmpz_divisible_2exp_p, "__gmpz_divisible_2exp_p");
procedure gmpz_dump (a1 : access constant mpz_struct);
pragma Import (C, gmpz_dump, "__gmpz_dump");
function gmpz_export (a1 : void_ptr; a2 : access stddef.size_t;
a3 : signed_int; a4 : stddef.size_t; a5 : signed_int;
a6 : stddef.size_t; a7 : access constant mpz_struct) return void_ptr;
pragma Import (C, gmpz_export, "__gmpz_export");
procedure gmpz_fac_ui (a1 : access mpz_struct; a2 : unsigned_long);
pragma Import (C, gmpz_fac_ui, "__gmpz_fac_ui");
procedure gmpz_2fac_ui (a1 : access mpz_struct; a2 : unsigned_long);
pragma Import (C, gmpz_2fac_ui, "__gmpz_2fac_ui");
procedure gmpz_mfac_uiui (a1 : access mpz_struct; a2 : unsigned_long;
a3 : unsigned_long);
pragma Import (C, gmpz_mfac_uiui, "__gmpz_mfac_uiui");
procedure gmpz_primorial_ui (a1 : access mpz_struct; a2 : unsigned_long);
pragma Import (C, gmpz_primorial_ui, "__gmpz_primorial_ui");
procedure gmpz_fdiv_q (a1 : access mpz_struct;
a2 : access constant mpz_struct; a3 : access constant mpz_struct);
pragma Import (C, gmpz_fdiv_q, "__gmpz_fdiv_q");
procedure gmpz_fdiv_q_2exp (a1 : access mpz_struct;
a2 : access constant mpz_struct; a3 : mp_bitcnt_t);
pragma Import (C, gmpz_fdiv_q_2exp, "__gmpz_fdiv_q_2exp");
function gmpz_fdiv_q_ui (a1 : access mpz_struct;
a2 : access constant mpz_struct; a3 : unsigned_long)
return unsigned_long;
pragma Import (C, gmpz_fdiv_q_ui, "__gmpz_fdiv_q_ui");
procedure gmpz_fdiv_qr (a1 : access mpz_struct; a2 : access mpz_struct;
a3 : access constant mpz_struct; a4 : access constant mpz_struct);
pragma Import (C, gmpz_fdiv_qr, "__gmpz_fdiv_qr");
function gmpz_fdiv_qr_ui (a1 : access mpz_struct; a2 : access mpz_struct;
a3 : access constant mpz_struct; a4 : unsigned_long)
return unsigned_long;
pragma Import (C, gmpz_fdiv_qr_ui, "__gmpz_fdiv_qr_ui");
procedure gmpz_fdiv_r (a1 : access mpz_struct;
a2 : access constant mpz_struct; a3 : access constant mpz_struct);
pragma Import (C, gmpz_fdiv_r, "__gmpz_fdiv_r");
procedure gmpz_fdiv_r_2exp (a1 : access mpz_struct;
a2 : access constant mpz_struct; a3 : mp_bitcnt_t);
pragma Import (C, gmpz_fdiv_r_2exp, "__gmpz_fdiv_r_2exp");
function gmpz_fdiv_r_ui (a1 : access mpz_struct;
a2 : access constant mpz_struct; a3 : unsigned_long)
return unsigned_long;
pragma Import (C, gmpz_fdiv_r_ui, "__gmpz_fdiv_r_ui");
function gmpz_fdiv_ui (a1 : access constant mpz_struct;
a2 : unsigned_long) return unsigned_long;
pragma Import (C, gmpz_fdiv_ui, "__gmpz_fdiv_ui");
procedure gmpz_fib_ui (a1 : access mpz_struct; a2 : unsigned_long);
pragma Import (C, gmpz_fib_ui, "__gmpz_fib_ui");
procedure gmpz_fib2_ui (a1 : access mpz_struct; a2 : access mpz_struct;
a3 : unsigned_long);
pragma Import (C, gmpz_fib2_ui, "__gmpz_fib2_ui");
function gmpz_fits_sint_p (a1 : access constant mpz_struct)
return signed_int;
pragma Import (C, gmpz_fits_sint_p, "__gmpz_fits_sint_p");
function gmpz_fits_slong_p (a1 : access constant mpz_struct)
return signed_int;
pragma Import (C, gmpz_fits_slong_p, "__gmpz_fits_slong_p");
function gmpz_fits_sshort_p (a1 : access constant mpz_struct)
return signed_int;
pragma Import (C, gmpz_fits_sshort_p, "__gmpz_fits_sshort_p");
function qqgmpz_fits_uint_p (a1 : access constant mpz_struct)
return signed_int;
pragma Import (C, qqgmpz_fits_uint_p, "__gmpz_fits_uint_p");
function qqgmpz_fits_ulong_p (a1 : access constant mpz_struct)
return signed_int;
pragma Import (C, qqgmpz_fits_ulong_p, "__gmpz_fits_ulong_p");
function qqgmpz_fits_ushort_p (a1 : access constant mpz_struct)
return signed_int;
pragma Import (C, qqgmpz_fits_ushort_p, "__gmpz_fits_ushort_p");
procedure gmpz_gcd (a1 : access mpz_struct;
a2 : access constant mpz_struct; a3 : access constant mpz_struct);
pragma Import (C, gmpz_gcd, "__gmpz_gcd");
function gmpz_gcd_ui (a1 : access mpz_struct;
a2 : access constant mpz_struct; a3 : unsigned_long)
return unsigned_long;
pragma Import (C, gmpz_gcd_ui, "__gmpz_gcd_ui");
procedure gmpz_gcdext (a1 : access mpz_struct; a2 : access mpz_struct;
a3 : access mpz_struct; a4 : access constant mpz_struct;
a5 : access constant mpz_struct);
pragma Import (C, gmpz_gcdext, "__gmpz_gcdext");
function gmpz_get_d (a1 : access constant mpz_struct) return double;
pragma Import (C, gmpz_get_d, "__gmpz_get_d");
function gmpz_get_d_2exp (a1 : access signed_long;
a2 : access constant mpz_struct) return double;
pragma Import (C, gmpz_get_d_2exp, "__gmpz_get_d_2exp");
function gmpz_get_si (a1 : access constant mpz_struct) return signed_long;
pragma Import (C, gmpz_get_si, "__gmpz_get_si");
function gmpz_get_str (a1 : access char; a2 : signed_int;
a3 : access constant mpz_struct) return char_ptr;
pragma Import (C, gmpz_get_str, "__gmpz_get_str");
function qqgmpz_get_ui (a1 : access constant mpz_struct)
return unsigned_long;
pragma Import (C, qqgmpz_get_ui, "__gmpz_get_ui");
function qqgmpz_getlimbn (a1 : access constant mpz_struct; a2 : mp_size_t)
return mp_limb_t;
pragma Import (C, qqgmpz_getlimbn, "__gmpz_getlimbn");
function gmpz_hamdist (a1 : access constant mpz_struct;
a2 : access constant mpz_struct) return mp_bitcnt_t;
pragma Import (C, gmpz_hamdist, "__gmpz_hamdist");
procedure gmpz_import (a1 : access mpz_struct; a2 : stddef.size_t;
a3 : signed_int; a4 : stddef.size_t; a5 : signed_int;
a6 : stddef.size_t; a7 : void_const_ptr);
pragma Import (C, gmpz_import, "__gmpz_import");
procedure gmpz_init (a1 : access mpz_struct);
pragma Import (C, gmpz_init, "__gmpz_init");
procedure gmpz_init2 (a1 : access mpz_struct; a2 : mp_bitcnt_t);
pragma Import (C, gmpz_init2, "__gmpz_init2");
procedure gmpz_inits (a1 : access mpz_struct);
pragma Import (C, gmpz_inits, "__gmpz_inits");
procedure gmpz_init_set (a1 : access mpz_struct;
a2 : access constant mpz_struct);
pragma Import (C, gmpz_init_set, "__gmpz_init_set");
procedure gmpz_init_set_d (a1 : access mpz_struct; a2 : double);
pragma Import (C, gmpz_init_set_d, "__gmpz_init_set_d");
procedure gmpz_init_set_si (a1 : access mpz_struct; a2 : signed_long);
pragma Import (C, gmpz_init_set_si, "__gmpz_init_set_si");
function gmpz_init_set_str (a1 : access mpz_struct;
a2 : access constant char; a3 : signed_int) return signed_int;
pragma Import (C, gmpz_init_set_str, "__gmpz_init_set_str");
procedure gmpz_init_set_ui (a1 : access mpz_struct; a2 : unsigned_long);
pragma Import (C, gmpz_init_set_ui, "__gmpz_init_set_ui");
function gmpz_invert (a1 : access mpz_struct;
a2 : access constant mpz_struct; a3 : access constant mpz_struct)
return signed_int;
pragma Import (C, gmpz_invert, "__gmpz_invert");
procedure gmpz_ior (a1 : access mpz_struct;
a2 : access constant mpz_struct; a3 : access constant mpz_struct);
pragma Import (C, gmpz_ior, "__gmpz_ior");
function gmpz_jacobi (a1 : access constant mpz_struct;
a2 : access constant mpz_struct) return signed_int;
pragma Import (C, gmpz_jacobi, "__gmpz_jacobi");
function gmpz_kronecker_si (a1 : access constant mpz_struct;
a2 : signed_long) return signed_int;
pragma Import (C, gmpz_kronecker_si, "__gmpz_kronecker_si");
function gmpz_kronecker_ui (a1 : access constant mpz_struct;
a2 : unsigned_long) return signed_int;
pragma Import (C, gmpz_kronecker_ui, "__gmpz_kronecker_ui");
function gmpz_si_kronecker (a1 : signed_long;
a2 : access constant mpz_struct) return signed_int;
pragma Import (C, gmpz_si_kronecker, "__gmpz_si_kronecker");
function gmpz_ui_kronecker (a1 : unsigned_long;
a2 : access constant mpz_struct) return signed_int;
pragma Import (C, gmpz_ui_kronecker, "__gmpz_ui_kronecker");
procedure gmpz_lcm (a1 : access mpz_struct;
a2 : access constant mpz_struct; a3 : access constant mpz_struct);
pragma Import (C, gmpz_lcm, "__gmpz_lcm");
procedure gmpz_lcm_ui (a1 : access mpz_struct;
a2 : access constant mpz_struct; a3 : unsigned_long);
pragma Import (C, gmpz_lcm_ui, "__gmpz_lcm_ui");
procedure gmpz_lucnum_ui (a1 : access mpz_struct; a2 : unsigned_long);
pragma Import (C, gmpz_lucnum_ui, "__gmpz_lucnum_ui");
procedure gmpz_lucnum2_ui (a1 : access mpz_struct; a2 : access mpz_struct;
a3 : unsigned_long);
pragma Import (C, gmpz_lucnum2_ui, "__gmpz_lucnum2_ui");
function gmpz_millerrabin (a1 : access constant mpz_struct;
a2 : signed_int) return signed_int;
pragma Import (C, gmpz_millerrabin, "__gmpz_millerrabin");
procedure gmpz_mod (a1 : access mpz_struct;
a2 : access constant mpz_struct; a3 : access constant mpz_struct);
pragma Import (C, gmpz_mod, "__gmpz_mod");
procedure gmpz_mul (a1 : access mpz_struct;
a2 : access constant mpz_struct; a3 : access constant mpz_struct);
pragma Import (C, gmpz_mul, "__gmpz_mul");
procedure gmpz_mul_2exp (a1 : access mpz_struct;
a2 : access constant mpz_struct; a3 : mp_bitcnt_t);
pragma Import (C, gmpz_mul_2exp, "__gmpz_mul_2exp");
procedure gmpz_mul_si (a1 : access mpz_struct;
a2 : access constant mpz_struct; a3 : signed_long);
pragma Import (C, gmpz_mul_si, "__gmpz_mul_si");
procedure gmpz_mul_ui (a1 : access mpz_struct;
a2 : access constant mpz_struct; a3 : unsigned_long);
pragma Import (C, gmpz_mul_ui, "__gmpz_mul_ui");
procedure qqgmpz_neg (a1 : access mpz_struct;
a2 : access constant mpz_struct);
pragma Import (C, qqgmpz_neg, "__gmpz_neg");
procedure gmpz_nextprime (a1 : access mpz_struct;
a2 : access constant mpz_struct);
pragma Import (C, gmpz_nextprime, "__gmpz_nextprime");
function gmpz_perfect_power_p (a1 : access constant mpz_struct)
return signed_int;
pragma Import (C, gmpz_perfect_power_p, "__gmpz_perfect_power_p");
function qqgmpz_perfect_square_p (a1 : access constant mpz_struct)
return signed_int;
pragma Import (C, qqgmpz_perfect_square_p, "__gmpz_perfect_square_p");
function qqgmpz_popcount (a1 : access constant mpz_struct)
return mp_bitcnt_t;
pragma Import (C, qqgmpz_popcount, "__gmpz_popcount");
procedure gmpz_pow_ui (a1 : access mpz_struct;
a2 : access constant mpz_struct; a3 : unsigned_long);
pragma Import (C, gmpz_pow_ui, "__gmpz_pow_ui");
procedure gmpz_powm (a1 : access mpz_struct;
a2 : access constant mpz_struct; a3 : access constant mpz_struct;
a4 : access constant mpz_struct);
pragma Import (C, gmpz_powm, "__gmpz_powm");
procedure gmpz_powm_sec (a1 : access mpz_struct;
a2 : access constant mpz_struct; a3 : access constant mpz_struct;
a4 : access constant mpz_struct);
pragma Import (C, gmpz_powm_sec, "__gmpz_powm_sec");
procedure gmpz_powm_ui (a1 : access mpz_struct;
a2 : access constant mpz_struct; a3 : unsigned_long;
a4 : access constant mpz_struct);
pragma Import (C, gmpz_powm_ui, "__gmpz_powm_ui");
function gmpz_probab_prime_p (a1 : access constant mpz_struct;
a2 : signed_int) return signed_int;
pragma Import (C, gmpz_probab_prime_p, "__gmpz_probab_prime_p");
procedure gmpz_random (a1 : access mpz_struct; a2 : mp_size_t);
pragma Import (C, gmpz_random, "__gmpz_random");
procedure gmpz_random2 (a1 : access mpz_struct; a2 : mp_size_t);
pragma Import (C, gmpz_random2, "__gmpz_random2");
procedure gmpz_realloc2 (a1 : access mpz_struct; a2 : mp_bitcnt_t);
pragma Import (C, gmpz_realloc2, "__gmpz_realloc2");
function gmpz_remove (a1 : access mpz_struct;
a2 : access constant mpz_struct; a3 : access constant mpz_struct)
return mp_bitcnt_t;
pragma Import (C, gmpz_remove, "__gmpz_remove");
function gmpz_root (a1 : access mpz_struct;
a2 : access constant mpz_struct; a3 : unsigned_long) return signed_int;
pragma Import (C, gmpz_root, "__gmpz_root");
procedure gmpz_rootrem (a1 : access mpz_struct; a2 : access mpz_struct;
a3 : access constant mpz_struct; a4 : unsigned_long);
pragma Import (C, gmpz_rootrem, "__gmpz_rootrem");
procedure gmpz_rrandomb (a1 : access mpz_struct;
a2 : access gmp_randstate_struct; a3 : mp_bitcnt_t);
pragma Import (C, gmpz_rrandomb, "__gmpz_rrandomb");
function gmpz_scan0 (a1 : access constant mpz_struct; a2 : mp_bitcnt_t)
return mp_bitcnt_t;
pragma Import (C, gmpz_scan0, "__gmpz_scan0");
function gmpz_scan1 (a1 : access constant mpz_struct; a2 : mp_bitcnt_t)
return mp_bitcnt_t;
pragma Import (C, gmpz_scan1, "__gmpz_scan1");
procedure gmpz_set (a1 : access mpz_struct;
a2 : access constant mpz_struct);
pragma Import (C, gmpz_set, "__gmpz_set");
procedure gmpz_set_d (a1 : access mpz_struct; a2 : double);
pragma Import (C, gmpz_set_d, "__gmpz_set_d");
procedure gmpz_set_f (a1 : access mpz_struct;
a2 : access constant mpf_struct);
pragma Import (C, gmpz_set_f, "__gmpz_set_f");
procedure qqgmpz_set_q (a1 : access mpz_struct;
a2 : access constant mpq_struct);
pragma Import (C, qqgmpz_set_q, "__gmpz_set_q");
procedure gmpz_set_si (a1 : access mpz_struct; a2 : signed_long);
pragma Import (C, gmpz_set_si, "__gmpz_set_si");
function gmpz_set_str (a1 : access mpz_struct; a2 : access constant char;
a3 : signed_int) return signed_int;
pragma Import (C, gmpz_set_str, "__gmpz_set_str");
procedure gmpz_set_ui (a1 : access mpz_struct; a2 : unsigned_long);
pragma Import (C, gmpz_set_ui, "__gmpz_set_ui");
procedure gmpz_setbit (a1 : access mpz_struct; a2 : mp_bitcnt_t);
pragma Import (C, gmpz_setbit, "__gmpz_setbit");
function qqgmpz_size (a1 : access constant mpz_struct)
return stddef.size_t;
pragma Import (C, qqgmpz_size, "__gmpz_size");
function gmpz_sizeinbase (a1 : access constant mpz_struct;
a2 : signed_int) return stddef.size_t;
pragma Import (C, gmpz_sizeinbase, "__gmpz_sizeinbase");
procedure gmpz_sqrt (a1 : access mpz_struct;
a2 : access constant mpz_struct);
pragma Import (C, gmpz_sqrt, "__gmpz_sqrt");
procedure gmpz_sqrtrem (a1 : access mpz_struct; a2 : access mpz_struct;
a3 : access constant mpz_struct);
pragma Import (C, gmpz_sqrtrem, "__gmpz_sqrtrem");
procedure gmpz_sub (a1 : access mpz_struct;
a2 : access constant mpz_struct; a3 : access constant mpz_struct);
pragma Import (C, gmpz_sub, "__gmpz_sub");
procedure gmpz_sub_ui (a1 : access mpz_struct;
a2 : access constant mpz_struct; a3 : unsigned_long);
pragma Import (C, gmpz_sub_ui, "__gmpz_sub_ui");
procedure gmpz_ui_sub (a1 : access mpz_struct; a2 : unsigned_long;
a3 : access constant mpz_struct);
pragma Import (C, gmpz_ui_sub, "__gmpz_ui_sub");
procedure gmpz_submul (a1 : access mpz_struct;
a2 : access constant mpz_struct; a3 : access constant mpz_struct);
pragma Import (C, gmpz_submul, "__gmpz_submul");
procedure gmpz_submul_ui (a1 : access mpz_struct;
a2 : access constant mpz_struct; a3 : unsigned_long);
pragma Import (C, gmpz_submul_ui, "__gmpz_submul_ui");
procedure gmpz_swap (a1 : access mpz_struct; a2 : access mpz_struct);
pragma Import (C, gmpz_swap, "__gmpz_swap");
function gmpz_tdiv_ui (a1 : access constant mpz_struct;
a2 : unsigned_long) return unsigned_long;
pragma Import (C, gmpz_tdiv_ui, "__gmpz_tdiv_ui");
procedure gmpz_tdiv_q (a1 : access mpz_struct;
a2 : access constant mpz_struct; a3 : access constant mpz_struct);
pragma Import (C, gmpz_tdiv_q, "__gmpz_tdiv_q");
procedure gmpz_tdiv_q_2exp (a1 : access mpz_struct;
a2 : access constant mpz_struct; a3 : mp_bitcnt_t);
pragma Import (C, gmpz_tdiv_q_2exp, "__gmpz_tdiv_q_2exp");
function gmpz_tdiv_q_ui (a1 : access mpz_struct;
a2 : access constant mpz_struct; a3 : unsigned_long)
return unsigned_long;
pragma Import (C, gmpz_tdiv_q_ui, "__gmpz_tdiv_q_ui");
procedure gmpz_tdiv_qr (a1 : access mpz_struct; a2 : access mpz_struct;
a3 : access constant mpz_struct; a4 : access constant mpz_struct);
pragma Import (C, gmpz_tdiv_qr, "__gmpz_tdiv_qr");
function gmpz_tdiv_qr_ui (a1 : access mpz_struct; a2 : access mpz_struct;
a3 : access constant mpz_struct; a4 : unsigned_long)
return unsigned_long;
pragma Import (C, gmpz_tdiv_qr_ui, "__gmpz_tdiv_qr_ui");
procedure gmpz_tdiv_r (a1 : access mpz_struct;
a2 : access constant mpz_struct; a3 : access constant mpz_struct);
pragma Import (C, gmpz_tdiv_r, "__gmpz_tdiv_r");
procedure gmpz_tdiv_r_2exp (a1 : access mpz_struct;
a2 : access constant mpz_struct; a3 : mp_bitcnt_t);
pragma Import (C, gmpz_tdiv_r_2exp, "__gmpz_tdiv_r_2exp");
function gmpz_tdiv_r_ui (a1 : access mpz_struct;
a2 : access constant mpz_struct; a3 : unsigned_long)
return unsigned_long;
pragma Import (C, gmpz_tdiv_r_ui, "__gmpz_tdiv_r_ui");
function gmpz_tstbit (a1 : access constant mpz_struct; a2 : mp_bitcnt_t)
return signed_int;
pragma Import (C, gmpz_tstbit, "__gmpz_tstbit");
procedure gmpz_ui_pow_ui (a1 : access mpz_struct; a2 : unsigned_long;
a3 : unsigned_long);
pragma Import (C, gmpz_ui_pow_ui, "__gmpz_ui_pow_ui");
procedure gmpz_urandomb (a1 : access mpz_struct;
a2 : access gmp_randstate_struct; a3 : mp_bitcnt_t);
pragma Import (C, gmpz_urandomb, "__gmpz_urandomb");
procedure gmpz_urandomm (a1 : access mpz_struct;
a2 : access gmp_randstate_struct; a3 : access constant mpz_struct);
pragma Import (C, gmpz_urandomm, "__gmpz_urandomm");
procedure gmpz_xor (a1 : access mpz_struct;
a2 : access constant mpz_struct; a3 : access constant mpz_struct);
pragma Import (C, gmpz_xor, "__gmpz_xor");
function gmpz_limbs_read (a1 : access constant mpz_struct)
return mp_srcptr;
pragma Import (C, gmpz_limbs_read, "__gmpz_limbs_read");
function gmpz_limbs_write (a1 : access mpz_struct; a2 : mp_size_t)
return mp_ptr;
pragma Import (C, gmpz_limbs_write, "__gmpz_limbs_write");
function gmpz_limbs_modify (a1 : access mpz_struct; a2 : mp_size_t)
return mp_ptr;
pragma Import (C, gmpz_limbs_modify, "__gmpz_limbs_modify");
procedure gmpz_limbs_finish (a1 : access mpz_struct; a2 : mp_size_t);
pragma Import (C, gmpz_limbs_finish, "__gmpz_limbs_finish");
function gmpz_roinit_n (a1 : access mpz_struct;
a2 : access constant mp_limb_t; a3 : mp_size_t) return mpz_srcptr;
pragma Import (C, gmpz_roinit_n, "__gmpz_roinit_n");
procedure qqgmpq_abs (a1 : access mpq_struct;
a2 : access constant mpq_struct);
pragma Import (C, qqgmpq_abs, "__gmpq_abs");
procedure gmpq_add (a1 : access mpq_struct;
a2 : access constant mpq_struct; a3 : access constant mpq_struct);
pragma Import (C, gmpq_add, "__gmpq_add");
procedure gmpq_canonicalize (a1 : access mpq_struct);
pragma Import (C, gmpq_canonicalize, "__gmpq_canonicalize");
procedure gmpq_clear (a1 : access mpq_struct);
pragma Import (C, gmpq_clear, "__gmpq_clear");
procedure gmpq_clears (a1 : access mpq_struct);
pragma Import (C, gmpq_clears, "__gmpq_clears");
function gmpq_cmp (a1 : access constant mpq_struct;
a2 : access constant mpq_struct) return signed_int;
pragma Import (C, gmpq_cmp, "__gmpq_cmp");
function gmpq_cmp_si (a1 : access constant mpq_struct; a2 : signed_long;
a3 : unsigned_long) return signed_int;
pragma Import (C, gmpq_cmp_si, "__gmpq_cmp_si");
function gmpq_cmp_ui (a1 : access constant mpq_struct; a2 : unsigned_long;
a3 : unsigned_long) return signed_int;
pragma Import (C, gmpq_cmp_ui, "__gmpq_cmp_ui");
function gmpq_cmp_z (a1 : access constant mpq_struct;
a2 : access constant mpz_struct) return signed_int;
pragma Import (C, gmpq_cmp_z, "__gmpq_cmp_z");
procedure gmpq_div (a1 : access mpq_struct;
a2 : access constant mpq_struct; a3 : access constant mpq_struct);
pragma Import (C, gmpq_div, "__gmpq_div");
procedure gmpq_div_2exp (a1 : access mpq_struct;
a2 : access constant mpq_struct; a3 : mp_bitcnt_t);
pragma Import (C, gmpq_div_2exp, "__gmpq_div_2exp");
function gmpq_equal (a1 : access constant mpq_struct;
a2 : access constant mpq_struct) return signed_int;
pragma Import (C, gmpq_equal, "__gmpq_equal");
procedure gmpq_get_num (a1 : access mpz_struct;
a2 : access constant mpq_struct);
pragma Import (C, gmpq_get_num, "__gmpq_get_num");
procedure gmpq_get_den (a1 : access mpz_struct;
a2 : access constant mpq_struct);
pragma Import (C, gmpq_get_den, "__gmpq_get_den");
function gmpq_get_d (a1 : access constant mpq_struct) return double;
pragma Import (C, gmpq_get_d, "__gmpq_get_d");
function gmpq_get_str (a1 : access char; a2 : signed_int;
a3 : access constant mpq_struct) return char_ptr;
pragma Import (C, gmpq_get_str, "__gmpq_get_str");
procedure gmpq_init (a1 : access mpq_struct);
pragma Import (C, gmpq_init, "__gmpq_init");
procedure gmpq_inits (a1 : access mpq_struct);
pragma Import (C, gmpq_inits, "__gmpq_inits");
procedure gmpq_inv (a1 : access mpq_struct;
a2 : access constant mpq_struct);
pragma Import (C, gmpq_inv, "__gmpq_inv");
procedure gmpq_mul (a1 : access mpq_struct;
a2 : access constant mpq_struct; a3 : access constant mpq_struct);
pragma Import (C, gmpq_mul, "__gmpq_mul");
procedure gmpq_mul_2exp (a1 : access mpq_struct;
a2 : access constant mpq_struct; a3 : mp_bitcnt_t);
pragma Import (C, gmpq_mul_2exp, "__gmpq_mul_2exp");
procedure qqgmpq_neg (a1 : access mpq_struct;
a2 : access constant mpq_struct);
pragma Import (C, qqgmpq_neg, "__gmpq_neg");
procedure gmpq_set (a1 : access mpq_struct;
a2 : access constant mpq_struct);
pragma Import (C, gmpq_set, "__gmpq_set");
procedure gmpq_set_d (a1 : access mpq_struct; a2 : double);
pragma Import (C, gmpq_set_d, "__gmpq_set_d");
procedure gmpq_set_den (a1 : access mpq_struct;
a2 : access constant mpz_struct);
pragma Import (C, gmpq_set_den, "__gmpq_set_den");
procedure gmpq_set_f (a1 : access mpq_struct;
a2 : access constant mpf_struct);
pragma Import (C, gmpq_set_f, "__gmpq_set_f");
procedure gmpq_set_num (a1 : access mpq_struct;
a2 : access constant mpz_struct);
pragma Import (C, gmpq_set_num, "__gmpq_set_num");
procedure gmpq_set_si (a1 : access mpq_struct; a2 : signed_long;
a3 : unsigned_long);
pragma Import (C, gmpq_set_si, "__gmpq_set_si");
function gmpq_set_str (a1 : access mpq_struct; a2 : access constant char;
a3 : signed_int) return signed_int;
pragma Import (C, gmpq_set_str, "__gmpq_set_str");
procedure gmpq_set_ui (a1 : access mpq_struct; a2 : unsigned_long;
a3 : unsigned_long);
pragma Import (C, gmpq_set_ui, "__gmpq_set_ui");
procedure gmpq_set_z (a1 : access mpq_struct;
a2 : access constant mpz_struct);
pragma Import (C, gmpq_set_z, "__gmpq_set_z");
procedure gmpq_sub (a1 : access mpq_struct;
a2 : access constant mpq_struct; a3 : access constant mpq_struct);
pragma Import (C, gmpq_sub, "__gmpq_sub");
procedure gmpq_swap (a1 : access mpq_struct; a2 : access mpq_struct);
pragma Import (C, gmpq_swap, "__gmpq_swap");
procedure gmpf_abs (a1 : access mpf_struct;
a2 : access constant mpf_struct);
pragma Import (C, gmpf_abs, "__gmpf_abs");
procedure gmpf_add (a1 : access mpf_struct;
a2 : access constant mpf_struct; a3 : access constant mpf_struct);
pragma Import (C, gmpf_add, "__gmpf_add");
procedure gmpf_add_ui (a1 : access mpf_struct;
a2 : access constant mpf_struct; a3 : unsigned_long);
pragma Import (C, gmpf_add_ui, "__gmpf_add_ui");
procedure gmpf_ceil (a1 : access mpf_struct;
a2 : access constant mpf_struct);
pragma Import (C, gmpf_ceil, "__gmpf_ceil");
procedure gmpf_clear (a1 : access mpf_struct);
pragma Import (C, gmpf_clear, "__gmpf_clear");
procedure gmpf_clears (a1 : access mpf_struct);
pragma Import (C, gmpf_clears, "__gmpf_clears");
function gmpf_cmp (a1 : access constant mpf_struct;
a2 : access constant mpf_struct) return signed_int;
pragma Import (C, gmpf_cmp, "__gmpf_cmp");
function gmpf_cmp_z (a1 : access constant mpf_struct;
a2 : access constant mpz_struct) return signed_int;
pragma Import (C, gmpf_cmp_z, "__gmpf_cmp_z");
function gmpf_cmp_d (a1 : access constant mpf_struct; a2 : double)
return signed_int;
pragma Import (C, gmpf_cmp_d, "__gmpf_cmp_d");
function gmpf_cmp_si (a1 : access constant mpf_struct; a2 : signed_long)
return signed_int;
pragma Import (C, gmpf_cmp_si, "__gmpf_cmp_si");
function gmpf_cmp_ui (a1 : access constant mpf_struct; a2 : unsigned_long)
return signed_int;
pragma Import (C, gmpf_cmp_ui, "__gmpf_cmp_ui");
procedure gmpf_div (a1 : access mpf_struct;
a2 : access constant mpf_struct; a3 : access constant mpf_struct);
pragma Import (C, gmpf_div, "__gmpf_div");
procedure gmpf_div_2exp (a1 : access mpf_struct;
a2 : access constant mpf_struct; a3 : mp_bitcnt_t);
pragma Import (C, gmpf_div_2exp, "__gmpf_div_2exp");
procedure gmpf_div_ui (a1 : access mpf_struct;
a2 : access constant mpf_struct; a3 : unsigned_long);
pragma Import (C, gmpf_div_ui, "__gmpf_div_ui");
procedure gmpf_dump (a1 : access constant mpf_struct);
pragma Import (C, gmpf_dump, "__gmpf_dump");
function gmpf_eq (a1 : access constant mpf_struct;
a2 : access constant mpf_struct; a3 : mp_bitcnt_t) return signed_int;
pragma Import (C, gmpf_eq, "__gmpf_eq");
function gmpf_fits_sint_p (a1 : access constant mpf_struct)
return signed_int;
pragma Import (C, gmpf_fits_sint_p, "__gmpf_fits_sint_p");
function gmpf_fits_slong_p (a1 : access constant mpf_struct)
return signed_int;
pragma Import (C, gmpf_fits_slong_p, "__gmpf_fits_slong_p");
function gmpf_fits_sshort_p (a1 : access constant mpf_struct)
return signed_int;
pragma Import (C, gmpf_fits_sshort_p, "__gmpf_fits_sshort_p");
function gmpf_fits_uint_p (a1 : access constant mpf_struct)
return signed_int;
pragma Import (C, gmpf_fits_uint_p, "__gmpf_fits_uint_p");
function gmpf_fits_ulong_p (a1 : access constant mpf_struct)
return signed_int;
pragma Import (C, gmpf_fits_ulong_p, "__gmpf_fits_ulong_p");
function gmpf_fits_ushort_p (a1 : access constant mpf_struct)
return signed_int;
pragma Import (C, gmpf_fits_ushort_p, "__gmpf_fits_ushort_p");
procedure gmpf_floor (a1 : access mpf_struct;
a2 : access constant mpf_struct);
pragma Import (C, gmpf_floor, "__gmpf_floor");
function gmpf_get_d (a1 : access constant mpf_struct) return double;
pragma Import (C, gmpf_get_d, "__gmpf_get_d");
function gmpf_get_d_2exp (a1 : access signed_long;
a2 : access constant mpf_struct) return double;
pragma Import (C, gmpf_get_d_2exp, "__gmpf_get_d_2exp");
function gmpf_get_default_prec return mp_bitcnt_t;
pragma Import (C, gmpf_get_default_prec, "__gmpf_get_default_prec");
function gmpf_get_prec (a1 : access constant mpf_struct)
return mp_bitcnt_t;
pragma Import (C, gmpf_get_prec, "__gmpf_get_prec");
function gmpf_get_si (a1 : access constant mpf_struct) return signed_long;
pragma Import (C, gmpf_get_si, "__gmpf_get_si");
function gmpf_get_str (a1 : access char; a2 : access mp_exp_t;
a3 : signed_int; a4 : stddef.size_t; a5 : access constant mpf_struct)
return char_ptr;
pragma Import (C, gmpf_get_str, "__gmpf_get_str");
function gmpf_get_ui (a1 : access constant mpf_struct)
return unsigned_long;
pragma Import (C, gmpf_get_ui, "__gmpf_get_ui");
procedure gmpf_init (a1 : access mpf_struct);
pragma Import (C, gmpf_init, "__gmpf_init");
procedure gmpf_init2 (a1 : access mpf_struct; a2 : mp_bitcnt_t);
pragma Import (C, gmpf_init2, "__gmpf_init2");
procedure gmpf_inits (a1 : access mpf_struct);
pragma Import (C, gmpf_inits, "__gmpf_inits");
procedure gmpf_init_set (a1 : access mpf_struct;
a2 : access constant mpf_struct);
pragma Import (C, gmpf_init_set, "__gmpf_init_set");
procedure gmpf_init_set_d (a1 : access mpf_struct; a2 : double);
pragma Import (C, gmpf_init_set_d, "__gmpf_init_set_d");
procedure gmpf_init_set_si (a1 : access mpf_struct; a2 : signed_long);
pragma Import (C, gmpf_init_set_si, "__gmpf_init_set_si");
function gmpf_init_set_str (a1 : access mpf_struct;
a2 : access constant char; a3 : signed_int) return signed_int;
pragma Import (C, gmpf_init_set_str, "__gmpf_init_set_str");
procedure gmpf_init_set_ui (a1 : access mpf_struct; a2 : unsigned_long);
pragma Import (C, gmpf_init_set_ui, "__gmpf_init_set_ui");
function gmpf_integer_p (a1 : access constant mpf_struct)
return signed_int;
pragma Import (C, gmpf_integer_p, "__gmpf_integer_p");
procedure gmpf_mul (a1 : access mpf_struct;
a2 : access constant mpf_struct; a3 : access constant mpf_struct);
pragma Import (C, gmpf_mul, "__gmpf_mul");
procedure gmpf_mul_2exp (a1 : access mpf_struct;
a2 : access constant mpf_struct; a3 : mp_bitcnt_t);
pragma Import (C, gmpf_mul_2exp, "__gmpf_mul_2exp");
procedure gmpf_mul_ui (a1 : access mpf_struct;
a2 : access constant mpf_struct; a3 : unsigned_long);
pragma Import (C, gmpf_mul_ui, "__gmpf_mul_ui");
procedure gmpf_neg (a1 : access mpf_struct;
a2 : access constant mpf_struct);
pragma Import (C, gmpf_neg, "__gmpf_neg");
procedure gmpf_pow_ui (a1 : access mpf_struct;
a2 : access constant mpf_struct; a3 : unsigned_long);
pragma Import (C, gmpf_pow_ui, "__gmpf_pow_ui");
procedure gmpf_random2 (a1 : access mpf_struct; a2 : mp_size_t;
a3 : mp_exp_t);
pragma Import (C, gmpf_random2, "__gmpf_random2");
procedure gmpf_reldiff (a1 : access mpf_struct;
a2 : access constant mpf_struct; a3 : access constant mpf_struct);
pragma Import (C, gmpf_reldiff, "__gmpf_reldiff");
procedure gmpf_set (a1 : access mpf_struct;
a2 : access constant mpf_struct);
pragma Import (C, gmpf_set, "__gmpf_set");
procedure gmpf_set_d (a1 : access mpf_struct; a2 : double);
pragma Import (C, gmpf_set_d, "__gmpf_set_d");
procedure gmpf_set_default_prec (a1 : mp_bitcnt_t);
pragma Import (C, gmpf_set_default_prec, "__gmpf_set_default_prec");
procedure gmpf_set_prec (a1 : access mpf_struct; a2 : mp_bitcnt_t);
pragma Import (C, gmpf_set_prec, "__gmpf_set_prec");
procedure gmpf_set_prec_raw (a1 : access mpf_struct; a2 : mp_bitcnt_t);
pragma Import (C, gmpf_set_prec_raw, "__gmpf_set_prec_raw");
procedure gmpf_set_q (a1 : access mpf_struct;
a2 : access constant mpq_struct);
pragma Import (C, gmpf_set_q, "__gmpf_set_q");
procedure gmpf_set_si (a1 : access mpf_struct; a2 : signed_long);
pragma Import (C, gmpf_set_si, "__gmpf_set_si");
function gmpf_set_str (a1 : access mpf_struct; a2 : access constant char;
a3 : signed_int) return signed_int;
pragma Import (C, gmpf_set_str, "__gmpf_set_str");
procedure gmpf_set_ui (a1 : access mpf_struct; a2 : unsigned_long);
pragma Import (C, gmpf_set_ui, "__gmpf_set_ui");
procedure gmpf_set_z (a1 : access mpf_struct;
a2 : access constant mpz_struct);
pragma Import (C, gmpf_set_z, "__gmpf_set_z");
function gmpf_size (a1 : access constant mpf_struct) return stddef.size_t;
pragma Import (C, gmpf_size, "__gmpf_size");
procedure gmpf_sqrt (a1 : access mpf_struct;
a2 : access constant mpf_struct);
pragma Import (C, gmpf_sqrt, "__gmpf_sqrt");
procedure gmpf_sqrt_ui (a1 : access mpf_struct; a2 : unsigned_long);
pragma Import (C, gmpf_sqrt_ui, "__gmpf_sqrt_ui");
procedure gmpf_sub (a1 : access mpf_struct;
a2 : access constant mpf_struct; a3 : access constant mpf_struct);
pragma Import (C, gmpf_sub, "__gmpf_sub");
procedure gmpf_sub_ui (a1 : access mpf_struct;
a2 : access constant mpf_struct; a3 : unsigned_long);
pragma Import (C, gmpf_sub_ui, "__gmpf_sub_ui");
procedure gmpf_swap (a1 : access mpf_struct; a2 : access mpf_struct);
pragma Import (C, gmpf_swap, "__gmpf_swap");
procedure gmpf_trunc (a1 : access mpf_struct;
a2 : access constant mpf_struct);
pragma Import (C, gmpf_trunc, "__gmpf_trunc");
procedure gmpf_ui_div (a1 : access mpf_struct; a2 : unsigned_long;
a3 : access constant mpf_struct);
pragma Import (C, gmpf_ui_div, "__gmpf_ui_div");
procedure gmpf_ui_sub (a1 : access mpf_struct; a2 : unsigned_long;
a3 : access constant mpf_struct);
pragma Import (C, gmpf_ui_sub, "__gmpf_ui_sub");
procedure gmpf_urandomb (a1 : access mpf_struct;
a2 : access gmp_randstate_struct; a3 : mp_bitcnt_t);
pragma Import (C, gmpf_urandomb, "__gmpf_urandomb");
function qqgmpn_add (a1 : access mp_limb_t;
a2 : access constant mp_limb_t; a3 : mp_size_t;
a4 : access constant mp_limb_t; a5 : mp_size_t) return mp_limb_t;
pragma Import (C, qqgmpn_add, "__gmpn_add");
function qqgmpn_add_1 (a1 : access mp_limb_t;
a2 : access constant mp_limb_t; a3 : mp_size_t; a4 : mp_limb_t)
return mp_limb_t;
pragma Import (C, qqgmpn_add_1, "__gmpn_add_1");
function gmpn_add_n (a1 : access mp_limb_t;
a2 : access constant mp_limb_t; a3 : access constant mp_limb_t;
a4 : mp_size_t) return mp_limb_t;
pragma Import (C, gmpn_add_n, "__gmpn_add_n");
function gmpn_addmul_1 (a1 : access mp_limb_t;
a2 : access constant mp_limb_t; a3 : mp_size_t; a4 : mp_limb_t)
return mp_limb_t;
pragma Import (C, gmpn_addmul_1, "__gmpn_addmul_1");
function qqgmpn_cmp (a1 : access constant mp_limb_t;
a2 : access constant mp_limb_t; a3 : mp_size_t) return signed_int;
pragma Import (C, qqgmpn_cmp, "__gmpn_cmp");
function qqgmpn_zero_p (a1 : access constant mp_limb_t; a2 : mp_size_t)
return signed_int;
pragma Import (C, qqgmpn_zero_p, "__gmpn_zero_p");
procedure gmpn_divexact_1 (a1 : access mp_limb_t;
a2 : access constant mp_limb_t; a3 : mp_size_t; a4 : mp_limb_t);
pragma Import (C, gmpn_divexact_1, "__gmpn_divexact_1");
function gmpn_divexact_by3c (a1 : access mp_limb_t;
a2 : access constant mp_limb_t; a3 : mp_size_t; a4 : mp_limb_t)
return mp_limb_t;
pragma Import (C, gmpn_divexact_by3c, "__gmpn_divexact_by3c");
function gmpn_divrem (a1 : access mp_limb_t; a2 : mp_size_t;
a3 : access mp_limb_t; a4 : mp_size_t; a5 : access constant mp_limb_t;
a6 : mp_size_t) return mp_limb_t;
pragma Import (C, gmpn_divrem, "__gmpn_divrem");
function gmpn_divrem_1 (a1 : access mp_limb_t; a2 : mp_size_t;
a3 : access constant mp_limb_t; a4 : mp_size_t; a5 : mp_limb_t)
return mp_limb_t;
pragma Import (C, gmpn_divrem_1, "__gmpn_divrem_1");
function gmpn_divrem_2 (a1 : access mp_limb_t; a2 : mp_size_t;
a3 : access mp_limb_t; a4 : mp_size_t; a5 : access constant mp_limb_t)
return mp_limb_t;
pragma Import (C, gmpn_divrem_2, "__gmpn_divrem_2");
function gmpn_div_qr_1 (a1 : access mp_limb_t; a2 : access mp_limb_t;
a3 : access constant mp_limb_t; a4 : mp_size_t; a5 : mp_limb_t)
return mp_limb_t;
pragma Import (C, gmpn_div_qr_1, "__gmpn_div_qr_1");
function gmpn_div_qr_2 (a1 : access mp_limb_t; a2 : access mp_limb_t;
a3 : access constant mp_limb_t; a4 : mp_size_t;
a5 : access constant mp_limb_t) return mp_limb_t;
pragma Import (C, gmpn_div_qr_2, "__gmpn_div_qr_2");
function gmpn_gcd (a1 : access mp_limb_t; a2 : access mp_limb_t;
a3 : mp_size_t; a4 : access mp_limb_t; a5 : mp_size_t)
return mp_size_t;
pragma Import (C, gmpn_gcd, "__gmpn_gcd");
function gmpn_gcd_1 (a1 : access constant mp_limb_t; a2 : mp_size_t;
a3 : mp_limb_t) return mp_limb_t;
pragma Import (C, gmpn_gcd_1, "__gmpn_gcd_1");
function gmpn_gcdext_1 (a1 : access mp_limb_signed_t;
a2 : access mp_limb_signed_t; a3 : mp_limb_t; a4 : mp_limb_t)
return mp_limb_t;
pragma Import (C, gmpn_gcdext_1, "__gmpn_gcdext_1");
function gmpn_gcdext (a1 : access mp_limb_t; a2 : access mp_limb_t;
a3 : access mp_size_t; a4 : access mp_limb_t; a5 : mp_size_t;
a6 : access mp_limb_t; a7 : mp_size_t) return mp_size_t;
pragma Import (C, gmpn_gcdext, "__gmpn_gcdext");
function gmpn_get_str (a1 : access unsigned_char; a2 : signed_int;
a3 : access mp_limb_t; a4 : mp_size_t) return stddef.size_t;
pragma Import (C, gmpn_get_str, "__gmpn_get_str");
function gmpn_hamdist (a1 : access constant mp_limb_t;
a2 : access constant mp_limb_t; a3 : mp_size_t) return mp_bitcnt_t;
pragma Import (C, gmpn_hamdist, "__gmpn_hamdist");
function gmpn_lshift (a1 : access mp_limb_t;
a2 : access constant mp_limb_t; a3 : mp_size_t; a4 : unsigned_int)
return mp_limb_t;
pragma Import (C, gmpn_lshift, "__gmpn_lshift");
function gmpn_mod_1 (a1 : access constant mp_limb_t; a2 : mp_size_t;
a3 : mp_limb_t) return mp_limb_t;
pragma Import (C, gmpn_mod_1, "__gmpn_mod_1");
function gmpn_mul (a1 : access mp_limb_t; a2 : access constant mp_limb_t;
a3 : mp_size_t; a4 : access constant mp_limb_t; a5 : mp_size_t)
return mp_limb_t;
pragma Import (C, gmpn_mul, "__gmpn_mul");
function gmpn_mul_1 (a1 : access mp_limb_t;
a2 : access constant mp_limb_t; a3 : mp_size_t; a4 : mp_limb_t)
return mp_limb_t;
pragma Import (C, gmpn_mul_1, "__gmpn_mul_1");
procedure gmpn_mul_n (a1 : access mp_limb_t;
a2 : access constant mp_limb_t; a3 : access constant mp_limb_t;
a4 : mp_size_t);
pragma Import (C, gmpn_mul_n, "__gmpn_mul_n");
procedure gmpn_sqr (a1 : access mp_limb_t; a2 : access constant mp_limb_t;
a3 : mp_size_t);
pragma Import (C, gmpn_sqr, "__gmpn_sqr");
function qqgmpn_neg (a1 : access mp_limb_t;
a2 : access constant mp_limb_t; a3 : mp_size_t) return mp_limb_t;
pragma Import (C, qqgmpn_neg, "__gmpn_neg");
procedure gmpn_com (a1 : access mp_limb_t; a2 : access constant mp_limb_t;
a3 : mp_size_t);
pragma Import (C, gmpn_com, "__gmpn_com");
function gmpn_perfect_square_p (a1 : access constant mp_limb_t;
a2 : mp_size_t) return signed_int;
pragma Import (C, gmpn_perfect_square_p, "__gmpn_perfect_square_p");
function gmpn_perfect_power_p (a1 : access constant mp_limb_t;
a2 : mp_size_t) return signed_int;
pragma Import (C, gmpn_perfect_power_p, "__gmpn_perfect_power_p");
function gmpn_popcount (a1 : access constant mp_limb_t; a2 : mp_size_t)
return mp_bitcnt_t;
pragma Import (C, gmpn_popcount, "__gmpn_popcount");
function gmpn_pow_1 (a1 : access mp_limb_t;
a2 : access constant mp_limb_t; a3 : mp_size_t; a4 : mp_limb_t;
a5 : access mp_limb_t) return mp_size_t;
pragma Import (C, gmpn_pow_1, "__gmpn_pow_1");
function gmpn_preinv_mod_1 (a1 : access constant mp_limb_t;
a2 : mp_size_t; a3 : mp_limb_t; a4 : mp_limb_t) return mp_limb_t;
pragma Import (C, gmpn_preinv_mod_1, "__gmpn_preinv_mod_1");
procedure gmpn_random (a1 : access mp_limb_t; a2 : mp_size_t);
pragma Import (C, gmpn_random, "__gmpn_random");
procedure gmpn_random2 (a1 : access mp_limb_t; a2 : mp_size_t);
pragma Import (C, gmpn_random2, "__gmpn_random2");
function gmpn_rshift (a1 : access mp_limb_t;
a2 : access constant mp_limb_t; a3 : mp_size_t; a4 : unsigned_int)
return mp_limb_t;
pragma Import (C, gmpn_rshift, "__gmpn_rshift");
function gmpn_scan0 (a1 : access constant mp_limb_t; a2 : mp_bitcnt_t)
return mp_bitcnt_t;
pragma Import (C, gmpn_scan0, "__gmpn_scan0");
function gmpn_scan1 (a1 : access constant mp_limb_t; a2 : mp_bitcnt_t)
return mp_bitcnt_t;
pragma Import (C, gmpn_scan1, "__gmpn_scan1");
function gmpn_set_str (a1 : access mp_limb_t;
a2 : access constant unsigned_char; a3 : stddef.size_t;
a4 : signed_int) return mp_size_t;
pragma Import (C, gmpn_set_str, "__gmpn_set_str");
function gmpn_sizeinbase (a1 : access constant mp_limb_t; a2 : mp_size_t;
a3 : signed_int) return stddef.size_t;
pragma Import (C, gmpn_sizeinbase, "__gmpn_sizeinbase");
function gmpn_sqrtrem (a1 : access mp_limb_t; a2 : access mp_limb_t;
a3 : access constant mp_limb_t; a4 : mp_size_t) return mp_size_t;
pragma Import (C, gmpn_sqrtrem, "__gmpn_sqrtrem");
function qqgmpn_sub (a1 : access mp_limb_t;
a2 : access constant mp_limb_t; a3 : mp_size_t;
a4 : access constant mp_limb_t; a5 : mp_size_t) return mp_limb_t;
pragma Import (C, qqgmpn_sub, "__gmpn_sub");
function qqgmpn_sub_1 (a1 : access mp_limb_t;
a2 : access constant mp_limb_t; a3 : mp_size_t; a4 : mp_limb_t)
return mp_limb_t;
pragma Import (C, qqgmpn_sub_1, "__gmpn_sub_1");
function gmpn_sub_n (a1 : access mp_limb_t;
a2 : access constant mp_limb_t; a3 : access constant mp_limb_t;
a4 : mp_size_t) return mp_limb_t;
pragma Import (C, gmpn_sub_n, "__gmpn_sub_n");
function gmpn_submul_1 (a1 : access mp_limb_t;
a2 : access constant mp_limb_t; a3 : mp_size_t; a4 : mp_limb_t)
return mp_limb_t;
pragma Import (C, gmpn_submul_1, "__gmpn_submul_1");
procedure gmpn_tdiv_qr (a1 : access mp_limb_t; a2 : access mp_limb_t;
a3 : mp_size_t; a4 : access constant mp_limb_t; a5 : mp_size_t;
a6 : access constant mp_limb_t; a7 : mp_size_t);
pragma Import (C, gmpn_tdiv_qr, "__gmpn_tdiv_qr");
procedure gmpn_and_n (a1 : access mp_limb_t;
a2 : access constant mp_limb_t; a3 : access constant mp_limb_t;
a4 : mp_size_t);
pragma Import (C, gmpn_and_n, "__gmpn_and_n");
procedure gmpn_andn_n (a1 : access mp_limb_t;
a2 : access constant mp_limb_t; a3 : access constant mp_limb_t;
a4 : mp_size_t);
pragma Import (C, gmpn_andn_n, "__gmpn_andn_n");
procedure gmpn_nand_n (a1 : access mp_limb_t;
a2 : access constant mp_limb_t; a3 : access constant mp_limb_t;
a4 : mp_size_t);
pragma Import (C, gmpn_nand_n, "__gmpn_nand_n");
procedure gmpn_ior_n (a1 : access mp_limb_t;
a2 : access constant mp_limb_t; a3 : access constant mp_limb_t;
a4 : mp_size_t);
pragma Import (C, gmpn_ior_n, "__gmpn_ior_n");
procedure gmpn_iorn_n (a1 : access mp_limb_t;
a2 : access constant mp_limb_t; a3 : access constant mp_limb_t;
a4 : mp_size_t);
pragma Import (C, gmpn_iorn_n, "__gmpn_iorn_n");
procedure gmpn_nior_n (a1 : access mp_limb_t;
a2 : access constant mp_limb_t; a3 : access constant mp_limb_t;
a4 : mp_size_t);
pragma Import (C, gmpn_nior_n, "__gmpn_nior_n");
procedure gmpn_xor_n (a1 : access mp_limb_t;
a2 : access constant mp_limb_t; a3 : access constant mp_limb_t;
a4 : mp_size_t);
pragma Import (C, gmpn_xor_n, "__gmpn_xor_n");
procedure gmpn_xnor_n (a1 : access mp_limb_t;
a2 : access constant mp_limb_t; a3 : access constant mp_limb_t;
a4 : mp_size_t);
pragma Import (C, gmpn_xnor_n, "__gmpn_xnor_n");
procedure gmpn_copyi (a1 : access mp_limb_t;
a2 : access constant mp_limb_t; a3 : mp_size_t);
pragma Import (C, gmpn_copyi, "__gmpn_copyi");
procedure gmpn_copyd (a1 : access mp_limb_t;
a2 : access constant mp_limb_t; a3 : mp_size_t);
pragma Import (C, gmpn_copyd, "__gmpn_copyd");
procedure gmpn_zero (a1 : access mp_limb_t; a2 : mp_size_t);
pragma Import (C, gmpn_zero, "__gmpn_zero");
function gmpn_cnd_add_n (a1 : mp_limb_t; a2 : access mp_limb_t;
a3 : access constant mp_limb_t; a4 : access constant mp_limb_t;
a5 : mp_size_t) return mp_limb_t;
pragma Import (C, gmpn_cnd_add_n, "__gmpn_cnd_add_n");
function gmpn_cnd_sub_n (a1 : mp_limb_t; a2 : access mp_limb_t;
a3 : access constant mp_limb_t; a4 : access constant mp_limb_t;
a5 : mp_size_t) return mp_limb_t;
pragma Import (C, gmpn_cnd_sub_n, "__gmpn_cnd_sub_n");
function gmpn_sec_add_1 (a1 : access mp_limb_t;
a2 : access constant mp_limb_t; a3 : mp_size_t; a4 : mp_limb_t;
a5 : access mp_limb_t) return mp_limb_t;
pragma Import (C, gmpn_sec_add_1, "__gmpn_sec_add_1");
function gmpn_sec_add_1_itch (a1 : mp_size_t) return mp_size_t;
pragma Import (C, gmpn_sec_add_1_itch, "__gmpn_sec_add_1_itch");
function gmpn_sec_sub_1 (a1 : access mp_limb_t;
a2 : access constant mp_limb_t; a3 : mp_size_t; a4 : mp_limb_t;
a5 : access mp_limb_t) return mp_limb_t;
pragma Import (C, gmpn_sec_sub_1, "__gmpn_sec_sub_1");
function gmpn_sec_sub_1_itch (a1 : mp_size_t) return mp_size_t;
pragma Import (C, gmpn_sec_sub_1_itch, "__gmpn_sec_sub_1_itch");
procedure gmpn_cnd_swap (a1 : mp_limb_t; a2 : access mp_limb_t_volatile;
a3 : access mp_limb_t_volatile; a4 : mp_size_t);
pragma Import (C, gmpn_cnd_swap, "__gmpn_cnd_swap");
procedure gmpn_sec_mul (a1 : access mp_limb_t;
a2 : access constant mp_limb_t; a3 : mp_size_t;
a4 : access constant mp_limb_t; a5 : mp_size_t; a6 : access mp_limb_t);
pragma Import (C, gmpn_sec_mul, "__gmpn_sec_mul");
function gmpn_sec_mul_itch (a1 : mp_size_t; a2 : mp_size_t)
return mp_size_t;
pragma Import (C, gmpn_sec_mul_itch, "__gmpn_sec_mul_itch");
procedure gmpn_sec_sqr (a1 : access mp_limb_t;
a2 : access constant mp_limb_t; a3 : mp_size_t; a4 : access mp_limb_t);
pragma Import (C, gmpn_sec_sqr, "__gmpn_sec_sqr");
function gmpn_sec_sqr_itch (a1 : mp_size_t) return mp_size_t;
pragma Import (C, gmpn_sec_sqr_itch, "__gmpn_sec_sqr_itch");
procedure gmpn_sec_powm (a1 : access mp_limb_t;
a2 : access constant mp_limb_t; a3 : mp_size_t;
a4 : access constant mp_limb_t; a5 : mp_bitcnt_t;
a6 : access constant mp_limb_t; a7 : mp_size_t; a8 : access mp_limb_t);
pragma Import (C, gmpn_sec_powm, "__gmpn_sec_powm");
function gmpn_sec_powm_itch (a1 : mp_size_t; a2 : mp_bitcnt_t;
a3 : mp_size_t) return mp_size_t;
pragma Import (C, gmpn_sec_powm_itch, "__gmpn_sec_powm_itch");
procedure gmpn_sec_tabselect (a1 : access mp_limb_t_volatile;
a2 : access constant mp_limb_t_volatile; a3 : mp_size_t;
a4 : mp_size_t; a5 : mp_size_t);
pragma Import (C, gmpn_sec_tabselect, "__gmpn_sec_tabselect");
function gmpn_sec_div_qr (a1 : access mp_limb_t; a2 : access mp_limb_t;
a3 : mp_size_t; a4 : access constant mp_limb_t; a5 : mp_size_t;
a6 : access mp_limb_t) return mp_limb_t;
pragma Import (C, gmpn_sec_div_qr, "__gmpn_sec_div_qr");
function gmpn_sec_div_qr_itch (a1 : mp_size_t; a2 : mp_size_t)
return mp_size_t;
pragma Import (C, gmpn_sec_div_qr_itch, "__gmpn_sec_div_qr_itch");
procedure gmpn_sec_div_r (a1 : access mp_limb_t; a2 : mp_size_t;
a3 : access constant mp_limb_t; a4 : mp_size_t; a5 : access mp_limb_t);
pragma Import (C, gmpn_sec_div_r, "__gmpn_sec_div_r");
function gmpn_sec_div_r_itch (a1 : mp_size_t; a2 : mp_size_t)
return mp_size_t;
pragma Import (C, gmpn_sec_div_r_itch, "__gmpn_sec_div_r_itch");
function gmpn_sec_invert (a1 : access mp_limb_t; a2 : access mp_limb_t;
a3 : access constant mp_limb_t; a4 : mp_size_t; a5 : mp_bitcnt_t;
a6 : access mp_limb_t) return signed_int;
pragma Import (C, gmpn_sec_invert, "__gmpn_sec_invert");
function gmpn_sec_invert_itch (a1 : mp_size_t) return mp_size_t;
pragma Import (C, gmpn_sec_invert_itch, "__gmpn_sec_invert_itch");
type enum_03ee533d is (GMP_ERROR_NONE, GMP_ERROR_UNSUPPORTED_ARGUMENT,
GMP_ERROR_DIVISION_BY_ZERO, GMP_ERROR_SQRT_OF_NEGATIVE,
GMP_ERROR_INVALID_ARGUMENT);
for enum_03ee533d use (GMP_ERROR_NONE => 0,
GMP_ERROR_UNSUPPORTED_ARGUMENT => 1, GMP_ERROR_DIVISION_BY_ZERO => 2,
GMP_ERROR_SQRT_OF_NEGATIVE => 4, GMP_ERROR_INVALID_ARGUMENT => 8);
pragma Convention (C, enum_03ee533d);
for enum_03ee533d'Size use signed_int'Size;
function Cast is new Ada.Unchecked_Conversion (enum_03ee533d, signed_int);
GMP_LIMB_BITS : constant := 64;
GMP_NAIL_BITS : constant := 0;
GMP_NAIL_MASK : constant := 0;
GMP_NUMB_BITS : constant := 64;
GMP_NUMB_MASK : constant := -1;
GMP_NUMB_MAX : constant := -1;
-- MPZ_ROINIT_N (unparsible)
-- __GMPN_ADD (unparsible)
-- __GMPN_ADDCB (function macro)
-- __GMPN_ADD_1 (unparsible)
-- __GMPN_AORS (unparsible)
-- __GMPN_AORS_1 (unparsible)
-- __GMPN_CMP (function macro)
-- __GMPN_COPY (function macro)
-- __GMPN_COPY_REST (function macro)
-- __GMPN_SUB (unparsible)
-- __GMPN_SUBCB (function macro)
-- __GMPN_SUB_1 (unparsible)
-- __GMPZ_FITS_UTYPE_P (unparsible)
-- __GMP_ABS (function macro)
-- __GMP_ATTRIBUTE_PURE (attribute)
-- __GMP_CAST (unparsible)
GMP_CC : constant char_array (0 .. 20) := "x86_64-linux-gnu-gcc"
& char'Val (0);
GMP_CFLAGS : constant char_array (0 .. 122) :=
"-g -O2 -fdebug-prefix-map=/build/gmp-KLDdGm/gmp-6.1.2+dfsg=. -fstack-pr"
& "otector-strong -Wformat -Werror=format-security -O3" & char'Val (0);
-- __GMP_CRAY_Pragma (empty)
-- __GMP_DECLSPEC (empty)
-- __GMP_DECLSPEC_EXPORT (unparsible)
-- __GMP_DECLSPEC_IMPORT (unparsible)
-- __GMP_DECLSPEC_XX (empty)
-- __GMP_EXTERN_INLINE (alias of inline)
-- __GMP_GNUC_PREREQ (function macro)
GMP_HAVE_HOST_CPU_FAMILY_power : constant := 0;
GMP_HAVE_HOST_CPU_FAMILY_powerpc : constant := 0;
-- __GMP_H__ (empty)
GMP_INLINE_PROTOTYPES : constant := 1;
GMP_LIBGMP_DLL : constant := 0;
-- __GMP_LIKELY (function macro)
-- __GMP_MAX (function macro)
GMP_MP_SIZE_T_INT : constant := 0;
-- __GMP_NOTHROW (empty)
-- __GMP_UNLIKELY (function macro)
GNU_MP_RELEASE : constant := 60102;
GNU_MP_VERSION : constant := 6;
GNU_MP_VERSION_MINOR : constant := 1;
GNU_MP_VERSION_PATCHLEVEL : constant := 2;
qqGNU_MPqq : constant := 6;
-- __MPN (has # or ##)
function qmpq_cmp_si (a1 : access constant mpq_struct; a2 : signed_long;
a3 : unsigned_long) return signed_int renames gmpq_cmp_si;
function qmpq_cmp_ui (a1 : access constant mpq_struct; a2 : unsigned_long;
a3 : unsigned_long) return signed_int renames gmpq_cmp_ui;
function qmpz_cmp_si (a1 : access constant mpz_struct; a2 : signed_long)
return signed_int renames gmpz_cmp_si;
function qmpz_cmp_ui (a1 : access constant mpz_struct; a2 : unsigned_long)
return signed_int renames gmpz_cmp_ui;
function qmpz_realloc (a1 : access mpz_struct; a2 : mp_size_t)
return void_ptr renames gmpz_realloc;
function gmp_asprintf (a1 : access char_ptr; a2 : access constant char)
return signed_int renames qqgmp_asprintf;
gmp_errno : signed_int renames qqgmp_errno;
-- gmp_fprintf (unparsible)
-- gmp_fscanf (unparsible)
-- gmp_obstack_printf (unparsible)
-- gmp_obstack_vprintf (unparsible)
function gmp_printf (a1 : access constant char) return signed_int
renames qqgmp_printf;
procedure gmp_printf (a1 : access constant char; a2 : stddef.size_t;
a3 : access constant mpf_struct) renames qqgmp_printf;
procedure gmp_randclear (a1 : access gmp_randstate_struct)
renames qqgmp_randclear;
procedure gmp_randinit (a1 : access gmp_randstate_struct;
a2 : gmp_randalg_t) renames qqgmp_randinit;
procedure gmp_randinit_default (a1 : access gmp_randstate_struct)
renames qqgmp_randinit_default;
procedure gmp_randinit_lc_2exp (a1 : access gmp_randstate_struct;
a2 : access constant mpz_struct; a3 : unsigned_long; a4 : mp_bitcnt_t)
renames qqgmp_randinit_lc_2exp;
function gmp_randinit_lc_2exp_size (a1 : access gmp_randstate_struct;
a2 : mp_bitcnt_t) return signed_int
renames qqgmp_randinit_lc_2exp_size;
procedure gmp_randinit_mt (a1 : access gmp_randstate_struct)
renames qqgmp_randinit_mt;
procedure gmp_randinit_set (a1 : access gmp_randstate_struct;
a2 : access constant gmp_randstate_struct) renames qqgmp_randinit_set;
procedure gmp_randseed (a1 : access gmp_randstate_struct;
a2 : access constant mpz_struct) renames qqgmp_randseed;
procedure gmp_randseed_ui (a1 : access gmp_randstate_struct;
a2 : unsigned_long) renames qqgmp_randseed_ui;
function gmp_scanf (a1 : access constant char) return signed_int
renames qqgmp_scanf;
function gmp_snprintf (a1 : access char; a2 : stddef.size_t;
a3 : access constant char) return signed_int renames qqgmp_snprintf;
function gmp_sprintf (a1 : access char; a2 : access constant char)
return signed_int renames qqgmp_sprintf;
function gmp_sscanf (a1 : access constant char; a2 : access constant char)
return signed_int renames qqgmp_sscanf;
function gmp_urandomb_ui (a1 : access gmp_randstate_struct;
a2 : unsigned_long) return unsigned_long renames qqgmp_urandomb_ui;
function gmp_urandomm_ui (a1 : access gmp_randstate_struct;
a2 : unsigned_long) return unsigned_long renames qqgmp_urandomm_ui;
-- gmp_vasprintf (unparsible)
gmp_version : char_const_ptr renames qqgmp_version;
-- gmp_vfprintf (unparsible)
-- gmp_vfscanf (unparsible)
-- gmp_vprintf (unparsible)
-- gmp_vscanf (unparsible)
-- gmp_vsnprintf (unparsible)
-- gmp_vsprintf (unparsible)
-- gmp_vsscanf (unparsible)
mp_bits_per_limb : signed_int renames gmp_bits_per_limb;
procedure mp_get_memory_functions (a1 : access access_8049cc57;
a2 : access access_a357404f; a3 : access access_fda29d15)
renames gmp_get_memory_functions;
procedure mp_set_memory_functions (a1 : access_8049cc57;
a2 : access_a357404f; a3 : access_fda29d15)
renames gmp_set_memory_functions;
procedure mpf_abs (a1 : access mpf_struct;
a2 : access constant mpf_struct) renames gmpf_abs;
procedure mpf_add (a1 : access mpf_struct;
a2 : access constant mpf_struct; a3 : access constant mpf_struct)
renames gmpf_add;
procedure mpf_add_ui (a1 : access mpf_struct;
a2 : access constant mpf_struct; a3 : unsigned_long)
renames gmpf_add_ui;
procedure mpf_ceil (a1 : access mpf_struct;
a2 : access constant mpf_struct) renames gmpf_ceil;
procedure mpf_clear (a1 : access mpf_struct) renames gmpf_clear;
procedure mpf_clears (a1 : access mpf_struct) renames gmpf_clears;
function mpf_cmp (a1 : access constant mpf_struct;
a2 : access constant mpf_struct) return signed_int renames gmpf_cmp;
function mpf_cmp_d (a1 : access constant mpf_struct; a2 : double)
return signed_int renames gmpf_cmp_d;
function mpf_cmp_si (a1 : access constant mpf_struct; a2 : signed_long)
return signed_int renames gmpf_cmp_si;
function mpf_cmp_ui (a1 : access constant mpf_struct; a2 : unsigned_long)
return signed_int renames gmpf_cmp_ui;
function mpf_cmp_z (a1 : access constant mpf_struct;
a2 : access constant mpz_struct) return signed_int renames gmpf_cmp_z;
procedure mpf_div (a1 : access mpf_struct;
a2 : access constant mpf_struct; a3 : access constant mpf_struct)
renames gmpf_div;
procedure mpf_div_2exp (a1 : access mpf_struct;
a2 : access constant mpf_struct; a3 : mp_bitcnt_t)
renames gmpf_div_2exp;
procedure mpf_div_ui (a1 : access mpf_struct;
a2 : access constant mpf_struct; a3 : unsigned_long)
renames gmpf_div_ui;
procedure mpf_dump (a1 : access constant mpf_struct) renames gmpf_dump;
function mpf_eq (a1 : access constant mpf_struct;
a2 : access constant mpf_struct; a3 : mp_bitcnt_t) return signed_int
renames gmpf_eq;
function mpf_fits_sint_p (a1 : access constant mpf_struct)
return signed_int renames gmpf_fits_sint_p;
function mpf_fits_slong_p (a1 : access constant mpf_struct)
return signed_int renames gmpf_fits_slong_p;
function mpf_fits_sshort_p (a1 : access constant mpf_struct)
return signed_int renames gmpf_fits_sshort_p;
function mpf_fits_uint_p (a1 : access constant mpf_struct)
return signed_int renames gmpf_fits_uint_p;
function mpf_fits_ulong_p (a1 : access constant mpf_struct)
return signed_int renames gmpf_fits_ulong_p;
function mpf_fits_ushort_p (a1 : access constant mpf_struct)
return signed_int renames gmpf_fits_ushort_p;
procedure mpf_floor (a1 : access mpf_struct;
a2 : access constant mpf_struct) renames gmpf_floor;
function mpf_get_d (a1 : access constant mpf_struct) return double
renames gmpf_get_d;
function mpf_get_d_2exp (a1 : access signed_long;
a2 : access constant mpf_struct) return double renames gmpf_get_d_2exp;
function mpf_get_default_prec return mp_bitcnt_t
renames gmpf_get_default_prec;
function mpf_get_prec (a1 : access constant mpf_struct) return mp_bitcnt_t
renames gmpf_get_prec;
function mpf_get_si (a1 : access constant mpf_struct) return signed_long
renames gmpf_get_si;
function mpf_get_str (a1 : access char; a2 : access mp_exp_t;
a3 : signed_int; a4 : stddef.size_t; a5 : access constant mpf_struct)
return char_ptr renames gmpf_get_str;
function mpf_get_ui (a1 : access constant mpf_struct) return unsigned_long
renames gmpf_get_ui;
procedure mpf_init (a1 : access mpf_struct) renames gmpf_init;
procedure mpf_init2 (a1 : access mpf_struct; a2 : mp_bitcnt_t)
renames gmpf_init2;
procedure mpf_init_set (a1 : access mpf_struct;
a2 : access constant mpf_struct) renames gmpf_init_set;
procedure mpf_init_set_d (a1 : access mpf_struct; a2 : double)
renames gmpf_init_set_d;
procedure mpf_init_set_si (a1 : access mpf_struct; a2 : signed_long)
renames gmpf_init_set_si;
function mpf_init_set_str (a1 : access mpf_struct;
a2 : access constant char; a3 : signed_int) return signed_int
renames gmpf_init_set_str;
procedure mpf_init_set_ui (a1 : access mpf_struct; a2 : unsigned_long)
renames gmpf_init_set_ui;
procedure mpf_inits (a1 : access mpf_struct) renames gmpf_inits;
-- mpf_inp_str (unparsible)
function mpf_integer_p (a1 : access constant mpf_struct) return signed_int
renames gmpf_integer_p;
procedure mpf_mul (a1 : access mpf_struct;
a2 : access constant mpf_struct; a3 : access constant mpf_struct)
renames gmpf_mul;
procedure mpf_mul_2exp (a1 : access mpf_struct;
a2 : access constant mpf_struct; a3 : mp_bitcnt_t)
renames gmpf_mul_2exp;
procedure mpf_mul_ui (a1 : access mpf_struct;
a2 : access constant mpf_struct; a3 : unsigned_long)
renames gmpf_mul_ui;
procedure mpf_neg (a1 : access mpf_struct;
a2 : access constant mpf_struct) renames gmpf_neg;
-- mpf_out_str (unparsible)
procedure mpf_pow_ui (a1 : access mpf_struct;
a2 : access constant mpf_struct; a3 : unsigned_long)
renames gmpf_pow_ui;
procedure mpf_random2 (a1 : access mpf_struct; a2 : mp_size_t;
a3 : mp_exp_t) renames gmpf_random2;
procedure mpf_reldiff (a1 : access mpf_struct;
a2 : access constant mpf_struct; a3 : access constant mpf_struct)
renames gmpf_reldiff;
procedure mpf_set (a1 : access mpf_struct;
a2 : access constant mpf_struct) renames gmpf_set;
procedure mpf_set_d (a1 : access mpf_struct; a2 : double)
renames gmpf_set_d;
procedure mpf_set_default_prec (a1 : mp_bitcnt_t)
renames gmpf_set_default_prec;
procedure mpf_set_prec (a1 : access mpf_struct; a2 : mp_bitcnt_t)
renames gmpf_set_prec;
procedure mpf_set_prec_raw (a1 : access mpf_struct; a2 : mp_bitcnt_t)
renames gmpf_set_prec_raw;
procedure mpf_set_q (a1 : access mpf_struct;
a2 : access constant mpq_struct) renames gmpf_set_q;
procedure mpf_set_si (a1 : access mpf_struct; a2 : signed_long)
renames gmpf_set_si;
function mpf_set_str (a1 : access mpf_struct; a2 : access constant char;
a3 : signed_int) return signed_int renames gmpf_set_str;
procedure mpf_set_ui (a1 : access mpf_struct; a2 : unsigned_long)
renames gmpf_set_ui;
procedure mpf_set_z (a1 : access mpf_struct;
a2 : access constant mpz_struct) renames gmpf_set_z;
-- mpf_sgn (uninterpretable)
function mpf_size (a1 : access constant mpf_struct) return stddef.size_t
renames gmpf_size;
procedure mpf_sqrt (a1 : access mpf_struct;
a2 : access constant mpf_struct) renames gmpf_sqrt;
procedure mpf_sqrt_ui (a1 : access mpf_struct; a2 : unsigned_long)
renames gmpf_sqrt_ui;
procedure mpf_sub (a1 : access mpf_struct;
a2 : access constant mpf_struct; a3 : access constant mpf_struct)
renames gmpf_sub;
procedure mpf_sub_ui (a1 : access mpf_struct;
a2 : access constant mpf_struct; a3 : unsigned_long)
renames gmpf_sub_ui;
procedure mpf_swap (a1 : access mpf_struct; a2 : access mpf_struct)
renames gmpf_swap;
procedure mpf_trunc (a1 : access mpf_struct;
a2 : access constant mpf_struct) renames gmpf_trunc;
procedure mpf_ui_div (a1 : access mpf_struct; a2 : unsigned_long;
a3 : access constant mpf_struct) renames gmpf_ui_div;
procedure mpf_ui_sub (a1 : access mpf_struct; a2 : unsigned_long;
a3 : access constant mpf_struct) renames gmpf_ui_sub;
procedure mpf_urandomb (a1 : access mpf_struct;
a2 : access gmp_randstate_struct; a3 : mp_bitcnt_t)
renames gmpf_urandomb;
function mpn_add (gmp_wp : access mp_limb_t;
gmp_xp : access constant mp_limb_t; gmp_xsize : mp_size_t;
gmp_yp : access constant mp_limb_t; gmp_ysize : mp_size_t)
return mp_limb_t renames qqgmpn_add;
function mpn_add_1 (gmp_dst : access mp_limb_t;
gmp_src : access constant mp_limb_t; gmp_size : mp_size_t;
gmp_n : mp_limb_t) return mp_limb_t renames qqgmpn_add_1;
function mpn_add_n (a1 : access mp_limb_t; a2 : access constant mp_limb_t;
a3 : access constant mp_limb_t; a4 : mp_size_t) return mp_limb_t
renames gmpn_add_n;
function mpn_addmul_1 (a1 : access mp_limb_t;
a2 : access constant mp_limb_t; a3 : mp_size_t; a4 : mp_limb_t)
return mp_limb_t renames gmpn_addmul_1;
procedure mpn_and_n (a1 : access mp_limb_t;
a2 : access constant mp_limb_t; a3 : access constant mp_limb_t;
a4 : mp_size_t) renames gmpn_and_n;
procedure mpn_andn_n (a1 : access mp_limb_t;
a2 : access constant mp_limb_t; a3 : access constant mp_limb_t;
a4 : mp_size_t) renames gmpn_andn_n;
function mpn_cmp (gmp_xp : access constant mp_limb_t;
gmp_yp : access constant mp_limb_t; gmp_size : mp_size_t)
return signed_int renames qqgmpn_cmp;
function mpn_cnd_add_n (a1 : mp_limb_t; a2 : access mp_limb_t;
a3 : access constant mp_limb_t; a4 : access constant mp_limb_t;
a5 : mp_size_t) return mp_limb_t renames gmpn_cnd_add_n;
function mpn_cnd_sub_n (a1 : mp_limb_t; a2 : access mp_limb_t;
a3 : access constant mp_limb_t; a4 : access constant mp_limb_t;
a5 : mp_size_t) return mp_limb_t renames gmpn_cnd_sub_n;
procedure mpn_cnd_swap (a1 : mp_limb_t; a2 : access mp_limb_t_volatile;
a3 : access mp_limb_t_volatile; a4 : mp_size_t) renames gmpn_cnd_swap;
procedure mpn_com (a1 : access mp_limb_t; a2 : access constant mp_limb_t;
a3 : mp_size_t) renames gmpn_com;
procedure mpn_copyd (a1 : access mp_limb_t;
a2 : access constant mp_limb_t; a3 : mp_size_t) renames gmpn_copyd;
procedure mpn_copyi (a1 : access mp_limb_t;
a2 : access constant mp_limb_t; a3 : mp_size_t) renames gmpn_copyi;
function mpn_div_qr_1 (a1 : access mp_limb_t; a2 : access mp_limb_t;
a3 : access constant mp_limb_t; a4 : mp_size_t; a5 : mp_limb_t)
return mp_limb_t renames gmpn_div_qr_1;
function mpn_div_qr_2 (a1 : access mp_limb_t; a2 : access mp_limb_t;
a3 : access constant mp_limb_t; a4 : mp_size_t;
a5 : access constant mp_limb_t) return mp_limb_t renames gmpn_div_qr_2;
procedure mpn_divexact_1 (a1 : access mp_limb_t;
a2 : access constant mp_limb_t; a3 : mp_size_t; a4 : mp_limb_t)
renames gmpn_divexact_1;
-- mpn_divexact_by3 (function macro)
function mpn_divexact_by3c (a1 : access mp_limb_t;
a2 : access constant mp_limb_t; a3 : mp_size_t; a4 : mp_limb_t)
return mp_limb_t renames gmpn_divexact_by3c;
-- mpn_divmod (function macro)
-- mpn_divmod_1 (function macro)
function mpn_divrem (a1 : access mp_limb_t; a2 : mp_size_t;
a3 : access mp_limb_t; a4 : mp_size_t; a5 : access constant mp_limb_t;
a6 : mp_size_t) return mp_limb_t renames gmpn_divrem;
function mpn_divrem_1 (a1 : access mp_limb_t; a2 : mp_size_t;
a3 : access constant mp_limb_t; a4 : mp_size_t; a5 : mp_limb_t)
return mp_limb_t renames gmpn_divrem_1;
function mpn_divrem_2 (a1 : access mp_limb_t; a2 : mp_size_t;
a3 : access mp_limb_t; a4 : mp_size_t; a5 : access constant mp_limb_t)
return mp_limb_t renames gmpn_divrem_2;
function mpn_gcd (a1 : access mp_limb_t; a2 : access mp_limb_t;
a3 : mp_size_t; a4 : access mp_limb_t; a5 : mp_size_t) return mp_size_t
renames gmpn_gcd;
function mpn_gcd_1 (a1 : access constant mp_limb_t; a2 : mp_size_t;
a3 : mp_limb_t) return mp_limb_t renames gmpn_gcd_1;
function mpn_gcdext (a1 : access mp_limb_t; a2 : access mp_limb_t;
a3 : access mp_size_t; a4 : access mp_limb_t; a5 : mp_size_t;
a6 : access mp_limb_t; a7 : mp_size_t) return mp_size_t
renames gmpn_gcdext;
function mpn_gcdext_1 (a1 : access mp_limb_signed_t;
a2 : access mp_limb_signed_t; a3 : mp_limb_t; a4 : mp_limb_t)
return mp_limb_t renames gmpn_gcdext_1;
function mpn_get_str (a1 : access unsigned_char; a2 : signed_int;
a3 : access mp_limb_t; a4 : mp_size_t) return stddef.size_t
renames gmpn_get_str;
function mpn_hamdist (a1 : access constant mp_limb_t;
a2 : access constant mp_limb_t; a3 : mp_size_t) return mp_bitcnt_t
renames gmpn_hamdist;
procedure mpn_ior_n (a1 : access mp_limb_t;
a2 : access constant mp_limb_t; a3 : access constant mp_limb_t;
a4 : mp_size_t) renames gmpn_ior_n;
procedure mpn_iorn_n (a1 : access mp_limb_t;
a2 : access constant mp_limb_t; a3 : access constant mp_limb_t;
a4 : mp_size_t) renames gmpn_iorn_n;
function mpn_lshift (a1 : access mp_limb_t;
a2 : access constant mp_limb_t; a3 : mp_size_t; a4 : unsigned_int)
return mp_limb_t renames gmpn_lshift;
function mpn_mod_1 (a1 : access constant mp_limb_t; a2 : mp_size_t;
a3 : mp_limb_t) return mp_limb_t renames gmpn_mod_1;
function mpn_mul (a1 : access mp_limb_t; a2 : access constant mp_limb_t;
a3 : mp_size_t; a4 : access constant mp_limb_t; a5 : mp_size_t)
return mp_limb_t renames gmpn_mul;
function mpn_mul_1 (a1 : access mp_limb_t; a2 : access constant mp_limb_t;
a3 : mp_size_t; a4 : mp_limb_t) return mp_limb_t renames gmpn_mul_1;
procedure mpn_mul_n (a1 : access mp_limb_t;
a2 : access constant mp_limb_t; a3 : access constant mp_limb_t;
a4 : mp_size_t) renames gmpn_mul_n;
procedure mpn_nand_n (a1 : access mp_limb_t;
a2 : access constant mp_limb_t; a3 : access constant mp_limb_t;
a4 : mp_size_t) renames gmpn_nand_n;
function mpn_neg (gmp_rp : access mp_limb_t;
gmp_up : access constant mp_limb_t; gmp_n : mp_size_t) return mp_limb_t
renames qqgmpn_neg;
procedure mpn_nior_n (a1 : access mp_limb_t;
a2 : access constant mp_limb_t; a3 : access constant mp_limb_t;
a4 : mp_size_t) renames gmpn_nior_n;
function mpn_perfect_power_p (a1 : access constant mp_limb_t;
a2 : mp_size_t) return signed_int renames gmpn_perfect_power_p;
function mpn_perfect_square_p (a1 : access constant mp_limb_t;
a2 : mp_size_t) return signed_int renames gmpn_perfect_square_p;
function mpn_popcount (a1 : access constant mp_limb_t; a2 : mp_size_t)
return mp_bitcnt_t renames gmpn_popcount;
function mpn_pow_1 (a1 : access mp_limb_t; a2 : access constant mp_limb_t;
a3 : mp_size_t; a4 : mp_limb_t; a5 : access mp_limb_t) return mp_size_t
renames gmpn_pow_1;
function mpn_preinv_mod_1 (a1 : access constant mp_limb_t; a2 : mp_size_t;
a3 : mp_limb_t; a4 : mp_limb_t) return mp_limb_t
renames gmpn_preinv_mod_1;
procedure mpn_random (a1 : access mp_limb_t; a2 : mp_size_t)
renames gmpn_random;
procedure mpn_random2 (a1 : access mp_limb_t; a2 : mp_size_t)
renames gmpn_random2;
function mpn_rshift (a1 : access mp_limb_t;
a2 : access constant mp_limb_t; a3 : mp_size_t; a4 : unsigned_int)
return mp_limb_t renames gmpn_rshift;
function mpn_scan0 (a1 : access constant mp_limb_t; a2 : mp_bitcnt_t)
return mp_bitcnt_t renames gmpn_scan0;
function mpn_scan1 (a1 : access constant mp_limb_t; a2 : mp_bitcnt_t)
return mp_bitcnt_t renames gmpn_scan1;
function mpn_sec_add_1 (a1 : access mp_limb_t;
a2 : access constant mp_limb_t; a3 : mp_size_t; a4 : mp_limb_t;
a5 : access mp_limb_t) return mp_limb_t renames gmpn_sec_add_1;
function mpn_sec_add_1_itch (a1 : mp_size_t) return mp_size_t
renames gmpn_sec_add_1_itch;
function mpn_sec_div_qr (a1 : access mp_limb_t; a2 : access mp_limb_t;
a3 : mp_size_t; a4 : access constant mp_limb_t; a5 : mp_size_t;
a6 : access mp_limb_t) return mp_limb_t renames gmpn_sec_div_qr;
function mpn_sec_div_qr_itch (a1 : mp_size_t; a2 : mp_size_t)
return mp_size_t renames gmpn_sec_div_qr_itch;
procedure mpn_sec_div_r (a1 : access mp_limb_t; a2 : mp_size_t;
a3 : access constant mp_limb_t; a4 : mp_size_t; a5 : access mp_limb_t)
renames gmpn_sec_div_r;
function mpn_sec_div_r_itch (a1 : mp_size_t; a2 : mp_size_t)
return mp_size_t renames gmpn_sec_div_r_itch;
function mpn_sec_invert (a1 : access mp_limb_t; a2 : access mp_limb_t;
a3 : access constant mp_limb_t; a4 : mp_size_t; a5 : mp_bitcnt_t;
a6 : access mp_limb_t) return signed_int renames gmpn_sec_invert;
function mpn_sec_invert_itch (a1 : mp_size_t) return mp_size_t
renames gmpn_sec_invert_itch;
procedure mpn_sec_mul (a1 : access mp_limb_t;
a2 : access constant mp_limb_t; a3 : mp_size_t;
a4 : access constant mp_limb_t; a5 : mp_size_t; a6 : access mp_limb_t)
renames gmpn_sec_mul;
function mpn_sec_mul_itch (a1 : mp_size_t; a2 : mp_size_t)
return mp_size_t renames gmpn_sec_mul_itch;
procedure mpn_sec_powm (a1 : access mp_limb_t;
a2 : access constant mp_limb_t; a3 : mp_size_t;
a4 : access constant mp_limb_t; a5 : mp_bitcnt_t;
a6 : access constant mp_limb_t; a7 : mp_size_t; a8 : access mp_limb_t)
renames gmpn_sec_powm;
function mpn_sec_powm_itch (a1 : mp_size_t; a2 : mp_bitcnt_t;
a3 : mp_size_t) return mp_size_t renames gmpn_sec_powm_itch;
procedure mpn_sec_sqr (a1 : access mp_limb_t;
a2 : access constant mp_limb_t; a3 : mp_size_t; a4 : access mp_limb_t)
renames gmpn_sec_sqr;
function mpn_sec_sqr_itch (a1 : mp_size_t) return mp_size_t
renames gmpn_sec_sqr_itch;
function mpn_sec_sub_1 (a1 : access mp_limb_t;
a2 : access constant mp_limb_t; a3 : mp_size_t; a4 : mp_limb_t;
a5 : access mp_limb_t) return mp_limb_t renames gmpn_sec_sub_1;
function mpn_sec_sub_1_itch (a1 : mp_size_t) return mp_size_t
renames gmpn_sec_sub_1_itch;
procedure mpn_sec_tabselect (a1 : access mp_limb_t_volatile;
a2 : access constant mp_limb_t_volatile; a3 : mp_size_t;
a4 : mp_size_t; a5 : mp_size_t) renames gmpn_sec_tabselect;
function mpn_set_str (a1 : access mp_limb_t;
a2 : access constant unsigned_char; a3 : stddef.size_t;
a4 : signed_int) return mp_size_t renames gmpn_set_str;
function mpn_sizeinbase (a1 : access constant mp_limb_t; a2 : mp_size_t;
a3 : signed_int) return stddef.size_t renames gmpn_sizeinbase;
procedure mpn_sqr (a1 : access mp_limb_t; a2 : access constant mp_limb_t;
a3 : mp_size_t) renames gmpn_sqr;
function mpn_sqrtrem (a1 : access mp_limb_t; a2 : access mp_limb_t;
a3 : access constant mp_limb_t; a4 : mp_size_t) return mp_size_t
renames gmpn_sqrtrem;
function mpn_sub (gmp_wp : access mp_limb_t;
gmp_xp : access constant mp_limb_t; gmp_xsize : mp_size_t;
gmp_yp : access constant mp_limb_t; gmp_ysize : mp_size_t)
return mp_limb_t renames qqgmpn_sub;
function mpn_sub_1 (gmp_dst : access mp_limb_t;
gmp_src : access constant mp_limb_t; gmp_size : mp_size_t;
gmp_n : mp_limb_t) return mp_limb_t renames qqgmpn_sub_1;
function mpn_sub_n (a1 : access mp_limb_t; a2 : access constant mp_limb_t;
a3 : access constant mp_limb_t; a4 : mp_size_t) return mp_limb_t
renames gmpn_sub_n;
function mpn_submul_1 (a1 : access mp_limb_t;
a2 : access constant mp_limb_t; a3 : mp_size_t; a4 : mp_limb_t)
return mp_limb_t renames gmpn_submul_1;
procedure mpn_tdiv_qr (a1 : access mp_limb_t; a2 : access mp_limb_t;
a3 : mp_size_t; a4 : access constant mp_limb_t; a5 : mp_size_t;
a6 : access constant mp_limb_t; a7 : mp_size_t) renames gmpn_tdiv_qr;
procedure mpn_xnor_n (a1 : access mp_limb_t;
a2 : access constant mp_limb_t; a3 : access constant mp_limb_t;
a4 : mp_size_t) renames gmpn_xnor_n;
procedure mpn_xor_n (a1 : access mp_limb_t;
a2 : access constant mp_limb_t; a3 : access constant mp_limb_t;
a4 : mp_size_t) renames gmpn_xor_n;
procedure mpn_zero (a1 : access mp_limb_t; a2 : mp_size_t)
renames gmpn_zero;
function mpn_zero_p (gmp_p : access constant mp_limb_t; gmp_n : mp_size_t)
return signed_int renames qqgmpn_zero_p;
procedure mpq_abs (gmp_w : access mpq_struct;
gmp_u : access constant mpq_struct) renames qqgmpq_abs;
procedure mpq_add (a1 : access mpq_struct;
a2 : access constant mpq_struct; a3 : access constant mpq_struct)
renames gmpq_add;
procedure mpq_canonicalize (a1 : access mpq_struct)
renames gmpq_canonicalize;
procedure mpq_clear (a1 : access mpq_struct) renames gmpq_clear;
procedure mpq_clears (a1 : access mpq_struct) renames gmpq_clears;
function mpq_cmp (a1 : access constant mpq_struct;
a2 : access constant mpq_struct) return signed_int renames gmpq_cmp;
-- mpq_cmp_si (uninterpretable)
-- mpq_cmp_ui (uninterpretable)
function mpq_cmp_z (a1 : access constant mpq_struct;
a2 : access constant mpz_struct) return signed_int renames gmpq_cmp_z;
-- mpq_denref (uninterpretable)
procedure mpq_div (a1 : access mpq_struct;
a2 : access constant mpq_struct; a3 : access constant mpq_struct)
renames gmpq_div;
procedure mpq_div_2exp (a1 : access mpq_struct;
a2 : access constant mpq_struct; a3 : mp_bitcnt_t)
renames gmpq_div_2exp;
function mpq_equal (a1 : access constant mpq_struct;
a2 : access constant mpq_struct) return signed_int renames gmpq_equal;
function mpq_get_d (a1 : access constant mpq_struct) return double
renames gmpq_get_d;
procedure mpq_get_den (a1 : access mpz_struct;
a2 : access constant mpq_struct) renames gmpq_get_den;
procedure mpq_get_num (a1 : access mpz_struct;
a2 : access constant mpq_struct) renames gmpq_get_num;
function mpq_get_str (a1 : access char; a2 : signed_int;
a3 : access constant mpq_struct) return char_ptr renames gmpq_get_str;
procedure mpq_init (a1 : access mpq_struct) renames gmpq_init;
procedure mpq_inits (a1 : access mpq_struct) renames gmpq_inits;
-- mpq_inp_str (unparsible)
procedure mpq_inv (a1 : access mpq_struct;
a2 : access constant mpq_struct) renames gmpq_inv;
procedure mpq_mul (a1 : access mpq_struct;
a2 : access constant mpq_struct; a3 : access constant mpq_struct)
renames gmpq_mul;
procedure mpq_mul_2exp (a1 : access mpq_struct;
a2 : access constant mpq_struct; a3 : mp_bitcnt_t)
renames gmpq_mul_2exp;
procedure mpq_neg (gmp_w : access mpq_struct;
gmp_u : access constant mpq_struct) renames qqgmpq_neg;
-- mpq_numref (uninterpretable)
-- mpq_out_str (unparsible)
procedure mpq_set (a1 : access mpq_struct;
a2 : access constant mpq_struct) renames gmpq_set;
procedure mpq_set_d (a1 : access mpq_struct; a2 : double)
renames gmpq_set_d;
procedure mpq_set_den (a1 : access mpq_struct;
a2 : access constant mpz_struct) renames gmpq_set_den;
procedure mpq_set_f (a1 : access mpq_struct;
a2 : access constant mpf_struct) renames gmpq_set_f;
procedure mpq_set_num (a1 : access mpq_struct;
a2 : access constant mpz_struct) renames gmpq_set_num;
procedure mpq_set_si (a1 : access mpq_struct; a2 : signed_long;
a3 : unsigned_long) renames gmpq_set_si;
function mpq_set_str (a1 : access mpq_struct; a2 : access constant char;
a3 : signed_int) return signed_int renames gmpq_set_str;
procedure mpq_set_ui (a1 : access mpq_struct; a2 : unsigned_long;
a3 : unsigned_long) renames gmpq_set_ui;
procedure mpq_set_z (a1 : access mpq_struct;
a2 : access constant mpz_struct) renames gmpq_set_z;
-- mpq_sgn (uninterpretable)
procedure mpq_sub (a1 : access mpq_struct;
a2 : access constant mpq_struct; a3 : access constant mpq_struct)
renames gmpq_sub;
procedure mpq_swap (a1 : access mpq_struct; a2 : access mpq_struct)
renames gmpq_swap;
procedure mpz_2fac_ui (a1 : access mpz_struct; a2 : unsigned_long)
renames gmpz_2fac_ui;
procedure mpz_abs (gmp_w : access mpz_struct;
gmp_u : access constant mpz_struct) renames qqgmpz_abs;
procedure mpz_add (a1 : access mpz_struct;
a2 : access constant mpz_struct; a3 : access constant mpz_struct)
renames gmpz_add;
procedure mpz_add_ui (a1 : access mpz_struct;
a2 : access constant mpz_struct; a3 : unsigned_long)
renames gmpz_add_ui;
procedure mpz_addmul (a1 : access mpz_struct;
a2 : access constant mpz_struct; a3 : access constant mpz_struct)
renames gmpz_addmul;
procedure mpz_addmul_ui (a1 : access mpz_struct;
a2 : access constant mpz_struct; a3 : unsigned_long)
renames gmpz_addmul_ui;
procedure mpz_and (a1 : access mpz_struct;
a2 : access constant mpz_struct; a3 : access constant mpz_struct)
renames gmpz_and;
procedure mpz_array_init (a1 : access mpz_struct; a2 : mp_size_t;
a3 : mp_size_t) renames gmpz_array_init;
procedure mpz_bin_ui (a1 : access mpz_struct;
a2 : access constant mpz_struct; a3 : unsigned_long)
renames gmpz_bin_ui;
procedure mpz_bin_uiui (a1 : access mpz_struct; a2 : unsigned_long;
a3 : unsigned_long) renames gmpz_bin_uiui;
procedure mpz_cdiv_q (a1 : access mpz_struct;
a2 : access constant mpz_struct; a3 : access constant mpz_struct)
renames gmpz_cdiv_q;
procedure mpz_cdiv_q_2exp (a1 : access mpz_struct;
a2 : access constant mpz_struct; a3 : mp_bitcnt_t)
renames gmpz_cdiv_q_2exp;
function mpz_cdiv_q_ui (a1 : access mpz_struct;
a2 : access constant mpz_struct; a3 : unsigned_long)
return unsigned_long renames gmpz_cdiv_q_ui;
procedure mpz_cdiv_qr (a1 : access mpz_struct; a2 : access mpz_struct;
a3 : access constant mpz_struct; a4 : access constant mpz_struct)
renames gmpz_cdiv_qr;
function mpz_cdiv_qr_ui (a1 : access mpz_struct; a2 : access mpz_struct;
a3 : access constant mpz_struct; a4 : unsigned_long)
return unsigned_long renames gmpz_cdiv_qr_ui;
procedure mpz_cdiv_r (a1 : access mpz_struct;
a2 : access constant mpz_struct; a3 : access constant mpz_struct)
renames gmpz_cdiv_r;
procedure mpz_cdiv_r_2exp (a1 : access mpz_struct;
a2 : access constant mpz_struct; a3 : mp_bitcnt_t)
renames gmpz_cdiv_r_2exp;
function mpz_cdiv_r_ui (a1 : access mpz_struct;
a2 : access constant mpz_struct; a3 : unsigned_long)
return unsigned_long renames gmpz_cdiv_r_ui;
function mpz_cdiv_ui (a1 : access constant mpz_struct; a2 : unsigned_long)
return unsigned_long renames gmpz_cdiv_ui;
procedure mpz_clear (a1 : access mpz_struct) renames gmpz_clear;
procedure mpz_clears (a1 : access mpz_struct) renames gmpz_clears;
procedure mpz_clrbit (a1 : access mpz_struct; a2 : mp_bitcnt_t)
renames gmpz_clrbit;
function mpz_cmp (a1 : access constant mpz_struct;
a2 : access constant mpz_struct) return signed_int renames gmpz_cmp;
function mpz_cmp_d (a1 : access constant mpz_struct; a2 : double)
return signed_int renames gmpz_cmp_d;
-- mpz_cmp_si (uninterpretable)
-- mpz_cmp_ui (uninterpretable)
function mpz_cmpabs (a1 : access constant mpz_struct;
a2 : access constant mpz_struct) return signed_int renames gmpz_cmpabs;
function mpz_cmpabs_d (a1 : access constant mpz_struct; a2 : double)
return signed_int renames gmpz_cmpabs_d;
function mpz_cmpabs_ui (a1 : access constant mpz_struct;
a2 : unsigned_long) return signed_int renames gmpz_cmpabs_ui;
procedure mpz_com (a1 : access mpz_struct;
a2 : access constant mpz_struct) renames gmpz_com;
procedure mpz_combit (a1 : access mpz_struct; a2 : mp_bitcnt_t)
renames gmpz_combit;
function mpz_congruent_2exp_p (a1 : access constant mpz_struct;
a2 : access constant mpz_struct; a3 : mp_bitcnt_t) return signed_int
renames gmpz_congruent_2exp_p;
function mpz_congruent_p (a1 : access constant mpz_struct;
a2 : access constant mpz_struct; a3 : access constant mpz_struct)
return signed_int renames gmpz_congruent_p;
function mpz_congruent_ui_p (a1 : access constant mpz_struct;
a2 : unsigned_long; a3 : unsigned_long) return signed_int
renames gmpz_congruent_ui_p;
procedure mpz_div (a1 : access mpz_struct;
a2 : access constant mpz_struct; a3 : access constant mpz_struct)
renames gmpz_fdiv_q;
procedure mpz_div_2exp (a1 : access mpz_struct;
a2 : access constant mpz_struct; a3 : mp_bitcnt_t)
renames gmpz_fdiv_q_2exp;
function mpz_div_ui (a1 : access mpz_struct;
a2 : access constant mpz_struct; a3 : unsigned_long)
return unsigned_long renames gmpz_fdiv_q_ui;
procedure mpz_divexact (a1 : access mpz_struct;
a2 : access constant mpz_struct; a3 : access constant mpz_struct)
renames gmpz_divexact;
procedure mpz_divexact_ui (a1 : access mpz_struct;
a2 : access constant mpz_struct; a3 : unsigned_long)
renames gmpz_divexact_ui;
function mpz_divisible_2exp_p (a1 : access constant mpz_struct;
a2 : mp_bitcnt_t) return signed_int renames gmpz_divisible_2exp_p;
function mpz_divisible_p (a1 : access constant mpz_struct;
a2 : access constant mpz_struct) return signed_int
renames gmpz_divisible_p;
function mpz_divisible_ui_p (a1 : access constant mpz_struct;
a2 : unsigned_long) return signed_int renames gmpz_divisible_ui_p;
procedure mpz_divmod (a1 : access mpz_struct; a2 : access mpz_struct;
a3 : access constant mpz_struct; a4 : access constant mpz_struct)
renames gmpz_fdiv_qr;
function mpz_divmod_ui (a1 : access mpz_struct; a2 : access mpz_struct;
a3 : access constant mpz_struct; a4 : unsigned_long)
return unsigned_long renames gmpz_fdiv_qr_ui;
procedure mpz_dump (a1 : access constant mpz_struct) renames gmpz_dump;
procedure mpz_eor (a1 : access mpz_struct;
a2 : access constant mpz_struct; a3 : access constant mpz_struct)
renames gmpz_xor;
-- mpz_even_p (uninterpretable)
function mpz_export (a1 : void_ptr; a2 : access stddef.size_t;
a3 : signed_int; a4 : stddef.size_t; a5 : signed_int;
a6 : stddef.size_t; a7 : access constant mpz_struct) return void_ptr
renames gmpz_export;
procedure mpz_fac_ui (a1 : access mpz_struct; a2 : unsigned_long)
renames gmpz_fac_ui;
procedure mpz_fdiv_q (a1 : access mpz_struct;
a2 : access constant mpz_struct; a3 : access constant mpz_struct)
renames gmpz_fdiv_q;
procedure mpz_fdiv_q_2exp (a1 : access mpz_struct;
a2 : access constant mpz_struct; a3 : mp_bitcnt_t)
renames gmpz_fdiv_q_2exp;
function mpz_fdiv_q_ui (a1 : access mpz_struct;
a2 : access constant mpz_struct; a3 : unsigned_long)
return unsigned_long renames gmpz_fdiv_q_ui;
procedure mpz_fdiv_qr (a1 : access mpz_struct; a2 : access mpz_struct;
a3 : access constant mpz_struct; a4 : access constant mpz_struct)
renames gmpz_fdiv_qr;
function mpz_fdiv_qr_ui (a1 : access mpz_struct; a2 : access mpz_struct;
a3 : access constant mpz_struct; a4 : unsigned_long)
return unsigned_long renames gmpz_fdiv_qr_ui;
procedure mpz_fdiv_r (a1 : access mpz_struct;
a2 : access constant mpz_struct; a3 : access constant mpz_struct)
renames gmpz_fdiv_r;
procedure mpz_fdiv_r_2exp (a1 : access mpz_struct;
a2 : access constant mpz_struct; a3 : mp_bitcnt_t)
renames gmpz_fdiv_r_2exp;
function mpz_fdiv_r_ui (a1 : access mpz_struct;
a2 : access constant mpz_struct; a3 : unsigned_long)
return unsigned_long renames gmpz_fdiv_r_ui;
function mpz_fdiv_ui (a1 : access constant mpz_struct; a2 : unsigned_long)
return unsigned_long renames gmpz_fdiv_ui;
procedure mpz_fib2_ui (a1 : access mpz_struct; a2 : access mpz_struct;
a3 : unsigned_long) renames gmpz_fib2_ui;
procedure mpz_fib_ui (a1 : access mpz_struct; a2 : unsigned_long)
renames gmpz_fib_ui;
function mpz_fits_sint_p (a1 : access constant mpz_struct)
return signed_int renames gmpz_fits_sint_p;
function mpz_fits_slong_p (a1 : access constant mpz_struct)
return signed_int renames gmpz_fits_slong_p;
function mpz_fits_sshort_p (a1 : access constant mpz_struct)
return signed_int renames gmpz_fits_sshort_p;
function mpz_fits_uint_p (gmp_z : access constant mpz_struct)
return signed_int renames qqgmpz_fits_uint_p;
function mpz_fits_ulong_p (gmp_z : access constant mpz_struct)
return signed_int renames qqgmpz_fits_ulong_p;
function mpz_fits_ushort_p (gmp_z : access constant mpz_struct)
return signed_int renames qqgmpz_fits_ushort_p;
procedure mpz_gcd (a1 : access mpz_struct;
a2 : access constant mpz_struct; a3 : access constant mpz_struct)
renames gmpz_gcd;
function mpz_gcd_ui (a1 : access mpz_struct;
a2 : access constant mpz_struct; a3 : unsigned_long)
return unsigned_long renames gmpz_gcd_ui;
procedure mpz_gcdext (a1 : access mpz_struct; a2 : access mpz_struct;
a3 : access mpz_struct; a4 : access constant mpz_struct;
a5 : access constant mpz_struct) renames gmpz_gcdext;
function mpz_get_d (a1 : access constant mpz_struct) return double
renames gmpz_get_d;
function mpz_get_d_2exp (a1 : access signed_long;
a2 : access constant mpz_struct) return double renames gmpz_get_d_2exp;
function mpz_get_si (a1 : access constant mpz_struct) return signed_long
renames gmpz_get_si;
function mpz_get_str (a1 : access char; a2 : signed_int;
a3 : access constant mpz_struct) return char_ptr renames gmpz_get_str;
function mpz_get_ui (gmp_z : access constant mpz_struct)
return unsigned_long renames qqgmpz_get_ui;
function mpz_getlimbn (gmp_z : access constant mpz_struct;
gmp_n : mp_size_t) return mp_limb_t renames qqgmpz_getlimbn;
function mpz_hamdist (a1 : access constant mpz_struct;
a2 : access constant mpz_struct) return mp_bitcnt_t
renames gmpz_hamdist;
procedure mpz_import (a1 : access mpz_struct; a2 : stddef.size_t;
a3 : signed_int; a4 : stddef.size_t; a5 : signed_int;
a6 : stddef.size_t; a7 : void_const_ptr) renames gmpz_import;
procedure mpz_init (a1 : access mpz_struct) renames gmpz_init;
procedure mpz_init2 (a1 : access mpz_struct; a2 : mp_bitcnt_t)
renames gmpz_init2;
procedure mpz_init_set (a1 : access mpz_struct;
a2 : access constant mpz_struct) renames gmpz_init_set;
procedure mpz_init_set_d (a1 : access mpz_struct; a2 : double)
renames gmpz_init_set_d;
procedure mpz_init_set_si (a1 : access mpz_struct; a2 : signed_long)
renames gmpz_init_set_si;
function mpz_init_set_str (a1 : access mpz_struct;
a2 : access constant char; a3 : signed_int) return signed_int
renames gmpz_init_set_str;
procedure mpz_init_set_ui (a1 : access mpz_struct; a2 : unsigned_long)
renames gmpz_init_set_ui;
procedure mpz_inits (a1 : access mpz_struct) renames gmpz_inits;
-- mpz_inp_raw (unparsible)
-- mpz_inp_str (unparsible)
function mpz_invert (a1 : access mpz_struct;
a2 : access constant mpz_struct; a3 : access constant mpz_struct)
return signed_int renames gmpz_invert;
procedure mpz_ior (a1 : access mpz_struct;
a2 : access constant mpz_struct; a3 : access constant mpz_struct)
renames gmpz_ior;
function mpz_jacobi (a1 : access constant mpz_struct;
a2 : access constant mpz_struct) return signed_int renames gmpz_jacobi;
function mpz_kronecker (a1 : access constant mpz_struct;
a2 : access constant mpz_struct) return signed_int renames gmpz_jacobi;
function mpz_kronecker_si (a1 : access constant mpz_struct;
a2 : signed_long) return signed_int renames gmpz_kronecker_si;
function mpz_kronecker_ui (a1 : access constant mpz_struct;
a2 : unsigned_long) return signed_int renames gmpz_kronecker_ui;
procedure mpz_lcm (a1 : access mpz_struct;
a2 : access constant mpz_struct; a3 : access constant mpz_struct)
renames gmpz_lcm;
procedure mpz_lcm_ui (a1 : access mpz_struct;
a2 : access constant mpz_struct; a3 : unsigned_long)
renames gmpz_lcm_ui;
function mpz_legendre (a1 : access constant mpz_struct;
a2 : access constant mpz_struct) return signed_int renames gmpz_jacobi;
procedure mpz_limbs_finish (a1 : access mpz_struct; a2 : mp_size_t)
renames gmpz_limbs_finish;
function mpz_limbs_modify (a1 : access mpz_struct; a2 : mp_size_t)
return mp_ptr renames gmpz_limbs_modify;
function mpz_limbs_read (a1 : access constant mpz_struct) return mp_srcptr
renames gmpz_limbs_read;
function mpz_limbs_write (a1 : access mpz_struct; a2 : mp_size_t)
return mp_ptr renames gmpz_limbs_write;
procedure mpz_lucnum2_ui (a1 : access mpz_struct; a2 : access mpz_struct;
a3 : unsigned_long) renames gmpz_lucnum2_ui;
procedure mpz_lucnum_ui (a1 : access mpz_struct; a2 : unsigned_long)
renames gmpz_lucnum_ui;
procedure mpz_mdiv (a1 : access mpz_struct;
a2 : access constant mpz_struct; a3 : access constant mpz_struct)
renames gmpz_fdiv_q;
function mpz_mdiv_ui (a1 : access mpz_struct;
a2 : access constant mpz_struct; a3 : unsigned_long)
return unsigned_long renames gmpz_fdiv_q_ui;
procedure mpz_mdivmod (a1 : access mpz_struct; a2 : access mpz_struct;
a3 : access constant mpz_struct; a4 : access constant mpz_struct)
renames gmpz_fdiv_qr;
-- mpz_mdivmod_ui (function macro)
procedure mpz_mfac_uiui (a1 : access mpz_struct; a2 : unsigned_long;
a3 : unsigned_long) renames gmpz_mfac_uiui;
function mpz_millerrabin (a1 : access constant mpz_struct;
a2 : signed_int) return signed_int renames gmpz_millerrabin;
procedure mpz_mmod (a1 : access mpz_struct;
a2 : access constant mpz_struct; a3 : access constant mpz_struct)
renames gmpz_fdiv_r;
-- mpz_mmod_ui (function macro)
procedure mpz_mod (a1 : access mpz_struct;
a2 : access constant mpz_struct; a3 : access constant mpz_struct)
renames gmpz_mod;
procedure mpz_mod_2exp (a1 : access mpz_struct;
a2 : access constant mpz_struct; a3 : mp_bitcnt_t)
renames gmpz_fdiv_r_2exp;
function mpz_mod_ui (a1 : access mpz_struct;
a2 : access constant mpz_struct; a3 : unsigned_long)
return unsigned_long renames gmpz_fdiv_r_ui;
procedure mpz_mul (a1 : access mpz_struct;
a2 : access constant mpz_struct; a3 : access constant mpz_struct)
renames gmpz_mul;
procedure mpz_mul_2exp (a1 : access mpz_struct;
a2 : access constant mpz_struct; a3 : mp_bitcnt_t)
renames gmpz_mul_2exp;
procedure mpz_mul_si (a1 : access mpz_struct;
a2 : access constant mpz_struct; a3 : signed_long) renames gmpz_mul_si;
procedure mpz_mul_ui (a1 : access mpz_struct;
a2 : access constant mpz_struct; a3 : unsigned_long)
renames gmpz_mul_ui;
procedure mpz_neg (gmp_w : access mpz_struct;
gmp_u : access constant mpz_struct) renames qqgmpz_neg;
procedure mpz_nextprime (a1 : access mpz_struct;
a2 : access constant mpz_struct) renames gmpz_nextprime;
-- mpz_odd_p (uninterpretable)
-- mpz_out_raw (unparsible)
-- mpz_out_str (unparsible)
function mpz_perfect_power_p (a1 : access constant mpz_struct)
return signed_int renames gmpz_perfect_power_p;
function mpz_perfect_square_p (gmp_a : access constant mpz_struct)
return signed_int renames qqgmpz_perfect_square_p;
function mpz_popcount (gmp_u : access constant mpz_struct)
return mp_bitcnt_t renames qqgmpz_popcount;
procedure mpz_pow_ui (a1 : access mpz_struct;
a2 : access constant mpz_struct; a3 : unsigned_long)
renames gmpz_pow_ui;
procedure mpz_powm (a1 : access mpz_struct;
a2 : access constant mpz_struct; a3 : access constant mpz_struct;
a4 : access constant mpz_struct) renames gmpz_powm;
procedure mpz_powm_sec (a1 : access mpz_struct;
a2 : access constant mpz_struct; a3 : access constant mpz_struct;
a4 : access constant mpz_struct) renames gmpz_powm_sec;
procedure mpz_powm_ui (a1 : access mpz_struct;
a2 : access constant mpz_struct; a3 : unsigned_long;
a4 : access constant mpz_struct) renames gmpz_powm_ui;
procedure mpz_primorial_ui (a1 : access mpz_struct; a2 : unsigned_long)
renames gmpz_primorial_ui;
function mpz_probab_prime_p (a1 : access constant mpz_struct;
a2 : signed_int) return signed_int renames gmpz_probab_prime_p;
procedure mpz_random (a1 : access mpz_struct; a2 : mp_size_t)
renames gmpz_random;
procedure mpz_random2 (a1 : access mpz_struct; a2 : mp_size_t)
renames gmpz_random2;
function mpz_realloc (a1 : access mpz_struct; a2 : mp_size_t)
return void_ptr renames gmpz_realloc;
procedure mpz_realloc2 (a1 : access mpz_struct; a2 : mp_bitcnt_t)
renames gmpz_realloc2;
function mpz_remove (a1 : access mpz_struct;
a2 : access constant mpz_struct; a3 : access constant mpz_struct)
return mp_bitcnt_t renames gmpz_remove;
function mpz_roinit_n (a1 : access mpz_struct;
a2 : access constant mp_limb_t; a3 : mp_size_t) return mpz_srcptr
renames gmpz_roinit_n;
function mpz_root (a1 : access mpz_struct;
a2 : access constant mpz_struct; a3 : unsigned_long) return signed_int
renames gmpz_root;
procedure mpz_rootrem (a1 : access mpz_struct; a2 : access mpz_struct;
a3 : access constant mpz_struct; a4 : unsigned_long)
renames gmpz_rootrem;
procedure mpz_rrandomb (a1 : access mpz_struct;
a2 : access gmp_randstate_struct; a3 : mp_bitcnt_t)
renames gmpz_rrandomb;
function mpz_scan0 (a1 : access constant mpz_struct; a2 : mp_bitcnt_t)
return mp_bitcnt_t renames gmpz_scan0;
function mpz_scan1 (a1 : access constant mpz_struct; a2 : mp_bitcnt_t)
return mp_bitcnt_t renames gmpz_scan1;
procedure mpz_set (a1 : access mpz_struct;
a2 : access constant mpz_struct) renames gmpz_set;
procedure mpz_set_d (a1 : access mpz_struct; a2 : double)
renames gmpz_set_d;
procedure mpz_set_f (a1 : access mpz_struct;
a2 : access constant mpf_struct) renames gmpz_set_f;
procedure mpz_set_q (gmp_w : access mpz_struct;
gmp_u : access constant mpq_struct) renames qqgmpz_set_q;
procedure mpz_set_si (a1 : access mpz_struct; a2 : signed_long)
renames gmpz_set_si;
function mpz_set_str (a1 : access mpz_struct; a2 : access constant char;
a3 : signed_int) return signed_int renames gmpz_set_str;
procedure mpz_set_ui (a1 : access mpz_struct; a2 : unsigned_long)
renames gmpz_set_ui;
procedure mpz_setbit (a1 : access mpz_struct; a2 : mp_bitcnt_t)
renames gmpz_setbit;
-- mpz_sgn (uninterpretable)
function mpz_si_kronecker (a1 : signed_long;
a2 : access constant mpz_struct) return signed_int
renames gmpz_si_kronecker;
function mpz_size (gmp_z : access constant mpz_struct)
return stddef.size_t renames qqgmpz_size;
function mpz_sizeinbase (a1 : access constant mpz_struct; a2 : signed_int)
return stddef.size_t renames gmpz_sizeinbase;
procedure mpz_sqrt (a1 : access mpz_struct;
a2 : access constant mpz_struct) renames gmpz_sqrt;
procedure mpz_sqrtrem (a1 : access mpz_struct; a2 : access mpz_struct;
a3 : access constant mpz_struct) renames gmpz_sqrtrem;
procedure mpz_sub (a1 : access mpz_struct;
a2 : access constant mpz_struct; a3 : access constant mpz_struct)
renames gmpz_sub;
procedure mpz_sub_ui (a1 : access mpz_struct;
a2 : access constant mpz_struct; a3 : unsigned_long)
renames gmpz_sub_ui;
procedure mpz_submul (a1 : access mpz_struct;
a2 : access constant mpz_struct; a3 : access constant mpz_struct)
renames gmpz_submul;
procedure mpz_submul_ui (a1 : access mpz_struct;
a2 : access constant mpz_struct; a3 : unsigned_long)
renames gmpz_submul_ui;
procedure mpz_swap (a1 : access mpz_struct; a2 : access mpz_struct)
renames gmpz_swap;
procedure mpz_tdiv_q (a1 : access mpz_struct;
a2 : access constant mpz_struct; a3 : access constant mpz_struct)
renames gmpz_tdiv_q;
procedure mpz_tdiv_q_2exp (a1 : access mpz_struct;
a2 : access constant mpz_struct; a3 : mp_bitcnt_t)
renames gmpz_tdiv_q_2exp;
function mpz_tdiv_q_ui (a1 : access mpz_struct;
a2 : access constant mpz_struct; a3 : unsigned_long)
return unsigned_long renames gmpz_tdiv_q_ui;
procedure mpz_tdiv_qr (a1 : access mpz_struct; a2 : access mpz_struct;
a3 : access constant mpz_struct; a4 : access constant mpz_struct)
renames gmpz_tdiv_qr;
function mpz_tdiv_qr_ui (a1 : access mpz_struct; a2 : access mpz_struct;
a3 : access constant mpz_struct; a4 : unsigned_long)
return unsigned_long renames gmpz_tdiv_qr_ui;
procedure mpz_tdiv_r (a1 : access mpz_struct;
a2 : access constant mpz_struct; a3 : access constant mpz_struct)
renames gmpz_tdiv_r;
procedure mpz_tdiv_r_2exp (a1 : access mpz_struct;
a2 : access constant mpz_struct; a3 : mp_bitcnt_t)
renames gmpz_tdiv_r_2exp;
function mpz_tdiv_r_ui (a1 : access mpz_struct;
a2 : access constant mpz_struct; a3 : unsigned_long)
return unsigned_long renames gmpz_tdiv_r_ui;
function mpz_tdiv_ui (a1 : access constant mpz_struct; a2 : unsigned_long)
return unsigned_long renames gmpz_tdiv_ui;
function mpz_tstbit (a1 : access constant mpz_struct; a2 : mp_bitcnt_t)
return signed_int renames gmpz_tstbit;
function mpz_ui_kronecker (a1 : unsigned_long;
a2 : access constant mpz_struct) return signed_int
renames gmpz_ui_kronecker;
procedure mpz_ui_pow_ui (a1 : access mpz_struct; a2 : unsigned_long;
a3 : unsigned_long) renames gmpz_ui_pow_ui;
procedure mpz_ui_sub (a1 : access mpz_struct; a2 : unsigned_long;
a3 : access constant mpz_struct) renames gmpz_ui_sub;
procedure mpz_urandomb (a1 : access mpz_struct;
a2 : access gmp_randstate_struct; a3 : mp_bitcnt_t)
renames gmpz_urandomb;
procedure mpz_urandomm (a1 : access mpz_struct;
a2 : access gmp_randstate_struct; a3 : access constant mpz_struct)
renames gmpz_urandomm;
procedure mpz_xor (a1 : access mpz_struct;
a2 : access constant mpz_struct; a3 : access constant mpz_struct)
renames gmpz_xor;
end C.gmp;
-- This file is translated by "headmaster" version 0.31-1157199 (devel).
-- The original C header's license should be applied to this file.
-- All conditional-directives are expanded for the exclusive use of your
-- environment, it is not recommended to commit this file to any repository.
-------------------------------------------------------------------------------
package C.gnu.stubs_64 is
pragma Preelaborate;
-- __stub___compat_bdflush (empty)
-- __stub_chflags (empty)
-- __stub_fattach (empty)
-- __stub_fchflags (empty)
-- __stub_fdetach (empty)
-- __stub_getmsg (empty)
-- __stub_gtty (empty)
-- __stub_lchmod (empty)
-- __stub_putmsg (empty)
-- __stub_revoke (empty)
-- __stub_setlogin (empty)
-- __stub_sigreturn (empty)
-- __stub_sstk (empty)
-- __stub_stty (empty)
end C.gnu.stubs_64;
-- This file is translated by "headmaster" version 0.31-1157199 (devel).
-- The original C header's license should be applied to this file.
-- All conditional-directives are expanded for the exclusive use of your
-- environment, it is not recommended to commit this file to any repository.
-------------------------------------------------------------------------------
package C.gnu is
pragma Preelaborate;
end C.gnu;
-- This file is translated by "headmaster" version 0.31-1157199 (devel).
-- The original C header's license should be applied to this file.
-- All conditional-directives are expanded for the exclusive use of your
-- environment, it is not recommended to commit this file to any repository.
-------------------------------------------------------------------------------
package C.limits is
pragma Preelaborate;
MB_LEN_MAX : constant := 16;
LIBC_LIMITS_H : constant := 1;
CHAR_BIT : constant := 8;
CHAR_MAX : constant := 127;
CHAR_MIN : constant := -128;
INT_MAX : constant := 2147483647;
INT_MIN : constant := -2147483648;
LLONG_MAX : constant := 9223372036854775807;
LLONG_MIN : constant := -9223372036854775808;
LONG_MAX : constant := 9223372036854775807;
LONG_MIN : constant := -9223372036854775808;
SCHAR_MAX : constant := 127;
SCHAR_MIN : constant := -128;
SHRT_MAX : constant := 32767;
SHRT_MIN : constant := -32768;
UCHAR_MAX : constant := 255;
UINT_MAX : constant := 4294967295;
ULLONG_MAX : constant := 18446744073709551615;
ULONG_MAX : constant := 18446744073709551615;
USHRT_MAX : constant := 65535;
-- _GCC_LIMITS_H_ (empty)
-- _LIMITS_H___ (empty)
end C.limits;
-- This file is translated by "headmaster" version 0.31-1157199 (devel).
-- The original C header's license should be applied to this file.
-- All conditional-directives are expanded for the exclusive use of your
-- environment, it is not recommended to commit this file to any repository.
-------------------------------------------------------------------------------
package C.linux.limits is
pragma Preelaborate;
MAX_CANON : constant := 255;
MAX_INPUT : constant := 255;
NAME_MAX : constant := 255;
NGROUPS_MAX : constant := 65536;
PATH_MAX : constant := 4096;
PIPE_BUF : constant := 4096;
RTSIG_MAX : constant := 32;
XATTR_LIST_MAX : constant := 65536;
XATTR_NAME_MAX : constant := 255;
XATTR_SIZE_MAX : constant := 65536;
-- _LINUX_LIMITS_H (empty)
end C.linux.limits;
-- This file is translated by "headmaster" version 0.31-1157199 (devel).
-- The original C header's license should be applied to this file.
-- All conditional-directives are expanded for the exclusive use of your
-- environment, it is not recommended to commit this file to any repository.
-------------------------------------------------------------------------------
package C.linux is
pragma Preelaborate;
end C.linux;
-- This file is translated by "headmaster" version 0.31-1157199 (devel).
-- The original C header's license should be applied to this file.
-- All conditional-directives are expanded for the exclusive use of your
-- environment, it is not recommended to commit this file to any repository.
-------------------------------------------------------------------------------
with C.gmp;
with C.mpfr;
with C.stddef;
with C.stdint;
package C.mpc is
pragma Preelaborate;
subtype mpc_rnd_t is signed_int;
type struct_d8717e3f is record
re : aliased mpfr.mpfr_t;
im : aliased mpfr.mpfr_t;
end record;
pragma Convention (C_Pass_By_Copy, struct_d8717e3f);
type struct_d8717e3f_array is array (size_t range <>) of
aliased struct_d8717e3f;
pragma Convention (C, struct_d8717e3f_array);
type struct_d8717e3f_ptr is access all struct_d8717e3f;
for struct_d8717e3f_ptr'Storage_Size use 0;
pragma No_Strict_Aliasing (struct_d8717e3f_ptr);
pragma Convention (C, struct_d8717e3f_ptr);
type struct_d8717e3f_const_ptr is access constant struct_d8717e3f;
for struct_d8717e3f_const_ptr'Storage_Size use 0;
pragma No_Strict_Aliasing (struct_d8717e3f_const_ptr);
pragma Convention (C, struct_d8717e3f_const_ptr);
subtype mpc_struct is struct_d8717e3f;
subtype mpc_struct_array is struct_d8717e3f_array;
subtype mpc_struct_ptr is struct_d8717e3f_ptr;
subtype mpc_struct_const_ptr is struct_d8717e3f_const_ptr;
subtype mpc_t is mpc_struct_array (0 .. 0);
subtype mpc_ptr is mpc_struct_ptr;
subtype mpc_srcptr is mpc_struct_const_ptr;
function mpc_add (a1 : access mpc_struct; a2 : access constant mpc_struct;
a3 : access constant mpc_struct; a4 : mpc_rnd_t) return signed_int;
pragma Import (C, mpc_add, "mpc_add");
function mpc_add_fr (a1 : access mpc_struct;
a2 : access constant mpc_struct; a3 : access constant mpfr.mpfr_struct;
a4 : mpc_rnd_t) return signed_int;
pragma Import (C, mpc_add_fr, "mpc_add_fr");
function mpc_add_si (a1 : access mpc_struct;
a2 : access constant mpc_struct; a3 : signed_long; a4 : mpc_rnd_t)
return signed_int;
pragma Import (C, mpc_add_si, "mpc_add_si");
function mpc_add_ui (a1 : access mpc_struct;
a2 : access constant mpc_struct; a3 : unsigned_long; a4 : mpc_rnd_t)
return signed_int;
pragma Import (C, mpc_add_ui, "mpc_add_ui");
function mpc_sub (a1 : access mpc_struct; a2 : access constant mpc_struct;
a3 : access constant mpc_struct; a4 : mpc_rnd_t) return signed_int;
pragma Import (C, mpc_sub, "mpc_sub");
function mpc_sub_fr (a1 : access mpc_struct;
a2 : access constant mpc_struct; a3 : access constant mpfr.mpfr_struct;
a4 : mpc_rnd_t) return signed_int;
pragma Import (C, mpc_sub_fr, "mpc_sub_fr");
function mpc_fr_sub (a1 : access mpc_struct;
a2 : access constant mpfr.mpfr_struct; a3 : access constant mpc_struct;
a4 : mpc_rnd_t) return signed_int;
pragma Import (C, mpc_fr_sub, "mpc_fr_sub");
function mpc_sub_ui (a1 : access mpc_struct;
a2 : access constant mpc_struct; a3 : unsigned_long; a4 : mpc_rnd_t)
return signed_int;
pragma Import (C, mpc_sub_ui, "mpc_sub_ui");
function mpc_ui_ui_sub (a1 : access mpc_struct; a2 : unsigned_long;
a3 : unsigned_long; a4 : access constant mpc_struct; a5 : mpc_rnd_t)
return signed_int;
pragma Import (C, mpc_ui_ui_sub, "mpc_ui_ui_sub");
function mpc_mul (a1 : access mpc_struct; a2 : access constant mpc_struct;
a3 : access constant mpc_struct; a4 : mpc_rnd_t) return signed_int;
pragma Import (C, mpc_mul, "mpc_mul");
function mpc_mul_fr (a1 : access mpc_struct;
a2 : access constant mpc_struct; a3 : access constant mpfr.mpfr_struct;
a4 : mpc_rnd_t) return signed_int;
pragma Import (C, mpc_mul_fr, "mpc_mul_fr");
function mpc_mul_ui (a1 : access mpc_struct;
a2 : access constant mpc_struct; a3 : unsigned_long; a4 : mpc_rnd_t)
return signed_int;
pragma Import (C, mpc_mul_ui, "mpc_mul_ui");
function mpc_mul_si (a1 : access mpc_struct;
a2 : access constant mpc_struct; a3 : signed_long; a4 : mpc_rnd_t)
return signed_int;
pragma Import (C, mpc_mul_si, "mpc_mul_si");
function mpc_mul_i (a1 : access mpc_struct;
a2 : access constant mpc_struct; a3 : signed_int; a4 : mpc_rnd_t)
return signed_int;
pragma Import (C, mpc_mul_i, "mpc_mul_i");
function mpc_sqr (a1 : access mpc_struct; a2 : access constant mpc_struct;
a3 : mpc_rnd_t) return signed_int;
pragma Import (C, mpc_sqr, "mpc_sqr");
function mpc_div (a1 : access mpc_struct; a2 : access constant mpc_struct;
a3 : access constant mpc_struct; a4 : mpc_rnd_t) return signed_int;
pragma Import (C, mpc_div, "mpc_div");
function mpc_pow (a1 : access mpc_struct; a2 : access constant mpc_struct;
a3 : access constant mpc_struct; a4 : mpc_rnd_t) return signed_int;
pragma Import (C, mpc_pow, "mpc_pow");
function mpc_pow_fr (a1 : access mpc_struct;
a2 : access constant mpc_struct; a3 : access constant mpfr.mpfr_struct;
a4 : mpc_rnd_t) return signed_int;
pragma Import (C, mpc_pow_fr, "mpc_pow_fr");
function mpc_pow_ld (a1 : access mpc_struct;
a2 : access constant mpc_struct; a3 : long_double; a4 : mpc_rnd_t)
return signed_int;
pragma Import (C, mpc_pow_ld, "mpc_pow_ld");
function mpc_pow_d (a1 : access mpc_struct;
a2 : access constant mpc_struct; a3 : double; a4 : mpc_rnd_t)
return signed_int;
pragma Import (C, mpc_pow_d, "mpc_pow_d");
function mpc_pow_si (a1 : access mpc_struct;
a2 : access constant mpc_struct; a3 : signed_long; a4 : mpc_rnd_t)
return signed_int;
pragma Import (C, mpc_pow_si, "mpc_pow_si");
function mpc_pow_ui (a1 : access mpc_struct;
a2 : access constant mpc_struct; a3 : unsigned_long; a4 : mpc_rnd_t)
return signed_int;
pragma Import (C, mpc_pow_ui, "mpc_pow_ui");
function mpc_pow_z (a1 : access mpc_struct;
a2 : access constant mpc_struct; a3 : access constant gmp.mpz_struct;
a4 : mpc_rnd_t) return signed_int;
pragma Import (C, mpc_pow_z, "mpc_pow_z");
function mpc_div_fr (a1 : access mpc_struct;
a2 : access constant mpc_struct; a3 : access constant mpfr.mpfr_struct;
a4 : mpc_rnd_t) return signed_int;
pragma Import (C, mpc_div_fr, "mpc_div_fr");
function mpc_fr_div (a1 : access mpc_struct;
a2 : access constant mpfr.mpfr_struct; a3 : access constant mpc_struct;
a4 : mpc_rnd_t) return signed_int;
pragma Import (C, mpc_fr_div, "mpc_fr_div");
function mpc_div_ui (a1 : access mpc_struct;
a2 : access constant mpc_struct; a3 : unsigned_long; a4 : mpc_rnd_t)
return signed_int;
pragma Import (C, mpc_div_ui, "mpc_div_ui");
function mpc_ui_div (a1 : access mpc_struct; a2 : unsigned_long;
a3 : access constant mpc_struct; a4 : mpc_rnd_t) return signed_int;
pragma Import (C, mpc_ui_div, "mpc_ui_div");
function mpc_div_2ui (a1 : access mpc_struct;
a2 : access constant mpc_struct; a3 : unsigned_long; a4 : mpc_rnd_t)
return signed_int;
pragma Import (C, mpc_div_2ui, "mpc_div_2ui");
function mpc_mul_2ui (a1 : access mpc_struct;
a2 : access constant mpc_struct; a3 : unsigned_long; a4 : mpc_rnd_t)
return signed_int;
pragma Import (C, mpc_mul_2ui, "mpc_mul_2ui");
function mpc_div_2si (a1 : access mpc_struct;
a2 : access constant mpc_struct; a3 : signed_long; a4 : mpc_rnd_t)
return signed_int;
pragma Import (C, mpc_div_2si, "mpc_div_2si");
function mpc_mul_2si (a1 : access mpc_struct;
a2 : access constant mpc_struct; a3 : signed_long; a4 : mpc_rnd_t)
return signed_int;
pragma Import (C, mpc_mul_2si, "mpc_mul_2si");
function mpc_conj (a1 : access mpc_struct;
a2 : access constant mpc_struct; a3 : mpc_rnd_t) return signed_int;
pragma Import (C, mpc_conj, "mpc_conj");
function mpc_neg (a1 : access mpc_struct; a2 : access constant mpc_struct;
a3 : mpc_rnd_t) return signed_int;
pragma Import (C, mpc_neg, "mpc_neg");
function mpc_norm (a1 : access mpfr.mpfr_struct;
a2 : access constant mpc_struct; a3 : mpfr.mpfr_rnd_t)
return signed_int;
pragma Import (C, mpc_norm, "mpc_norm");
function mpc_abs (a1 : access mpfr.mpfr_struct;
a2 : access constant mpc_struct; a3 : mpfr.mpfr_rnd_t)
return signed_int;
pragma Import (C, mpc_abs, "mpc_abs");
function mpc_sqrt (a1 : access mpc_struct;
a2 : access constant mpc_struct; a3 : mpc_rnd_t) return signed_int;
pragma Import (C, mpc_sqrt, "mpc_sqrt");
function mpc_set (a1 : access mpc_struct; a2 : access constant mpc_struct;
a3 : mpc_rnd_t) return signed_int;
pragma Import (C, mpc_set, "mpc_set");
function mpc_set_d (a1 : access mpc_struct; a2 : double; a3 : mpc_rnd_t)
return signed_int;
pragma Import (C, mpc_set_d, "mpc_set_d");
function mpc_set_d_d (a1 : access mpc_struct; a2 : double; a3 : double;
a4 : mpc_rnd_t) return signed_int;
pragma Import (C, mpc_set_d_d, "mpc_set_d_d");
function mpc_set_ld (a1 : access mpc_struct; a2 : long_double;
a3 : mpc_rnd_t) return signed_int;
pragma Import (C, mpc_set_ld, "mpc_set_ld");
function mpc_set_ld_ld (a1 : access mpc_struct; a2 : long_double;
a3 : long_double; a4 : mpc_rnd_t) return signed_int;
pragma Import (C, mpc_set_ld_ld, "mpc_set_ld_ld");
function mpc_set_f (a1 : access mpc_struct;
a2 : access constant gmp.mpf_struct; a3 : mpc_rnd_t) return signed_int;
pragma Import (C, mpc_set_f, "mpc_set_f");
function mpc_set_f_f (a1 : access mpc_struct;
a2 : access constant gmp.mpf_struct;
a3 : access constant gmp.mpf_struct; a4 : mpc_rnd_t) return signed_int;
pragma Import (C, mpc_set_f_f, "mpc_set_f_f");
function mpc_set_fr (a1 : access mpc_struct;
a2 : access constant mpfr.mpfr_struct; a3 : mpc_rnd_t)
return signed_int;
pragma Import (C, mpc_set_fr, "mpc_set_fr");
function mpc_set_fr_fr (a1 : access mpc_struct;
a2 : access constant mpfr.mpfr_struct;
a3 : access constant mpfr.mpfr_struct; a4 : mpc_rnd_t)
return signed_int;
pragma Import (C, mpc_set_fr_fr, "mpc_set_fr_fr");
function mpc_set_q (a1 : access mpc_struct;
a2 : access constant gmp.mpq_struct; a3 : mpc_rnd_t) return signed_int;
pragma Import (C, mpc_set_q, "mpc_set_q");
function mpc_set_q_q (a1 : access mpc_struct;
a2 : access constant gmp.mpq_struct;
a3 : access constant gmp.mpq_struct; a4 : mpc_rnd_t) return signed_int;
pragma Import (C, mpc_set_q_q, "mpc_set_q_q");
function mpc_set_si (a1 : access mpc_struct; a2 : signed_long;
a3 : mpc_rnd_t) return signed_int;
pragma Import (C, mpc_set_si, "mpc_set_si");
function mpc_set_si_si (a1 : access mpc_struct; a2 : signed_long;
a3 : signed_long; a4 : mpc_rnd_t) return signed_int;
pragma Import (C, mpc_set_si_si, "mpc_set_si_si");
function mpc_set_ui (a1 : access mpc_struct; a2 : unsigned_long;
a3 : mpc_rnd_t) return signed_int;
pragma Import (C, mpc_set_ui, "mpc_set_ui");
function mpc_set_ui_ui (a1 : access mpc_struct; a2 : unsigned_long;
a3 : unsigned_long; a4 : mpc_rnd_t) return signed_int;
pragma Import (C, mpc_set_ui_ui, "mpc_set_ui_ui");
function mpc_set_z (a1 : access mpc_struct;
a2 : access constant gmp.mpz_struct; a3 : mpc_rnd_t) return signed_int;
pragma Import (C, mpc_set_z, "mpc_set_z");
function mpc_set_z_z (a1 : access mpc_struct;
a2 : access constant gmp.mpz_struct;
a3 : access constant gmp.mpz_struct; a4 : mpc_rnd_t) return signed_int;
pragma Import (C, mpc_set_z_z, "mpc_set_z_z");
procedure mpc_swap (a1 : access mpc_struct; a2 : access mpc_struct);
pragma Import (C, mpc_swap, "mpc_swap");
function mpc_fma (a1 : access mpc_struct; a2 : access constant mpc_struct;
a3 : access constant mpc_struct; a4 : access constant mpc_struct;
a5 : mpc_rnd_t) return signed_int;
pragma Import (C, mpc_fma, "mpc_fma");
procedure mpc_set_nan (a1 : access mpc_struct);
pragma Import (C, mpc_set_nan, "mpc_set_nan");
function mpc_real (a1 : access mpfr.mpfr_struct;
a2 : access constant mpc_struct; a3 : mpfr.mpfr_rnd_t)
return signed_int;
pragma Import (C, mpc_real, "mpc_real");
function mpc_imag (a1 : access mpfr.mpfr_struct;
a2 : access constant mpc_struct; a3 : mpfr.mpfr_rnd_t)
return signed_int;
pragma Import (C, mpc_imag, "mpc_imag");
function mpc_arg (a1 : access mpfr.mpfr_struct;
a2 : access constant mpc_struct; a3 : mpfr.mpfr_rnd_t)
return signed_int;
pragma Import (C, mpc_arg, "mpc_arg");
function mpc_proj (a1 : access mpc_struct;
a2 : access constant mpc_struct; a3 : mpc_rnd_t) return signed_int;
pragma Import (C, mpc_proj, "mpc_proj");
function mpc_cmp (a1 : access constant mpc_struct;
a2 : access constant mpc_struct) return signed_int;
pragma Import (C, mpc_cmp, "mpc_cmp");
function mpc_cmp_si_si (a1 : access constant mpc_struct; a2 : signed_long;
a3 : signed_long) return signed_int;
pragma Import (C, mpc_cmp_si_si, "mpc_cmp_si_si");
function mpc_cmp_abs (a1 : access constant mpc_struct;
a2 : access constant mpc_struct) return signed_int;
pragma Import (C, mpc_cmp_abs, "mpc_cmp_abs");
function mpc_exp (a1 : access mpc_struct; a2 : access constant mpc_struct;
a3 : mpc_rnd_t) return signed_int;
pragma Import (C, mpc_exp, "mpc_exp");
function mpc_log (a1 : access mpc_struct; a2 : access constant mpc_struct;
a3 : mpc_rnd_t) return signed_int;
pragma Import (C, mpc_log, "mpc_log");
function mpc_log10 (a1 : access mpc_struct;
a2 : access constant mpc_struct; a3 : mpc_rnd_t) return signed_int;
pragma Import (C, mpc_log10, "mpc_log10");
function mpc_sin (a1 : access mpc_struct; a2 : access constant mpc_struct;
a3 : mpc_rnd_t) return signed_int;
pragma Import (C, mpc_sin, "mpc_sin");
function mpc_cos (a1 : access mpc_struct; a2 : access constant mpc_struct;
a3 : mpc_rnd_t) return signed_int;
pragma Import (C, mpc_cos, "mpc_cos");
function mpc_sin_cos (a1 : access mpc_struct; a2 : access mpc_struct;
a3 : access constant mpc_struct; a4 : mpc_rnd_t; a5 : mpc_rnd_t)
return signed_int;
pragma Import (C, mpc_sin_cos, "mpc_sin_cos");
function mpc_tan (a1 : access mpc_struct; a2 : access constant mpc_struct;
a3 : mpc_rnd_t) return signed_int;
pragma Import (C, mpc_tan, "mpc_tan");
function mpc_sinh (a1 : access mpc_struct;
a2 : access constant mpc_struct; a3 : mpc_rnd_t) return signed_int;
pragma Import (C, mpc_sinh, "mpc_sinh");
function mpc_cosh (a1 : access mpc_struct;
a2 : access constant mpc_struct; a3 : mpc_rnd_t) return signed_int;
pragma Import (C, mpc_cosh, "mpc_cosh");
function mpc_tanh (a1 : access mpc_struct;
a2 : access constant mpc_struct; a3 : mpc_rnd_t) return signed_int;
pragma Import (C, mpc_tanh, "mpc_tanh");
function mpc_asin (a1 : access mpc_struct;
a2 : access constant mpc_struct; a3 : mpc_rnd_t) return signed_int;
pragma Import (C, mpc_asin, "mpc_asin");
function mpc_acos (a1 : access mpc_struct;
a2 : access constant mpc_struct; a3 : mpc_rnd_t) return signed_int;
pragma Import (C, mpc_acos, "mpc_acos");
function mpc_atan (a1 : access mpc_struct;
a2 : access constant mpc_struct; a3 : mpc_rnd_t) return signed_int;
pragma Import (C, mpc_atan, "mpc_atan");
function mpc_asinh (a1 : access mpc_struct;
a2 : access constant mpc_struct; a3 : mpc_rnd_t) return signed_int;
pragma Import (C, mpc_asinh, "mpc_asinh");
function mpc_acosh (a1 : access mpc_struct;
a2 : access constant mpc_struct; a3 : mpc_rnd_t) return signed_int;
pragma Import (C, mpc_acosh, "mpc_acosh");
function mpc_atanh (a1 : access mpc_struct;
a2 : access constant mpc_struct; a3 : mpc_rnd_t) return signed_int;
pragma Import (C, mpc_atanh, "mpc_atanh");
function mpc_rootofunity (a1 : access mpc_struct; a2 : unsigned_long;
a3 : unsigned_long; a4 : mpc_rnd_t) return signed_int;
pragma Import (C, mpc_rootofunity, "mpc_rootofunity");
procedure mpc_clear (a1 : access mpc_struct);
pragma Import (C, mpc_clear, "mpc_clear");
function mpc_urandom (a1 : access mpc_struct;
a2 : access gmp.gmp_randstate_struct) return signed_int;
pragma Import (C, mpc_urandom, "mpc_urandom");
procedure mpc_init2 (a1 : access mpc_struct; a2 : mpfr.mpfr_prec_t);
pragma Import (C, mpc_init2, "mpc_init2");
procedure mpc_init3 (a1 : access mpc_struct; a2 : mpfr.mpfr_prec_t;
a3 : mpfr.mpfr_prec_t);
pragma Import (C, mpc_init3, "mpc_init3");
function mpc_get_prec (x : access constant mpc_struct)
return mpfr.mpfr_prec_t;
pragma Import (C, mpc_get_prec, "mpc_get_prec");
procedure mpc_get_prec2 (pr : access mpfr.mpfr_prec_t;
pi : access mpfr.mpfr_prec_t; x : access constant mpc_struct);
pragma Import (C, mpc_get_prec2, "mpc_get_prec2");
procedure mpc_set_prec (a1 : access mpc_struct; a2 : mpfr.mpfr_prec_t);
pragma Import (C, mpc_set_prec, "mpc_set_prec");
function mpc_get_version return char_const_ptr;
pragma Import (C, mpc_get_version, "mpc_get_version");
function mpc_strtoc (a1 : access mpc_struct; a2 : access constant char;
a3 : access char_ptr; a4 : signed_int; a5 : mpc_rnd_t)
return signed_int;
pragma Import (C, mpc_strtoc, "mpc_strtoc");
function mpc_set_str (a1 : access mpc_struct; a2 : access constant char;
a3 : signed_int; a4 : mpc_rnd_t) return signed_int;
pragma Import (C, mpc_set_str, "mpc_set_str");
function mpc_get_str (a1 : signed_int; a2 : stddef.size_t;
a3 : access constant mpc_struct; a4 : mpc_rnd_t) return char_ptr;
pragma Import (C, mpc_get_str, "mpc_get_str");
procedure mpc_free_str (a1 : access char);
pragma Import (C, mpc_free_str, "mpc_free_str");
function mpc_set_sj (a1 : access mpc_struct; a2 : stdint.intmax_t;
a3 : mpc_rnd_t) return signed_int;
pragma Import (C, mpc_set_sj, "mpc_set_sj");
function mpc_set_uj (a1 : access mpc_struct; a2 : stdint.uintmax_t;
a3 : mpc_rnd_t) return signed_int;
pragma Import (C, mpc_set_uj, "mpc_set_uj");
function mpc_set_sj_sj (a1 : access mpc_struct; a2 : stdint.intmax_t;
a3 : stdint.intmax_t; a4 : mpc_rnd_t) return signed_int;
pragma Import (C, mpc_set_sj_sj, "mpc_set_sj_sj");
function mpc_set_uj_uj (a1 : access mpc_struct; a2 : stdint.uintmax_t;
a3 : stdint.uintmax_t; a4 : mpc_rnd_t) return signed_int;
pragma Import (C, mpc_set_uj_uj, "mpc_set_uj_uj");
-- MPC_INEX (function macro)
-- MPC_INEX1 (function macro)
-- MPC_INEX12 (function macro)
-- MPC_INEX2 (function macro)
-- MPC_INEX_IM (function macro)
-- MPC_INEX_NEG (function macro)
-- MPC_INEX_POS (function macro)
-- MPC_INEX_RE (function macro)
-- MPC_RND (function macro)
MPC_RNDDD : constant := 51;
MPC_RNDDN : constant := 3;
MPC_RNDDU : constant := 35;
MPC_RNDDZ : constant := 19;
MPC_RNDND : constant := 48;
MPC_RNDNN : constant := 0;
MPC_RNDNU : constant := 32;
MPC_RNDNZ : constant := 16;
MPC_RNDUD : constant := 50;
MPC_RNDUN : constant := 2;
MPC_RNDUU : constant := 34;
MPC_RNDUZ : constant := 18;
MPC_RNDZD : constant := 49;
MPC_RNDZN : constant := 1;
MPC_RNDZU : constant := 33;
MPC_RNDZZ : constant := 17;
-- MPC_RND_IM (function macro)
-- MPC_RND_RE (function macro)
-- MPC_SET_X_Y (has # or ##)
MPC_VERSION : constant := 65792;
MPC_VERSION_MAJOR : constant := 1;
MPC_VERSION_MINOR : constant := 1;
-- MPC_VERSION_NUM (function macro)
MPC_VERSION_PATCHLEVEL : constant := 0;
MPC_VERSION_STRING : constant char_array (0 .. 5) := "1.1.0"
& char'Val (0);
MPC_H_HAVE_INTMAX_T : constant := 1;
-- __MPC_DECLSPEC (empty)
-- __MPC_H (empty)
-- mpc_cmp_si (function macro)
-- mpc_imagref (uninterpretable)
-- mpc_realref (uninterpretable)
-- mpc_ui_sub (function macro)
-- mpfr_set_fr (uninterpretable)
end C.mpc;
-- This file is translated by "headmaster" version 0.31-1157199 (devel).
-- The original C header's license should be applied to this file.
-- All conditional-directives are expanded for the exclusive use of your
-- environment, it is not recommended to commit this file to any repository.
-------------------------------------------------------------------------------
package body C.mpfr is
function MPFR_EMAX_MAX return mpfr_exp_t is
begin
return mpfr_get_emax_max;
end MPFR_EMAX_MAX;
function MPFR_EMAX_MIN return mpfr_exp_t is
begin
return mpfr_get_emax_min;
end MPFR_EMAX_MIN;
function MPFR_EMIN_MAX return mpfr_exp_t is
begin
return mpfr_get_emin_max;
end MPFR_EMIN_MAX;
function MPFR_EMIN_MIN return mpfr_exp_t is
begin
return mpfr_get_emin_min;
end MPFR_EMIN_MIN;
function gmp_default_rounding_mode return mpfr_rnd_t is
begin
return mpfr_get_default_rounding_mode;
end gmp_default_rounding_mode;
function mpfr_emax return mpfr_exp_t is
begin
return mpfr_get_emax;
end mpfr_emax;
function mpfr_emin return mpfr_exp_t is
begin
return mpfr_get_emin;
end mpfr_emin;
function get_mpfr_version return char_const_ptr is
begin
return mpfr_get_version;
end get_mpfr_version;
end C.mpfr;
-- This file is translated by "headmaster" version 0.31-1157199 (devel).
-- The original C header's license should be applied to this file.
-- All conditional-directives are expanded for the exclusive use of your
-- environment, it is not recommended to commit this file to any repository.
-------------------------------------------------------------------------------
with C.gmp;
with C.stddef;
with C.stdint;
package C.mpfr is
pragma Preelaborate;
-- subtype mpfr_void is void (typedef)
subtype mpfr_int is signed_int;
subtype mpfr_uint is unsigned_int;
subtype mpfr_long is signed_long;
subtype mpfr_ulong is unsigned_long;
subtype mpfr_size_t is stddef.size_t;
subtype mpfr_flags_t is unsigned_int;
type enum_61ae6ddb is (MPFR_RNDNA, MPFR_RNDN, MPFR_RNDZ, MPFR_RNDU,
MPFR_RNDD, MPFR_RNDA, MPFR_RNDF);
for enum_61ae6ddb use (MPFR_RNDNA => -1, MPFR_RNDN => 0, MPFR_RNDZ => 1,
MPFR_RNDU => 2, MPFR_RNDD => 3, MPFR_RNDA => 4, MPFR_RNDF => 5);
pragma Convention (C, enum_61ae6ddb);
subtype mpfr_rnd_t is enum_61ae6ddb;
subtype mpfr_prec_t is signed_long;
subtype mpfr_prec_t_ptr is signed_long_ptr;
subtype mpfr_uprec_t is unsigned_long;
subtype mpfr_sign_t is signed_int;
subtype mpfr_exp_t is signed_long;
subtype mpfr_exp_t_ptr is signed_long_ptr;
subtype mpfr_uexp_t is unsigned_long;
type struct_3620fc2c is record
mpfr_prec : aliased mpfr_prec_t;
mpfr_sign : aliased mpfr_sign_t;
mpfr_exp : aliased mpfr_exp_t;
mpfr_d : aliased gmp.mp_limb_t_ptr;
end record;
pragma Convention (C_Pass_By_Copy, struct_3620fc2c);
type struct_3620fc2c_array is array (size_t range <>) of
aliased struct_3620fc2c;
pragma Convention (C, struct_3620fc2c_array);
type struct_3620fc2c_ptr is access all struct_3620fc2c;
for struct_3620fc2c_ptr'Storage_Size use 0;
pragma No_Strict_Aliasing (struct_3620fc2c_ptr);
pragma Convention (C, struct_3620fc2c_ptr);
type struct_3620fc2c_ptr_const_ptr is access constant struct_3620fc2c_ptr;
for struct_3620fc2c_ptr_const_ptr'Storage_Size use 0;
pragma No_Strict_Aliasing (struct_3620fc2c_ptr_const_ptr);
pragma Convention (C, struct_3620fc2c_ptr_const_ptr);
type struct_3620fc2c_const_ptr is access constant struct_3620fc2c;
for struct_3620fc2c_const_ptr'Storage_Size use 0;
pragma No_Strict_Aliasing (struct_3620fc2c_const_ptr);
pragma Convention (C, struct_3620fc2c_const_ptr);
subtype mpfr_struct is struct_3620fc2c;
subtype mpfr_struct_array is struct_3620fc2c_array;
subtype mpfr_struct_ptr is struct_3620fc2c_ptr;
subtype mpfr_struct_ptr_const_ptr is struct_3620fc2c_ptr_const_ptr;
subtype mpfr_struct_const_ptr is struct_3620fc2c_const_ptr;
subtype mpfr_t is mpfr_struct_array (0 .. 0);
subtype mpfr_ptr is mpfr_struct_ptr;
subtype mpfr_ptr_const_ptr is mpfr_struct_ptr_const_ptr;
subtype mpfr_srcptr is mpfr_struct_const_ptr;
type enum_685c6e38 is (MPFR_NAN_KIND, MPFR_INF_KIND, MPFR_ZERO_KIND,
MPFR_REGULAR_KIND);
for enum_685c6e38 use (MPFR_NAN_KIND => 0, MPFR_INF_KIND => 1,
MPFR_ZERO_KIND => 2, MPFR_REGULAR_KIND => 3);
pragma Convention (C, enum_685c6e38);
subtype mpfr_kind_t is enum_685c6e38;
type enum_6b6ca1eb is (MPFR_FREE_LOCAL_CACHE, MPFR_FREE_GLOBAL_CACHE);
for enum_6b6ca1eb use (MPFR_FREE_LOCAL_CACHE => 1,
MPFR_FREE_GLOBAL_CACHE => 2);
pragma Convention (C, enum_6b6ca1eb);
subtype mpfr_free_cache_t is enum_6b6ca1eb;
function mpfr_get_version return char_const_ptr;
pragma Import (C, mpfr_get_version, "mpfr_get_version");
function mpfr_get_patches return char_const_ptr;
pragma Import (C, mpfr_get_patches, "mpfr_get_patches");
function mpfr_buildopt_tls_p return signed_int;
pragma Import (C, mpfr_buildopt_tls_p, "mpfr_buildopt_tls_p");
function mpfr_buildopt_float128_p return signed_int;
pragma Import (C, mpfr_buildopt_float128_p, "mpfr_buildopt_float128_p");
function mpfr_buildopt_decimal_p return signed_int;
pragma Import (C, mpfr_buildopt_decimal_p, "mpfr_buildopt_decimal_p");
function mpfr_buildopt_gmpinternals_p return signed_int;
pragma Import (C, mpfr_buildopt_gmpinternals_p,
"mpfr_buildopt_gmpinternals_p");
function mpfr_buildopt_sharedcache_p return signed_int;
pragma Import (C, mpfr_buildopt_sharedcache_p,
"mpfr_buildopt_sharedcache_p");
function mpfr_buildopt_tune_case return char_const_ptr;
pragma Import (C, mpfr_buildopt_tune_case, "mpfr_buildopt_tune_case");
function mpfr_get_emin return mpfr_exp_t;
pragma Import (C, mpfr_get_emin, "mpfr_get_emin");
function mpfr_set_emin (a1 : mpfr_exp_t) return signed_int;
pragma Import (C, mpfr_set_emin, "mpfr_set_emin");
function mpfr_get_emin_min return mpfr_exp_t;
pragma Import (C, mpfr_get_emin_min, "mpfr_get_emin_min");
function mpfr_get_emin_max return mpfr_exp_t;
pragma Import (C, mpfr_get_emin_max, "mpfr_get_emin_max");
function mpfr_get_emax return mpfr_exp_t;
pragma Import (C, mpfr_get_emax, "mpfr_get_emax");
function mpfr_set_emax (a1 : mpfr_exp_t) return signed_int;
pragma Import (C, mpfr_set_emax, "mpfr_set_emax");
function mpfr_get_emax_min return mpfr_exp_t;
pragma Import (C, mpfr_get_emax_min, "mpfr_get_emax_min");
function mpfr_get_emax_max return mpfr_exp_t;
pragma Import (C, mpfr_get_emax_max, "mpfr_get_emax_max");
procedure mpfr_set_default_rounding_mode (a1 : mpfr_rnd_t);
pragma Import (C, mpfr_set_default_rounding_mode,
"mpfr_set_default_rounding_mode");
function mpfr_get_default_rounding_mode return mpfr_rnd_t;
pragma Import (C, mpfr_get_default_rounding_mode,
"mpfr_get_default_rounding_mode");
function mpfr_print_rnd_mode (a1 : mpfr_rnd_t) return char_const_ptr;
pragma Import (C, mpfr_print_rnd_mode, "mpfr_print_rnd_mode");
procedure mpfr_clear_flags;
pragma Import (C, mpfr_clear_flags, "mpfr_clear_flags");
procedure mpfr_clear_underflow;
pragma Import (C, mpfr_clear_underflow, "mpfr_clear_underflow");
procedure mpfr_clear_overflow;
pragma Import (C, mpfr_clear_overflow, "mpfr_clear_overflow");
procedure mpfr_clear_divby0;
pragma Import (C, mpfr_clear_divby0, "mpfr_clear_divby0");
procedure mpfr_clear_nanflag;
pragma Import (C, mpfr_clear_nanflag, "mpfr_clear_nanflag");
procedure mpfr_clear_inexflag;
pragma Import (C, mpfr_clear_inexflag, "mpfr_clear_inexflag");
procedure mpfr_clear_erangeflag;
pragma Import (C, mpfr_clear_erangeflag, "mpfr_clear_erangeflag");
procedure mpfr_set_underflow;
pragma Import (C, mpfr_set_underflow, "mpfr_set_underflow");
procedure mpfr_set_overflow;
pragma Import (C, mpfr_set_overflow, "mpfr_set_overflow");
procedure mpfr_set_divby0;
pragma Import (C, mpfr_set_divby0, "mpfr_set_divby0");
procedure mpfr_set_nanflag;
pragma Import (C, mpfr_set_nanflag, "mpfr_set_nanflag");
procedure mpfr_set_inexflag;
pragma Import (C, mpfr_set_inexflag, "mpfr_set_inexflag");
procedure mpfr_set_erangeflag;
pragma Import (C, mpfr_set_erangeflag, "mpfr_set_erangeflag");
function mpfr_underflow_p return signed_int;
pragma Import (C, mpfr_underflow_p, "mpfr_underflow_p");
function mpfr_overflow_p return signed_int;
pragma Import (C, mpfr_overflow_p, "mpfr_overflow_p");
function mpfr_divby0_p return signed_int;
pragma Import (C, mpfr_divby0_p, "mpfr_divby0_p");
function mpfr_nanflag_p return signed_int;
pragma Import (C, mpfr_nanflag_p, "mpfr_nanflag_p");
function mpfr_inexflag_p return signed_int;
pragma Import (C, mpfr_inexflag_p, "mpfr_inexflag_p");
function mpfr_erangeflag_p return signed_int;
pragma Import (C, mpfr_erangeflag_p, "mpfr_erangeflag_p");
procedure mpfr_flags_clear (a1 : mpfr_flags_t);
pragma Import (C, mpfr_flags_clear, "mpfr_flags_clear");
procedure mpfr_flags_set (a1 : mpfr_flags_t);
pragma Import (C, mpfr_flags_set, "mpfr_flags_set");
function mpfr_flags_test (a1 : mpfr_flags_t) return mpfr_flags_t;
pragma Import (C, mpfr_flags_test, "mpfr_flags_test");
function mpfr_flags_save return mpfr_flags_t;
pragma Import (C, mpfr_flags_save, "mpfr_flags_save");
procedure mpfr_flags_restore (a1 : mpfr_flags_t; a2 : mpfr_flags_t);
pragma Import (C, mpfr_flags_restore, "mpfr_flags_restore");
function mpfr_check_range (a1 : access mpfr_struct; a2 : signed_int;
a3 : mpfr_rnd_t) return signed_int;
pragma Import (C, mpfr_check_range, "mpfr_check_range");
procedure mpfr_init2 (a1 : access mpfr_struct; a2 : mpfr_prec_t);
pragma Import (C, mpfr_init2, "mpfr_init2");
procedure mpfr_init (a1 : access mpfr_struct);
pragma Import (C, mpfr_init, "mpfr_init");
procedure mpfr_clear (a1 : access mpfr_struct);
pragma Import (C, mpfr_clear, "mpfr_clear");
procedure mpfr_inits2 (a1 : mpfr_prec_t; a2 : access mpfr_struct);
pragma Import (C, mpfr_inits2, "mpfr_inits2");
procedure mpfr_inits (a1 : access mpfr_struct);
pragma Import (C, mpfr_inits, "mpfr_inits");
procedure mpfr_clears (a1 : access mpfr_struct);
pragma Import (C, mpfr_clears, "mpfr_clears");
function mpfr_prec_round (a1 : access mpfr_struct; a2 : mpfr_prec_t;
a3 : mpfr_rnd_t) return signed_int;
pragma Import (C, mpfr_prec_round, "mpfr_prec_round");
function mpfr_can_round (a1 : access constant mpfr_struct;
a2 : mpfr_exp_t; a3 : mpfr_rnd_t; a4 : mpfr_rnd_t; a5 : mpfr_prec_t)
return signed_int;
pragma Import (C, mpfr_can_round, "mpfr_can_round");
function mpfr_min_prec (a1 : access constant mpfr_struct)
return mpfr_prec_t;
pragma Import (C, mpfr_min_prec, "mpfr_min_prec");
function mpfr_get_exp (a1 : access constant mpfr_struct)
return mpfr_exp_t;
pragma Import (C, mpfr_get_exp, "mpfr_get_exp");
function mpfr_set_exp (a1 : access mpfr_struct; a2 : mpfr_exp_t)
return signed_int;
pragma Import (C, mpfr_set_exp, "mpfr_set_exp");
function mpfr_get_prec (a1 : access constant mpfr_struct)
return mpfr_prec_t;
pragma Import (C, mpfr_get_prec, "mpfr_get_prec");
procedure mpfr_set_prec (a1 : access mpfr_struct; a2 : mpfr_prec_t);
pragma Import (C, mpfr_set_prec, "mpfr_set_prec");
procedure mpfr_set_prec_raw (a1 : access mpfr_struct; a2 : mpfr_prec_t);
pragma Import (C, mpfr_set_prec_raw, "mpfr_set_prec_raw");
procedure mpfr_set_default_prec (a1 : mpfr_prec_t);
pragma Import (C, mpfr_set_default_prec, "mpfr_set_default_prec");
function mpfr_get_default_prec return mpfr_prec_t;
pragma Import (C, mpfr_get_default_prec, "mpfr_get_default_prec");
function mpfr_set_d (a1 : access mpfr_struct; a2 : double;
a3 : mpfr_rnd_t) return signed_int;
pragma Import (C, mpfr_set_d, "mpfr_set_d");
function mpfr_set_flt (a1 : access mpfr_struct; a2 : float;
a3 : mpfr_rnd_t) return signed_int;
pragma Import (C, mpfr_set_flt, "mpfr_set_flt");
function mpfr_set_ld (a1 : access mpfr_struct; a2 : long_double;
a3 : mpfr_rnd_t) return signed_int;
pragma Import (C, mpfr_set_ld, "mpfr_set_ld");
function mpfr_set_z (a1 : access mpfr_struct;
a2 : access constant gmp.mpz_struct; a3 : mpfr_rnd_t)
return signed_int;
pragma Import (C, mpfr_set_z, "mpfr_set_z");
function mpfr_set_z_2exp (a1 : access mpfr_struct;
a2 : access constant gmp.mpz_struct; a3 : mpfr_exp_t; a4 : mpfr_rnd_t)
return signed_int;
pragma Import (C, mpfr_set_z_2exp, "mpfr_set_z_2exp");
procedure mpfr_set_nan (a1 : access mpfr_struct);
pragma Import (C, mpfr_set_nan, "mpfr_set_nan");
procedure mpfr_set_inf (a1 : access mpfr_struct; a2 : signed_int);
pragma Import (C, mpfr_set_inf, "mpfr_set_inf");
procedure mpfr_set_zero (a1 : access mpfr_struct; a2 : signed_int);
pragma Import (C, mpfr_set_zero, "mpfr_set_zero");
function mpfr_set_f (a1 : access mpfr_struct;
a2 : access constant gmp.mpf_struct; a3 : mpfr_rnd_t)
return signed_int;
pragma Import (C, mpfr_set_f, "mpfr_set_f");
function mpfr_cmp_f (a1 : access constant mpfr_struct;
a2 : access constant gmp.mpf_struct) return signed_int;
pragma Import (C, mpfr_cmp_f, "mpfr_cmp_f");
function mpfr_get_f (a1 : access gmp.mpf_struct;
a2 : access constant mpfr_struct; a3 : mpfr_rnd_t) return signed_int;
pragma Import (C, mpfr_get_f, "mpfr_get_f");
function mpfr_set_si (a1 : access mpfr_struct; a2 : signed_long;
a3 : mpfr_rnd_t) return signed_int;
pragma Import (C, mpfr_set_si, "mpfr_set_si");
function mpfr_set_ui (a1 : access mpfr_struct; a2 : unsigned_long;
a3 : mpfr_rnd_t) return signed_int;
pragma Import (C, mpfr_set_ui, "mpfr_set_ui");
function mpfr_set_si_2exp (a1 : access mpfr_struct; a2 : signed_long;
a3 : mpfr_exp_t; a4 : mpfr_rnd_t) return signed_int;
pragma Import (C, mpfr_set_si_2exp, "mpfr_set_si_2exp");
function mpfr_set_ui_2exp (a1 : access mpfr_struct; a2 : unsigned_long;
a3 : mpfr_exp_t; a4 : mpfr_rnd_t) return signed_int;
pragma Import (C, mpfr_set_ui_2exp, "mpfr_set_ui_2exp");
function mpfr_set_q (a1 : access mpfr_struct;
a2 : access constant gmp.mpq_struct; a3 : mpfr_rnd_t)
return signed_int;
pragma Import (C, mpfr_set_q, "mpfr_set_q");
function mpfr_mul_q (a1 : access mpfr_struct;
a2 : access constant mpfr_struct; a3 : access constant gmp.mpq_struct;
a4 : mpfr_rnd_t) return signed_int;
pragma Import (C, mpfr_mul_q, "mpfr_mul_q");
function mpfr_div_q (a1 : access mpfr_struct;
a2 : access constant mpfr_struct; a3 : access constant gmp.mpq_struct;
a4 : mpfr_rnd_t) return signed_int;
pragma Import (C, mpfr_div_q, "mpfr_div_q");
function mpfr_add_q (a1 : access mpfr_struct;
a2 : access constant mpfr_struct; a3 : access constant gmp.mpq_struct;
a4 : mpfr_rnd_t) return signed_int;
pragma Import (C, mpfr_add_q, "mpfr_add_q");
function mpfr_sub_q (a1 : access mpfr_struct;
a2 : access constant mpfr_struct; a3 : access constant gmp.mpq_struct;
a4 : mpfr_rnd_t) return signed_int;
pragma Import (C, mpfr_sub_q, "mpfr_sub_q");
function mpfr_cmp_q (a1 : access constant mpfr_struct;
a2 : access constant gmp.mpq_struct) return signed_int;
pragma Import (C, mpfr_cmp_q, "mpfr_cmp_q");
procedure mpfr_get_q (q : access gmp.mpq_struct;
f : access constant mpfr_struct);
pragma Import (C, mpfr_get_q, "mpfr_get_q");
function mpfr_set_str (a1 : access mpfr_struct; a2 : access constant char;
a3 : signed_int; a4 : mpfr_rnd_t) return signed_int;
pragma Import (C, mpfr_set_str, "mpfr_set_str");
function mpfr_init_set_str (a1 : access mpfr_struct;
a2 : access constant char; a3 : signed_int; a4 : mpfr_rnd_t)
return signed_int;
pragma Import (C, mpfr_init_set_str, "mpfr_init_set_str");
function mpfr_set4 (a1 : access mpfr_struct;
a2 : access constant mpfr_struct; a3 : mpfr_rnd_t; a4 : signed_int)
return signed_int;
pragma Import (C, mpfr_set4, "mpfr_set4");
function mpfr_abs (a1 : access mpfr_struct;
a2 : access constant mpfr_struct; a3 : mpfr_rnd_t) return signed_int;
pragma Import (C, mpfr_abs, "mpfr_abs");
function mpfr_set (a1 : access mpfr_struct;
a2 : access constant mpfr_struct; a3 : mpfr_rnd_t) return signed_int;
pragma Import (C, mpfr_set, "mpfr_set");
function mpfr_neg (a1 : access mpfr_struct;
a2 : access constant mpfr_struct; a3 : mpfr_rnd_t) return signed_int;
pragma Import (C, mpfr_neg, "mpfr_neg");
function mpfr_signbit (a1 : access constant mpfr_struct)
return signed_int;
pragma Import (C, mpfr_signbit, "mpfr_signbit");
function mpfr_setsign (a1 : access mpfr_struct;
a2 : access constant mpfr_struct; a3 : signed_int; a4 : mpfr_rnd_t)
return signed_int;
pragma Import (C, mpfr_setsign, "mpfr_setsign");
function mpfr_copysign (a1 : access mpfr_struct;
a2 : access constant mpfr_struct; a3 : access constant mpfr_struct;
a4 : mpfr_rnd_t) return signed_int;
pragma Import (C, mpfr_copysign, "mpfr_copysign");
function mpfr_get_z_2exp (a1 : access gmp.mpz_struct;
a2 : access constant mpfr_struct) return mpfr_exp_t;
pragma Import (C, mpfr_get_z_2exp, "mpfr_get_z_2exp");
function mpfr_get_flt (a1 : access constant mpfr_struct; a2 : mpfr_rnd_t)
return float;
pragma Import (C, mpfr_get_flt, "mpfr_get_flt");
function mpfr_get_d (a1 : access constant mpfr_struct; a2 : mpfr_rnd_t)
return double;
pragma Import (C, mpfr_get_d, "mpfr_get_d");
function mpfr_get_ld (a1 : access constant mpfr_struct; a2 : mpfr_rnd_t)
return long_double;
pragma Import (C, mpfr_get_ld, "mpfr_get_ld");
function mpfr_get_d1 (a1 : access constant mpfr_struct) return double;
pragma Import (C, mpfr_get_d1, "mpfr_get_d1");
function mpfr_get_d_2exp (a1 : access signed_long;
a2 : access constant mpfr_struct; a3 : mpfr_rnd_t) return double;
pragma Import (C, mpfr_get_d_2exp, "mpfr_get_d_2exp");
function mpfr_get_ld_2exp (a1 : access signed_long;
a2 : access constant mpfr_struct; a3 : mpfr_rnd_t) return long_double;
pragma Import (C, mpfr_get_ld_2exp, "mpfr_get_ld_2exp");
function mpfr_frexp (a1 : access mpfr_exp_t; a2 : access mpfr_struct;
a3 : access constant mpfr_struct; a4 : mpfr_rnd_t) return signed_int;
pragma Import (C, mpfr_frexp, "mpfr_frexp");
function mpfr_get_si (a1 : access constant mpfr_struct; a2 : mpfr_rnd_t)
return signed_long;
pragma Import (C, mpfr_get_si, "mpfr_get_si");
function mpfr_get_ui (a1 : access constant mpfr_struct; a2 : mpfr_rnd_t)
return unsigned_long;
pragma Import (C, mpfr_get_ui, "mpfr_get_ui");
function mpfr_get_str (a1 : access char; a2 : access mpfr_exp_t;
a3 : signed_int; a4 : stddef.size_t; a5 : access constant mpfr_struct;
a6 : mpfr_rnd_t) return char_ptr;
pragma Import (C, mpfr_get_str, "mpfr_get_str");
function mpfr_get_z (z : access gmp.mpz_struct;
f : access constant mpfr_struct; a3 : mpfr_rnd_t) return signed_int;
pragma Import (C, mpfr_get_z, "mpfr_get_z");
procedure mpfr_free_str (a1 : access char);
pragma Import (C, mpfr_free_str, "mpfr_free_str");
function mpfr_urandom (a1 : access mpfr_struct;
a2 : access gmp.gmp_randstate_struct; a3 : mpfr_rnd_t)
return signed_int;
pragma Import (C, mpfr_urandom, "mpfr_urandom");
function mpfr_grandom (a1 : access mpfr_struct; a2 : access mpfr_struct;
a3 : access gmp.gmp_randstate_struct; a4 : mpfr_rnd_t)
return signed_int;
pragma Import (C, mpfr_grandom, "mpfr_grandom");
function mpfr_nrandom (a1 : access mpfr_struct;
a2 : access gmp.gmp_randstate_struct; a3 : mpfr_rnd_t)
return signed_int;
pragma Import (C, mpfr_nrandom, "mpfr_nrandom");
function mpfr_erandom (a1 : access mpfr_struct;
a2 : access gmp.gmp_randstate_struct; a3 : mpfr_rnd_t)
return signed_int;
pragma Import (C, mpfr_erandom, "mpfr_erandom");
function mpfr_urandomb (a1 : access mpfr_struct;
a2 : access gmp.gmp_randstate_struct) return signed_int;
pragma Import (C, mpfr_urandomb, "mpfr_urandomb");
procedure mpfr_nextabove (a1 : access mpfr_struct);
pragma Import (C, mpfr_nextabove, "mpfr_nextabove");
procedure mpfr_nextbelow (a1 : access mpfr_struct);
pragma Import (C, mpfr_nextbelow, "mpfr_nextbelow");
procedure mpfr_nexttoward (a1 : access mpfr_struct;
a2 : access constant mpfr_struct);
pragma Import (C, mpfr_nexttoward, "mpfr_nexttoward");
function mpfr_printf (a1 : access constant char) return signed_int;
pragma Import (C, mpfr_printf, "mpfr_printf");
function mpfr_asprintf (a1 : access char_ptr; a2 : access constant char)
return signed_int;
pragma Import (C, mpfr_asprintf, "mpfr_asprintf");
function mpfr_sprintf (a1 : access char; a2 : access constant char)
return signed_int;
pragma Import (C, mpfr_sprintf, "mpfr_sprintf");
function mpfr_snprintf (a1 : access char; a2 : stddef.size_t;
a3 : access constant char) return signed_int;
pragma Import (C, mpfr_snprintf, "mpfr_snprintf");
function mpfr_pow (a1 : access mpfr_struct;
a2 : access constant mpfr_struct; a3 : access constant mpfr_struct;
a4 : mpfr_rnd_t) return signed_int;
pragma Import (C, mpfr_pow, "mpfr_pow");
function mpfr_pow_si (a1 : access mpfr_struct;
a2 : access constant mpfr_struct; a3 : signed_long; a4 : mpfr_rnd_t)
return signed_int;
pragma Import (C, mpfr_pow_si, "mpfr_pow_si");
function mpfr_pow_ui (a1 : access mpfr_struct;
a2 : access constant mpfr_struct; a3 : unsigned_long; a4 : mpfr_rnd_t)
return signed_int;
pragma Import (C, mpfr_pow_ui, "mpfr_pow_ui");
function mpfr_ui_pow_ui (a1 : access mpfr_struct; a2 : unsigned_long;
a3 : unsigned_long; a4 : mpfr_rnd_t) return signed_int;
pragma Import (C, mpfr_ui_pow_ui, "mpfr_ui_pow_ui");
function mpfr_ui_pow (a1 : access mpfr_struct; a2 : unsigned_long;
a3 : access constant mpfr_struct; a4 : mpfr_rnd_t) return signed_int;
pragma Import (C, mpfr_ui_pow, "mpfr_ui_pow");
function mpfr_pow_z (a1 : access mpfr_struct;
a2 : access constant mpfr_struct; a3 : access constant gmp.mpz_struct;
a4 : mpfr_rnd_t) return signed_int;
pragma Import (C, mpfr_pow_z, "mpfr_pow_z");
function mpfr_sqrt (a1 : access mpfr_struct;
a2 : access constant mpfr_struct; a3 : mpfr_rnd_t) return signed_int;
pragma Import (C, mpfr_sqrt, "mpfr_sqrt");
function mpfr_sqrt_ui (a1 : access mpfr_struct; a2 : unsigned_long;
a3 : mpfr_rnd_t) return signed_int;
pragma Import (C, mpfr_sqrt_ui, "mpfr_sqrt_ui");
function mpfr_rec_sqrt (a1 : access mpfr_struct;
a2 : access constant mpfr_struct; a3 : mpfr_rnd_t) return signed_int;
pragma Import (C, mpfr_rec_sqrt, "mpfr_rec_sqrt");
function mpfr_add (a1 : access mpfr_struct;
a2 : access constant mpfr_struct; a3 : access constant mpfr_struct;
a4 : mpfr_rnd_t) return signed_int;
pragma Import (C, mpfr_add, "mpfr_add");
function mpfr_sub (a1 : access mpfr_struct;
a2 : access constant mpfr_struct; a3 : access constant mpfr_struct;
a4 : mpfr_rnd_t) return signed_int;
pragma Import (C, mpfr_sub, "mpfr_sub");
function mpfr_mul (a1 : access mpfr_struct;
a2 : access constant mpfr_struct; a3 : access constant mpfr_struct;
a4 : mpfr_rnd_t) return signed_int;
pragma Import (C, mpfr_mul, "mpfr_mul");
function mpfr_div (a1 : access mpfr_struct;
a2 : access constant mpfr_struct; a3 : access constant mpfr_struct;
a4 : mpfr_rnd_t) return signed_int;
pragma Import (C, mpfr_div, "mpfr_div");
function mpfr_add_ui (a1 : access mpfr_struct;
a2 : access constant mpfr_struct; a3 : unsigned_long; a4 : mpfr_rnd_t)
return signed_int;
pragma Import (C, mpfr_add_ui, "mpfr_add_ui");
function mpfr_sub_ui (a1 : access mpfr_struct;
a2 : access constant mpfr_struct; a3 : unsigned_long; a4 : mpfr_rnd_t)
return signed_int;
pragma Import (C, mpfr_sub_ui, "mpfr_sub_ui");
function mpfr_ui_sub (a1 : access mpfr_struct; a2 : unsigned_long;
a3 : access constant mpfr_struct; a4 : mpfr_rnd_t) return signed_int;
pragma Import (C, mpfr_ui_sub, "mpfr_ui_sub");
function mpfr_mul_ui (a1 : access mpfr_struct;
a2 : access constant mpfr_struct; a3 : unsigned_long; a4 : mpfr_rnd_t)
return signed_int;
pragma Import (C, mpfr_mul_ui, "mpfr_mul_ui");
function mpfr_div_ui (a1 : access mpfr_struct;
a2 : access constant mpfr_struct; a3 : unsigned_long; a4 : mpfr_rnd_t)
return signed_int;
pragma Import (C, mpfr_div_ui, "mpfr_div_ui");
function mpfr_ui_div (a1 : access mpfr_struct; a2 : unsigned_long;
a3 : access constant mpfr_struct; a4 : mpfr_rnd_t) return signed_int;
pragma Import (C, mpfr_ui_div, "mpfr_ui_div");
function mpfr_add_si (a1 : access mpfr_struct;
a2 : access constant mpfr_struct; a3 : signed_long; a4 : mpfr_rnd_t)
return signed_int;
pragma Import (C, mpfr_add_si, "mpfr_add_si");
function mpfr_sub_si (a1 : access mpfr_struct;
a2 : access constant mpfr_struct; a3 : signed_long; a4 : mpfr_rnd_t)
return signed_int;
pragma Import (C, mpfr_sub_si, "mpfr_sub_si");
function mpfr_si_sub (a1 : access mpfr_struct; a2 : signed_long;
a3 : access constant mpfr_struct; a4 : mpfr_rnd_t) return signed_int;
pragma Import (C, mpfr_si_sub, "mpfr_si_sub");
function mpfr_mul_si (a1 : access mpfr_struct;
a2 : access constant mpfr_struct; a3 : signed_long; a4 : mpfr_rnd_t)
return signed_int;
pragma Import (C, mpfr_mul_si, "mpfr_mul_si");
function mpfr_div_si (a1 : access mpfr_struct;
a2 : access constant mpfr_struct; a3 : signed_long; a4 : mpfr_rnd_t)
return signed_int;
pragma Import (C, mpfr_div_si, "mpfr_div_si");
function mpfr_si_div (a1 : access mpfr_struct; a2 : signed_long;
a3 : access constant mpfr_struct; a4 : mpfr_rnd_t) return signed_int;
pragma Import (C, mpfr_si_div, "mpfr_si_div");
function mpfr_add_d (a1 : access mpfr_struct;
a2 : access constant mpfr_struct; a3 : double; a4 : mpfr_rnd_t)
return signed_int;
pragma Import (C, mpfr_add_d, "mpfr_add_d");
function mpfr_sub_d (a1 : access mpfr_struct;
a2 : access constant mpfr_struct; a3 : double; a4 : mpfr_rnd_t)
return signed_int;
pragma Import (C, mpfr_sub_d, "mpfr_sub_d");
function mpfr_d_sub (a1 : access mpfr_struct; a2 : double;
a3 : access constant mpfr_struct; a4 : mpfr_rnd_t) return signed_int;
pragma Import (C, mpfr_d_sub, "mpfr_d_sub");
function mpfr_mul_d (a1 : access mpfr_struct;
a2 : access constant mpfr_struct; a3 : double; a4 : mpfr_rnd_t)
return signed_int;
pragma Import (C, mpfr_mul_d, "mpfr_mul_d");
function mpfr_div_d (a1 : access mpfr_struct;
a2 : access constant mpfr_struct; a3 : double; a4 : mpfr_rnd_t)
return signed_int;
pragma Import (C, mpfr_div_d, "mpfr_div_d");
function mpfr_d_div (a1 : access mpfr_struct; a2 : double;
a3 : access constant mpfr_struct; a4 : mpfr_rnd_t) return signed_int;
pragma Import (C, mpfr_d_div, "mpfr_d_div");
function mpfr_sqr (a1 : access mpfr_struct;
a2 : access constant mpfr_struct; a3 : mpfr_rnd_t) return signed_int;
pragma Import (C, mpfr_sqr, "mpfr_sqr");
function mpfr_const_pi (a1 : access mpfr_struct; a2 : mpfr_rnd_t)
return signed_int;
pragma Import (C, mpfr_const_pi, "mpfr_const_pi");
function mpfr_const_log2 (a1 : access mpfr_struct; a2 : mpfr_rnd_t)
return signed_int;
pragma Import (C, mpfr_const_log2, "mpfr_const_log2");
function mpfr_const_euler (a1 : access mpfr_struct; a2 : mpfr_rnd_t)
return signed_int;
pragma Import (C, mpfr_const_euler, "mpfr_const_euler");
function mpfr_const_catalan (a1 : access mpfr_struct; a2 : mpfr_rnd_t)
return signed_int;
pragma Import (C, mpfr_const_catalan, "mpfr_const_catalan");
function mpfr_agm (a1 : access mpfr_struct;
a2 : access constant mpfr_struct; a3 : access constant mpfr_struct;
a4 : mpfr_rnd_t) return signed_int;
pragma Import (C, mpfr_agm, "mpfr_agm");
function mpfr_log (a1 : access mpfr_struct;
a2 : access constant mpfr_struct; a3 : mpfr_rnd_t) return signed_int;
pragma Import (C, mpfr_log, "mpfr_log");
function mpfr_log2 (a1 : access mpfr_struct;
a2 : access constant mpfr_struct; a3 : mpfr_rnd_t) return signed_int;
pragma Import (C, mpfr_log2, "mpfr_log2");
function mpfr_log10 (a1 : access mpfr_struct;
a2 : access constant mpfr_struct; a3 : mpfr_rnd_t) return signed_int;
pragma Import (C, mpfr_log10, "mpfr_log10");
function mpfr_log1p (a1 : access mpfr_struct;
a2 : access constant mpfr_struct; a3 : mpfr_rnd_t) return signed_int;
pragma Import (C, mpfr_log1p, "mpfr_log1p");
function mpfr_log_ui (a1 : access mpfr_struct; a2 : unsigned_long;
a3 : mpfr_rnd_t) return signed_int;
pragma Import (C, mpfr_log_ui, "mpfr_log_ui");
function mpfr_exp (a1 : access mpfr_struct;
a2 : access constant mpfr_struct; a3 : mpfr_rnd_t) return signed_int;
pragma Import (C, mpfr_exp, "mpfr_exp");
function mpfr_exp2 (a1 : access mpfr_struct;
a2 : access constant mpfr_struct; a3 : mpfr_rnd_t) return signed_int;
pragma Import (C, mpfr_exp2, "mpfr_exp2");
function mpfr_exp10 (a1 : access mpfr_struct;
a2 : access constant mpfr_struct; a3 : mpfr_rnd_t) return signed_int;
pragma Import (C, mpfr_exp10, "mpfr_exp10");
function mpfr_expm1 (a1 : access mpfr_struct;
a2 : access constant mpfr_struct; a3 : mpfr_rnd_t) return signed_int;
pragma Import (C, mpfr_expm1, "mpfr_expm1");
function mpfr_eint (a1 : access mpfr_struct;
a2 : access constant mpfr_struct; a3 : mpfr_rnd_t) return signed_int;
pragma Import (C, mpfr_eint, "mpfr_eint");
function mpfr_li2 (a1 : access mpfr_struct;
a2 : access constant mpfr_struct; a3 : mpfr_rnd_t) return signed_int;
pragma Import (C, mpfr_li2, "mpfr_li2");
function mpfr_cmp (a1 : access constant mpfr_struct;
a2 : access constant mpfr_struct) return signed_int;
pragma Import (C, mpfr_cmp, "mpfr_cmp");
function mpfr_cmp3 (a1 : access constant mpfr_struct;
a2 : access constant mpfr_struct; a3 : signed_int) return signed_int;
pragma Import (C, mpfr_cmp3, "mpfr_cmp3");
function mpfr_cmp_d (a1 : access constant mpfr_struct; a2 : double)
return signed_int;
pragma Import (C, mpfr_cmp_d, "mpfr_cmp_d");
function mpfr_cmp_ld (a1 : access constant mpfr_struct; a2 : long_double)
return signed_int;
pragma Import (C, mpfr_cmp_ld, "mpfr_cmp_ld");
function mpfr_cmpabs (a1 : access constant mpfr_struct;
a2 : access constant mpfr_struct) return signed_int;
pragma Import (C, mpfr_cmpabs, "mpfr_cmpabs");
function mpfr_cmp_ui (a1 : access constant mpfr_struct;
a2 : unsigned_long) return signed_int;
pragma Import (C, mpfr_cmp_ui, "mpfr_cmp_ui");
function mpfr_cmp_si (a1 : access constant mpfr_struct; a2 : signed_long)
return signed_int;
pragma Import (C, mpfr_cmp_si, "mpfr_cmp_si");
function mpfr_cmp_ui_2exp (a1 : access constant mpfr_struct;
a2 : unsigned_long; a3 : mpfr_exp_t) return signed_int;
pragma Import (C, mpfr_cmp_ui_2exp, "mpfr_cmp_ui_2exp");
function mpfr_cmp_si_2exp (a1 : access constant mpfr_struct;
a2 : signed_long; a3 : mpfr_exp_t) return signed_int;
pragma Import (C, mpfr_cmp_si_2exp, "mpfr_cmp_si_2exp");
procedure mpfr_reldiff (a1 : access mpfr_struct;
a2 : access constant mpfr_struct; a3 : access constant mpfr_struct;
a4 : mpfr_rnd_t);
pragma Import (C, mpfr_reldiff, "mpfr_reldiff");
function mpfr_eq (a1 : access constant mpfr_struct;
a2 : access constant mpfr_struct; a3 : unsigned_long)
return signed_int;
pragma Import (C, mpfr_eq, "mpfr_eq");
function mpfr_sgn (a1 : access constant mpfr_struct) return signed_int;
pragma Import (C, mpfr_sgn, "mpfr_sgn");
function mpfr_mul_2exp (a1 : access mpfr_struct;
a2 : access constant mpfr_struct; a3 : unsigned_long; a4 : mpfr_rnd_t)
return signed_int;
pragma Import (C, mpfr_mul_2exp, "mpfr_mul_2exp");
function mpfr_div_2exp (a1 : access mpfr_struct;
a2 : access constant mpfr_struct; a3 : unsigned_long; a4 : mpfr_rnd_t)
return signed_int;
pragma Import (C, mpfr_div_2exp, "mpfr_div_2exp");
function mpfr_mul_2ui (a1 : access mpfr_struct;
a2 : access constant mpfr_struct; a3 : unsigned_long; a4 : mpfr_rnd_t)
return signed_int;
pragma Import (C, mpfr_mul_2ui, "mpfr_mul_2ui");
function mpfr_div_2ui (a1 : access mpfr_struct;
a2 : access constant mpfr_struct; a3 : unsigned_long; a4 : mpfr_rnd_t)
return signed_int;
pragma Import (C, mpfr_div_2ui, "mpfr_div_2ui");
function mpfr_mul_2si (a1 : access mpfr_struct;
a2 : access constant mpfr_struct; a3 : signed_long; a4 : mpfr_rnd_t)
return signed_int;
pragma Import (C, mpfr_mul_2si, "mpfr_mul_2si");
function mpfr_div_2si (a1 : access mpfr_struct;
a2 : access constant mpfr_struct; a3 : signed_long; a4 : mpfr_rnd_t)
return signed_int;
pragma Import (C, mpfr_div_2si, "mpfr_div_2si");
function mpfr_rint (a1 : access mpfr_struct;
a2 : access constant mpfr_struct; a3 : mpfr_rnd_t) return signed_int;
pragma Import (C, mpfr_rint, "mpfr_rint");
function mpfr_roundeven (a1 : access mpfr_struct;
a2 : access constant mpfr_struct) return signed_int;
pragma Import (C, mpfr_roundeven, "mpfr_roundeven");
function mpfr_round (a1 : access mpfr_struct;
a2 : access constant mpfr_struct) return signed_int;
pragma Import (C, mpfr_round, "mpfr_round");
function mpfr_trunc (a1 : access mpfr_struct;
a2 : access constant mpfr_struct) return signed_int;
pragma Import (C, mpfr_trunc, "mpfr_trunc");
function mpfr_ceil (a1 : access mpfr_struct;
a2 : access constant mpfr_struct) return signed_int;
pragma Import (C, mpfr_ceil, "mpfr_ceil");
function mpfr_floor (a1 : access mpfr_struct;
a2 : access constant mpfr_struct) return signed_int;
pragma Import (C, mpfr_floor, "mpfr_floor");
function mpfr_rint_roundeven (a1 : access mpfr_struct;
a2 : access constant mpfr_struct; a3 : mpfr_rnd_t) return signed_int;
pragma Import (C, mpfr_rint_roundeven, "mpfr_rint_roundeven");
function mpfr_rint_round (a1 : access mpfr_struct;
a2 : access constant mpfr_struct; a3 : mpfr_rnd_t) return signed_int;
pragma Import (C, mpfr_rint_round, "mpfr_rint_round");
function mpfr_rint_trunc (a1 : access mpfr_struct;
a2 : access constant mpfr_struct; a3 : mpfr_rnd_t) return signed_int;
pragma Import (C, mpfr_rint_trunc, "mpfr_rint_trunc");
function mpfr_rint_ceil (a1 : access mpfr_struct;
a2 : access constant mpfr_struct; a3 : mpfr_rnd_t) return signed_int;
pragma Import (C, mpfr_rint_ceil, "mpfr_rint_ceil");
function mpfr_rint_floor (a1 : access mpfr_struct;
a2 : access constant mpfr_struct; a3 : mpfr_rnd_t) return signed_int;
pragma Import (C, mpfr_rint_floor, "mpfr_rint_floor");
function mpfr_frac (a1 : access mpfr_struct;
a2 : access constant mpfr_struct; a3 : mpfr_rnd_t) return signed_int;
pragma Import (C, mpfr_frac, "mpfr_frac");
function mpfr_modf (a1 : access mpfr_struct; a2 : access mpfr_struct;
a3 : access constant mpfr_struct; a4 : mpfr_rnd_t) return signed_int;
pragma Import (C, mpfr_modf, "mpfr_modf");
function mpfr_remquo (a1 : access mpfr_struct; a2 : access signed_long;
a3 : access constant mpfr_struct; a4 : access constant mpfr_struct;
a5 : mpfr_rnd_t) return signed_int;
pragma Import (C, mpfr_remquo, "mpfr_remquo");
function mpfr_remainder (a1 : access mpfr_struct;
a2 : access constant mpfr_struct; a3 : access constant mpfr_struct;
a4 : mpfr_rnd_t) return signed_int;
pragma Import (C, mpfr_remainder, "mpfr_remainder");
function mpfr_fmod (a1 : access mpfr_struct;
a2 : access constant mpfr_struct; a3 : access constant mpfr_struct;
a4 : mpfr_rnd_t) return signed_int;
pragma Import (C, mpfr_fmod, "mpfr_fmod");
function mpfr_fmodquo (a1 : access mpfr_struct; a2 : access signed_long;
a3 : access constant mpfr_struct; a4 : access constant mpfr_struct;
a5 : mpfr_rnd_t) return signed_int;
pragma Import (C, mpfr_fmodquo, "mpfr_fmodquo");
function mpfr_fits_ulong_p (a1 : access constant mpfr_struct;
a2 : mpfr_rnd_t) return signed_int;
pragma Import (C, mpfr_fits_ulong_p, "mpfr_fits_ulong_p");
function mpfr_fits_slong_p (a1 : access constant mpfr_struct;
a2 : mpfr_rnd_t) return signed_int;
pragma Import (C, mpfr_fits_slong_p, "mpfr_fits_slong_p");
function mpfr_fits_uint_p (a1 : access constant mpfr_struct;
a2 : mpfr_rnd_t) return signed_int;
pragma Import (C, mpfr_fits_uint_p, "mpfr_fits_uint_p");
function mpfr_fits_sint_p (a1 : access constant mpfr_struct;
a2 : mpfr_rnd_t) return signed_int;
pragma Import (C, mpfr_fits_sint_p, "mpfr_fits_sint_p");
function mpfr_fits_ushort_p (a1 : access constant mpfr_struct;
a2 : mpfr_rnd_t) return signed_int;
pragma Import (C, mpfr_fits_ushort_p, "mpfr_fits_ushort_p");
function mpfr_fits_sshort_p (a1 : access constant mpfr_struct;
a2 : mpfr_rnd_t) return signed_int;
pragma Import (C, mpfr_fits_sshort_p, "mpfr_fits_sshort_p");
function mpfr_fits_uintmax_p (a1 : access constant mpfr_struct;
a2 : mpfr_rnd_t) return signed_int;
pragma Import (C, mpfr_fits_uintmax_p, "mpfr_fits_uintmax_p");
function mpfr_fits_intmax_p (a1 : access constant mpfr_struct;
a2 : mpfr_rnd_t) return signed_int;
pragma Import (C, mpfr_fits_intmax_p, "mpfr_fits_intmax_p");
procedure mpfr_extract (a1 : access gmp.mpz_struct;
a2 : access constant mpfr_struct; a3 : unsigned_int);
pragma Import (C, mpfr_extract, "mpfr_extract");
procedure mpfr_swap (a1 : access mpfr_struct; a2 : access mpfr_struct);
pragma Import (C, mpfr_swap, "mpfr_swap");
procedure mpfr_dump (a1 : access constant mpfr_struct);
pragma Import (C, mpfr_dump, "mpfr_dump");
function mpfr_nan_p (a1 : access constant mpfr_struct) return signed_int;
pragma Import (C, mpfr_nan_p, "mpfr_nan_p");
function mpfr_inf_p (a1 : access constant mpfr_struct) return signed_int;
pragma Import (C, mpfr_inf_p, "mpfr_inf_p");
function mpfr_number_p (a1 : access constant mpfr_struct)
return signed_int;
pragma Import (C, mpfr_number_p, "mpfr_number_p");
function mpfr_integer_p (a1 : access constant mpfr_struct)
return signed_int;
pragma Import (C, mpfr_integer_p, "mpfr_integer_p");
function mpfr_zero_p (a1 : access constant mpfr_struct) return signed_int;
pragma Import (C, mpfr_zero_p, "mpfr_zero_p");
function mpfr_regular_p (a1 : access constant mpfr_struct)
return signed_int;
pragma Import (C, mpfr_regular_p, "mpfr_regular_p");
function mpfr_greater_p (a1 : access constant mpfr_struct;
a2 : access constant mpfr_struct) return signed_int;
pragma Import (C, mpfr_greater_p, "mpfr_greater_p");
function mpfr_greaterequal_p (a1 : access constant mpfr_struct;
a2 : access constant mpfr_struct) return signed_int;
pragma Import (C, mpfr_greaterequal_p, "mpfr_greaterequal_p");
function mpfr_less_p (a1 : access constant mpfr_struct;
a2 : access constant mpfr_struct) return signed_int;
pragma Import (C, mpfr_less_p, "mpfr_less_p");
function mpfr_lessequal_p (a1 : access constant mpfr_struct;
a2 : access constant mpfr_struct) return signed_int;
pragma Import (C, mpfr_lessequal_p, "mpfr_lessequal_p");
function mpfr_lessgreater_p (a1 : access constant mpfr_struct;
a2 : access constant mpfr_struct) return signed_int;
pragma Import (C, mpfr_lessgreater_p, "mpfr_lessgreater_p");
function mpfr_equal_p (a1 : access constant mpfr_struct;
a2 : access constant mpfr_struct) return signed_int;
pragma Import (C, mpfr_equal_p, "mpfr_equal_p");
function mpfr_unordered_p (a1 : access constant mpfr_struct;
a2 : access constant mpfr_struct) return signed_int;
pragma Import (C, mpfr_unordered_p, "mpfr_unordered_p");
function mpfr_atanh (a1 : access mpfr_struct;
a2 : access constant mpfr_struct; a3 : mpfr_rnd_t) return signed_int;
pragma Import (C, mpfr_atanh, "mpfr_atanh");
function mpfr_acosh (a1 : access mpfr_struct;
a2 : access constant mpfr_struct; a3 : mpfr_rnd_t) return signed_int;
pragma Import (C, mpfr_acosh, "mpfr_acosh");
function mpfr_asinh (a1 : access mpfr_struct;
a2 : access constant mpfr_struct; a3 : mpfr_rnd_t) return signed_int;
pragma Import (C, mpfr_asinh, "mpfr_asinh");
function mpfr_cosh (a1 : access mpfr_struct;
a2 : access constant mpfr_struct; a3 : mpfr_rnd_t) return signed_int;
pragma Import (C, mpfr_cosh, "mpfr_cosh");
function mpfr_sinh (a1 : access mpfr_struct;
a2 : access constant mpfr_struct; a3 : mpfr_rnd_t) return signed_int;
pragma Import (C, mpfr_sinh, "mpfr_sinh");
function mpfr_tanh (a1 : access mpfr_struct;
a2 : access constant mpfr_struct; a3 : mpfr_rnd_t) return signed_int;
pragma Import (C, mpfr_tanh, "mpfr_tanh");
function mpfr_sinh_cosh (a1 : access mpfr_struct; a2 : access mpfr_struct;
a3 : access constant mpfr_struct; a4 : mpfr_rnd_t) return signed_int;
pragma Import (C, mpfr_sinh_cosh, "mpfr_sinh_cosh");
function mpfr_sech (a1 : access mpfr_struct;
a2 : access constant mpfr_struct; a3 : mpfr_rnd_t) return signed_int;
pragma Import (C, mpfr_sech, "mpfr_sech");
function mpfr_csch (a1 : access mpfr_struct;
a2 : access constant mpfr_struct; a3 : mpfr_rnd_t) return signed_int;
pragma Import (C, mpfr_csch, "mpfr_csch");
function mpfr_coth (a1 : access mpfr_struct;
a2 : access constant mpfr_struct; a3 : mpfr_rnd_t) return signed_int;
pragma Import (C, mpfr_coth, "mpfr_coth");
function mpfr_acos (a1 : access mpfr_struct;
a2 : access constant mpfr_struct; a3 : mpfr_rnd_t) return signed_int;
pragma Import (C, mpfr_acos, "mpfr_acos");
function mpfr_asin (a1 : access mpfr_struct;
a2 : access constant mpfr_struct; a3 : mpfr_rnd_t) return signed_int;
pragma Import (C, mpfr_asin, "mpfr_asin");
function mpfr_atan (a1 : access mpfr_struct;
a2 : access constant mpfr_struct; a3 : mpfr_rnd_t) return signed_int;
pragma Import (C, mpfr_atan, "mpfr_atan");
function mpfr_sin (a1 : access mpfr_struct;
a2 : access constant mpfr_struct; a3 : mpfr_rnd_t) return signed_int;
pragma Import (C, mpfr_sin, "mpfr_sin");
function mpfr_sin_cos (a1 : access mpfr_struct; a2 : access mpfr_struct;
a3 : access constant mpfr_struct; a4 : mpfr_rnd_t) return signed_int;
pragma Import (C, mpfr_sin_cos, "mpfr_sin_cos");
function mpfr_cos (a1 : access mpfr_struct;
a2 : access constant mpfr_struct; a3 : mpfr_rnd_t) return signed_int;
pragma Import (C, mpfr_cos, "mpfr_cos");
function mpfr_tan (a1 : access mpfr_struct;
a2 : access constant mpfr_struct; a3 : mpfr_rnd_t) return signed_int;
pragma Import (C, mpfr_tan, "mpfr_tan");
function mpfr_atan2 (a1 : access mpfr_struct;
a2 : access constant mpfr_struct; a3 : access constant mpfr_struct;
a4 : mpfr_rnd_t) return signed_int;
pragma Import (C, mpfr_atan2, "mpfr_atan2");
function mpfr_sec (a1 : access mpfr_struct;
a2 : access constant mpfr_struct; a3 : mpfr_rnd_t) return signed_int;
pragma Import (C, mpfr_sec, "mpfr_sec");
function mpfr_csc (a1 : access mpfr_struct;
a2 : access constant mpfr_struct; a3 : mpfr_rnd_t) return signed_int;
pragma Import (C, mpfr_csc, "mpfr_csc");
function mpfr_cot (a1 : access mpfr_struct;
a2 : access constant mpfr_struct; a3 : mpfr_rnd_t) return signed_int;
pragma Import (C, mpfr_cot, "mpfr_cot");
function mpfr_hypot (a1 : access mpfr_struct;
a2 : access constant mpfr_struct; a3 : access constant mpfr_struct;
a4 : mpfr_rnd_t) return signed_int;
pragma Import (C, mpfr_hypot, "mpfr_hypot");
function mpfr_erf (a1 : access mpfr_struct;
a2 : access constant mpfr_struct; a3 : mpfr_rnd_t) return signed_int;
pragma Import (C, mpfr_erf, "mpfr_erf");
function mpfr_erfc (a1 : access mpfr_struct;
a2 : access constant mpfr_struct; a3 : mpfr_rnd_t) return signed_int;
pragma Import (C, mpfr_erfc, "mpfr_erfc");
function mpfr_cbrt (a1 : access mpfr_struct;
a2 : access constant mpfr_struct; a3 : mpfr_rnd_t) return signed_int;
pragma Import (C, mpfr_cbrt, "mpfr_cbrt");
function mpfr_root (a1 : access mpfr_struct;
a2 : access constant mpfr_struct; a3 : unsigned_long; a4 : mpfr_rnd_t)
return signed_int;
pragma Import (C, mpfr_root, "mpfr_root");
function mpfr_rootn_ui (a1 : access mpfr_struct;
a2 : access constant mpfr_struct; a3 : unsigned_long; a4 : mpfr_rnd_t)
return signed_int;
pragma Import (C, mpfr_rootn_ui, "mpfr_rootn_ui");
function mpfr_gamma (a1 : access mpfr_struct;
a2 : access constant mpfr_struct; a3 : mpfr_rnd_t) return signed_int;
pragma Import (C, mpfr_gamma, "mpfr_gamma");
function mpfr_gamma_inc (a1 : access mpfr_struct;
a2 : access constant mpfr_struct; a3 : access constant mpfr_struct;
a4 : mpfr_rnd_t) return signed_int;
pragma Import (C, mpfr_gamma_inc, "mpfr_gamma_inc");
function mpfr_beta (a1 : access mpfr_struct;
a2 : access constant mpfr_struct; a3 : access constant mpfr_struct;
a4 : mpfr_rnd_t) return signed_int;
pragma Import (C, mpfr_beta, "mpfr_beta");
function mpfr_lngamma (a1 : access mpfr_struct;
a2 : access constant mpfr_struct; a3 : mpfr_rnd_t) return signed_int;
pragma Import (C, mpfr_lngamma, "mpfr_lngamma");
function mpfr_lgamma (a1 : access mpfr_struct; a2 : access signed_int;
a3 : access constant mpfr_struct; a4 : mpfr_rnd_t) return signed_int;
pragma Import (C, mpfr_lgamma, "mpfr_lgamma");
function mpfr_digamma (a1 : access mpfr_struct;
a2 : access constant mpfr_struct; a3 : mpfr_rnd_t) return signed_int;
pragma Import (C, mpfr_digamma, "mpfr_digamma");
function mpfr_zeta (a1 : access mpfr_struct;
a2 : access constant mpfr_struct; a3 : mpfr_rnd_t) return signed_int;
pragma Import (C, mpfr_zeta, "mpfr_zeta");
function mpfr_zeta_ui (a1 : access mpfr_struct; a2 : unsigned_long;
a3 : mpfr_rnd_t) return signed_int;
pragma Import (C, mpfr_zeta_ui, "mpfr_zeta_ui");
function mpfr_fac_ui (a1 : access mpfr_struct; a2 : unsigned_long;
a3 : mpfr_rnd_t) return signed_int;
pragma Import (C, mpfr_fac_ui, "mpfr_fac_ui");
function mpfr_j0 (a1 : access mpfr_struct;
a2 : access constant mpfr_struct; a3 : mpfr_rnd_t) return signed_int;
pragma Import (C, mpfr_j0, "mpfr_j0");
function mpfr_j1 (a1 : access mpfr_struct;
a2 : access constant mpfr_struct; a3 : mpfr_rnd_t) return signed_int;
pragma Import (C, mpfr_j1, "mpfr_j1");
function mpfr_jn (a1 : access mpfr_struct; a2 : signed_long;
a3 : access constant mpfr_struct; a4 : mpfr_rnd_t) return signed_int;
pragma Import (C, mpfr_jn, "mpfr_jn");
function mpfr_y0 (a1 : access mpfr_struct;
a2 : access constant mpfr_struct; a3 : mpfr_rnd_t) return signed_int;
pragma Import (C, mpfr_y0, "mpfr_y0");
function mpfr_y1 (a1 : access mpfr_struct;
a2 : access constant mpfr_struct; a3 : mpfr_rnd_t) return signed_int;
pragma Import (C, mpfr_y1, "mpfr_y1");
function mpfr_yn (a1 : access mpfr_struct; a2 : signed_long;
a3 : access constant mpfr_struct; a4 : mpfr_rnd_t) return signed_int;
pragma Import (C, mpfr_yn, "mpfr_yn");
function mpfr_ai (a1 : access mpfr_struct;
a2 : access constant mpfr_struct; a3 : mpfr_rnd_t) return signed_int;
pragma Import (C, mpfr_ai, "mpfr_ai");
function mpfr_min (a1 : access mpfr_struct;
a2 : access constant mpfr_struct; a3 : access constant mpfr_struct;
a4 : mpfr_rnd_t) return signed_int;
pragma Import (C, mpfr_min, "mpfr_min");
function mpfr_max (a1 : access mpfr_struct;
a2 : access constant mpfr_struct; a3 : access constant mpfr_struct;
a4 : mpfr_rnd_t) return signed_int;
pragma Import (C, mpfr_max, "mpfr_max");
function mpfr_dim (a1 : access mpfr_struct;
a2 : access constant mpfr_struct; a3 : access constant mpfr_struct;
a4 : mpfr_rnd_t) return signed_int;
pragma Import (C, mpfr_dim, "mpfr_dim");
function mpfr_mul_z (a1 : access mpfr_struct;
a2 : access constant mpfr_struct; a3 : access constant gmp.mpz_struct;
a4 : mpfr_rnd_t) return signed_int;
pragma Import (C, mpfr_mul_z, "mpfr_mul_z");
function mpfr_div_z (a1 : access mpfr_struct;
a2 : access constant mpfr_struct; a3 : access constant gmp.mpz_struct;
a4 : mpfr_rnd_t) return signed_int;
pragma Import (C, mpfr_div_z, "mpfr_div_z");
function mpfr_add_z (a1 : access mpfr_struct;
a2 : access constant mpfr_struct; a3 : access constant gmp.mpz_struct;
a4 : mpfr_rnd_t) return signed_int;
pragma Import (C, mpfr_add_z, "mpfr_add_z");
function mpfr_sub_z (a1 : access mpfr_struct;
a2 : access constant mpfr_struct; a3 : access constant gmp.mpz_struct;
a4 : mpfr_rnd_t) return signed_int;
pragma Import (C, mpfr_sub_z, "mpfr_sub_z");
function mpfr_z_sub (a1 : access mpfr_struct;
a2 : access constant gmp.mpz_struct; a3 : access constant mpfr_struct;
a4 : mpfr_rnd_t) return signed_int;
pragma Import (C, mpfr_z_sub, "mpfr_z_sub");
function mpfr_cmp_z (a1 : access constant mpfr_struct;
a2 : access constant gmp.mpz_struct) return signed_int;
pragma Import (C, mpfr_cmp_z, "mpfr_cmp_z");
function mpfr_fma (a1 : access mpfr_struct;
a2 : access constant mpfr_struct; a3 : access constant mpfr_struct;
a4 : access constant mpfr_struct; a5 : mpfr_rnd_t) return signed_int;
pragma Import (C, mpfr_fma, "mpfr_fma");
function mpfr_fms (a1 : access mpfr_struct;
a2 : access constant mpfr_struct; a3 : access constant mpfr_struct;
a4 : access constant mpfr_struct; a5 : mpfr_rnd_t) return signed_int;
pragma Import (C, mpfr_fms, "mpfr_fms");
function mpfr_fmma (a1 : access mpfr_struct;
a2 : access constant mpfr_struct; a3 : access constant mpfr_struct;
a4 : access constant mpfr_struct; a5 : access constant mpfr_struct;
a6 : mpfr_rnd_t) return signed_int;
pragma Import (C, mpfr_fmma, "mpfr_fmma");
function mpfr_fmms (a1 : access mpfr_struct;
a2 : access constant mpfr_struct; a3 : access constant mpfr_struct;
a4 : access constant mpfr_struct; a5 : access constant mpfr_struct;
a6 : mpfr_rnd_t) return signed_int;
pragma Import (C, mpfr_fmms, "mpfr_fmms");
function mpfr_sum (a1 : access mpfr_struct; a2 : access constant mpfr_ptr;
a3 : unsigned_long; a4 : mpfr_rnd_t) return signed_int;
pragma Import (C, mpfr_sum, "mpfr_sum");
procedure mpfr_free_cache;
pragma Import (C, mpfr_free_cache, "mpfr_free_cache");
procedure mpfr_free_cache2 (a1 : mpfr_free_cache_t);
pragma Import (C, mpfr_free_cache2, "mpfr_free_cache2");
procedure mpfr_free_pool;
pragma Import (C, mpfr_free_pool, "mpfr_free_pool");
function mpfr_mp_memory_cleanup return signed_int;
pragma Import (C, mpfr_mp_memory_cleanup, "mpfr_mp_memory_cleanup");
function mpfr_subnormalize (a1 : access mpfr_struct; a2 : signed_int;
a3 : mpfr_rnd_t) return signed_int;
pragma Import (C, mpfr_subnormalize, "mpfr_subnormalize");
function mpfr_strtofr (a1 : access mpfr_struct; a2 : access constant char;
a3 : access char_ptr; a4 : signed_int; a5 : mpfr_rnd_t)
return signed_int;
pragma Import (C, mpfr_strtofr, "mpfr_strtofr");
procedure mpfr_round_nearest_away_begin (a1 : access mpfr_struct);
pragma Import (C, mpfr_round_nearest_away_begin,
"mpfr_round_nearest_away_begin");
function mpfr_round_nearest_away_end (a1 : access mpfr_struct;
a2 : signed_int) return signed_int;
pragma Import (C, mpfr_round_nearest_away_end,
"mpfr_round_nearest_away_end");
function mpfr_custom_get_size (a1 : mpfr_prec_t) return stddef.size_t;
pragma Import (C, mpfr_custom_get_size, "mpfr_custom_get_size");
procedure mpfr_custom_init (a1 : void_ptr; a2 : mpfr_prec_t);
pragma Import (C, mpfr_custom_init, "mpfr_custom_init");
function mpfr_custom_get_significand (a1 : access constant mpfr_struct)
return void_ptr;
pragma Import (C, mpfr_custom_get_significand,
"mpfr_custom_get_significand");
function mpfr_custom_get_exp (a1 : access constant mpfr_struct)
return mpfr_exp_t;
pragma Import (C, mpfr_custom_get_exp, "mpfr_custom_get_exp");
procedure mpfr_custom_move (a1 : access mpfr_struct; a2 : void_ptr);
pragma Import (C, mpfr_custom_move, "mpfr_custom_move");
procedure mpfr_custom_init_set (a1 : access mpfr_struct; a2 : signed_int;
a3 : mpfr_exp_t; a4 : mpfr_prec_t; a5 : void_ptr);
pragma Import (C, mpfr_custom_init_set, "mpfr_custom_init_set");
function mpfr_custom_get_kind (a1 : access constant mpfr_struct)
return signed_int;
pragma Import (C, mpfr_custom_get_kind, "mpfr_custom_get_kind");
function gmpfr_set_sj (a1 : access mpfr_struct; a2 : stdint.intmax_t;
a3 : mpfr_rnd_t) return signed_int;
pragma Import (C, gmpfr_set_sj, "__gmpfr_set_sj");
function gmpfr_set_sj_2exp (a1 : access mpfr_struct; a2 : stdint.intmax_t;
a3 : stdint.intmax_t; a4 : mpfr_rnd_t) return signed_int;
pragma Import (C, gmpfr_set_sj_2exp, "__gmpfr_set_sj_2exp");
function gmpfr_set_uj (a1 : access mpfr_struct; a2 : stdint.uintmax_t;
a3 : mpfr_rnd_t) return signed_int;
pragma Import (C, gmpfr_set_uj, "__gmpfr_set_uj");
function gmpfr_set_uj_2exp (a1 : access mpfr_struct;
a2 : stdint.uintmax_t; a3 : stdint.intmax_t; a4 : mpfr_rnd_t)
return signed_int;
pragma Import (C, gmpfr_set_uj_2exp, "__gmpfr_set_uj_2exp");
function gmpfr_mpfr_get_sj (a1 : access constant mpfr_struct;
a2 : mpfr_rnd_t) return stdint.intmax_t;
pragma Import (C, gmpfr_mpfr_get_sj, "__gmpfr_mpfr_get_sj");
function gmpfr_mpfr_get_uj (a1 : access constant mpfr_struct;
a2 : mpfr_rnd_t) return stdint.uintmax_t;
pragma Import (C, gmpfr_mpfr_get_uj, "__gmpfr_mpfr_get_uj");
GMP_RNDD : constant enum_61ae6ddb := MPFR_RNDD;
GMP_RNDN : constant enum_61ae6ddb := MPFR_RNDN;
GMP_RNDU : constant enum_61ae6ddb := MPFR_RNDU;
GMP_RNDZ : constant enum_61ae6ddb := MPFR_RNDZ;
-- MPFR_DECL_INIT (has # or ##)
-- MPFR_DEPRECATED (attribute)
MPFR_EMAX_DEFAULT : constant := 1073741823;
function MPFR_EMAX_MAX return mpfr_exp_t;
pragma Inline_Always (MPFR_EMAX_MAX);
function MPFR_EMAX_MIN return mpfr_exp_t;
pragma Inline_Always (MPFR_EMAX_MIN);
MPFR_EMIN_DEFAULT : constant := -1073741823;
function MPFR_EMIN_MAX return mpfr_exp_t;
pragma Inline_Always (MPFR_EMIN_MAX);
function MPFR_EMIN_MIN return mpfr_exp_t;
pragma Inline_Always (MPFR_EMIN_MIN);
-- MPFR_EXTENSION (empty)
MPFR_FLAGS_ALL : constant := 63;
MPFR_FLAGS_DIVBY0 : constant := 32;
MPFR_FLAGS_ERANGE : constant := 16;
MPFR_FLAGS_INEXACT : constant := 8;
MPFR_FLAGS_NAN : constant := 4;
MPFR_FLAGS_OVERFLOW : constant := 2;
MPFR_FLAGS_UNDERFLOW : constant := 1;
MPFR_PREC_MAX : constant := 9223372036854775551;
MPFR_PREC_MIN : constant := 1;
-- MPFR_SIGN (uninterpretable)
MPFR_USE_C99_FEATURE : constant := 1;
-- MPFR_VALUE_OF (function macro)
MPFR_VERSION : constant := 262146;
MPFR_VERSION_MAJOR : constant := 4;
MPFR_VERSION_MINOR : constant := 0;
-- MPFR_VERSION_NUM (function macro)
MPFR_VERSION_PATCHLEVEL : constant := 2;
MPFR_VERSION_STRING : constant char_array (0 .. 5) := "4.0.2"
& char'Val (0);
MPFR_EXP_FORMAT : constant := 3;
MPFR_H_HAVE_INTMAX_T : constant := 1;
MPFR_PREC_FORMAT : constant := 3;
-- __MPFR_DECLSPEC (empty)
MPFR_EXP_INF : constant := -9223372036854775805;
MPFR_EXP_MAX : constant := 9223372036854775807;
MPFR_EXP_NAN : constant := -9223372036854775806;
MPFR_EXP_ZERO : constant := -9223372036854775807;
-- __MPFR_H (empty)
-- __MPFR_SENTINEL_ATTR (attribute)
function gmp_default_rounding_mode return mpfr_rnd_t;
pragma Inline_Always (gmp_default_rounding_mode);
-- __mpfr_default_fp_bit_precision (unparsible)
function mpfr_emax return mpfr_exp_t;
pragma Inline_Always (mpfr_emax);
function mpfr_emin return mpfr_exp_t;
pragma Inline_Always (mpfr_emin);
subtype mp_prec_t is mpfr_prec_t;
subtype mp_rnd_t is mpfr_rnd_t;
function mpfr_cmp_abs (a1 : access constant mpfr_struct;
a2 : access constant mpfr_struct) return signed_int
renames mpfr_cmpabs;
-- mpfr_custom_get_mantissa (uninterpretable)
function mpfr_get_sj (a1 : access constant mpfr_struct; a2 : mpfr_rnd_t)
return stdint.intmax_t renames gmpfr_mpfr_get_sj;
function mpfr_get_uj (a1 : access constant mpfr_struct; a2 : mpfr_rnd_t)
return stdint.uintmax_t renames gmpfr_mpfr_get_uj;
function mpfr_get_z_exp (a1 : access gmp.mpz_struct;
a2 : access constant mpfr_struct) return mpfr_exp_t
renames mpfr_get_z_2exp;
-- mpfr_init_set (uninterpretable)
-- mpfr_init_set_d (function macro)
-- mpfr_init_set_f (function macro)
-- mpfr_init_set_ld (function macro)
-- mpfr_init_set_q (function macro)
-- mpfr_init_set_si (function macro)
-- mpfr_init_set_ui (function macro)
-- mpfr_init_set_z (function macro)
-- mpfr_round_nearest_away (variadic macro)
-- mpfr_round_prec (function macro)
function mpfr_set_sj (a1 : access mpfr_struct; a2 : stdint.intmax_t;
a3 : mpfr_rnd_t) return signed_int renames gmpfr_set_sj;
function mpfr_set_sj_2exp (a1 : access mpfr_struct; a2 : stdint.intmax_t;
a3 : stdint.intmax_t; a4 : mpfr_rnd_t) return signed_int
renames gmpfr_set_sj_2exp;
function mpfr_set_uj (a1 : access mpfr_struct; a2 : stdint.uintmax_t;
a3 : mpfr_rnd_t) return signed_int renames gmpfr_set_uj;
function mpfr_set_uj_2exp (a1 : access mpfr_struct; a2 : stdint.uintmax_t;
a3 : stdint.intmax_t; a4 : mpfr_rnd_t) return signed_int
renames gmpfr_set_uj_2exp;
function get_mpfr_version return char_const_ptr;
pragma Inline_Always (get_mpfr_version);
function mpz_set_fr (z : access gmp.mpz_struct;
f : access constant mpfr_struct; a3 : mpfr_rnd_t) return signed_int
renames mpfr_get_z;
end C.mpfr;
-- This file is translated by "headmaster" version 0.31-1157199 (devel).
-- The original C header's license should be applied to this file.
-- All conditional-directives are expanded for the exclusive use of your
-- environment, it is not recommended to commit this file to any repository.
-------------------------------------------------------------------------------
package C.stddef is
pragma Preelaborate;
subtype size_t is Standard.C.size_t;
subtype size_t_ptr is Standard.C.size_t_ptr;
subtype wchar_t is Standard.C.wchar_t;
subtype wchar_t_ptr is Standard.C.wchar_t_ptr;
subtype wchar_t_const_ptr is Standard.C.wchar_t_const_ptr;
-- #include <bits/waitflags.h>
-- #include <bits/types.h>
-- #include <bits/byteswap.h>
-- #include <bits/sigset.h>
-- #include <time.h>
-- #include <bits/time.h>
-- #include <sys/select.h>
-- #include <sys/sysmacros.h>
-- #include <sys/types.h>
-- #include <bits/pthreadtypes.h>
-- #include <alloca.h>
-- #include <stdlib.h>
-- #include <xlocale.h>
-- #include <string.h>
subtype ptrdiff_t is Standard.C.ptrdiff_t;
C_NULL : constant void_ptr := void_ptr (System'To_Address (0));
-- _ANSI_STDDEF_H (empty)
-- _BSD_PTRDIFF_T_ (empty)
-- _BSD_SIZE_T_ (empty)
-- _BSD_SIZE_T_DEFINED_ (empty)
-- _GCC_PTRDIFF_T (empty)
-- _GCC_SIZE_T (empty)
-- _GCC_WCHAR_T (empty)
-- _PTRDIFF_T (empty)
-- _PTRDIFF_T_ (empty)
-- _PTRDIFF_T_DECLARED (empty)
-- _SIZET_ (empty)
-- _SIZE_T (empty)
-- _SIZE_T_ (empty)
-- _SIZE_T_DECLARED (empty)
-- _SIZE_T_DEFINED (empty)
-- _SIZE_T_DEFINED_ (empty)
-- _STDDEF_H (empty)
-- _STDDEF_H_ (empty)
-- _SYS_SIZE_T_H (empty)
-- _T_PTRDIFF (empty)
-- _T_PTRDIFF_ (empty)
-- _T_SIZE (empty)
-- _T_SIZE_ (empty)
-- _T_WCHAR (empty)
-- _T_WCHAR_ (empty)
-- _WCHAR_T (empty)
-- _WCHAR_T_ (empty)
-- _WCHAR_T_DECLARED (empty)
-- _WCHAR_T_DEFINED (empty)
-- _WCHAR_T_DEFINED_ (empty)
-- _WCHAR_T_H (empty)
-- __INT_WCHAR_T_H (empty)
-- __PTRDIFF_T (empty)
-- __SIZE_T (empty)
-- __SIZE_T__ (empty)
-- __WCHAR_T (empty)
-- __WCHAR_T__ (empty)
-- ___int_ptrdiff_t_h (empty)
-- ___int_size_t_h (empty)
-- ___int_wchar_t_h (empty)
-- __size_t (empty)
-- __size_t__ (empty)
-- __wchar_t__ (empty)
-- offsetof (unparsible)
end C.stddef;
-- This file is translated by "headmaster" version 0.31-1157199 (devel).
-- The original C header's license should be applied to this file.
-- All conditional-directives are expanded for the exclusive use of your
-- environment, it is not recommended to commit this file to any repository.
-------------------------------------------------------------------------------
package C.stdint is
pragma Preelaborate;
subtype int8_t is signed_char;
subtype int16_t is signed_short;
subtype int32_t is signed_int;
subtype int32_t_ptr is signed_int_ptr;
subtype int64_t is signed_long;
subtype uint8_t is unsigned_char;
subtype uint16_t is unsigned_short;
subtype uint32_t is unsigned_int;
subtype uint64_t is unsigned_long;
subtype int_least8_t is signed_char;
subtype int_least16_t is signed_short;
subtype int_least32_t is signed_int;
subtype int_least64_t is signed_long;
subtype uint_least8_t is unsigned_char;
subtype uint_least16_t is unsigned_short;
subtype uint_least32_t is unsigned_int;
subtype uint_least64_t is unsigned_long;
subtype int_fast8_t is signed_char;
subtype int_fast16_t is signed_long;
subtype int_fast32_t is signed_long;
subtype int_fast64_t is signed_long;
subtype uint_fast8_t is unsigned_char;
subtype uint_fast16_t is unsigned_long;
subtype uint_fast32_t is unsigned_long;
subtype uint_fast64_t is unsigned_long;
subtype intptr_t is signed_long;
subtype uintptr_t is unsigned_long;
subtype intmax_t is signed_long;
subtype uintmax_t is unsigned_long;
-- INT16_C (function macro)
INT16_MAX : constant := 32767;
INT16_MIN : constant := -32768;
-- INT32_C (function macro)
INT32_MAX : constant := 2147483647;
INT32_MIN : constant := -2147483648;
-- INT64_C (has # or ##)
INT64_MAX : constant := 9223372036854775807;
INT64_MIN : constant := -9223372036854775808;
-- INT8_C (function macro)
INT8_MAX : constant := 127;
INT8_MIN : constant := -128;
-- INTMAX_C (has # or ##)
INTMAX_MAX : constant := 9223372036854775807;
INTMAX_MIN : constant := -9223372036854775808;
INTPTR_MAX : constant := 9223372036854775807;
INTPTR_MIN : constant := -9223372036854775808;
INT_FAST16_MAX : constant := 9223372036854775807;
INT_FAST16_MIN : constant := -9223372036854775808;
INT_FAST32_MAX : constant := 9223372036854775807;
INT_FAST32_MIN : constant := -9223372036854775808;
INT_FAST64_MAX : constant := 9223372036854775807;
INT_FAST64_MIN : constant := -9223372036854775808;
INT_FAST8_MAX : constant := 127;
INT_FAST8_MIN : constant := -128;
INT_LEAST16_MAX : constant := 32767;
INT_LEAST16_MIN : constant := -32768;
INT_LEAST32_MAX : constant := 2147483647;
INT_LEAST32_MIN : constant := -2147483648;
INT_LEAST64_MAX : constant := 9223372036854775807;
INT_LEAST64_MIN : constant := -9223372036854775808;
INT_LEAST8_MAX : constant := 127;
INT_LEAST8_MIN : constant := -128;
PTRDIFF_MAX : constant := 9223372036854775807;
PTRDIFF_MIN : constant := -9223372036854775808;
SIG_ATOMIC_MAX : constant := 2147483647;
SIG_ATOMIC_MIN : constant := -2147483648;
SIZE_MAX : constant := 18446744073709551615;
-- UINT16_C (function macro)
UINT16_MAX : constant := 65535;
-- UINT32_C (has # or ##)
UINT32_MAX : constant := 4294967295;
-- UINT64_C (has # or ##)
UINT64_MAX : constant := 18446744073709551615;
-- UINT8_C (function macro)
UINT8_MAX : constant := 255;
-- UINTMAX_C (has # or ##)
UINTMAX_MAX : constant := 18446744073709551615;
UINTPTR_MAX : constant := 18446744073709551615;
UINT_FAST16_MAX : constant := 18446744073709551615;
UINT_FAST32_MAX : constant := 18446744073709551615;
UINT_FAST64_MAX : constant := 18446744073709551615;
UINT_FAST8_MAX : constant := 255;
UINT_LEAST16_MAX : constant := 65535;
UINT_LEAST32_MAX : constant := 4294967295;
UINT_LEAST64_MAX : constant := 18446744073709551615;
UINT_LEAST8_MAX : constant := 255;
WCHAR_MAX : constant := 2147483647;
WCHAR_MIN : constant := -2147483648;
WINT_MAX : constant := 4294967295;
WINT_MIN : constant := 0;
STDINT_H : constant := 1;
-- __int8_t_defined (empty)
-- __intptr_t_defined (empty)
-- __uint32_t_defined (empty)
-- _GCC_WRAP_STDINT_H (empty)
end C.stdint;
-- This file is translated by "headmaster" version 0.31-1157199 (devel).
-- The original C header's license should be applied to this file.
-- All conditional-directives are expanded for the exclusive use of your
-- environment, it is not recommended to commit this file to any repository.
-------------------------------------------------------------------------------
package body C.stdlib is
function MB_CUR_MAX return stddef.size_t is
begin
return ctype_get_mb_cur_max;
end MB_CUR_MAX;
end C.stdlib;
-- This file is translated by "headmaster" version 0.31-1157199 (devel).
-- The original C header's license should be applied to this file.
-- All conditional-directives are expanded for the exclusive use of your
-- environment, it is not recommended to commit this file to any repository.
-------------------------------------------------------------------------------
with C.stddef;
with C.stdint;
package C.stdlib is
pragma Preelaborate;
type struct_edd2c705 is record
quot : aliased signed_int;
F_rem : aliased signed_int;
end record;
pragma Convention (C_Pass_By_Copy, struct_edd2c705);
subtype div_t is struct_edd2c705;
type struct_e8a9e4f4 is record
quot : aliased signed_long;
F_rem : aliased signed_long;
end record;
pragma Convention (C_Pass_By_Copy, struct_e8a9e4f4);
subtype ldiv_t is struct_e8a9e4f4;
type struct_631f215c is record
quot : aliased signed_long_long;
F_rem : aliased signed_long_long;
end record;
pragma Convention (C_Pass_By_Copy, struct_631f215c);
subtype lldiv_t is struct_631f215c;
function ctype_get_mb_cur_max return stddef.size_t;
pragma Import (C, ctype_get_mb_cur_max, "__ctype_get_mb_cur_max");
function atof (nptr : access constant char) return double;
pragma Import (C, atof, "atof");
function atoi (nptr : access constant char) return signed_int;
pragma Import (C, atoi, "atoi");
function atol (nptr : access constant char) return signed_long;
pragma Import (C, atol, "atol");
function atoll (nptr : access constant char) return signed_long_long;
pragma Import (C, atoll, "atoll");
function strtod (nptr : access constant char; endptr : access char_ptr)
return double;
pragma Import (C, strtod, "strtod");
function strtof (nptr : access constant char; endptr : access char_ptr)
return float;
pragma Import (C, strtof, "strtof");
function strtold (nptr : access constant char; endptr : access char_ptr)
return long_double;
pragma Import (C, strtold, "strtold");
function strtol (nptr : access constant char; endptr : access char_ptr;
base : signed_int) return signed_long;
pragma Import (C, strtol, "strtol");
function strtoul (nptr : access constant char; endptr : access char_ptr;
base : signed_int) return unsigned_long;
pragma Import (C, strtoul, "strtoul");
function strtoq (nptr : access constant char; endptr : access char_ptr;
base : signed_int) return signed_long_long;
pragma Import (C, strtoq, "strtoq");
function strtouq (nptr : access constant char; endptr : access char_ptr;
base : signed_int) return unsigned_long_long;
pragma Import (C, strtouq, "strtouq");
function strtoll (nptr : access constant char; endptr : access char_ptr;
base : signed_int) return signed_long_long;
pragma Import (C, strtoll, "strtoll");
function strtoull (nptr : access constant char; endptr : access char_ptr;
base : signed_int) return unsigned_long_long;
pragma Import (C, strtoull, "strtoull");
function l64a (n : signed_long) return char_ptr;
pragma Import (C, l64a, "l64a");
function a64l (s : access constant char) return signed_long;
pragma Import (C, a64l, "a64l");
-- #include <bits/types.h>
-- #include <bits/byteswap.h>
-- #include <bits/sigset.h>
-- #include <time.h>
-- #include <bits/time.h>
-- #include <sys/select.h>
-- #include <sys/sysmacros.h>
-- #include <sys/types.h>
-- #include <bits/pthreadtypes.h>
function random return signed_long;
pragma Import (C, random, "random");
procedure srandom (seed : unsigned_int);
pragma Import (C, srandom, "srandom");
function initstate (seed : unsigned_int; statebuf : access char;
statelen : stddef.size_t) return char_ptr;
pragma Import (C, initstate, "initstate");
function setstate (statebuf : access char) return char_ptr;
pragma Import (C, setstate, "setstate");
type struct_random_data;
type struct_random_data is record
fptr : aliased stdint.int32_t_ptr;
rptr : aliased stdint.int32_t_ptr;
state : aliased stdint.int32_t_ptr;
rand_type : aliased signed_int;
rand_deg : aliased signed_int;
rand_sep : aliased signed_int;
end_ptr : aliased stdint.int32_t_ptr;
end record;
pragma Convention (C_Pass_By_Copy, struct_random_data);
type struct_random_data_ptr is access all struct_random_data;
for struct_random_data_ptr'Storage_Size use 0;
pragma No_Strict_Aliasing (struct_random_data_ptr);
pragma Convention (C, struct_random_data_ptr);
function random_r (buf : access struct_random_data;
result : access stdint.int32_t) return signed_int;
pragma Import (C, random_r, "random_r");
function srandom_r (seed : unsigned_int; buf : access struct_random_data)
return signed_int;
pragma Import (C, srandom_r, "srandom_r");
function initstate_r (seed : unsigned_int; statebuf : access char;
statelen : stddef.size_t; buf : access struct_random_data)
return signed_int;
pragma Import (C, initstate_r, "initstate_r");
function setstate_r (statebuf : access char;
buf : access struct_random_data) return signed_int;
pragma Import (C, setstate_r, "setstate_r");
function rand return signed_int;
pragma Import (C, rand, "rand");
procedure srand (seed : unsigned_int);
pragma Import (C, srand, "srand");
function rand_r (seed : access unsigned_int) return signed_int;
pragma Import (C, rand_r, "rand_r");
function drand48 return double;
pragma Import (C, drand48, "drand48");
function erand48 (xsubi : access unsigned_short) return double;
pragma Import (C, erand48, "erand48");
function lrand48 return signed_long;
pragma Import (C, lrand48, "lrand48");
function nrand48 (xsubi : access unsigned_short) return signed_long;
pragma Import (C, nrand48, "nrand48");
function mrand48 return signed_long;
pragma Import (C, mrand48, "mrand48");
function jrand48 (xsubi : access unsigned_short) return signed_long;
pragma Import (C, jrand48, "jrand48");
procedure srand48 (seedval : signed_long);
pragma Import (C, srand48, "srand48");
function seed48 (seed16v : access unsigned_short)
return unsigned_short_ptr;
pragma Import (C, seed48, "seed48");
procedure lcong48 (param : access unsigned_short);
pragma Import (C, lcong48, "lcong48");
type struct_drand48_data;
type struct_drand48_data is record
x : aliased unsigned_short_array (0 .. 2);
old_x : aliased unsigned_short_array (0 .. 2);
c : aliased unsigned_short;
init : aliased unsigned_short;
a : aliased unsigned_long_long;
end record;
pragma Convention (C_Pass_By_Copy, struct_drand48_data);
type struct_drand48_data_ptr is access all struct_drand48_data;
for struct_drand48_data_ptr'Storage_Size use 0;
pragma No_Strict_Aliasing (struct_drand48_data_ptr);
pragma Convention (C, struct_drand48_data_ptr);
function drand48_r (buffer : access struct_drand48_data;
result : access double) return signed_int;
pragma Import (C, drand48_r, "drand48_r");
function erand48_r (xsubi : access unsigned_short;
buffer : access struct_drand48_data; result : access double)
return signed_int;
pragma Import (C, erand48_r, "erand48_r");
function lrand48_r (buffer : access struct_drand48_data;
result : access signed_long) return signed_int;
pragma Import (C, lrand48_r, "lrand48_r");
function nrand48_r (xsubi : access unsigned_short;
buffer : access struct_drand48_data; result : access signed_long)
return signed_int;
pragma Import (C, nrand48_r, "nrand48_r");
function mrand48_r (buffer : access struct_drand48_data;
result : access signed_long) return signed_int;
pragma Import (C, mrand48_r, "mrand48_r");
function jrand48_r (xsubi : access unsigned_short;
buffer : access struct_drand48_data; result : access signed_long)
return signed_int;
pragma Import (C, jrand48_r, "jrand48_r");
function srand48_r (seedval : signed_long;
buffer : access struct_drand48_data) return signed_int;
pragma Import (C, srand48_r, "srand48_r");
function seed48_r (seed16v : access unsigned_short;
buffer : access struct_drand48_data) return signed_int;
pragma Import (C, seed48_r, "seed48_r");
function lcong48_r (param : access unsigned_short;
buffer : access struct_drand48_data) return signed_int;
pragma Import (C, lcong48_r, "lcong48_r");
function malloc (size : stddef.size_t) return void_ptr;
pragma Import (C, malloc, "malloc");
function calloc (nmemb : stddef.size_t; size : stddef.size_t)
return void_ptr;
pragma Import (C, calloc, "calloc");
function realloc (ptr : void_ptr; size : stddef.size_t) return void_ptr;
pragma Import (C, realloc, "realloc");
procedure free (ptr : void_ptr);
pragma Import (C, free, "free");
procedure cfree (ptr : void_ptr);
pragma Import (C, cfree, "cfree");
-- #include <alloca.h>
function valloc (size : stddef.size_t) return void_ptr;
pragma Import (C, valloc, "valloc");
function posix_memalign (memptr : access void_ptr;
alignment : stddef.size_t; size : stddef.size_t) return signed_int;
pragma Import (C, posix_memalign, "posix_memalign");
type access_e823f645 is access procedure;
pragma Convention (C, access_e823f645);
procedure C_abort;
pragma No_Return (C_abort);
pragma Import (C, C_abort, "abort");
function atexit (func : access_e823f645) return signed_int;
pragma Import (C, atexit, "atexit");
type access_f9546e40 is access procedure (status : signed_int;
arg : void_ptr);
pragma Convention (C, access_f9546e40);
function on_exit (func : access_f9546e40; arg : void_ptr)
return signed_int;
pragma Import (C, on_exit, "on_exit");
procedure C_exit (status : signed_int);
pragma No_Return (C_exit);
pragma Import (C, C_exit, "exit");
procedure C_qExit_U (status : signed_int);
pragma No_Return (C_qExit_U);
pragma Import (C, C_qExit_U, "_Exit");
function getenv (name : access constant char) return char_ptr;
pragma Import (C, getenv, "getenv");
function putenv (string : access char) return signed_int;
pragma Import (C, putenv, "putenv");
function setenv (name : access constant char;
value : access constant char; replace : signed_int) return signed_int;
pragma Import (C, setenv, "setenv");
function unsetenv (name : access constant char) return signed_int;
pragma Import (C, unsetenv, "unsetenv");
function clearenv return signed_int;
pragma Import (C, clearenv, "clearenv");
function mktemp (template : access char) return char_ptr;
pragma Import (C, mktemp, "mktemp");
function mkstemp (template : access char) return signed_int;
pragma Import (C, mkstemp, "mkstemp");
function mkstemps (template : access char; suffixlen : signed_int)
return signed_int;
pragma Import (C, mkstemps, "mkstemps");
function mkdtemp (template : access char) return char_ptr;
pragma Import (C, mkdtemp, "mkdtemp");
function C_system (command : access constant char) return signed_int;
pragma Import (C, C_system, "system");
function realpath (name : access constant char; resolved : access char)
return char_ptr;
pragma Import (C, realpath, "realpath");
type access_39a477b0 is access function (a1 : void_const_ptr;
a2 : void_const_ptr) return signed_int;
pragma Convention (C, access_39a477b0);
subtype qqcompar_fn_t is access_39a477b0;
function bsearch (key : void_const_ptr; base : void_const_ptr;
nmemb : stddef.size_t; size : stddef.size_t; compar : qqcompar_fn_t)
return void_ptr;
pragma Import (C, bsearch, "bsearch");
procedure qsort (base : void_ptr; nmemb : stddef.size_t;
size : stddef.size_t; compar : qqcompar_fn_t);
pragma Import (C, qsort, "qsort");
function C_abs (x : signed_int) return signed_int;
pragma Import (C, C_abs, "abs");
function labs (x : signed_long) return signed_long;
pragma Import (C, labs, "labs");
function llabs (x : signed_long_long) return signed_long_long;
pragma Import (C, llabs, "llabs");
function div (numer : signed_int; denom : signed_int) return div_t;
pragma Import (C, div, "div");
function ldiv (numer : signed_long; denom : signed_long) return ldiv_t;
pragma Import (C, ldiv, "ldiv");
function lldiv (numer : signed_long_long; denom : signed_long_long)
return lldiv_t;
pragma Import (C, lldiv, "lldiv");
function ecvt (value : double; ndigit : signed_int;
decpt : access signed_int; sign : access signed_int) return char_ptr;
pragma Import (C, ecvt, "ecvt");
function fcvt (value : double; ndigit : signed_int;
decpt : access signed_int; sign : access signed_int) return char_ptr;
pragma Import (C, fcvt, "fcvt");
function gcvt (value : double; ndigit : signed_int; buf : access char)
return char_ptr;
pragma Import (C, gcvt, "gcvt");
function qecvt (value : long_double; ndigit : signed_int;
decpt : access signed_int; sign : access signed_int) return char_ptr;
pragma Import (C, qecvt, "qecvt");
function qfcvt (value : long_double; ndigit : signed_int;
decpt : access signed_int; sign : access signed_int) return char_ptr;
pragma Import (C, qfcvt, "qfcvt");
function qgcvt (value : long_double; ndigit : signed_int;
buf : access char) return char_ptr;
pragma Import (C, qgcvt, "qgcvt");
function ecvt_r (value : double; ndigit : signed_int;
decpt : access signed_int; sign : access signed_int; buf : access char;
len : stddef.size_t) return signed_int;
pragma Import (C, ecvt_r, "ecvt_r");
function fcvt_r (value : double; ndigit : signed_int;
decpt : access signed_int; sign : access signed_int; buf : access char;
len : stddef.size_t) return signed_int;
pragma Import (C, fcvt_r, "fcvt_r");
function qecvt_r (value : long_double; ndigit : signed_int;
decpt : access signed_int; sign : access signed_int; buf : access char;
len : stddef.size_t) return signed_int;
pragma Import (C, qecvt_r, "qecvt_r");
function qfcvt_r (value : long_double; ndigit : signed_int;
decpt : access signed_int; sign : access signed_int; buf : access char;
len : stddef.size_t) return signed_int;
pragma Import (C, qfcvt_r, "qfcvt_r");
function mblen (s : access constant char; n : stddef.size_t)
return signed_int;
pragma Import (C, mblen, "mblen");
function mbtowc (pwc : access stddef.wchar_t; s : access constant char;
n : stddef.size_t) return signed_int;
pragma Import (C, mbtowc, "mbtowc");
function wctomb (s : access char; wchar : stddef.wchar_t)
return signed_int;
pragma Import (C, wctomb, "wctomb");
function mbstowcs (pwcs : access stddef.wchar_t; s : access constant char;
n : stddef.size_t) return stddef.size_t;
pragma Import (C, mbstowcs, "mbstowcs");
function wcstombs (s : access char; pwcs : access constant stddef.wchar_t;
n : stddef.size_t) return stddef.size_t;
pragma Import (C, wcstombs, "wcstombs");
function rpmatch (response : access constant char) return signed_int;
pragma Import (C, rpmatch, "rpmatch");
function getsubopt (optionp : access char_ptr; tokens : access char_ptr;
valuep : access char_ptr) return signed_int;
pragma Import (C, getsubopt, "getsubopt");
function getloadavg (loadavg : access double; nelem : signed_int)
return signed_int;
pragma Import (C, getloadavg, "getloadavg");
EXIT_FAILURE : constant := 1;
EXIT_SUCCESS : constant := 0;
function MB_CUR_MAX return stddef.size_t;
pragma Inline_Always (MB_CUR_MAX);
RAND_MAX : constant := 2147483647;
-- WEXITSTATUS (unparsible)
-- WIFCONTINUED (unparsible)
-- WIFEXITED (unparsible)
-- WIFSIGNALED (unparsible)
-- WIFSTOPPED (unparsible)
-- WSTOPSIG (unparsible)
-- WTERMSIG (unparsible)
STDLIB_H : constant := 1;
-- __COMPAR_FN_T (empty)
ldiv_t_defined : constant := 1;
lldiv_t_defined : constant := 1;
-- __malloc_and_calloc_defined (empty)
end C.stdlib;
-- This file is translated by "headmaster" version 0.31-1157199 (devel).
-- The original C header's license should be applied to this file.
-- All conditional-directives are expanded for the exclusive use of your
-- environment, it is not recommended to commit this file to any repository.
-------------------------------------------------------------------------------
with C.stddef;
with C.xlocale;
package C.string is
pragma Preelaborate;
function memcpy (dest : void_ptr; src : void_const_ptr; n : stddef.size_t)
return void_ptr;
pragma Import (C, memcpy, "memcpy");
function memmove (dest : void_ptr; src : void_const_ptr;
n : stddef.size_t) return void_ptr;
pragma Import (C, memmove, "memmove");
function memccpy (dest : void_ptr; src : void_const_ptr; c : signed_int;
n : stddef.size_t) return void_ptr;
pragma Import (C, memccpy, "memccpy");
function memset (s : void_ptr; c : signed_int; n : stddef.size_t)
return void_ptr;
pragma Import (C, memset, "memset");
function memcmp (s1 : void_const_ptr; s2 : void_const_ptr;
n : stddef.size_t) return signed_int;
pragma Import (C, memcmp, "memcmp");
function memchr (s : void_const_ptr; c : signed_int; n : stddef.size_t)
return void_ptr;
pragma Import (C, memchr, "memchr");
function strcpy (dest : access char; src : access constant char)
return char_ptr;
pragma Import (C, strcpy, "strcpy");
function strncpy (dest : access char; src : access constant char;
n : stddef.size_t) return char_ptr;
pragma Import (C, strncpy, "strncpy");
function strcat (dest : access char; src : access constant char)
return char_ptr;
pragma Import (C, strcat, "strcat");
function strncat (dest : access char; src : access constant char;
n : stddef.size_t) return char_ptr;
pragma Import (C, strncat, "strncat");
function strcmp (s1 : access constant char; s2 : access constant char)
return signed_int;
pragma Import (C, strcmp, "strcmp");
function strncmp (s1 : access constant char; s2 : access constant char;
n : stddef.size_t) return signed_int;
pragma Import (C, strncmp, "strncmp");
function strcoll (s1 : access constant char; s2 : access constant char)
return signed_int;
pragma Import (C, strcoll, "strcoll");
function strxfrm (dest : access char; src : access constant char;
n : stddef.size_t) return stddef.size_t;
pragma Import (C, strxfrm, "strxfrm");
-- #include <xlocale.h>
function strcoll_l (s1 : access constant char; s2 : access constant char;
l : access xlocale.struct_locale_struct) return signed_int;
pragma Import (C, strcoll_l, "strcoll_l");
function strxfrm_l (dest : access char; src : access constant char;
n : stddef.size_t; l : access xlocale.struct_locale_struct)
return stddef.size_t;
pragma Import (C, strxfrm_l, "strxfrm_l");
function strdup (s : access constant char) return char_ptr;
pragma Import (C, strdup, "strdup");
function strndup (string : access constant char; n : stddef.size_t)
return char_ptr;
pragma Import (C, strndup, "strndup");
function strchr (s : access constant char; c : signed_int)
return char_ptr;
pragma Import (C, strchr, "strchr");
function strrchr (s : access constant char; c : signed_int)
return char_ptr;
pragma Import (C, strrchr, "strrchr");
function strcspn (s : access constant char; reject : access constant char)
return stddef.size_t;
pragma Import (C, strcspn, "strcspn");
function strspn (s : access constant char;
A_accept : access constant char) return stddef.size_t;
pragma Import (C, strspn, "strspn");
function strpbrk (s : access constant char;
A_accept : access constant char) return char_ptr;
pragma Import (C, strpbrk, "strpbrk");
function strstr (haystack : access constant char;
needle : access constant char) return char_ptr;
pragma Import (C, strstr, "strstr");
function strtok (s : access char; delim : access constant char)
return char_ptr;
pragma Import (C, strtok, "strtok");
function qqstrtok_r (s : access char; delim : access constant char;
save_ptr : access char_ptr) return char_ptr;
pragma Import (C, qqstrtok_r, "__strtok_r");
function strtok_r (s : access char; delim : access constant char;
save_ptr : access char_ptr) return char_ptr;
pragma Import (C, strtok_r, "strtok_r");
function strlen (s : access constant char) return stddef.size_t;
pragma Import (C, strlen, "strlen");
function strnlen (string : access constant char; maxlen : stddef.size_t)
return stddef.size_t;
pragma Import (C, strnlen, "strnlen");
function strerror (errnum : signed_int) return char_ptr;
pragma Import (C, strerror, "strerror");
function strerror_r (errnum : signed_int; buf : access char;
buflen : stddef.size_t) return signed_int;
pragma Import (C, strerror_r, "_xpg_strerror_r");
function strerror_l (errnum : signed_int;
l : access xlocale.struct_locale_struct) return char_ptr;
pragma Import (C, strerror_l, "strerror_l");
procedure qqbzero (s : void_ptr; n : stddef.size_t);
pragma Import (C, qqbzero, "__bzero");
procedure bcopy (src : void_const_ptr; dest : void_ptr;
n : stddef.size_t);
pragma Import (C, bcopy, "bcopy");
procedure bzero (s : void_ptr; n : stddef.size_t);
pragma Import (C, bzero, "bzero");
function bcmp (s1 : void_const_ptr; s2 : void_const_ptr;
n : stddef.size_t) return signed_int;
pragma Import (C, bcmp, "bcmp");
function index (s : access constant char; c : signed_int) return char_ptr;
pragma Import (C, index, "index");
function rindex (s : access constant char; c : signed_int)
return char_ptr;
pragma Import (C, rindex, "rindex");
function ffs (i : signed_int) return signed_int;
pragma Import (C, ffs, "ffs");
function strcasecmp (s1 : access constant char; s2 : access constant char)
return signed_int;
pragma Import (C, strcasecmp, "strcasecmp");
function strncasecmp (s1 : access constant char;
s2 : access constant char; n : stddef.size_t) return signed_int;
pragma Import (C, strncasecmp, "strncasecmp");
function strsep (stringp : access char_ptr; delim : access constant char)
return char_ptr;
pragma Import (C, strsep, "strsep");
function strsignal (sig : signed_int) return char_ptr;
pragma Import (C, strsignal, "strsignal");
function qqstpcpy (dest : access char; src : access constant char)
return char_ptr;
pragma Import (C, qqstpcpy, "__stpcpy");
function stpcpy (dest : access char; src : access constant char)
return char_ptr;
pragma Import (C, stpcpy, "stpcpy");
function qqstpncpy (dest : access char; src : access constant char;
n : stddef.size_t) return char_ptr;
pragma Import (C, qqstpncpy, "__stpncpy");
function stpncpy (dest : access char; src : access constant char;
n : stddef.size_t) return char_ptr;
pragma Import (C, stpncpy, "stpncpy");
STRING_H : constant := 1;
end C.string;
-- This file is translated by "headmaster" version 0.31-1157199 (devel).
-- The original C header's license should be applied to this file.
-- All conditional-directives are expanded for the exclusive use of your
-- environment, it is not recommended to commit this file to any repository.
-------------------------------------------------------------------------------
package C.sys.cdefs is
pragma Preelaborate;
SYS_CDEFS_H : constant := 1;
-- __ASMNAME (unparsible)
-- __ASMNAME2 (unparsible)
-- __BEGIN_DECLS (empty)
-- __BEGIN_NAMESPACE_C99 (empty)
-- __BEGIN_NAMESPACE_STD (empty)
-- __CONCAT (has # or ##)
-- __END_DECLS (empty)
-- __END_NAMESPACE_C99 (empty)
-- __END_NAMESPACE_STD (empty)
-- __LDBL_REDIR (unparsible)
-- __LDBL_REDIR1 (unparsible)
-- __LDBL_REDIR1_NTH (unparsible)
-- __LDBL_REDIR_DECL (empty)
-- __LDBL_REDIR_NTH (unparsible)
-- __LEAF (unparsible)
-- __LEAF_ATTR (attribute)
-- __NTH (unparsible)
-- __P (function macro)
-- __PMT (function macro)
-- __REDIRECT (has # or ##)
-- __REDIRECT_LDBL (unparsible)
-- __REDIRECT_NTH (has # or ##)
-- __REDIRECT_NTHNL (has # or ##)
-- __REDIRECT_NTH_LDBL (unparsible)
-- __STRING (has # or ##)
-- __THROW (attribute)
-- __THROWNL (attribute)
-- __USING_NAMESPACE_C99 (empty)
-- __USING_NAMESPACE_STD (empty)
-- __always_inline (alias of inline)
-- __attribute_alloc_size__ (unparsible)
-- __attribute_artificial__ (attribute)
-- __attribute_const__ (attribute)
-- __attribute_deprecated__ (attribute)
-- __attribute_format_arg__ (parameterized declaration-specifiers)
-- __attribute_format_strfmon__ (parameterized declaration-specifiers)
-- __attribute_malloc__ (attribute)
-- __attribute_noinline__ (attribute)
-- __attribute_pure__ (attribute)
-- __attribute_used__ (attribute)
-- __attribute_warn_unused_result__ (attribute)
-- __bos (function macro)
-- __bos0 (function macro)
-- __errordecl (unparsible)
-- __extern_always_inline (unparsible)
-- __extern_inline (alias of inline)
-- __flexarr (unparsible)
-- __fortify_function (unparsible)
-- __glibc_likely (function macro)
-- __glibc_unlikely (function macro)
subtype long_double_t is long_double;
-- __nonnull (unparsible)
-- __ptr_t (unparsible)
-- __restrict_arr (alias of restrict)
-- __va_arg_pack (unparsible)
-- __va_arg_pack_len (unparsible)
-- __warnattr (unparsible)
-- __warndecl (unparsible)
-- __wur (empty)
end C.sys.cdefs;
-- This file is translated by "headmaster" version 0.31-1157199 (devel).
-- The original C header's license should be applied to this file.
-- All conditional-directives are expanded for the exclusive use of your
-- environment, it is not recommended to commit this file to any repository.
-------------------------------------------------------------------------------
with C.bits.sigset;
with C.bits.time;
with C.bits.types;
with C.time;
package C.sys.select_h is
pragma Preelaborate;
subtype sigset_t is bits.sigset.sigset_t;
-- #include <time.h>
-- #include <bits/time.h>
subtype suseconds_t is bits.types.suseconds_t;
subtype qqfd_mask is signed_long;
subtype qqfd_mask_array is signed_long_array;
type struct_94b6543f is record
fds_bits : aliased qqfd_mask_array (0 .. 15);
end record;
pragma Convention (C_Pass_By_Copy, struct_94b6543f);
type struct_94b6543f_ptr is access all struct_94b6543f;
for struct_94b6543f_ptr'Storage_Size use 0;
pragma No_Strict_Aliasing (struct_94b6543f_ptr);
pragma Convention (C, struct_94b6543f_ptr);
subtype fd_set is struct_94b6543f;
subtype fd_set_ptr is struct_94b6543f_ptr;
subtype fd_mask is qqfd_mask;
function C_select (nfds : signed_int; readfds : access fd_set;
writefds : access fd_set; exceptfds : access fd_set;
timeout : access bits.time.struct_timeval) return signed_int;
pragma Import (C, C_select, "select");
function pselect (nfds : signed_int; readfds : access fd_set;
writefds : access fd_set; exceptfds : access fd_set;
timeout : access constant time.struct_timespec;
sigmask : access constant bits.sigset.sigset_t) return signed_int;
pragma Import (C, pselect, "pselect");
-- FD_CLR (uninterpretable)
-- FD_ISSET (uninterpretable)
-- FD_SET (uninterpretable)
FD_SETSIZE : constant := 1024;
-- FD_ZERO (uninterpretable)
NFDBITS : constant := 64;
SYS_SELECT_H : constant := 1;
-- __FDS_BITS (uninterpretable)
-- __FD_ELT (function macro)
-- __FD_MASK (function macro)
qqNFDBITS : constant := 64;
-- __sigset_t_defined (empty)
-- __suseconds_t_defined (empty)
end C.sys.select_h;
-- This file is translated by "headmaster" version 0.31-1157199 (devel).
-- The original C header's license should be applied to this file.
-- All conditional-directives are expanded for the exclusive use of your
-- environment, it is not recommended to commit this file to any repository.
-------------------------------------------------------------------------------
package C.sys.sysmacros is
pragma Preelaborate;
function gnu_dev_major (dev : unsigned_long_long) return unsigned_int;
pragma Import (C, gnu_dev_major, "gnu_dev_major");
function gnu_dev_minor (dev : unsigned_long_long) return unsigned_int;
pragma Import (C, gnu_dev_minor, "gnu_dev_minor");
function gnu_dev_makedev (major : unsigned_int; minor : unsigned_int)
return unsigned_long_long;
pragma Import (C, gnu_dev_makedev, "gnu_dev_makedev");
SYS_SYSMACROS_H : constant := 1;
-- major (unparsible)
-- makedev (unparsible)
-- minor (unparsible)
end C.sys.sysmacros;
-- This file is translated by "headmaster" version 0.31-1157199 (devel).
-- The original C header's license should be applied to this file.
-- All conditional-directives are expanded for the exclusive use of your
-- environment, it is not recommended to commit this file to any repository.
-------------------------------------------------------------------------------
with C.bits.types;
package C.sys.types is
pragma Preelaborate;
subtype u_char is bits.types.u_char;
subtype u_short is bits.types.u_short;
subtype u_int is bits.types.u_int;
subtype u_long is bits.types.u_long;
subtype quad_t is bits.types.quad_t;
subtype u_quad_t is bits.types.u_quad_t;
subtype fsid_t is bits.types.fsid_t;
subtype loff_t is bits.types.loff_t;
subtype ino_t is bits.types.ino_t;
subtype dev_t is bits.types.dev_t;
subtype gid_t is bits.types.gid_t;
subtype mode_t is bits.types.mode_t;
subtype nlink_t is bits.types.nlink_t;
subtype uid_t is bits.types.uid_t;
subtype off_t is bits.types.off_t;
subtype pid_t is bits.types.pid_t;
subtype id_t is bits.types.id_t;
subtype ssize_t is bits.types.ssize_t;
subtype daddr_t is bits.types.daddr_t;
subtype caddr_t is bits.types.caddr_t;
subtype key_t is bits.types.key_t;
-- #include <time.h>
subtype ulong is unsigned_long;
subtype ushort is unsigned_short;
subtype uint is unsigned_int;
subtype u_int8_t is unsigned_char;
subtype u_int16_t is unsigned_short;
subtype u_int32_t is unsigned_int;
subtype u_int64_t is unsigned_long;
subtype register_t is signed_long;
-- #include <bits/byteswap.h>
-- #include <bits/sigset.h>
-- #include <time.h>
-- #include <bits/time.h>
-- #include <sys/select.h>
-- #include <sys/sysmacros.h>
subtype blksize_t is bits.types.blksize_t;
subtype blkcnt_t is bits.types.blkcnt_t;
subtype fsblkcnt_t is bits.types.fsblkcnt_t;
subtype fsfilcnt_t is bits.types.fsfilcnt_t;
SYS_TYPES_H : constant := 1;
qqBIT_TYPES_DEFINEDqq : constant := 1;
-- __blkcnt_t_defined (empty)
-- __blksize_t_defined (empty)
-- __daddr_t_defined (empty)
-- __dev_t_defined (empty)
-- __fsblkcnt_t_defined (empty)
-- __fsfilcnt_t_defined (empty)
-- __gid_t_defined (empty)
-- __id_t_defined (empty)
-- __ino_t_defined (empty)
-- __intN_t (has # or ##)
-- __key_t_defined (empty)
-- __mode_t_defined (empty)
-- __need_clockid_t (empty)
-- __nlink_t_defined (empty)
-- __off_t_defined (empty)
-- __pid_t_defined (empty)
-- __ssize_t_defined (empty)
-- __u_char_defined (empty)
-- __u_intN_t (has # or ##)
-- __uid_t_defined (empty)
end C.sys.types;
-- This file is translated by "headmaster" version 0.31-1157199 (devel).
-- The original C header's license should be applied to this file.
-- All conditional-directives are expanded for the exclusive use of your
-- environment, it is not recommended to commit this file to any repository.
-------------------------------------------------------------------------------
package C.sys is
pragma Preelaborate;
end C.sys;
-- This file is translated by "headmaster" version 0.31-1157199 (devel).
-- The original C header's license should be applied to this file.
-- All conditional-directives are expanded for the exclusive use of your
-- environment, it is not recommended to commit this file to any repository.
-------------------------------------------------------------------------------
with C.bits.types;
package C.time is
pragma Preelaborate;
subtype clock_t is bits.types.qqclock_t;
subtype time_t is bits.types.qqtime_t;
subtype clockid_t is bits.types.qqclockid_t;
subtype timer_t is bits.types.qqtimer_t;
-- #include <sys/types.h>
-- #include <bits/byteswap.h>
-- #include <bits/sigset.h>
-- #include <sys/select.h>
type struct_timespec;
type struct_timespec is record
tv_sec : aliased bits.types.qqtime_t;
tv_nsec : aliased bits.types.syscall_slong_t;
end record;
pragma Convention (C_Pass_By_Copy, struct_timespec);
type struct_timespec_const_ptr is access constant struct_timespec;
for struct_timespec_const_ptr'Storage_Size use 0;
pragma No_Strict_Aliasing (struct_timespec_const_ptr);
pragma Convention (C, struct_timespec_const_ptr);
clock_t_defined : constant := 1;
clockid_t_defined : constant := 1;
time_t_defined : constant := 1;
timer_t_defined : constant := 1;
timespec_defined : constant := 1;
end C.time;
-- This file is translated by "headmaster" version 0.31-1157199 (devel).
-- The original C header's license should be applied to this file.
-- All conditional-directives are expanded for the exclusive use of your
-- environment, it is not recommended to commit this file to any repository.
-------------------------------------------------------------------------------
package C.xlocale is
pragma Preelaborate;
type struct_locale_struct;
type struct_locale_data (<>) is limited private;
type struct_locale_data_ptr is access all struct_locale_data;
for struct_locale_data_ptr'Storage_Size use 0;
pragma No_Strict_Aliasing (struct_locale_data_ptr);
pragma Convention (C, struct_locale_data_ptr);
type struct_locale_data_ptr_array is array (size_t range <>) of
aliased struct_locale_data_ptr;
pragma Convention (C, struct_locale_data_ptr_array);
type struct_locale_struct is record
locales : aliased struct_locale_data_ptr_array (0 .. 12);
ctype_b : aliased unsigned_short_const_ptr;
ctype_tolower : aliased signed_int_const_ptr;
ctype_toupper : aliased signed_int_const_ptr;
names : aliased char_const_ptr_array (0 .. 12);
end record;
pragma Convention (C_Pass_By_Copy, struct_locale_struct);
type struct_locale_struct_ptr is access all struct_locale_struct;
for struct_locale_struct_ptr'Storage_Size use 0;
pragma No_Strict_Aliasing (struct_locale_struct_ptr);
pragma Convention (C, struct_locale_struct_ptr);
subtype qqlocale_t is struct_locale_struct_ptr;
subtype locale_t is qqlocale_t;
XLOCALE_H : constant := 1;
private
type struct_locale_data is null record;
end C.xlocale;
-- This file is translated by "headmaster" version 0.31-1157199 (devel).
-- The original C header's license should be applied to this file.
-- All conditional-directives are expanded for the exclusive use of your
-- environment, it is not recommended to commit this file to any repository.
-------------------------------------------------------------------------------
with System;
package C is
pragma Preelaborate;
-- type void (<>) is limited private;
type bool is new Boolean;
pragma Convention (C, bool);
type signed_char is new Short_Short_Integer;
pragma Convention (C, signed_char);
type unsigned_char is mod 2 ** signed_char'Size;
pragma Convention (C, unsigned_char);
type signed_short is new Short_Integer;
pragma Convention (C, signed_short);
type unsigned_short is mod 2 ** signed_short'Size;
pragma Convention (C, unsigned_short);
type signed_int is new Integer;
pragma Convention (C, signed_int);
type unsigned_int is mod 2 ** signed_int'Size;
pragma Convention (C, unsigned_int);
type signed_long is new Long_Integer;
pragma Convention (C, signed_long);
type unsigned_long is mod 2 ** signed_long'Size;
pragma Convention (C, unsigned_long);
type signed_long_long is new Long_Long_Integer;
pragma Convention (C, signed_long_long);
type unsigned_long_long is mod 2 ** signed_long_long'Size;
pragma Convention (C, unsigned_long_long);
type float is new Standard.Float;
pragma Convention (C, float);
type double is new Long_Float;
pragma Convention (C, double);
type long_double is new Long_Long_Float;
pragma Convention (C, long_double);
-- type Float32 is ...
-- type Float64 is ...
-- type Float128 is ...
-- type Float32x is ...
-- type Float64x is ...
-- type Decimal32 is ...
-- type Decimal64 is ...
-- type Decimal128 is ...
type float_imaginary is new float;
pragma Convention (C, float_imaginary);
type double_imaginary is new double;
pragma Convention (C, double_imaginary);
type long_double_imaginary is new long_double;
pragma Convention (C, long_double_imaginary);
-- type Float32_imaginary is ...
-- type Float32x_imaginary is ...
-- type Float64_imaginary is ...
-- type Float64x_imaginary is ...
-- type Float128_imaginary is ...
type float_complex is record
Re, Im : float'Base;
end record;
pragma Complex_Representation (float_complex);
pragma Convention (C, float_complex);
type double_complex is record
Re, Im : double'Base;
end record;
pragma Complex_Representation (double_complex);
pragma Convention (C, double_complex);
type long_double_complex is record
Re, Im : long_double'Base;
end record;
pragma Complex_Representation (long_double_complex);
pragma Convention (C, long_double_complex);
-- type Float32_complex is ...
-- type Float32x_complex is ...
-- type Float64_complex is ...
-- type Float64x_complex is ...
-- type Float128_complex is ...
type char is new Character;
type int128_t is record
Lo, Hi : unsigned_long_long;
end record;
pragma Convention (C_Pass_By_Copy, int128_t);
type uint128_t is record
Lo, Hi : unsigned_long_long;
end record;
pragma Convention (C_Pass_By_Copy, uint128_t);
subtype builtin_va_list is System.Address;
type ptrdiff_t is new signed_long;
type size_t is new unsigned_long;
type wchar_t is new signed_int;
subtype void_ptr is System.Address;
type void_ptr_ptr is access all void_ptr;
for void_ptr_ptr'Storage_Size use 0;
pragma No_Strict_Aliasing (void_ptr_ptr);
pragma Convention (C, void_ptr_ptr);
subtype void_const_ptr is System.Address;
type unsigned_char_array is array (size_t range <>) of
aliased unsigned_char;
pragma Convention (C, unsigned_char_array);
type unsigned_char_ptr is access all unsigned_char;
for unsigned_char_ptr'Storage_Size use 0;
pragma No_Strict_Aliasing (unsigned_char_ptr);
pragma Convention (C, unsigned_char_ptr);
type unsigned_char_const_ptr is access constant unsigned_char;
for unsigned_char_const_ptr'Storage_Size use 0;
pragma No_Strict_Aliasing (unsigned_char_const_ptr);
pragma Convention (C, unsigned_char_const_ptr);
type unsigned_short_array is array (size_t range <>) of
aliased unsigned_short;
pragma Convention (C, unsigned_short_array);
type unsigned_short_ptr is access all unsigned_short;
for unsigned_short_ptr'Storage_Size use 0;
pragma No_Strict_Aliasing (unsigned_short_ptr);
pragma Convention (C, unsigned_short_ptr);
type unsigned_short_const_ptr is access constant unsigned_short;
for unsigned_short_const_ptr'Storage_Size use 0;
pragma No_Strict_Aliasing (unsigned_short_const_ptr);
pragma Convention (C, unsigned_short_const_ptr);
type signed_int_array is array (size_t range <>) of aliased signed_int;
pragma Convention (C, signed_int_array);
type signed_int_volatile is new signed_int;
pragma Volatile (signed_int_volatile);
type signed_int_ptr is access all signed_int;
for signed_int_ptr'Storage_Size use 0;
pragma No_Strict_Aliasing (signed_int_ptr);
pragma Convention (C, signed_int_ptr);
type signed_int_const_ptr is access constant signed_int;
for signed_int_const_ptr'Storage_Size use 0;
pragma No_Strict_Aliasing (signed_int_const_ptr);
pragma Convention (C, signed_int_const_ptr);
type unsigned_int_ptr is access all unsigned_int;
for unsigned_int_ptr'Storage_Size use 0;
pragma No_Strict_Aliasing (unsigned_int_ptr);
pragma Convention (C, unsigned_int_ptr);
type signed_long_ptr is access all signed_long;
for signed_long_ptr'Storage_Size use 0;
pragma No_Strict_Aliasing (signed_long_ptr);
pragma Convention (C, signed_long_ptr);
type signed_long_array is array (size_t range <>) of aliased signed_long;
pragma Convention (C, signed_long_array);
type unsigned_long_array is array (size_t range <>) of
aliased unsigned_long;
pragma Convention (C, unsigned_long_array);
type unsigned_long_ptr is access all unsigned_long;
for unsigned_long_ptr'Storage_Size use 0;
pragma No_Strict_Aliasing (unsigned_long_ptr);
pragma Convention (C, unsigned_long_ptr);
type unsigned_long_const_ptr is access constant unsigned_long;
for unsigned_long_const_ptr'Storage_Size use 0;
pragma No_Strict_Aliasing (unsigned_long_const_ptr);
pragma Convention (C, unsigned_long_const_ptr);
type unsigned_long_volatile is new unsigned_long;
pragma Volatile (unsigned_long_volatile);
type unsigned_long_volatile_ptr is access all unsigned_long_volatile;
for unsigned_long_volatile_ptr'Storage_Size use 0;
pragma No_Strict_Aliasing (unsigned_long_volatile_ptr);
pragma Convention (C, unsigned_long_volatile_ptr);
type unsigned_long_volatile_const_ptr is
access constant unsigned_long_volatile;
for unsigned_long_volatile_const_ptr'Storage_Size use 0;
pragma No_Strict_Aliasing (unsigned_long_volatile_const_ptr);
pragma Convention (C, unsigned_long_volatile_const_ptr);
type double_ptr is access all double;
for double_ptr'Storage_Size use 0;
pragma No_Strict_Aliasing (double_ptr);
pragma Convention (C, double_ptr);
type double_array is array (size_t range <>) of aliased double;
pragma Convention (C, double_array);
type char_ptr is access all char;
for char_ptr'Storage_Size use 0;
pragma No_Strict_Aliasing (char_ptr);
pragma Convention (C, char_ptr);
type char_ptr_ptr is access all char_ptr;
for char_ptr_ptr'Storage_Size use 0;
pragma No_Strict_Aliasing (char_ptr_ptr);
pragma Convention (C, char_ptr_ptr);
type char_const_ptr is access constant char;
for char_const_ptr'Storage_Size use 0;
pragma No_Strict_Aliasing (char_const_ptr);
pragma Convention (C, char_const_ptr);
type char_const_ptr_array is array (size_t range <>) of
aliased char_const_ptr;
pragma Convention (C, char_const_ptr_array);
type char_array is array (size_t range <>) of aliased char;
pragma Convention (C, char_array);
function "=" (Left, Right : System.Address) return Boolean
renames System."=";
type size_t_ptr is access all size_t;
for size_t_ptr'Storage_Size use 0;
pragma No_Strict_Aliasing (size_t_ptr);
pragma Convention (C, size_t_ptr);
type wchar_t_ptr is access all wchar_t;
for wchar_t_ptr'Storage_Size use 0;
pragma No_Strict_Aliasing (wchar_t_ptr);
pragma Convention (C, wchar_t_ptr);
type wchar_t_const_ptr is access constant wchar_t;
for wchar_t_const_ptr'Storage_Size use 0;
pragma No_Strict_Aliasing (wchar_t_const_ptr);
pragma Convention (C, wchar_t_const_ptr);
function Shift_Left (Left : signed_char; Right : Natural)
return signed_char;
function Shift_Right_Arithmetic (Left : signed_char; Right : Natural)
return signed_char;
function Shift_Left (Left : unsigned_char; Right : Natural)
return unsigned_char;
function Shift_Right (Left : unsigned_char; Right : Natural)
return unsigned_char;
function Shift_Left (Left : signed_short; Right : Natural)
return signed_short;
function Shift_Right_Arithmetic (Left : signed_short; Right : Natural)
return signed_short;
function Shift_Left (Left : unsigned_short; Right : Natural)
return unsigned_short;
function Shift_Right (Left : unsigned_short; Right : Natural)
return unsigned_short;
function Shift_Left (Left : signed_int; Right : Natural)
return signed_int;
function Shift_Right_Arithmetic (Left : signed_int; Right : Natural)
return signed_int;
function Shift_Left (Left : unsigned_int; Right : Natural)
return unsigned_int;
function Shift_Right (Left : unsigned_int; Right : Natural)
return unsigned_int;
function Shift_Left (Left : signed_long; Right : Natural)
return signed_long;
function Shift_Right_Arithmetic (Left : signed_long; Right : Natural)
return signed_long;
function Shift_Left (Left : unsigned_long; Right : Natural)
return unsigned_long;
function Shift_Right (Left : unsigned_long; Right : Natural)
return unsigned_long;
function Shift_Left (Left : signed_long_long; Right : Natural)
return signed_long_long;
function Shift_Right_Arithmetic (Left : signed_long_long; Right : Natural)
return signed_long_long;
function Shift_Left (Left : unsigned_long_long; Right : Natural)
return unsigned_long_long;
function Shift_Right (Left : unsigned_long_long; Right : Natural)
return unsigned_long_long;
pragma Import (Intrinsic, Shift_Left);
pragma Import (Intrinsic, Shift_Right);
pragma Import (Intrinsic, Shift_Right_Arithmetic);
LP64 : constant := 1;
STDC_PREDEF_H : constant := 1;
ATOMIC_ACQUIRE : constant := 2;
ATOMIC_ACQ_REL : constant := 4;
ATOMIC_CONSUME : constant := 1;
ATOMIC_HLE_ACQUIRE : constant := 65536;
ATOMIC_HLE_RELEASE : constant := 131072;
ATOMIC_RELAXED : constant := 0;
ATOMIC_RELEASE : constant := 3;
ATOMIC_SEQ_CST : constant := 5;
qqBIGGEST_ALIGNMENTqq : constant := 16;
qqBYTE_ORDERqq : constant := 1234;
subtype qqCHAR16_TYPEqq is unsigned_short;
subtype qqCHAR32_TYPEqq is unsigned_int;
qqCHAR_BITqq : constant := 8;
qqDBL_DECIMAL_DIGqq : constant := 17;
qqDBL_DENORM_MINqq : constant := 16#0.40000000000000000#e-268;
qqDBL_DIGqq : constant := 15;
qqDBL_EPSILONqq : constant := 16#0.10000000000000000#e-12;
qqDBL_HAS_DENORMqq : constant := 1;
qqDBL_HAS_INFINITYqq : constant := 1;
qqDBL_HAS_QUIET_NANqq : constant := 1;
qqDBL_MANT_DIGqq : constant := 53;
qqDBL_MAX_10_EXPqq : constant := 308;
qqDBL_MAX_EXPqq : constant := 1024;
qqDBL_MAXqq : constant := 16#0.fffffffffffff8000#e+256;
qqDBL_MIN_10_EXPqq : constant := -307;
qqDBL_MIN_EXPqq : constant := -1021;
qqDBL_MINqq : constant := 16#0.40000000000000000#e-255;
-- qqDEC128_EPSILONqq (decimal)
qqDEC128_MANT_DIGqq : constant := 34;
qqDEC128_MAX_EXPqq : constant := 6145;
-- qqDEC128_MAXqq (decimal)
qqDEC128_MIN_EXPqq : constant := -6142;
-- qqDEC128_MINqq (decimal)
-- qqDEC128_SUBNORMAL_MINqq (decimal)
-- qqDEC32_EPSILONqq (decimal)
qqDEC32_MANT_DIGqq : constant := 7;
qqDEC32_MAX_EXPqq : constant := 97;
-- qqDEC32_MAXqq (decimal)
qqDEC32_MIN_EXPqq : constant := -94;
-- qqDEC32_MINqq (decimal)
-- qqDEC32_SUBNORMAL_MINqq (decimal)
-- qqDEC64_EPSILONqq (decimal)
qqDEC64_MANT_DIGqq : constant := 16;
qqDEC64_MAX_EXPqq : constant := 385;
-- qqDEC64_MAXqq (decimal)
qqDEC64_MIN_EXPqq : constant := -382;
-- qqDEC64_MINqq (decimal)
-- qqDEC64_SUBNORMAL_MINqq (decimal)
qqDECIMAL_BID_FORMATqq : constant := 1;
qqDECIMAL_DIGqq : constant := 21;
qqDEC_EVAL_METHODqq : constant := 2;
qqELFqq : constant := 1;
qqFINITE_MATH_ONLYqq : constant := 0;
qqFLOAT_WORD_ORDERqq : constant := 1234;
qqFLT_DECIMAL_DIGqq : constant := 9;
qqFLT_DENORM_MINqq : constant := 16#0.80000000000000000#e-37;
qqFLT_DIGqq : constant := 6;
qqFLT_EPSILONqq : constant := 16#0.20000000000000000#e-5;
qqFLT_EVAL_METHODqq : constant := 0;
qqFLT_HAS_DENORMqq : constant := 1;
qqFLT_HAS_INFINITYqq : constant := 1;
qqFLT_HAS_QUIET_NANqq : constant := 1;
qqFLT_MANT_DIGqq : constant := 24;
qqFLT_MAX_10_EXPqq : constant := 38;
qqFLT_MAX_EXPqq : constant := 128;
qqFLT_MAXqq : constant := 16#0.ffffff00000000000#e+32;
qqFLT_MIN_10_EXPqq : constant := -37;
qqFLT_MIN_EXPqq : constant := -125;
qqFLT_MINqq : constant := 16#0.40000000000000000#e-31;
qqFLT_RADIXqq : constant := 2;
qqFXSRqq : constant := 1;
qqGCC_ASM_FLAG_OUTPUTSqq : constant := 1;
GCC_ATOMIC_BOOL_LOCK_FREE : constant := 2;
GCC_ATOMIC_CHAR16_T_LOCK_FREE : constant := 2;
GCC_ATOMIC_CHAR32_T_LOCK_FREE : constant := 2;
GCC_ATOMIC_CHAR_LOCK_FREE : constant := 2;
GCC_ATOMIC_INT_LOCK_FREE : constant := 2;
GCC_ATOMIC_LLONG_LOCK_FREE : constant := 2;
GCC_ATOMIC_LONG_LOCK_FREE : constant := 2;
GCC_ATOMIC_POINTER_LOCK_FREE : constant := 2;
GCC_ATOMIC_SHORT_LOCK_FREE : constant := 2;
GCC_ATOMIC_TEST_AND_SET_TRUEVAL : constant := 1;
GCC_ATOMIC_WCHAR_T_LOCK_FREE : constant := 2;
GCC_HAVE_DWARF2_CFI_ASM : constant := 1;
GCC_HAVE_SYNC_COMPARE_AND_SWAP_1 : constant := 1;
GCC_HAVE_SYNC_COMPARE_AND_SWAP_16 : constant := 1;
GCC_HAVE_SYNC_COMPARE_AND_SWAP_2 : constant := 1;
GCC_HAVE_SYNC_COMPARE_AND_SWAP_4 : constant := 1;
GCC_HAVE_SYNC_COMPARE_AND_SWAP_8 : constant := 1;
GCC_IEC_559 : constant := 2;
GCC_IEC_559_COMPLEX : constant := 2;
qqGNUC_MINORqq : constant := 5;
qqGNUC_PATCHLEVELqq : constant := 0;
qqGNUC_STDC_INLINEqq : constant := 1;
qqGNUCqq : constant := 6;
GXX_ABI_VERSION : constant := 1010;
-- __INT16_C (function macro)
qqINT16_MAXqq : constant := 32767;
subtype qqINT16_TYPEqq is signed_short;
-- __INT32_C (function macro)
qqINT32_MAXqq : constant := 2147483647;
subtype qqINT32_TYPEqq is signed_int;
-- __INT64_C (has # or ##)
qqINT64_MAXqq : constant := 9223372036854775807;
subtype qqINT64_TYPEqq is signed_long;
-- __INT8_C (function macro)
qqINT8_MAXqq : constant := 127;
subtype qqINT8_TYPEqq is signed_char;
-- __INTMAX_C (has # or ##)
qqINTMAX_MAXqq : constant := 9223372036854775807;
subtype qqINTMAX_TYPEqq is signed_long;
qqINTPTR_MAXqq : constant := 9223372036854775807;
subtype qqINTPTR_TYPEqq is signed_long;
qqINT_FAST16_MAXqq : constant := 9223372036854775807;
subtype qqINT_FAST16_TYPEqq is signed_long;
qqINT_FAST32_MAXqq : constant := 9223372036854775807;
subtype qqINT_FAST32_TYPEqq is signed_long;
qqINT_FAST64_MAXqq : constant := 9223372036854775807;
subtype qqINT_FAST64_TYPEqq is signed_long;
qqINT_FAST8_MAXqq : constant := 127;
subtype qqINT_FAST8_TYPEqq is signed_char;
qqINT_LEAST16_MAXqq : constant := 32767;
subtype qqINT_LEAST16_TYPEqq is signed_short;
qqINT_LEAST32_MAXqq : constant := 2147483647;
subtype qqINT_LEAST32_TYPEqq is signed_int;
qqINT_LEAST64_MAXqq : constant := 9223372036854775807;
subtype qqINT_LEAST64_TYPEqq is signed_long;
qqINT_LEAST8_MAXqq : constant := 127;
subtype qqINT_LEAST8_TYPEqq is signed_char;
qqINT_MAXqq : constant := 2147483647;
qqLDBL_DENORM_MINqq : constant := 16#0.80000000000000000#e-4111;
qqLDBL_DIGqq : constant := 18;
qqLDBL_EPSILONqq : constant := 16#0.20000000000000000#e-15;
qqLDBL_HAS_DENORMqq : constant := 1;
qqLDBL_HAS_INFINITYqq : constant := 1;
qqLDBL_HAS_QUIET_NANqq : constant := 1;
qqLDBL_MANT_DIGqq : constant := 64;
qqLDBL_MAX_10_EXPqq : constant := 4932;
qqLDBL_MAX_EXPqq : constant := 16384;
qqLDBL_MAXqq : constant := 16#0.ffffffffffffffff0#e+4096;
qqLDBL_MIN_10_EXPqq : constant := -4931;
qqLDBL_MIN_EXPqq : constant := -16381;
qqLDBL_MINqq : constant := 16#0.40000000000000000#e-4095;
qqLONG_LONG_MAXqq : constant := 9223372036854775807;
qqLONG_MAXqq : constant := 9223372036854775807;
qqLP64qq : constant := 1;
qqMMXqq : constant := 1;
qqNO_INLINEqq : constant := 1;
qqORDER_BIG_ENDIANqq : constant := 4321;
qqORDER_LITTLE_ENDIANqq : constant := 1234;
qqORDER_PDP_ENDIANqq : constant := 3412;
PRAGMA_REDEFINE_EXTNAME : constant := 1;
qqPTRDIFF_MAXqq : constant := 9223372036854775807;
subtype qqPTRDIFF_TYPEqq is signed_long;
-- __REGISTER_PREFIX__ (empty)
qqSCHAR_MAXqq : constant := 127;
SEG_FS : constant := 1;
SEG_GS : constant := 1;
qqSHRT_MAXqq : constant := 32767;
qqSIG_ATOMIC_MAXqq : constant := 2147483647;
qqSIG_ATOMIC_MINqq : constant := -2147483648;
subtype qqSIG_ATOMIC_TYPEqq is signed_int;
qqSIZEOF_DOUBLEqq : constant := 8;
qqSIZEOF_FLOAT128qq : constant := 16;
qqSIZEOF_FLOAT80qq : constant := 16;
qqSIZEOF_FLOATqq : constant := 4;
qqSIZEOF_INT128qq : constant := 16;
qqSIZEOF_INTqq : constant := 4;
qqSIZEOF_LONG_DOUBLEqq : constant := 16;
qqSIZEOF_LONG_LONGqq : constant := 8;
qqSIZEOF_LONGqq : constant := 8;
qqSIZEOF_POINTERqq : constant := 8;
qqSIZEOF_PTRDIFF_Tqq : constant := 8;
qqSIZEOF_SHORTqq : constant := 2;
qqSIZEOF_SIZE_Tqq : constant := 8;
qqSIZEOF_WCHAR_Tqq : constant := 4;
qqSIZEOF_WINT_Tqq : constant := 4;
qqSIZE_MAXqq : constant := 18446744073709551615;
subtype qqSIZE_TYPEqq is unsigned_long;
qqSSE2_MATHqq : constant := 1;
qqSSE2qq : constant := 1;
qqSSE3qq : constant := 1;
qqSSE_MATHqq : constant := 1;
qqSSEqq : constant := 1;
qqSSSE3qq : constant := 1;
qqSTDC_HOSTEDqq : constant := 1;
qqSTDC_NO_THREADSqq : constant := 1;
qqSTDC_UTF_16qq : constant := 1;
qqSTDC_UTF_32qq : constant := 1;
-- __UINT16_C (function macro)
qqUINT16_MAXqq : constant := 65535;
subtype qqUINT16_TYPEqq is unsigned_short;
-- __UINT32_C (has # or ##)
qqUINT32_MAXqq : constant := 4294967295;
subtype qqUINT32_TYPEqq is unsigned_int;
-- __UINT64_C (has # or ##)
qqUINT64_MAXqq : constant := 18446744073709551615;
subtype qqUINT64_TYPEqq is unsigned_long;
-- __UINT8_C (function macro)
qqUINT8_MAXqq : constant := 255;
subtype qqUINT8_TYPEqq is unsigned_char;
-- __UINTMAX_C (has # or ##)
qqUINTMAX_MAXqq : constant := 18446744073709551615;
subtype qqUINTMAX_TYPEqq is unsigned_long;
qqUINTPTR_MAXqq : constant := 18446744073709551615;
subtype qqUINTPTR_TYPEqq is unsigned_long;
qqUINT_FAST16_MAXqq : constant := 18446744073709551615;
subtype qqUINT_FAST16_TYPEqq is unsigned_long;
qqUINT_FAST32_MAXqq : constant := 18446744073709551615;
subtype qqUINT_FAST32_TYPEqq is unsigned_long;
qqUINT_FAST64_MAXqq : constant := 18446744073709551615;
subtype qqUINT_FAST64_TYPEqq is unsigned_long;
qqUINT_FAST8_MAXqq : constant := 255;
subtype qqUINT_FAST8_TYPEqq is unsigned_char;
qqUINT_LEAST16_MAXqq : constant := 65535;
subtype qqUINT_LEAST16_TYPEqq is unsigned_short;
qqUINT_LEAST32_MAXqq : constant := 4294967295;
subtype qqUINT_LEAST32_TYPEqq is unsigned_int;
qqUINT_LEAST64_MAXqq : constant := 18446744073709551615;
subtype qqUINT_LEAST64_TYPEqq is unsigned_long;
qqUINT_LEAST8_MAXqq : constant := 255;
subtype qqUINT_LEAST8_TYPEqq is unsigned_char;
-- __USER_LABEL_PREFIX__ (empty)
qqVERSIONqq : constant char_array (0 .. 5) := "6.5.0" & char'Val (0);
qqWCHAR_MAXqq : constant := 2147483647;
qqWCHAR_MINqq : constant := -2147483648;
subtype qqWCHAR_TYPEqq is signed_int;
qqWINT_MAXqq : constant := 4294967295;
qqWINT_MINqq : constant := 0;
subtype qqWINT_TYPEqq is unsigned_int;
amd64 : constant := 1;
qqamd64qq : constant := 1;
qqcode_model_smallqq : constant := 1;
core2 : constant := 1;
qqcore2qq : constant := 1;
qqgnu_linuxqq : constant := 1;
-- __has_include (has __has_include__ or __has_include_next__)
-- __has_include_next (has __has_include__ or __has_include_next__)
defined_qqlinux : constant := 1;
qqlinuxqq : constant := 1;
qqunix : constant := 1;
qqunixqq : constant := 1;
x86_64 : constant := 1;
qqx86_64qq : constant := 1;
defined_linux : constant := 1;
unix : constant := 1;
function builtin_alloca (a1 : size_t) return char_ptr;
pragma Import (Intrinsic, builtin_alloca, "__builtin_alloca");
function builtin_bswap16 (a1 : unsigned_short) return unsigned_short;
pragma Import (Intrinsic, builtin_bswap16, "__builtin_bswap16");
function builtin_bswap32 (a1 : unsigned_int) return unsigned_int;
pragma Import (Intrinsic, builtin_bswap32, "__builtin_bswap32");
function builtin_bswap64 (a1 : unsigned_long_long)
return unsigned_long_long;
pragma Import (Intrinsic, builtin_bswap64, "__builtin_bswap64");
procedure builtin_bzero (a1 : access char; a2 : size_t);
pragma Import (Intrinsic, builtin_bzero, "__builtin_bzero");
function builtin_extract_return_addr (a1 : access char) return char_ptr;
pragma Import (Intrinsic, builtin_extract_return_addr,
"__builtin_extract_return_addr");
function builtin_fabsf (a1 : float) return float;
pragma Import (Intrinsic, builtin_fabsf, "__builtin_fabsf");
function builtin_fabs (a1 : double) return double;
pragma Import (Intrinsic, builtin_fabs, "__builtin_fabs");
function builtin_fabsl (a1 : long_double) return long_double;
pragma Import (Intrinsic, builtin_fabsl, "__builtin_fabsl");
function builtin_flt_rounds return signed_int;
pragma Import (Intrinsic, builtin_flt_rounds, "__builtin_flt_rounds");
function builtin_frame_address (a1 : unsigned_int) return char_ptr;
pragma Import (Intrinsic, builtin_frame_address,
"__builtin_frame_address");
function builtin_huge_valf return float;
pragma Import (Intrinsic, builtin_huge_valf, "__builtin_huge_valf");
function builtin_huge_val return double;
pragma Import (Intrinsic, builtin_huge_val, "__builtin_huge_val");
function builtin_huge_vall return long_double;
pragma Import (Intrinsic, builtin_huge_vall, "__builtin_huge_vall");
function builtin_inff return float;
pragma Import (Intrinsic, builtin_inff, "__builtin_inff");
function builtin_inf return double;
pragma Import (Intrinsic, builtin_inf, "__builtin_inf");
function builtin_infl return long_double;
pragma Import (Intrinsic, builtin_infl, "__builtin_infl");
function builtin_llabs (a1 : signed_long_long) return signed_long_long;
pragma Import (Intrinsic, builtin_llabs, "__builtin_llabs");
function builtin_memcmp (a1 : access char; a2 : access char; a3 : size_t)
return signed_int;
pragma Import (Intrinsic, builtin_memcmp, "__builtin_memcmp");
function builtin_memset (a1 : access char; a2 : signed_int; a3 : size_t)
return char_ptr;
pragma Import (Intrinsic, builtin_memset, "__builtin_memset");
function builtin_memcpy_chk (a1 : access char; a2 : access constant char;
a3 : size_t; a4 : size_t) return char_ptr;
pragma Import (Intrinsic, builtin_memcpy_chk, "__builtin___memcpy_chk");
function builtin_memmove_chk (a1 : access char; a2 : access constant char;
a3 : size_t; a4 : size_t) return char_ptr;
pragma Import (Intrinsic, builtin_memmove_chk, "__builtin___memmove_chk");
function builtin_memset_chk (a1 : access char; a2 : signed_int;
a3 : size_t; a4 : size_t) return char_ptr;
pragma Import (Intrinsic, builtin_memset_chk, "__builtin___memset_chk");
function builtin_nanf (a1 : access constant char) return float;
pragma Import (Intrinsic, builtin_nanf, "__builtin_nanf");
function builtin_nan (a1 : access constant char) return double;
pragma Import (Intrinsic, builtin_nan, "__builtin_nan");
function builtin_nanl (a1 : access constant char) return long_double;
pragma Import (Intrinsic, builtin_nanl, "__builtin_nanl");
function builtin_return_address (a1 : unsigned_int) return char_ptr;
pragma Import (Intrinsic, builtin_return_address,
"__builtin_return_address");
function builtin_stpcpy_chk (a1 : access char; a2 : access constant char;
a3 : size_t) return char_ptr;
pragma Import (Intrinsic, builtin_stpcpy_chk, "__builtin___stpcpy_chk");
function builtin_stpncpy_chk (a1 : access char; a2 : access constant char;
a3 : size_t; a4 : size_t) return char_ptr;
pragma Import (Intrinsic, builtin_stpncpy_chk, "__builtin___stpncpy_chk");
function builtin_strcat_chk (a1 : access char; a2 : access constant char;
a3 : size_t) return char_ptr;
pragma Import (Intrinsic, builtin_strcat_chk, "__builtin___strcat_chk");
function builtin_strcpy_chk (a1 : access char; a2 : access constant char;
a3 : size_t) return char_ptr;
pragma Import (Intrinsic, builtin_strcpy_chk, "__builtin___strcpy_chk");
function builtin_strncat_chk (a1 : access char; a2 : access constant char;
a3 : size_t; a4 : size_t) return char_ptr;
pragma Import (Intrinsic, builtin_strncat_chk, "__builtin___strncat_chk");
function builtin_strncpy_chk (a1 : access char; a2 : access constant char;
a3 : size_t; a4 : size_t) return char_ptr;
pragma Import (Intrinsic, builtin_strncpy_chk, "__builtin___strncpy_chk");
end C;
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment