sdl-ios-xcode: src/libm/s_scalbn.c annotate

annotate src/libm/s_scalbn.c @ 3092:cad1aefa2ed9

Date: Thu, 12 Mar 2009 15:14:38 +0200 From: "Mike Gorchak" Subject: New QNX patches In photon.tar.gz there are new files to be placed into ./src/video/photon/ directory. qnx3.diff - new patches for QNX support. Since I've found a lot of bugs in the new GF QNX Graphics Framework and I'm suspended development for GF driver until already found bugs will be fixed and switched to Photon driver implementation. sdl.diff - I've found that renderer creation result has not been checked and SDL shows error like: "there is no current renderer", now SDL will show correct error which was set be renderer.

author	Sam Lantinga <slouken@libsdl.org>
date	Tue, 17 Mar 2009 03:24:22 +0000
parents	a98604b691c8
children	dc1eb82ffdaa

rev	line source
2756 a98604b691c8 Expanded the libm support and put it into a separate directory. Sam Lantinga <slouken@libsdl.org> parents: diff changeset	1 /* @(#)s_scalbn.c 5.1 93/09/24 */
a98604b691c8 Expanded the libm support and put it into a separate directory. Sam Lantinga <slouken@libsdl.org> parents: diff changeset	2 /*
a98604b691c8 Expanded the libm support and put it into a separate directory. Sam Lantinga <slouken@libsdl.org> parents: diff changeset	3 * ====================================================
a98604b691c8 Expanded the libm support and put it into a separate directory. Sam Lantinga <slouken@libsdl.org> parents: diff changeset	4 * Copyright (C) 1993 by Sun Microsystems, Inc. All rights reserved.
a98604b691c8 Expanded the libm support and put it into a separate directory. Sam Lantinga <slouken@libsdl.org> parents: diff changeset	5 *
a98604b691c8 Expanded the libm support and put it into a separate directory. Sam Lantinga <slouken@libsdl.org> parents: diff changeset	6 * Developed at SunPro, a Sun Microsystems, Inc. business.
a98604b691c8 Expanded the libm support and put it into a separate directory. Sam Lantinga <slouken@libsdl.org> parents: diff changeset	7 * Permission to use, copy, modify, and distribute this
a98604b691c8 Expanded the libm support and put it into a separate directory. Sam Lantinga <slouken@libsdl.org> parents: diff changeset	8 * software is freely granted, provided that this notice
a98604b691c8 Expanded the libm support and put it into a separate directory. Sam Lantinga <slouken@libsdl.org> parents: diff changeset	9 * is preserved.
a98604b691c8 Expanded the libm support and put it into a separate directory. Sam Lantinga <slouken@libsdl.org> parents: diff changeset	10 * ====================================================
a98604b691c8 Expanded the libm support and put it into a separate directory. Sam Lantinga <slouken@libsdl.org> parents: diff changeset	11 */
a98604b691c8 Expanded the libm support and put it into a separate directory. Sam Lantinga <slouken@libsdl.org> parents: diff changeset	12
a98604b691c8 Expanded the libm support and put it into a separate directory. Sam Lantinga <slouken@libsdl.org> parents: diff changeset	13 #if defined(LIBM_SCCS) && !defined(lint)
a98604b691c8 Expanded the libm support and put it into a separate directory. Sam Lantinga <slouken@libsdl.org> parents: diff changeset	14 static char rcsid[] =
a98604b691c8 Expanded the libm support and put it into a separate directory. Sam Lantinga <slouken@libsdl.org> parents: diff changeset	15 "$NetBSD: s_scalbn.c,v 1.8 1995/05/10 20:48:08 jtc Exp $";
a98604b691c8 Expanded the libm support and put it into a separate directory. Sam Lantinga <slouken@libsdl.org> parents: diff changeset	16 #endif
a98604b691c8 Expanded the libm support and put it into a separate directory. Sam Lantinga <slouken@libsdl.org> parents: diff changeset	17
a98604b691c8 Expanded the libm support and put it into a separate directory. Sam Lantinga <slouken@libsdl.org> parents: diff changeset	18 /*
a98604b691c8 Expanded the libm support and put it into a separate directory. Sam Lantinga <slouken@libsdl.org> parents: diff changeset	19 * scalbn (double x, int n)
a98604b691c8 Expanded the libm support and put it into a separate directory. Sam Lantinga <slouken@libsdl.org> parents: diff changeset	20 * scalbn(x,n) returns x* 2**n computed by exponent
a98604b691c8 Expanded the libm support and put it into a separate directory. Sam Lantinga <slouken@libsdl.org> parents: diff changeset	21 * manipulation rather than by actually performing an
a98604b691c8 Expanded the libm support and put it into a separate directory. Sam Lantinga <slouken@libsdl.org> parents: diff changeset	22 * exponentiation or a multiplication.
a98604b691c8 Expanded the libm support and put it into a separate directory. Sam Lantinga <slouken@libsdl.org> parents: diff changeset	23 */
a98604b691c8 Expanded the libm support and put it into a separate directory. Sam Lantinga <slouken@libsdl.org> parents: diff changeset	24
a98604b691c8 Expanded the libm support and put it into a separate directory. Sam Lantinga <slouken@libsdl.org> parents: diff changeset	25 #include "math.h"
a98604b691c8 Expanded the libm support and put it into a separate directory. Sam Lantinga <slouken@libsdl.org> parents: diff changeset	26 #include "math_private.h"
a98604b691c8 Expanded the libm support and put it into a separate directory. Sam Lantinga <slouken@libsdl.org> parents: diff changeset	27
a98604b691c8 Expanded the libm support and put it into a separate directory. Sam Lantinga <slouken@libsdl.org> parents: diff changeset	28 libm_hidden_proto(copysign)
a98604b691c8 Expanded the libm support and put it into a separate directory. Sam Lantinga <slouken@libsdl.org> parents: diff changeset	29 #ifdef __STDC__
a98604b691c8 Expanded the libm support and put it into a separate directory. Sam Lantinga <slouken@libsdl.org> parents: diff changeset	30 static const double
a98604b691c8 Expanded the libm support and put it into a separate directory. Sam Lantinga <slouken@libsdl.org> parents: diff changeset	31 #else
a98604b691c8 Expanded the libm support and put it into a separate directory. Sam Lantinga <slouken@libsdl.org> parents: diff changeset	32 static double
a98604b691c8 Expanded the libm support and put it into a separate directory. Sam Lantinga <slouken@libsdl.org> parents: diff changeset	33 #endif
a98604b691c8 Expanded the libm support and put it into a separate directory. Sam Lantinga <slouken@libsdl.org> parents: diff changeset	34 two54 = 1.80143985094819840000e+16, /* 0x43500000, 0x00000000 */
a98604b691c8 Expanded the libm support and put it into a separate directory. Sam Lantinga <slouken@libsdl.org> parents: diff changeset	35 twom54 = 5.55111512312578270212e-17, /* 0x3C900000, 0x00000000 */
a98604b691c8 Expanded the libm support and put it into a separate directory. Sam Lantinga <slouken@libsdl.org> parents: diff changeset	36 huge = 1.0e+300, tiny = 1.0e-300;
a98604b691c8 Expanded the libm support and put it into a separate directory. Sam Lantinga <slouken@libsdl.org> parents: diff changeset	37
a98604b691c8 Expanded the libm support and put it into a separate directory. Sam Lantinga <slouken@libsdl.org> parents: diff changeset	38 libm_hidden_proto(scalbn)
a98604b691c8 Expanded the libm support and put it into a separate directory. Sam Lantinga <slouken@libsdl.org> parents: diff changeset	39 #ifdef __STDC__
a98604b691c8 Expanded the libm support and put it into a separate directory. Sam Lantinga <slouken@libsdl.org> parents: diff changeset	40 double scalbn(double x, int n)
a98604b691c8 Expanded the libm support and put it into a separate directory. Sam Lantinga <slouken@libsdl.org> parents: diff changeset	41 #else
a98604b691c8 Expanded the libm support and put it into a separate directory. Sam Lantinga <slouken@libsdl.org> parents: diff changeset	42 double scalbn(x, n)
a98604b691c8 Expanded the libm support and put it into a separate directory. Sam Lantinga <slouken@libsdl.org> parents: diff changeset	43 double x;
a98604b691c8 Expanded the libm support and put it into a separate directory. Sam Lantinga <slouken@libsdl.org> parents: diff changeset	44 int n;
a98604b691c8 Expanded the libm support and put it into a separate directory. Sam Lantinga <slouken@libsdl.org> parents: diff changeset	45 #endif
a98604b691c8 Expanded the libm support and put it into a separate directory. Sam Lantinga <slouken@libsdl.org> parents: diff changeset	46 {
a98604b691c8 Expanded the libm support and put it into a separate directory. Sam Lantinga <slouken@libsdl.org> parents: diff changeset	47 int32_t k, hx, lx;
a98604b691c8 Expanded the libm support and put it into a separate directory. Sam Lantinga <slouken@libsdl.org> parents: diff changeset	48 EXTRACT_WORDS(hx, lx, x);
a98604b691c8 Expanded the libm support and put it into a separate directory. Sam Lantinga <slouken@libsdl.org> parents: diff changeset	49 k = (hx & 0x7ff00000) >> 20; /* extract exponent */
a98604b691c8 Expanded the libm support and put it into a separate directory. Sam Lantinga <slouken@libsdl.org> parents: diff changeset	50 if (k == 0) { /* 0 or subnormal x */
a98604b691c8 Expanded the libm support and put it into a separate directory. Sam Lantinga <slouken@libsdl.org> parents: diff changeset	51 if ((lx \| (hx & 0x7fffffff)) == 0)
a98604b691c8 Expanded the libm support and put it into a separate directory. Sam Lantinga <slouken@libsdl.org> parents: diff changeset	52 return x; /* +-0 */
a98604b691c8 Expanded the libm support and put it into a separate directory. Sam Lantinga <slouken@libsdl.org> parents: diff changeset	53 x *= two54;
a98604b691c8 Expanded the libm support and put it into a separate directory. Sam Lantinga <slouken@libsdl.org> parents: diff changeset	54 GET_HIGH_WORD(hx, x);
a98604b691c8 Expanded the libm support and put it into a separate directory. Sam Lantinga <slouken@libsdl.org> parents: diff changeset	55 k = ((hx & 0x7ff00000) >> 20) - 54;
a98604b691c8 Expanded the libm support and put it into a separate directory. Sam Lantinga <slouken@libsdl.org> parents: diff changeset	56 if (n < -50000)
a98604b691c8 Expanded the libm support and put it into a separate directory. Sam Lantinga <slouken@libsdl.org> parents: diff changeset	57 return tiny * x; /underflow /
a98604b691c8 Expanded the libm support and put it into a separate directory. Sam Lantinga <slouken@libsdl.org> parents: diff changeset	58 }
a98604b691c8 Expanded the libm support and put it into a separate directory. Sam Lantinga <slouken@libsdl.org> parents: diff changeset	59 if (k == 0x7ff)
a98604b691c8 Expanded the libm support and put it into a separate directory. Sam Lantinga <slouken@libsdl.org> parents: diff changeset	60 return x + x; /* NaN or Inf */
a98604b691c8 Expanded the libm support and put it into a separate directory. Sam Lantinga <slouken@libsdl.org> parents: diff changeset	61 k = k + n;
a98604b691c8 Expanded the libm support and put it into a separate directory. Sam Lantinga <slouken@libsdl.org> parents: diff changeset	62 if (k > 0x7fe)
a98604b691c8 Expanded the libm support and put it into a separate directory. Sam Lantinga <slouken@libsdl.org> parents: diff changeset	63 return huge * copysign(huge, x); /* overflow */
a98604b691c8 Expanded the libm support and put it into a separate directory. Sam Lantinga <slouken@libsdl.org> parents: diff changeset	64 if (k > 0) { /* normal result */
a98604b691c8 Expanded the libm support and put it into a separate directory. Sam Lantinga <slouken@libsdl.org> parents: diff changeset	65 SET_HIGH_WORD(x, (hx & 0x800fffff) \| (k << 20));
a98604b691c8 Expanded the libm support and put it into a separate directory. Sam Lantinga <slouken@libsdl.org> parents: diff changeset	66 return x;
a98604b691c8 Expanded the libm support and put it into a separate directory. Sam Lantinga <slouken@libsdl.org> parents: diff changeset	67 }
a98604b691c8 Expanded the libm support and put it into a separate directory. Sam Lantinga <slouken@libsdl.org> parents: diff changeset	68 if (k <= -54) {
a98604b691c8 Expanded the libm support and put it into a separate directory. Sam Lantinga <slouken@libsdl.org> parents: diff changeset	69 if (n > 50000) /* in case integer overflow in n+k */
a98604b691c8 Expanded the libm support and put it into a separate directory. Sam Lantinga <slouken@libsdl.org> parents: diff changeset	70 return huge * copysign(huge, x); /overflow /
a98604b691c8 Expanded the libm support and put it into a separate directory. Sam Lantinga <slouken@libsdl.org> parents: diff changeset	71 else
a98604b691c8 Expanded the libm support and put it into a separate directory. Sam Lantinga <slouken@libsdl.org> parents: diff changeset	72 return tiny * copysign(tiny, x); /underflow /
a98604b691c8 Expanded the libm support and put it into a separate directory. Sam Lantinga <slouken@libsdl.org> parents: diff changeset	73 }
a98604b691c8 Expanded the libm support and put it into a separate directory. Sam Lantinga <slouken@libsdl.org> parents: diff changeset	74 k += 54; /* subnormal result */
a98604b691c8 Expanded the libm support and put it into a separate directory. Sam Lantinga <slouken@libsdl.org> parents: diff changeset	75 SET_HIGH_WORD(x, (hx & 0x800fffff) \| (k << 20));
a98604b691c8 Expanded the libm support and put it into a separate directory. Sam Lantinga <slouken@libsdl.org> parents: diff changeset	76 return x * twom54;
a98604b691c8 Expanded the libm support and put it into a separate directory. Sam Lantinga <slouken@libsdl.org> parents: diff changeset	77 }
a98604b691c8 Expanded the libm support and put it into a separate directory. Sam Lantinga <slouken@libsdl.org> parents: diff changeset	78
a98604b691c8 Expanded the libm support and put it into a separate directory. Sam Lantinga <slouken@libsdl.org> parents: diff changeset	79 libm_hidden_def(scalbn)

Mercurial > sdl-ios-xcode

annotate src/libm/s_scalbn.c @ 3092:cad1aefa2ed9