mirror of
https://github.com/adtools/clib2.git
synced 2025-12-08 14:59:05 +00:00
c.lib 1.171 (16.8.2004)
- Added "math_hypot.c" - The 68k build makefile now builds the vfprintf/vfscanf functions with %lld/%llu support. - Split the release notes file into changes and actual release notes, which may overlap but differ in technical content. git-svn-id: file:///Users/olsen/Code/migration-svn-zu-git/logical-line-staging/clib2/trunk@14711 87f5fb63-7c3d-0410-a384-fd976d0f7a62
This commit is contained in:
Olaf Barthel
@ -1,5 +1,5 @@
|
||||
#
|
||||
# $Id: GNUmakefile.68k,v 1.5 2004-08-14 08:54:25 obarthel Exp $
|
||||
# $Id: GNUmakefile.68k,v 1.6 2004-08-16 09:33:11 obarthel Exp $
|
||||
#
|
||||
# :ts=8
|
||||
#
|
||||
@ -103,9 +103,9 @@ WARNINGS = \
|
||||
-Wundef -Wbad-function-cast -Wmissing-declarations -Wconversion
|
||||
|
||||
INCLUDES = -Iinclude -I. -Inetinclude
|
||||
OPTIONS = -DNDEBUG -fno-builtin -DNO_INLINE_STDARG
|
||||
#OPTIONS = -D__MEM_DEBUG -fno-builtin
|
||||
#OPTIONS = -DDEBUG -D__MEM_DEBUG -DNO_INLINE_STDARG -fno-builtin
|
||||
OPTIONS = -DUSE_64_BIT_INTS -DNDEBUG -fno-builtin -DNO_INLINE_STDARG
|
||||
#OPTIONS = -DUSE_64_BIT_INTS -D__MEM_DEBUG -fno-builtin
|
||||
#OPTIONS = -DUSE_64_BIT_INTS -DDEBUG -D__MEM_DEBUG -DNO_INLINE_STDARG -fno-builtin
|
||||
OPTIMIZE = -O
|
||||
#OPTIMIZE = -O2 -fomit-frame-pointer
|
||||
#DEBUG = -g2
|
||||
@ -452,6 +452,7 @@ MATH_LIB = \
|
||||
math_floor.o \
|
||||
math_fmod.o \
|
||||
math_frexp.o \
|
||||
math_hypot.o \
|
||||
math_init_exit.o \
|
||||
math_isinf.o \
|
||||
math_isnan.o \
|
||||
|
||||
@ -1,5 +1,5 @@
|
||||
#
|
||||
# $Id: GNUmakefile.os4,v 1.4 2004-08-12 12:31:15 obarthel Exp $
|
||||
# $Id: GNUmakefile.os4,v 1.5 2004-08-16 09:33:11 obarthel Exp $
|
||||
#
|
||||
# :ts=8
|
||||
#
|
||||
@ -444,6 +444,7 @@ MATH_LIB = \
|
||||
math_floor.o \
|
||||
math_fmod.o \
|
||||
math_frexp.o \
|
||||
math_hypot.o \
|
||||
math_init_exit.o \
|
||||
math_isnan.o \
|
||||
math_isinf.o \
|
||||
|
||||
@ -1,6 +1,6 @@
|
||||
#define VERSION 1
|
||||
#define REVISION 170
|
||||
#define DATE "14.8.2004"
|
||||
#define VERS "amiga.lib 1.170"
|
||||
#define VSTRING "amiga.lib 1.170 (14.8.2004)\r\n"
|
||||
#define VERSTAG "\0$VER: amiga.lib 1.170 (14.8.2004)"
|
||||
#define REVISION 171
|
||||
#define DATE "16.8.2004"
|
||||
#define VERS "amiga.lib 1.171"
|
||||
#define VSTRING "amiga.lib 1.171 (16.8.2004)\r\n"
|
||||
#define VERSTAG "\0$VER: amiga.lib 1.171 (16.8.2004)"
|
||||
|
||||
@ -1 +1 @@
|
||||
170
|
||||
171
|
||||
|
||||
@ -1,6 +1,6 @@
|
||||
#define VERSION 1
|
||||
#define REVISION 170
|
||||
#define DATE "14.8.2004"
|
||||
#define VERS "c.lib 1.170"
|
||||
#define VSTRING "c.lib 1.170 (14.8.2004)\r\n"
|
||||
#define VERSTAG "\0$VER: c.lib 1.170 (14.8.2004)"
|
||||
#define REVISION 171
|
||||
#define DATE "16.8.2004"
|
||||
#define VERS "c.lib 1.171"
|
||||
#define VSTRING "c.lib 1.171 (16.8.2004)\r\n"
|
||||
#define VERSTAG "\0$VER: c.lib 1.171 (16.8.2004)"
|
||||
|
||||
@ -1 +1 @@
|
||||
170
|
||||
171
|
||||
|
||||
3100
library/changes
Normal file
3100
library/changes
Normal file
File diff suppressed because it is too large
Load Diff
@ -1,6 +1,6 @@
|
||||
#define VERSION 1
|
||||
#define REVISION 170
|
||||
#define DATE "14.8.2004"
|
||||
#define VERS "debug.lib 1.170"
|
||||
#define VSTRING "debug.lib 1.170 (14.8.2004)\r\n"
|
||||
#define VERSTAG "\0$VER: debug.lib 1.170 (14.8.2004)"
|
||||
#define REVISION 171
|
||||
#define DATE "16.8.2004"
|
||||
#define VERS "debug.lib 1.171"
|
||||
#define VSTRING "debug.lib 1.171 (16.8.2004)\r\n"
|
||||
#define VERSTAG "\0$VER: debug.lib 1.171 (16.8.2004)"
|
||||
|
||||
@ -1 +1 @@
|
||||
170
|
||||
171
|
||||
|
||||
@ -1,5 +1,5 @@
|
||||
/*
|
||||
* $Id: math.h,v 1.3 2004-08-12 12:31:29 obarthel Exp $
|
||||
* $Id: math.h,v 1.4 2004-08-16 09:33:13 obarthel Exp $
|
||||
*
|
||||
* :ts=4
|
||||
*
|
||||
@ -90,6 +90,7 @@ extern float rintf(float x);
|
||||
extern int isinf(double x);
|
||||
extern int isnan(double x);
|
||||
extern double logb(double x);
|
||||
extern double hypot(double x,double y);
|
||||
|
||||
/****************************************************************************/
|
||||
|
||||
|
||||
@ -1,6 +1,6 @@
|
||||
#define VERSION 1
|
||||
#define REVISION 170
|
||||
#define DATE "14.8.2004"
|
||||
#define VERS "m.lib 1.170"
|
||||
#define VSTRING "m.lib 1.170 (14.8.2004)\r\n"
|
||||
#define VERSTAG "\0$VER: m.lib 1.170 (14.8.2004)"
|
||||
#define REVISION 171
|
||||
#define DATE "16.8.2004"
|
||||
#define VERS "m.lib 1.171"
|
||||
#define VSTRING "m.lib 1.171 (16.8.2004)\r\n"
|
||||
#define VERSTAG "\0$VER: m.lib 1.171 (16.8.2004)"
|
||||
|
||||
@ -1 +1 @@
|
||||
170
|
||||
171
|
||||
|
||||
@ -1,6 +1,6 @@
|
||||
#define VERSION 1
|
||||
#define REVISION 170
|
||||
#define DATE "14.8.2004"
|
||||
#define VERS "m881.lib 1.170"
|
||||
#define VSTRING "m881.lib 1.170 (14.8.2004)\r\n"
|
||||
#define VERSTAG "\0$VER: m881.lib 1.170 (14.8.2004)"
|
||||
#define REVISION 171
|
||||
#define DATE "16.8.2004"
|
||||
#define VERS "m881.lib 1.171"
|
||||
#define VSTRING "m881.lib 1.171 (16.8.2004)\r\n"
|
||||
#define VERSTAG "\0$VER: m881.lib 1.171 (16.8.2004)"
|
||||
|
||||
@ -1 +1 @@
|
||||
170
|
||||
171
|
||||
|
||||
171
library/math_hypot.c
Normal file
171
library/math_hypot.c
Normal file
@ -0,0 +1,171 @@
|
||||
/*
|
||||
* $Id: math_hypot.c,v 1.1 2004-08-16 09:33:11 obarthel Exp $
|
||||
*
|
||||
* :ts=4
|
||||
*
|
||||
* Portable ISO 'C' (1994) runtime library for the Amiga computer
|
||||
* Copyright (c) 2002-2004 by Olaf Barthel <olsen@sourcery.han.de>
|
||||
* All rights reserved.
|
||||
*
|
||||
* Redistribution and use in source and binary forms, with or without
|
||||
* modification, are permitted provided that the following conditions
|
||||
* are met:
|
||||
*
|
||||
* - Redistributions of source code must retain the above copyright
|
||||
* notice, this list of conditions and the following disclaimer.
|
||||
*
|
||||
* - Neither the name of Olaf Barthel nor the names of contributors
|
||||
* may be used to endorse or promote products derived from this
|
||||
* software without specific prior written permission.
|
||||
*
|
||||
* THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"
|
||||
* AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
|
||||
* IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
|
||||
* ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE
|
||||
* LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
|
||||
* CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
|
||||
* SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
|
||||
* INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
|
||||
* CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
|
||||
* ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
|
||||
* POSSIBILITY OF SUCH DAMAGE.
|
||||
*
|
||||
*
|
||||
* PowerPC math library based in part on work by Sun Microsystems
|
||||
* Copyright (C) 1993 by Sun Microsystems, Inc. All rights reserved.
|
||||
*
|
||||
* Developed at SunPro, a Sun Microsystems, Inc. business.
|
||||
* Permission to use, copy, modify, and distribute this
|
||||
* software is freely granted, provided that this notice
|
||||
* is preserved.
|
||||
*/
|
||||
|
||||
#ifndef _MATH_HEADERS_H
|
||||
#include "math_headers.h"
|
||||
#endif /* _MATH_HEADERS_H */
|
||||
|
||||
/****************************************************************************/
|
||||
|
||||
#if defined(FLOATING_POINT_SUPPORT)
|
||||
|
||||
/****************************************************************************/
|
||||
|
||||
#if defined(IEEE_FLOATING_POINT_SUPPORT) || defined(M68881_FLOATING_POINT_SUPPORT)
|
||||
|
||||
INLINE static const double
|
||||
__hypot(double x,double y)
|
||||
{
|
||||
double yx;
|
||||
|
||||
x = fabs(x);
|
||||
y = fabs(y);
|
||||
if ( x < y )
|
||||
{
|
||||
double temp = x;
|
||||
x = y;
|
||||
y = temp;
|
||||
}
|
||||
|
||||
if (x == 0.)
|
||||
{
|
||||
return 0.;
|
||||
}
|
||||
else
|
||||
{
|
||||
yx = y/x;
|
||||
return x*sqrt(1. + yx*yx);
|
||||
}
|
||||
}
|
||||
|
||||
#endif /* IEEE_FLOATING_POINT_SUPPORT || M68881_FLOATING_POINT_SUPPORT */
|
||||
|
||||
/****************************************************************************/
|
||||
|
||||
#if defined(PPC_FLOATING_POINT_SUPPORT)
|
||||
|
||||
static const double one = 1.0;
|
||||
|
||||
INLINE static const double
|
||||
__hypot(double x,double y)
|
||||
{
|
||||
int n0;
|
||||
double a=x,b=y,t1,t2,y1,y2,w;
|
||||
int j,k,ha,hb;
|
||||
|
||||
n0 = ((*(int*)&one)>>29)^1; /* high word index */
|
||||
ha = *(n0+(int*)&x)&0x7fffffff; /* high word of x */
|
||||
hb = *(n0+(int*)&y)&0x7fffffff; /* high word of y */
|
||||
if(hb > ha) {a=y;b=x;j=ha; ha=hb;hb=j;} else {a=x;b=y;}
|
||||
*(n0+(int*)&a) = ha; /* a <- |a| */
|
||||
*(n0+(int*)&b) = hb; /* b <- |b| */
|
||||
if((ha-hb)>0x3c00000) {return a+b;} /* x/y > 2**60 */
|
||||
k=0;
|
||||
if(ha > 0x5f300000) { /* a>2**500 */
|
||||
if(ha >= 0x7ff00000) { /* Inf or NaN */
|
||||
w = a+b; /* for sNaN */
|
||||
if(((ha&0xfffff)|*(1-n0+(int*)&a))==0) w = a;
|
||||
if(((hb^0x7ff00000)|*(1-n0+(int*)&b))==0) w = b;
|
||||
return w;
|
||||
}
|
||||
/* scale a and b by 2**-600 */
|
||||
ha -= 0x25800000; hb -= 0x25800000; k += 600;
|
||||
*(n0+(int*)&a) = ha;
|
||||
*(n0+(int*)&b) = hb;
|
||||
}
|
||||
if(hb < 0x20b00000) { /* b < 2**-500 */
|
||||
if(hb <= 0x000fffff) { /* subnormal b or 0 */
|
||||
if((hb|(*(1-n0+(int*)&b)))==0) return a;
|
||||
t1=0;
|
||||
*(n0+(int*)&t1) = 0x7fd00000; /* t1=2^1022 */
|
||||
b *= t1;
|
||||
a *= t1;
|
||||
k -= 1022;
|
||||
} else { /* scale a and b by 2^600 */
|
||||
ha += 0x25800000; /* a *= 2^600 */
|
||||
hb += 0x25800000; /* b *= 2^600 */
|
||||
k -= 600;
|
||||
*(n0+(int*)&a) = ha;
|
||||
*(n0+(int*)&b) = hb;
|
||||
}
|
||||
}
|
||||
/* medium size a and b */
|
||||
w = a-b;
|
||||
if (w>b) {
|
||||
t1 = 0;
|
||||
*(n0+(int*)&t1) = ha;
|
||||
t2 = a-t1;
|
||||
w = sqrt(t1*t1-(b*(-b)-t2*(a+t1)));
|
||||
} else {
|
||||
a = a+a;
|
||||
y1 = 0;
|
||||
*(n0+(int*)&y1) = hb;
|
||||
y2 = b - y1;
|
||||
t1 = 0;
|
||||
*(n0+(int*)&t1) = ha+0x00100000;
|
||||
t2 = a - t1;
|
||||
w = sqrt(t1*y1-(w*(-w)-(t1*y2+t2*b)));
|
||||
}
|
||||
if(k!=0) {
|
||||
t1 = 1.0;
|
||||
*(n0+(int*)&t1) += (k<<20);
|
||||
return t1*w;
|
||||
} else return w;
|
||||
}
|
||||
|
||||
#endif /* PPC_FLOATING_POINT_SUPPORT */
|
||||
|
||||
/****************************************************************************/
|
||||
|
||||
double
|
||||
hypot(double x,double y)
|
||||
{
|
||||
double result;
|
||||
|
||||
result = __hypot(x,y);
|
||||
|
||||
return(result);
|
||||
}
|
||||
|
||||
/****************************************************************************/
|
||||
|
||||
#endif /* FLOATING_POINT_SUPPORT */
|
||||
@ -1,6 +1,6 @@
|
||||
#define VERSION 1
|
||||
#define REVISION 170
|
||||
#define DATE "14.8.2004"
|
||||
#define VERS "net.lib 1.170"
|
||||
#define VSTRING "net.lib 1.170 (14.8.2004)\r\n"
|
||||
#define VERSTAG "\0$VER: net.lib 1.170 (14.8.2004)"
|
||||
#define REVISION 171
|
||||
#define DATE "16.8.2004"
|
||||
#define VERS "net.lib 1.171"
|
||||
#define VSTRING "net.lib 1.171 (16.8.2004)\r\n"
|
||||
#define VERSTAG "\0$VER: net.lib 1.171 (16.8.2004)"
|
||||
|
||||
@ -1 +1 @@
|
||||
170
|
||||
171
|
||||
|
||||
3091
library/releasenotes
3091
library/releasenotes
File diff suppressed because it is too large
Load Diff
@ -1,5 +1,5 @@
|
||||
#
|
||||
# $Id: smakefile,v 1.5 2004-08-12 12:31:27 obarthel Exp $
|
||||
# $Id: smakefile,v 1.6 2004-08-16 09:33:12 obarthel Exp $
|
||||
#
|
||||
# :ts=8
|
||||
#
|
||||
@ -189,6 +189,7 @@ MATH_OBJ = \
|
||||
math_floor.o \
|
||||
math_fmod.o \
|
||||
math_frexp.o \
|
||||
math_hypot.o \
|
||||
math_init_exit.o \
|
||||
math_isinf.o \
|
||||
math_isnan.o \
|
||||
|
||||
@ -1,6 +1,6 @@
|
||||
#define VERSION 1
|
||||
#define REVISION 170
|
||||
#define DATE "14.8.2004"
|
||||
#define VERS "stack.lib 1.170"
|
||||
#define VSTRING "stack.lib 1.170 (14.8.2004)\r\n"
|
||||
#define VERSTAG "\0$VER: stack.lib 1.170 (14.8.2004)"
|
||||
#define REVISION 171
|
||||
#define DATE "16.8.2004"
|
||||
#define VERS "stack.lib 1.171"
|
||||
#define VSTRING "stack.lib 1.171 (16.8.2004)\r\n"
|
||||
#define VERSTAG "\0$VER: stack.lib 1.171 (16.8.2004)"
|
||||
|
||||
@ -1 +1 @@
|
||||
170
|
||||
171
|
||||
|
||||
@ -1,6 +1,6 @@
|
||||
#define VERSION 1
|
||||
#define REVISION 170
|
||||
#define DATE "14.8.2004"
|
||||
#define VERS "unix.lib 1.170"
|
||||
#define VSTRING "unix.lib 1.170 (14.8.2004)\r\n"
|
||||
#define VERSTAG "\0$VER: unix.lib 1.170 (14.8.2004)"
|
||||
#define REVISION 171
|
||||
#define DATE "16.8.2004"
|
||||
#define VERS "unix.lib 1.171"
|
||||
#define VSTRING "unix.lib 1.171 (16.8.2004)\r\n"
|
||||
#define VERSTAG "\0$VER: unix.lib 1.171 (16.8.2004)"
|
||||
|
||||
@ -1 +1 @@
|
||||
170
|
||||
171
|
||||
|
||||
Reference in New Issue
Block a user