File : a-numaux-x86.ads
1 ------------------------------------------------------------------------------
2 -- --
3 -- GNAT RUN-TIME COMPONENTS --
4 -- --
5 -- A D A . N U M E R I C S . A U X --
6 -- --
7 -- S p e c --
8 -- (Machine Version for x86) --
9 -- --
10 -- Copyright (C) 1992-2014, Free Software Foundation, Inc. --
11 -- --
12 -- GNAT is free software; you can redistribute it and/or modify it under --
13 -- terms of the GNU General Public License as published by the Free Soft- --
14 -- ware Foundation; either version 3, or (at your option) any later ver- --
15 -- sion. GNAT is distributed in the hope that it will be useful, but WITH- --
16 -- OUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY --
17 -- or FITNESS FOR A PARTICULAR PURPOSE. --
18 -- --
19 -- --
20 -- --
21 -- --
22 -- --
23 -- You should have received a copy of the GNU General Public License and --
24 -- a copy of the GCC Runtime Library Exception along with this program; --
25 -- see the files COPYING3 and COPYING.RUNTIME respectively. If not, see --
26 -- <http://www.gnu.org/licenses/>. --
27 -- --
28 -- GNAT was originally developed by the GNAT team at New York University. --
29 -- Extensive contributions were provided by Ada Core Technologies Inc. --
30 -- --
31 ------------------------------------------------------------------------------
32
33 -- Version for the x86, using 64-bit IEEE format with inline asm statements
34
35 package Ada.Numerics.Aux is
36 pragma Pure;
37
38 type Double is new Long_Long_Float;
39
40 function Sin (X : Double) return Double;
41
42 function Cos (X : Double) return Double;
43
44 function Tan (X : Double) return Double;
45
46 function Exp (X : Double) return Double;
47
48 function Sqrt (X : Double) return Double;
49
50 function Log (X : Double) return Double;
51
52 function Atan (X : Double) return Double;
53
54 function Acos (X : Double) return Double;
55
56 function Asin (X : Double) return Double;
57
58 function Sinh (X : Double) return Double;
59
60 function Cosh (X : Double) return Double;
61
62 function Tanh (X : Double) return Double;
63
64 function Pow (X, Y : Double) return Double;
65
66 private
67 pragma Inline (Atan);
68 pragma Inline (Cos);
69 pragma Inline (Tan);
70 pragma Inline (Exp);
71 pragma Inline (Log);
72 pragma Inline (Sin);
73 pragma Inline (Sqrt);
74
75 end Ada.Numerics.Aux;