home *** CD-ROM | disk | FTP | other *** search
/ Geek Gadgets 1 / ADE-1.bin / ade-dist / gnat-2.06-src.tgz / tar.out / fsf / gnat / ada / get_targ.ads < prev    next >
Text File  |  1996-09-28  |  4KB  |  85 lines
  1. ------------------------------------------------------------------------------
  2. --                                                                          --
  3. --                         GNAT COMPILER COMPONENTS                         --
  4. --                                                                          --
  5. --                             G E T _ T A R G                              --
  6. --                                                                          --
  7. --                                 S p e c                                  --
  8. --                                                                          --
  9. --                            $Revision: 1.3 $                              --
  10. --                                                                          --
  11. --        Copyright (c) 1992,1993,1994,1995 NYU, All Rights Reserved        --
  12. --                                                                          --
  13. -- GNAT is free software;  you can  redistribute it  and/or modify it under --
  14. -- terms  of the GNU  General  Public  License  as  published  by the  Free --
  15. -- Software  Foundation;  either version 2,  or (at your option)  any later --
  16. -- version.  GNAT is distributed  in the hope  that it will be useful,  but --
  17. -- but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANT- --
  18. -- ABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public --
  19. -- License  for  more details.  You should have received  a copy of the GNU --
  20. -- General Public License along with GNAT;  see file COPYING. If not, write --
  21. -- to the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. --
  22. --                                                                          --
  23. ------------------------------------------------------------------------------
  24.  
  25. with Types; use Types;
  26.  
  27. package Get_Targ is
  28. --  This package provides an Import to the C functions which provide
  29. --  values related to types on the target system.  It is only needed for
  30. --  the elaboration of ttypes.
  31.  
  32.    function Get_Bits_Per_Unit return Pos;
  33.    pragma Import (C, Get_Bits_Per_Unit, "get_target_bits_per_unit");
  34.  
  35.    function Get_Bits_Per_Word return Pos;
  36.    pragma Import (C, Get_Bits_Per_Word, "get_target_bits_per_word");
  37.  
  38.    function Get_Char_Size return Pos;
  39.    pragma Import (C, Get_Char_Size, "get_target_char_size");
  40.  
  41.    function Get_Short_Size return Pos;
  42.    pragma Import (C, Get_Short_Size, "get_target_short_size");
  43.  
  44.    function Get_Int_Size return Pos;
  45.    pragma Import (C, Get_Int_Size, "get_target_int_size");
  46.  
  47.    function Get_Long_Size return Pos;
  48.    pragma Import (C, Get_Long_Size, "get_target_long_size");
  49.  
  50.    function Get_Long_Long_Size return Pos;
  51.    pragma Import (C, Get_Long_Long_Size, "get_target_long_long_size");
  52.  
  53.    function Get_Float_Size return Pos;
  54.    pragma Import (C, Get_Float_Size, "get_target_float_size");
  55.  
  56.    function Get_Double_Size return Pos;
  57.    pragma Import (C, Get_Double_Size, "get_target_double_size");
  58.  
  59.    function Get_Long_Double_Size return Pos;
  60.    pragma Import (C, Get_Long_Double_Size, "get_target_long_double_size");
  61.  
  62.    function Get_Pointer_Size return Pos;
  63.    pragma Import (C, Get_Pointer_Size, "get_target_ponter_size");
  64.  
  65.    function Get_Maximum_Alignment return Pos;
  66.    pragma Import (C, Get_Maximum_Alignment, "get_target_maximum_alignment");
  67.  
  68.    function Get_Float_Words_BE return Nat;
  69.    pragma Import (C, Get_Float_Words_BE, "get_float_words_be");
  70.  
  71.    function Get_Words_BE return Nat;
  72.    pragma Import (C, Get_Words_BE, "get_words_be");
  73.  
  74.    function Get_Bytes_BE return Nat;
  75.    pragma Import (C, Get_Bytes_BE, "get_bytes_be");
  76.  
  77.    function Get_Bits_BE return Nat;
  78.    pragma Import (C, Get_Bits_BE, "get_bits_be");
  79.  
  80.    function Width_From_Size  (Size : Pos) return Pos;
  81.    function Digits_From_Size (Size : Pos) return Pos;
  82.    --  Calculate values for 'Width or 'Digits from 'Size
  83.  
  84. end Get_Targ;
  85.