ecos: packages/language/c/libm/current/src/double/ieee754-api/w

annotate packages/language/c/libm/current/src/double/ieee754-api/w_asin.c @ 208:e0c0827131d1 ecos

Merge from eCos master repository on 2002-05-20-20:11:54-BST

author	jlarmour
date	Mon, 20 May 2002 22:19:26 +0000
parents	bf00f99aec69
children	d2c90368aeef

rev	line source
0 3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	1 //===========================================================================
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	2 //
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	3 // w_asin.c
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	4 //
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	5 // Part of the standard mathematical function library
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	6 //
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	7 //===========================================================================
208 e0c0827131d1 Merge from eCos master repository on 2002-05-20-20:11:54-BST jlarmour parents: 66 diff changeset	8 //####ECOSGPLCOPYRIGHTBEGIN####
e0c0827131d1 Merge from eCos master repository on 2002-05-20-20:11:54-BST jlarmour parents: 66 diff changeset	9 // -------------------------------------------
e0c0827131d1 Merge from eCos master repository on 2002-05-20-20:11:54-BST jlarmour parents: 66 diff changeset	10 // This file is part of eCos, the Embedded Configurable Operating System.
e0c0827131d1 Merge from eCos master repository on 2002-05-20-20:11:54-BST jlarmour parents: 66 diff changeset	11 // Copyright (C) 1998, 1999, 2000, 2001, 2002 Red Hat, Inc.
e0c0827131d1 Merge from eCos master repository on 2002-05-20-20:11:54-BST jlarmour parents: 66 diff changeset	12 //
e0c0827131d1 Merge from eCos master repository on 2002-05-20-20:11:54-BST jlarmour parents: 66 diff changeset	13 // eCos is free software; you can redistribute it and/or modify it under
e0c0827131d1 Merge from eCos master repository on 2002-05-20-20:11:54-BST jlarmour parents: 66 diff changeset	14 // the terms of the GNU General Public License as published by the Free
e0c0827131d1 Merge from eCos master repository on 2002-05-20-20:11:54-BST jlarmour parents: 66 diff changeset	15 // Software Foundation; either version 2 or (at your option) any later version.
e0c0827131d1 Merge from eCos master repository on 2002-05-20-20:11:54-BST jlarmour parents: 66 diff changeset	16 //
e0c0827131d1 Merge from eCos master repository on 2002-05-20-20:11:54-BST jlarmour parents: 66 diff changeset	17 // eCos is distributed in the hope that it will be useful, but WITHOUT ANY
e0c0827131d1 Merge from eCos master repository on 2002-05-20-20:11:54-BST jlarmour parents: 66 diff changeset	18 // WARRANTY; without even the implied warranty of MERCHANTABILITY or
e0c0827131d1 Merge from eCos master repository on 2002-05-20-20:11:54-BST jlarmour parents: 66 diff changeset	19 // FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
e0c0827131d1 Merge from eCos master repository on 2002-05-20-20:11:54-BST jlarmour parents: 66 diff changeset	20 // for more details.
e0c0827131d1 Merge from eCos master repository on 2002-05-20-20:11:54-BST jlarmour parents: 66 diff changeset	21 //
e0c0827131d1 Merge from eCos master repository on 2002-05-20-20:11:54-BST jlarmour parents: 66 diff changeset	22 // You should have received a copy of the GNU General Public License along
e0c0827131d1 Merge from eCos master repository on 2002-05-20-20:11:54-BST jlarmour parents: 66 diff changeset	23 // with eCos; if not, write to the Free Software Foundation, Inc.,
e0c0827131d1 Merge from eCos master repository on 2002-05-20-20:11:54-BST jlarmour parents: 66 diff changeset	24 // 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA.
e0c0827131d1 Merge from eCos master repository on 2002-05-20-20:11:54-BST jlarmour parents: 66 diff changeset	25 //
e0c0827131d1 Merge from eCos master repository on 2002-05-20-20:11:54-BST jlarmour parents: 66 diff changeset	26 // As a special exception, if other files instantiate templates or use macros
e0c0827131d1 Merge from eCos master repository on 2002-05-20-20:11:54-BST jlarmour parents: 66 diff changeset	27 // or inline functions from this file, or you compile this file and link it
e0c0827131d1 Merge from eCos master repository on 2002-05-20-20:11:54-BST jlarmour parents: 66 diff changeset	28 // with other works to produce a work based on this file, this file does not
e0c0827131d1 Merge from eCos master repository on 2002-05-20-20:11:54-BST jlarmour parents: 66 diff changeset	29 // by itself cause the resulting work to be covered by the GNU General Public
e0c0827131d1 Merge from eCos master repository on 2002-05-20-20:11:54-BST jlarmour parents: 66 diff changeset	30 // License. However the source code for this file must still be made available
e0c0827131d1 Merge from eCos master repository on 2002-05-20-20:11:54-BST jlarmour parents: 66 diff changeset	31 // in accordance with section (3) of the GNU General Public License.
e0c0827131d1 Merge from eCos master repository on 2002-05-20-20:11:54-BST jlarmour parents: 66 diff changeset	32 //
e0c0827131d1 Merge from eCos master repository on 2002-05-20-20:11:54-BST jlarmour parents: 66 diff changeset	33 // This exception does not invalidate any other reasons why a work based on
e0c0827131d1 Merge from eCos master repository on 2002-05-20-20:11:54-BST jlarmour parents: 66 diff changeset	34 // this file might be covered by the GNU General Public License.
e0c0827131d1 Merge from eCos master repository on 2002-05-20-20:11:54-BST jlarmour parents: 66 diff changeset	35 //
e0c0827131d1 Merge from eCos master repository on 2002-05-20-20:11:54-BST jlarmour parents: 66 diff changeset	36 // Alternative licenses for eCos may be arranged by contacting Red Hat, Inc.
e0c0827131d1 Merge from eCos master repository on 2002-05-20-20:11:54-BST jlarmour parents: 66 diff changeset	37 // at http://sources.redhat.com/ecos/ecos-license
e0c0827131d1 Merge from eCos master repository on 2002-05-20-20:11:54-BST jlarmour parents: 66 diff changeset	38 // -------------------------------------------
e0c0827131d1 Merge from eCos master repository on 2002-05-20-20:11:54-BST jlarmour parents: 66 diff changeset	39 //####ECOSGPLCOPYRIGHTEND####
0 3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	40 //===========================================================================
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	41 //#####DESCRIPTIONBEGIN####
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	42 //
2 443894e2e912 Block commit of eCos version 1.2.1 jlarmour parents: 0 diff changeset	43 // Author(s): jlarmour
443894e2e912 Block commit of eCos version 1.2.1 jlarmour parents: 0 diff changeset	44 // Contributors: jlarmour
0 3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	45 // Date: 1998-02-13
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	46 // Purpose:
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	47 // Description:
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	48 // Usage:
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	49 //
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	50 //####DESCRIPTIONEND####
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	51 //
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	52 //===========================================================================
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	53
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	54 // CONFIGURATION
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	55
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	56 #include <pkgconf/libm.h> // Configuration header
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	57
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	58 // Include the Math library?
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	59 #ifdef CYGPKG_LIBM
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	60
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	61 // Derived from code with the following copyright
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	62
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	63
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	64 /* @(#)w_asin.c 1.3 95/01/18 */
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	65 /*
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	66 * ====================================================
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	67 * Copyright (C) 1993 by Sun Microsystems, Inc. All rights reserved.
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	68 *
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	69 * Developed at SunSoft, a Sun Microsystems, Inc. business.
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	70 * Permission to use, copy, modify, and distribute this
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	71 * software is freely granted, provided that this notice
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	72 * is preserved.
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	73 * ====================================================
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	74 *
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	75 */
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	76
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	77 /*
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	78 * wrapper asin(x)
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	79 */
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	80
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	81
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	82 #include "mathincl/fdlibm.h"
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	83
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	84
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	85 double asin(double x) /* wrapper asin */
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	86 {
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	87 #ifdef CYGSEM_LIBM_COMPAT_IEEE_ONLY
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	88 return __ieee754_asin(x);
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	89 #else
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	90 double z;
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	91 z = __ieee754_asin(x);
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	92 if(cyg_libm_get_compat_mode() == CYGNUM_LIBM_COMPAT_IEEE \|\| isnan(x)) return z;
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	93 if(fabs(x)>1.0) {
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	94 return __kernel_standard(x,x,2); /* asin(\|x\|>1) */
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	95 } else
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	96 return z;
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	97 #endif
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	98 }
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	99
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	100 #endif // ifdef CYGPKG_LIBM
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	101
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	102 // EOF w_asin.c

Mercurial > ecos

annotate packages/language/c/libm/current/src/double/ieee754-api/w_asin.c @ 208:e0c0827131d1 ecos