| ------------------------------------------------------------------------------ |
| -- -- |
| -- GNAT COMPILER COMPONENTS -- |
| -- -- |
| -- G E T _ T A R G -- |
| -- -- |
| -- S p e c -- |
| -- -- |
| -- Copyright (C) 1992-2003 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. -- |
| -- 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 (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 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; |