X-Git-Url: https://oss.titaniummirror.com/gitweb?a=blobdiff_plain;f=gcc%2Fada%2Fget_targ.ads;fp=gcc%2Fada%2Fget_targ.ads;h=0000000000000000000000000000000000000000;hb=6fed43773c9b0ce596dca5686f37ac3fc0fa11c0;hp=d1d6f52354b2f5372dcf98a073e4ad0714317a77;hpb=27b11d56b743098deb193d510b337ba22dc52e5c;p=msp430-gcc.git diff --git a/gcc/ada/get_targ.ads b/gcc/ada/get_targ.ads deleted file mode 100644 index d1d6f523..00000000 --- a/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 -- --- -- --- $Revision: 1.1.16.1 $ --- -- --- 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. -- --- 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! - --- 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;