int localtime_r (const time_t *timer, /* calendar time in seconds */
struct tm *timeBuffer) /* buffer for the broken-down time */
{
return 0;
}
#endif
#if defined(vax)||defined(tahoe)
#ifdef vax
#define _0x(A,B) 0x/**/A/**/B
#else /* vax */
#define _0x(A,B) 0x/**/B/**/A
#endif /* vax */
static long Lx[] = {_0x(0000,5c00),_0x(0000,0000)}; /* 2**55 */
#define L *(double *) Lx
#else /* defined(vax)||defined(tahoe) */
static double L = 4503599627370496.0E0; /* 2**52 */
#endif /* defined(vax)||defined(tahoe) */
double rint (double x)
{
double s,t,one = 1.0,copysign();
#if !defined(vax)&&!defined(tahoe)
if (x != x) /* NaN */
return (x);
#endif /* !defined(vax)&&!defined(tahoe) */
if (copysign(x,one) >= L) /* already an integer */
return (x);
s = copysign(L,x);
/*at1flo = -3.5540295636764633916E-18 , /*Hex 2^-57 * -.831EDC34D6EAEA */
/*PIo2 = 1.5707963267948966135E0 , /*Hex 2^ 1 * .C90FDAA22168C2 */
/*PI = 3.1415926535897932270E0 , /*Hex 2^ 2 * .C90FDAA22168C2 */
/*a1 = 3.3333333333333473730E-1 , /*Hex 2^ -1 * .AAAAAAAAAAAB75 */
/*a2 = -2.0000000000017730678E-1 , /*Hex 2^ -2 * -.CCCCCCCCCD946E */
/*a3 = 1.4285714286694640301E-1 , /*Hex 2^ -2 * .92492492744262 */
/*a4 = -1.1111111135032672795E-1 , /*Hex 2^ -3 * -.E38E38EBC66292 */
/*a5 = 9.0909091380563043783E-2 , /*Hex 2^ -3 * .BA2E8BB31BD70C */
/*a6 = -7.6922954286089459397E-2 , /*Hex 2^ -3 * -.9D89C827C37F18 */
/*a7 = 6.6663180891693915586E-2 , /*Hex 2^ -3 * .8886B4AE379E58 */
/*a8 = -5.8772703698290408927E-2 , /*Hex 2^ -4 * -.F0BBA58481A942 */
/*a9 = 5.2170707402812969804E-2 , /*Hex 2^ -4 * .D5B0F3A1AB13AB */
/*a10 = -4.4895863157820361210E-2 , /*Hex 2^ -4 * -.B7E4B97FD1048F */
/*a11 = 3.3006147437343875094E-2 , /*Hex 2^ -4 * .8731743CF72D87 */
/*a12 = -1.4614844866464185439E-2 ; /*Hex 2^ -6 * -.EF731A2F3476D9 */
static long athfhix[] = { _0x(6338,3fed), _0x(da7b,2b0d)};
#define athfhi (*(double *)athfhix)
static long athflox[] = { _0x(5005,2164), _0x(92c0,9cfe)};
#define athflo (*(double *)athflox)
static long PIo4x[] = { _0x(0fda,4049), _0x(68c2,a221)};
#define PIo4 (*(double *)PIo4x)
static long at1fhix[] = { _0x(985e,407b), _0x(b4d9,940f)};
#define at1fhi (*(double *)at1fhix)
static long at1flox[] = { _0x(1edc,a383), _0x(eaea,34d6)};
#define at1flo (*(double *)at1flox)
static long PIo2x[] = { _0x(0fda,40c9), _0x(68c2,a221)};
#define PIo2 (*(double *)PIo2x)
static long PIx[] = { _0x(0fda,4149), _0x(68c2,a221)};
#define PI (*(double *)PIx)
static long a1x[] = { _0x(aaaa,3faa), _0x(ab75,aaaa)};
#define a1 (*(double *)a1x)
*/
#if defined(vax)||defined(tahoe) /* VAX D format */
#include <errno.h>
extern double infnan();
#ifdef vax
#define _0x(A,B) 0x/**/A/**/B
#else /* vax */
#define _0x(A,B) 0x/**/B/**/A
#endif /* vax */
/* static double */
/* ln2hi = 6.9314718055829871446E-1 , Hex 2^ 0 * .B17217F7D00000 */
/* ln2lo = 1.6465949582897081279E-12 , Hex 2^-39 * .E7BCD5E4F1D9CC */
/* invln2 = 1.4426950408889634148E0 , Hex 2^ 1 * .B8AA3B295C17F1 */
/* sqrt2 = 1.4142135623730950622E0 ; Hex 2^ 1 * .B504F333F9DE65 */
static long ln2hix[] = { _0x(7217,4031), _0x(0000,f7d0)};
static long ln2lox[] = { _0x(bcd5,2ce7), _0x(d9cc,e4f1)};
static long invln2x[] = { _0x(aa3b,40b8), _0x(17f1,295c)};
static long sqrt2x[] = { _0x(04f3,40b5), _0x(de65,33f9)};
#define ln2hi (*(double*)ln2hix)
#define ln2lo (*(double*)ln2lox)
#define invln2 (*(double*)invln2x)
#define sqrt2 (*(double*)sqrt2x)
#else /* defined(vax)||defined(tahoe) */
static double
ln2hi = 6.9314718036912381649E-1 , /*Hex 2^ -1 * 1.62E42FEE00000 */
ln2lo = 1.9082149292705877000E-10 , /*Hex 2^-33 * 1.A39EF35793C76 */
invln2 = 1.4426950408889633870E0 , /*Hex 2^ 0 * 1.71547652B82FE */
sqrt2 = 1.4142135623730951455E0 ; /*Hex 2^ 0 * 1.6A09E667F3BCD */
#endif /* defined(vax)||defined(tahoe) */
* The hexadecimal values are the intended ones for the following constants.
* The decimal values may be used, provided that the compiler will convert
* from decimal to binary accurately enough to produce the hexadecimal values
* shown.
*/
#if defined(vax)||defined(tahoe)
#ifdef vax
#define _0x(A,B) 0x/**/A/**/B
#else /* vax */
#define _0x(A,B) 0x/**/B/**/A
#endif /* vax */
/* static double */
/* mln2hi = 8.8029691931113054792E1 , Hex 2^ 7 * .B00F33C7E22BDB */
/* mln2lo = -4.9650192275318476525E-16 , Hex 2^-50 * -.8F1B60279E582A */
/* lnovfl = 8.8029691931113053016E1 ; Hex 2^ 7 * .B00F33C7E22BDA */
static long mln2hix[] = { _0x(0f33,43b0), _0x(2bdb,c7e2)};
static long mln2lox[] = { _0x(1b60,a70f), _0x(582a,279e)};
static long lnovflx[] = { _0x(0f33,43b0), _0x(2bda,c7e2)};
#define mln2hi (*(double*)mln2hix)
#define mln2lo (*(double*)mln2lox)
#define lnovfl (*(double*)lnovflx)
#else /* defined(vax)||defined(tahoe) */
static double
mln2hi = 7.0978271289338397310E2 , /*Hex 2^ 10 * 1.62E42FEFA39EF */
mln2lo = 2.3747039373786107478E-14 , /*Hex 2^-45 * 1.ABC9E3B39803F */
lnovfl = 7.0978271289338397310E2 ; /*Hex 2^ 9 * 1.62E42FEFA39EF */
#endif /* defined(vax)||defined(tahoe) */
#if defined(vax)||defined(tahoe)
static max = 126 ;
#else /* defined(vax)||defined(tahoe) */
* Constants:
* The hexadecimal values are the intended ones for the following constants.
* The decimal values may be used, provided that the compiler will convert
* from decimal to binary accurately enough to produce the hexadecimal values
* shown.
*/
#if defined(vax)||defined(tahoe) /* VAX D format (56 bits) */
#ifdef vax
#define _0x(A,B) 0x/**/A/**/B
#else /* vax */
#define _0x(A,B) 0x/**/B/**/A
#endif /* vax */
/* static double */
/* ln10hi = 2.3025850929940456790E0 ; Hex 2^ 2 * .935D8DDDAAA8AC */
static long ln10hix[] = { _0x(5d8d,4113), _0x(a8ac,ddaa)};
#define ln10hi (*(double*)ln10hix)
#else /* defined(vax)||defined(tahoe) */
static double
ivln10 = 4.3429448190325181667E-1 ; /*Hex 2^ -2 * 1.BCB7B1526E50E */
#endif /* defined(vax)||defined(tahoe) */
double log10(x)
double x;
{
double log();
#if defined(vax)||defined(tahoe)
return(log(x)/ln10hi);
#else /* defined(vax)||defined(tahoe) */
return(ivln10*log(x));
#include "vxWorks.h"
#include "math.h"
#if defined(vax)||defined(tahoe) /* VAX D format */
#ifdef vax
#define _0x(A,B) 0x/**/A/**/B
#else /* vax */
#define _0x(A,B) 0x/**/B/**/A
#endif /* vax */
/* static double */
/* r2p1hi = 2.4142135623730950345E0 , Hex 2^ 2 * .9A827999FCEF32 */
/* r2p1lo = 1.4349369327986523769E-17 , Hex 2^-55 * .84597D89B3754B */
/* sqrt2 = 1.4142135623730950622E0 ; Hex 2^ 1 * .B504F333F9DE65 */
static long r2p1hix[] = { _0x(8279,411a), _0x(ef32,99fc)};
static long r2p1lox[] = { _0x(597d,2484), _0x(754b,89b3)};
static long sqrt2x[] = { _0x(04f3,40b5), _0x(de65,33f9)};
#define r2p1hi (*(double*)r2p1hix)
#define r2p1lo (*(double*)r2p1lox)
#define sqrt2 (*(double*)sqrt2x)
#else /* defined(vax)||defined(tahoe) */
static double
r2p1hi = 2.4142135623730949234E0 , /*Hex 2^1 * 1.3504F333F9DE6 */
r2p1lo = 1.2537167179050217666E-16 , /*Hex 2^-53 * 1.21165F626CDD5 */
sqrt2 = 1.4142135623730951455E0 ; /*Hex 2^ 0 * 1.6A09E667F3BCD */
#endif /* defined(vax)||defined(tahoe) */
/******************************************************************************
*
* hypot - return the square root of X^2 + Y^2 where Z = X + iY