1*c2c66affSColin Finck /* Math functions for i387.
2*c2c66affSColin Finck Copyright (C) 1995, 1996, 1997 Free Software Foundation, Inc.
3*c2c66affSColin Finck This file is part of the GNU C Library.
4*c2c66affSColin Finck Contributed by John C. Bowman <bowman@ipp-garching.mpg.de>, 1995.
5*c2c66affSColin Finck
6*c2c66affSColin Finck The GNU C Library is free software; you can redistribute it and/or
7*c2c66affSColin Finck modify it under the terms of the GNU Lesser General Public
8*c2c66affSColin Finck License as published by the Free Software Foundation; either
9*c2c66affSColin Finck version 2.1 of the License, or (at your option) any later version.
10*c2c66affSColin Finck
11*c2c66affSColin Finck The GNU C Library is distributed in the hope that it will be useful,
12*c2c66affSColin Finck but WITHOUT ANY WARRANTY; without even the implied warranty of
13*c2c66affSColin Finck MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
14*c2c66affSColin Finck Lesser General Public License for more details.
15*c2c66affSColin Finck
16*c2c66affSColin Finck You should have received a copy of the GNU Lesser General Public
17*c2c66affSColin Finck License along with the GNU C Library; if not, write to the Free
18*c2c66affSColin Finck Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
19*c2c66affSColin Finck Boston, MA 02110-1301, USA.
20*c2c66affSColin Finck */
21*c2c66affSColin Finck
22*c2c66affSColin Finck #include <math.h>
23*c2c66affSColin Finck
24*c2c66affSColin Finck #ifdef _MSC_VER
25*c2c66affSColin Finck #pragma function(acos)
26*c2c66affSColin Finck #endif
27*c2c66affSColin Finck
acos(double __x)28*c2c66affSColin Finck double acos(double __x)
29*c2c66affSColin Finck {
30*c2c66affSColin Finck return atan2(sqrt(1.0 - __x * __x), __x);
31*c2c66affSColin Finck }
32