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
|
------------------------------------------------------------------------------
-- --
-- GNAT COMPILER COMPONENTS --
-- --
-- G E T _ T A R G --
-- --
-- S p e c --
-- --
-- $Revision: 1.15 $
-- --
-- Copyright (C) 1992-2000 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 2, 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 COPYING. If not, write --
-- to the Free Software Foundation, 59 Temple Place - Suite 330, Boston, --
-- MA 02111-1307, USA. --
-- --
-- GNAT was originally developed by the GNAT team at New York University. --
-- It is now maintained by Ada Core Technologies Inc (http://www.gnat.com). --
-- --
------------------------------------------------------------------------------
-- 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!
-- 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 (Get_Targ);
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_No_Dollar_In_Label return Boolean;
pragma Import (C, Get_No_Dollar_In_Label, "get_target_no_dollar_in_label");
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_strict_alignment");
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;
|
