1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
|
------------------------------------------------------------------------------
-- --
-- GNAT COMPILER COMPONENTS --
-- --
-- G E T _ T A R G --
-- --
-- S p e c --
-- --
-- Copyright (C) 1992-2009, Free Software Foundation, Inc. --
-- --
-- GNAT is free software; you can redistribute it and/or modify it under --
-- terms of the GNU General Public License as published by the Free Soft- --
-- ware Foundation; either version 3, or (at your option) any later ver- --
-- sion. GNAT is distributed in the hope that it will be useful, but WITH- --
-- OUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY --
-- or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License --
-- for more details. You should have received a copy of the GNU General --
-- Public License distributed with GNAT; see file COPYING3. If not, go to --
-- http://www.gnu.org/licenses for a complete copy of the license. --
-- --
-- GNAT was originally developed by the GNAT team at New York University. --
-- Extensive contributions were provided by Ada Core Technologies Inc. --
-- --
------------------------------------------------------------------------------
-- This package provides an Import to the C functions which provide
-- values related to types on the target system. It is only needed for
-- exp_dbug and the elaboration of ttypes.
-- NOTE: Any changes in this package must be reflected in jgettarg.ads
-- and aa_getta.ads!
-- Note that all these values return sizes of C types with corresponding
-- names. This allows GNAT to define the corresponding Ada types to have
-- the same representation. There is one exception to this: the
-- Wide_Character_Type uses twice the size of a C char, instead of the
-- size of wchar_t.
with Types; use Types;
package Get_Targ is
pragma Preelaborate;
function Get_Bits_Per_Unit return Pos;
pragma Import (C, Get_Bits_Per_Unit, "get_target_bits_per_unit");
function Get_Bits_Per_Word return Pos;
pragma Import (C, Get_Bits_Per_Word, "get_target_bits_per_word");
function Get_Char_Size return Pos; -- Standard.Character'Size
pragma Import (C, Get_Char_Size, "get_target_char_size");
function Get_Wchar_T_Size return Pos; -- Interfaces.C.wchar_t'Size
pragma Import (C, Get_Wchar_T_Size, "get_target_wchar_t_size");
function Get_Short_Size return Pos; -- Standard.Short_Integer'Size
pragma Import (C, Get_Short_Size, "get_target_short_size");
function Get_Int_Size return Pos; -- Standard.Integer'Size
pragma Import (C, Get_Int_Size, "get_target_int_size");
function Get_Long_Size return Pos; -- Standard.Long_Integer'Size
pragma Import (C, Get_Long_Size, "get_target_long_size");
function Get_Long_Long_Size return Pos; -- Standard.Long_Long_Integer'Size
pragma Import (C, Get_Long_Long_Size, "get_target_long_long_size");
function Get_Float_Size return Pos; -- Standard.Float'Size
pragma Import (C, Get_Float_Size, "get_target_float_size");
function Get_Double_Size return Pos; -- Standard.Long_Float'Size
pragma Import (C, Get_Double_Size, "get_target_double_size");
function Get_Long_Double_Size return Pos; -- Standard.Long_Long_Float'Size
pragma Import (C, Get_Long_Double_Size, "get_target_long_double_size");
function Get_Pointer_Size return Pos; -- System.Address'Size
pragma Import (C, Get_Pointer_Size, "get_target_pointer_size");
function Get_Maximum_Alignment return Pos;
pragma Import (C, Get_Maximum_Alignment, "get_target_maximum_alignment");
function Get_Float_Words_BE return Nat;
pragma Import (C, Get_Float_Words_BE, "get_float_words_be");
function Get_Words_BE return Nat;
pragma Import (C, Get_Words_BE, "get_words_be");
function Get_Bytes_BE return Nat;
pragma Import (C, Get_Bytes_BE, "get_bytes_be");
function Get_Bits_BE return Nat;
pragma Import (C, Get_Bits_BE, "get_bits_be");
function Get_Strict_Alignment return Nat;
pragma Import (C, Get_Strict_Alignment, "get_target_strict_alignment");
function Get_Double_Float_Alignment return Nat;
pragma Import (C, Get_Double_Float_Alignment,
"get_target_double_float_alignment");
function Get_Double_Scalar_Alignment return Nat;
pragma Import (C, Get_Double_Scalar_Alignment,
"get_target_double_scalar_alignment");
function Get_Max_Unaligned_Field return Pos;
-- Returns the maximum supported size in bits for a field that is
-- not aligned on a storage unit boundary.
function Width_From_Size (Size : Pos) return Pos;
function Digits_From_Size (Size : Pos) return Pos;
-- Calculate values for 'Width or 'Digits from 'Size
end Get_Targ;
|
