Daily bump.
[official-gcc.git] / gcc / ada / sem_vfpt.ads
blobb6c9465ac9c3eeae1c5ea9ae1ca489eb69054d7f
1 ------------------------------------------------------------------------------
2 -- --
3 -- GNAT COMPILER COMPONENTS --
4 -- --
5 -- S E M _ V F P T --
6 -- --
7 -- S p e c --
8 -- --
9 -- Copyright (C) 1997-2007, Free Software Foundation, Inc. --
10 -- --
11 -- GNAT is free software; you can redistribute it and/or modify it under --
12 -- terms of the GNU General Public License as published by the Free Soft- --
13 -- ware Foundation; either version 3, or (at your option) any later ver- --
14 -- sion. GNAT is distributed in the hope that it will be useful, but WITH- --
15 -- OUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY --
16 -- or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License --
17 -- for more details. You should have received a copy of the GNU General --
18 -- Public License distributed with GNAT; see file COPYING3. If not, go to --
19 -- http://www.gnu.org/licenses for a complete copy of the license. --
20 -- --
21 -- GNAT was originally developed by the GNAT team at New York University. --
22 -- Extensive contributions were provided by Ada Core Technologies Inc. --
23 -- --
24 ------------------------------------------------------------------------------
26 -- This package contains specialized routines for handling the Alpha
27 -- floating point formats. It is used only in Alpha implementations.
28 -- Note that this means that the caller can assume that we are on an
29 -- Alpha implementation, and that Vax floating-point formats are valid.
31 with Types; use Types;
33 package Sem_VFpt is
35 procedure Set_D_Float (E : Entity_Id);
36 -- Sets the given floating-point entity to have Vax D_Float format
38 procedure Set_F_Float (E : Entity_Id);
39 -- Sets the given floating-point entity to have Vax F_Float format
41 procedure Set_G_Float (E : Entity_Id);
42 -- Sets the given floating-point entity to have Vax G_Float format
44 procedure Set_IEEE_Short (E : Entity_Id);
45 -- Sets the given floating-point entity to have IEEE Short format
47 procedure Set_IEEE_Long (E : Entity_Id);
48 -- Sets the given floating-point entity to have IEEE Long format
50 procedure Set_Standard_Fpt_Formats;
51 -- This procedure sets the appropriate formats for the standard
52 -- floating-point types in Standard, based on the setting of
53 -- the flags Opt.Float_Format and Opt.Float_Format_Long
55 end Sem_VFpt;