diff options
Diffstat (limited to 'gcc-4.2.1/gcc/ada/get_targ.ads')
| -rw-r--r-- | gcc-4.2.1/gcc/ada/get_targ.ads | 107 |
1 files changed, 0 insertions, 107 deletions
diff --git a/gcc-4.2.1/gcc/ada/get_targ.ads b/gcc-4.2.1/gcc/ada/get_targ.ads deleted file mode 100644 index 11eec1d57..000000000 --- a/gcc-4.2.1/gcc/ada/get_targ.ads +++ /dev/null @@ -1,107 +0,0 @@ ------------------------------------------------------------------------------- --- -- --- GNAT COMPILER COMPONENTS -- --- -- --- G E T _ T A R G -- --- -- --- S p e c -- --- -- --- Copyright (C) 1992-2005 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, 51 Franklin Street, Fifth Floor, -- --- Boston, MA 02110-1301, 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; - - 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_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; |