1 /****************************************************************************
3 * GNAT COMPILER COMPONENTS *
9 * Copyright (C) 1992-2005, Free Software Foundation, Inc. *
11 * GNAT is free software; you can redistribute it and/or modify it under *
12 * terms of the GNU General Public License as published by the Free Soft- *
13 * ware Foundation; either version 2, or (at your option) any later ver- *
14 * sion. GNAT is distributed in the hope that it will be useful, but WITH- *
15 * OUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY *
16 * or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License *
17 * for more details. You should have received a copy of the GNU General *
18 * Public License distributed with GNAT; see file COPYING. If not, write *
19 * to the Free Software Foundation, 51 Franklin Street, Fifth Floor, *
20 * Boston, MA 02110-1301, USA. *
22 * GNAT was originally developed by the GNAT team at New York University. *
23 * Extensive contributions were provided by Ada Core Technologies Inc. *
25 ****************************************************************************/
27 /* This file corresponds to the Ada package specification Uintp. It was
28 created manually from the files uintp.ads and uintp.adb */
30 /* Support for universal integer arithmetic */
38 /* See if a Uint is within the range of an integer. */
39 #define UI_Is_In_Int_Range uintp__ui_is_in_int_range
40 extern Boolean
UI_Is_In_Int_Range (Uint
);
42 /* Obtain Char_Code value from Uint input. Value must be in range. */
43 #define UI_To_CC uintp__ui_to_cc
44 extern Char_Code
UI_To_CC (Uint
);
46 /* Obtain Int value from Uint input. This will abort if the result is
48 #define UI_To_Int uintp__ui_to_int
49 extern Int
UI_To_Int (Uint
);
51 /* Convert an Int into a Uint. */
52 #define UI_From_Int uintp__ui_from_int
53 extern Uint
UI_From_Int (int);
55 /* Convert a Char_Code into a Uint. */
56 #define UI_From_CC uintp__ui_from_cc
57 extern Uint
UI_From_CC (Char_Code
);
59 /* Similarly, but return a GCC INTEGER_CST. Overflow is tested by the
60 constant-folding used to build the node. TYPE is the GCC type of the
62 extern tree
UI_To_gnu (Uint
, tree
);
64 /* Universal integers are represented by the Uint type which is an index into
65 the Uints_Ptr table containing Uint_Entry values. A Uint_Entry contains an
66 index and length for getting the "digits" of the universal integer from the
69 For efficiency, this method is used only for integer values larger than the
70 constant Uint_Bias. If a Uint is less than this constant, then it contains
71 the integer value itself. The origin of the Uints_Ptr table is adjusted so
72 that a Uint value of Uint_Bias indexes the first element. */
74 #define Uints_Ptr (uintp__uints__table - Uint_Table_Start)
75 extern struct Uint_Entry
*uintp__uints__table
;
77 #define Udigits_Ptr uintp__udigits__table
78 extern int *uintp__udigits__table
;
80 #define Uint_0 (Uint_Direct_Bias + 0)
81 #define Uint_1 (Uint_Direct_Bias + 1)