github/amiga-clib2
1
0
Fork 0
mirror of https://github.com/adtools/clib2.git synced 2025-12-08 14:59:05 +00:00
Code Issues Releases Wiki Activity

Compare commits

base: github:V1_171
Branches Tags
github:master github:development github:make-cleanups
github:V1_215 github:V1_214 github:V1_213 github:V1_212 github:V2_212 github:V1_211 github:V1_210 github:V1_209 github:V1_208 github:V1_207 github:V1_206 github:V1_205 github:V1_203 github:V1_202 github:V1_201 github:V1_200 github:V1_199 github:V1_197 github:V1_195 github:LIB_V1_2 github:LIB_V1_1 github:V1_193 github:BEFORE_CONSTRUCTOR_CHANGE github:V1_188 github:V1_187 github:V1_186 github:V1_185 github:V1_184 github:V1_183 github:V1_182 github:V1_180 github:V1_179 github:V1_178 github:V1_176 github:V1_175 github:V1_173 github:V1_172 github:V1_171 github:V1_170 github:V1_169 github:V1_168 github:V1_166 github:start github:MAIN
..
compare: github:V1_172
Branches Tags
github:development github:master github:make-cleanups
github:V1_215 github:V1_214 github:V1_213 github:V1_212 github:V2_212 github:V1_211 github:V1_210 github:V1_209 github:V1_208 github:V1_207 github:V1_206 github:V1_205 github:V1_203 github:V1_202 github:V1_201 github:V1_200 github:V1_199 github:V1_197 github:V1_195 github:LIB_V1_2 github:LIB_V1_1 github:V1_193 github:BEFORE_CONSTRUCTOR_CHANGE github:V1_188 github:V1_187 github:V1_186 github:V1_185 github:V1_184 github:V1_183 github:V1_182 github:V1_180 github:V1_179 github:V1_178 github:V1_176 github:V1_175 github:V1_173 github:V1_172 github:V1_171 github:V1_170 github:V1_169 github:V1_168 github:V1_166 github:start github:MAIN

2 Commits
V1_171 ... V1_172

Author SHA1 Message Date
Olaf Barthel
d308d79f85 This commit was manufactured by cvs2svn to create tag 'V1_172'. 
git-svn-id: file:///Users/olsen/Code/migration-svn-zu-git/logical-line-staging/clib2/tags/V1_172@14714 87f5fb63-7c3d-0410-a384-fd976d0f7a62
 2004-08-21 18:57:42 +00:00
Olaf Barthel
916dfa3c6a c.lib 1.172 (21.8.2004) 
- acos() now returns 0 for a domain error.

- asin() now returns 0 for a domain error.

- atan2() now returns 0 for a domain error.

- fmod() now returns x if y == 0 and sets a
  domain error.

- sqrt() now returns 0 for a domain error.

- Added NaN and +Inf constants to the math library
  initialization code which could come in handy later.


git-svn-id: file:///Users/olsen/Code/migration-svn-zu-git/logical-line-staging/clib2/trunk@14713 87f5fb63-7c3d-0410-a384-fd976d0f7a62
 2004-08-21 18:57:41 +00:00
26 changed files with 138 additions and 74 deletions
Expand all files Collapse all files

10
library/amiga.lib_rev.h
View File

@@ -1,6 +1,6 @@
#define VERSION 1 #define VERSION 1
#define REVISION 171 #define REVISION 172
#define DATE "16.8.2004" #define DATE "21.8.2004"
#define VERS "amiga.lib 1.171" #define VERS "amiga.lib 1.172"
#define VSTRING "amiga.lib 1.171 (16.8.2004)\r\n" #define VSTRING "amiga.lib 1.172 (21.8.2004)\r\n"
#define VERSTAG "\0$VER: amiga.lib 1.171 (16.8.2004)" #define VERSTAG "\0$VER: amiga.lib 1.172 (21.8.2004)"

2
library/amiga.lib_rev.rev
View File

@@ -1 +1 @@
171 172

10
library/c.lib_rev.h
View File

@@ -1,6 +1,6 @@
#define VERSION 1 #define VERSION 1
#define REVISION 171 #define REVISION 172
#define DATE "16.8.2004" #define DATE "21.8.2004"
#define VERS "c.lib 1.171" #define VERS "c.lib 1.172"
#define VSTRING "c.lib 1.171 (16.8.2004)\r\n" #define VSTRING "c.lib 1.172 (21.8.2004)\r\n"
#define VERSTAG "\0$VER: c.lib 1.171 (16.8.2004)" #define VERSTAG "\0$VER: c.lib 1.172 (21.8.2004)"

2
library/c.lib_rev.rev
View File

@@ -1 +1 @@
171 172

17
library/changes
View File

@@ -1,3 +1,20 @@
c.lib 1.172 (21.8.2004)
- acos() now returns 0 for a domain error.
- asin() now returns 0 for a domain error.
- atan2() now returns 0 for a domain error.
- fmod() now returns x if y == 0 and sets a
domain error.
- sqrt() now returns 0 for a domain error.
- Added NaN and +Inf constants to the math library
initialization code which could come in handy later.
c.lib 1.171 (16.8.2004) c.lib 1.171 (16.8.2004)
- Added "math_hypot.c" - Added "math_hypot.c"

10
library/debug.lib_rev.h
View File

@@ -1,6 +1,6 @@
#define VERSION 1 #define VERSION 1
#define REVISION 171 #define REVISION 172
#define DATE "16.8.2004" #define DATE "21.8.2004"
#define VERS "debug.lib 1.171" #define VERS "debug.lib 1.172"
#define VSTRING "debug.lib 1.171 (16.8.2004)\r\n" #define VSTRING "debug.lib 1.172 (21.8.2004)\r\n"
#define VERSTAG "\0$VER: debug.lib 1.171 (16.8.2004)" #define VERSTAG "\0$VER: debug.lib 1.172 (21.8.2004)"

2
library/debug.lib_rev.rev
View File

@@ -1 +1 @@
171 172

10
library/m.lib_rev.h
View File

@@ -1,6 +1,6 @@
#define VERSION 1 #define VERSION 1
#define REVISION 171 #define REVISION 172
#define DATE "16.8.2004" #define DATE "21.8.2004"
#define VERS "m.lib 1.171" #define VERS "m.lib 1.172"
#define VSTRING "m.lib 1.171 (16.8.2004)\r\n" #define VSTRING "m.lib 1.172 (21.8.2004)\r\n"
#define VERSTAG "\0$VER: m.lib 1.171 (16.8.2004)" #define VERSTAG "\0$VER: m.lib 1.172 (21.8.2004)"

2
library/m.lib_rev.rev
View File

@@ -1 +1 @@
171 172

10
library/m881.lib_rev.h
View File

@@ -1,6 +1,6 @@
#define VERSION 1 #define VERSION 1
#define REVISION 171 #define REVISION 172
#define DATE "16.8.2004" #define DATE "21.8.2004"
#define VERS "m881.lib 1.171" #define VERS "m881.lib 1.172"
#define VSTRING "m881.lib 1.171 (16.8.2004)\r\n" #define VSTRING "m881.lib 1.172 (21.8.2004)\r\n"
#define VERSTAG "\0$VER: m881.lib 1.171 (16.8.2004)" #define VERSTAG "\0$VER: m881.lib 1.172 (21.8.2004)"

2
library/m881.lib_rev.rev
View File

@@ -1 +1 @@
171 172

4
library/math_acos.c
View File

@@ -1,5 +1,5 @@
/* /*
* $Id: math_acos.c,v 1.1.1.1 2004-07-26 16:30:37 obarthel Exp $ * $Id: math_acos.c,v 1.2 2004-08-21 18:57:40 obarthel Exp $
* *
* :ts=4 * :ts=4
* *
@@ -226,7 +226,7 @@ acos(double x)
} }
else else
{ {
result = HUGE_VAL; result = 0;
errno = EDOM; errno = EDOM;
} }

4
library/math_asin.c
View File

@@ -1,5 +1,5 @@
/* /*
* $Id: math_asin.c,v 1.1.1.1 2004-07-26 16:30:38 obarthel Exp $ * $Id: math_asin.c,v 1.2 2004-08-21 18:57:40 obarthel Exp $
* *
* :ts=4 * :ts=4
* *
@@ -237,7 +237,7 @@ asin(double x)
} }
else else
{ {
result = HUGE_VAL; result = 0;
errno = EDOM; errno = EDOM;
} }

19
library/math_atan2.c
View File

@@ -1,5 +1,5 @@
/* /*
* $Id: math_atan2.c,v 1.1.1.1 2004-07-26 16:30:39 obarthel Exp $ * $Id: math_atan2.c,v 1.2 2004-08-21 18:57:40 obarthel Exp $
* *
* :ts=4 * :ts=4
* *
@@ -107,7 +107,7 @@ __atan2(double x,double y)
} }
else else
{ {
result = HUGE_VAL; result = 0;
errno = EDOM; errno = EDOM;
} }
} }
@@ -186,7 +186,7 @@ __atan2(double x,double y)
} }
else else
{ {
result = HUGE_VAL; result = 0;
errno = EDOM; errno = EDOM;
} }
} }
@@ -201,9 +201,6 @@ __atan2(double x,double y)
#if defined(PPC_FLOATING_POINT_SUPPORT) #if defined(PPC_FLOATING_POINT_SUPPORT)
static const double static const double
tiny = 1.0e-300, tiny = 1.0e-300,
zero = 0.0, zero = 0.0,
@@ -326,15 +323,7 @@ atan2(double x,double y)
{ {
double result; double result;
if(x != 0.0 && y != 0.0) result = __atan2(x,y);
{
result = __atan2(x,y);
}
else
{
result = HUGE_VAL;
errno = EDOM;
}
return(result); return(result);
} }

4
library/math_data.c
View File

@@ -1,5 +1,5 @@
/* /*
* $Id: math_data.c,v 1.1.1.1 2004-07-26 16:30:40 obarthel Exp $ * $Id: math_data.c,v 1.2 2004-08-21 18:57:40 obarthel Exp $
* *
* :ts=4 * :ts=4
* *
@@ -48,3 +48,5 @@ struct Library * MathIeeeDoubTransBase;
/****************************************************************************/ /****************************************************************************/
double __huge_val; double __huge_val;
double __not_a_number;
double __infinity;

4
library/math_fmod.c
View File

@@ -1,5 +1,5 @@
/* /*
* $Id: math_fmod.c,v 1.1.1.1 2004-07-26 16:30:44 obarthel Exp $ * $Id: math_fmod.c,v 1.2 2004-08-21 18:57:40 obarthel Exp $
* *
* :ts=4 * :ts=4
* *
@@ -284,7 +284,7 @@ fmod(double x,double y)
} }
else else
{ {
result = HUGE_VAL; result = x;
errno = EDOM; errno = EDOM;
} }

7
library/math_headers.h
View File

@@ -1,5 +1,5 @@
/* /*
* $Id: math_headers.h,v 1.2 2004-08-12 12:31:16 obarthel Exp $ * $Id: math_headers.h,v 1.3 2004-08-21 18:57:40 obarthel Exp $
* *
* :ts=4 * :ts=4
* *
@@ -165,4 +165,9 @@ extern double __scalbn(double x, int n);
/****************************************************************************/ /****************************************************************************/
extern double __not_a_number;
extern double __infinity;
/****************************************************************************/
#endif /* _MATH_HEADERS_H */ #endif /* _MATH_HEADERS_H */

44
library/math_init_exit.c
View File

@@ -1,5 +1,5 @@
/* /*
* $Id: math_init_exit.c,v 1.2 2004-08-08 10:55:57 obarthel Exp $ * $Id: math_init_exit.c,v 1.3 2004-08-21 18:57:40 obarthel Exp $
* *
* :ts=4 * :ts=4
* *
@@ -130,9 +130,23 @@ __math_init(void)
0x7f7fffff 0x7f7fffff
}; };
static const unsigned long not_a_number[1] =
{
/* Exponent = 255 and fraction != 0.0 */
0x7fffffff
};
static const unsigned long infinity[1] =
{
/* Exponent = 255 and fraction = 0.0 */
0x7f800000
};
assert( sizeof(largest_fp_value) == sizeof(__huge_val) ); assert( sizeof(largest_fp_value) == sizeof(__huge_val) );
memmove((void *)&__huge_val,largest_fp_value,sizeof(largest_fp_value)); memmove((void *)&__huge_val,largest_fp_value,sizeof(largest_fp_value));
memmove((void *)&__not_a_number,not_a_number,sizeof(not_a_number));
memmove((void *)&__infinity,infinity,sizeof(infinity));
} }
else if (sizeof(__huge_val) == 8) /* double precision */ else if (sizeof(__huge_val) == 8) /* double precision */
{ {
@@ -142,9 +156,23 @@ __math_init(void)
0x7fefffff,0xffffffff 0x7fefffff,0xffffffff
}; };
static const unsigned long not_a_number[2] =
{
/* Exponent = 2047 and fraction != 0.0 */
0x7fffffff,0xffffffff
};
static const unsigned long infinity[2] =
{
/* Exponent = 2047 and fraction = 0.0 */
0x7ff00000,0x00000000
};
assert( sizeof(largest_fp_value) == sizeof(__huge_val) ); assert( sizeof(largest_fp_value) == sizeof(__huge_val) );
memmove((void *)&__huge_val,largest_fp_value,sizeof(largest_fp_value)); memmove((void *)&__huge_val,largest_fp_value,sizeof(largest_fp_value));
memmove((void *)&__not_a_number,not_a_number,sizeof(not_a_number));
memmove((void *)&__infinity,infinity,sizeof(infinity));
} }
#if defined(USE_LONG_DOUBLE) #if defined(USE_LONG_DOUBLE)
else if (sizeof(__huge_val) == 12) /* extended precision */ else if (sizeof(__huge_val) == 12) /* extended precision */
@@ -155,9 +183,23 @@ __math_init(void)
0x7ffe0000,0xffffffff,0xffffffff 0x7ffe0000,0xffffffff,0xffffffff
}; };
static const unsigned long not_a_number[3] =
{
/* Exponent = 32767 and fraction != 0.0 */
0x7fff0000,0xffffffff,0xffffffff
};
static const unsigned long infinity[3] =
{
/* Exponent = 32767 and fraction = 0.0 */
0x7fff0000,0x00000000,0x00000000
};
assert( sizeof(largest_fp_value) == sizeof(__huge_val) ); assert( sizeof(largest_fp_value) == sizeof(__huge_val) );
memmove((void *)&__huge_val,largest_fp_value,sizeof(largest_fp_value)); memmove((void *)&__huge_val,largest_fp_value,sizeof(largest_fp_value));
memmove((void *)&__not_a_number,not_a_number,sizeof(not_a_number));
memmove((void *)&__infinity,infinity,sizeof(infinity));
} }
#endif /* USE_LONG_DOUBLE */ #endif /* USE_LONG_DOUBLE */

4
library/math_sqrt.c
View File

@@ -1,5 +1,5 @@
/* /*
* $Id: math_sqrt.c,v 1.1.1.1 2004-07-26 16:30:53 obarthel Exp $ * $Id: math_sqrt.c,v 1.2 2004-08-21 18:57:40 obarthel Exp $
* *
* :ts=4 * :ts=4
* *
@@ -251,7 +251,7 @@ sqrt(double x)
} }
else else
{ {
result = HUGE_VAL; result = 0;
errno = EDOM; errno = EDOM;
} }

10
library/net.lib_rev.h
View File

@@ -1,6 +1,6 @@
#define VERSION 1 #define VERSION 1
#define REVISION 171 #define REVISION 172
#define DATE "16.8.2004" #define DATE "21.8.2004"
#define VERS "net.lib 1.171" #define VERS "net.lib 1.172"
#define VSTRING "net.lib 1.171 (16.8.2004)\r\n" #define VSTRING "net.lib 1.172 (21.8.2004)\r\n"
#define VERSTAG "\0$VER: net.lib 1.171 (16.8.2004)" #define VERSTAG "\0$VER: net.lib 1.172 (21.8.2004)"

2
library/net.lib_rev.rev
View File

@@ -1 +1 @@
171 172

9
library/releasenotes
View File

@@ -1,3 +1,12 @@
c.lib 1.172 (21.8.2004)
- Changed the values which the acos(), asin(), atan2(), fmod()
and sqrt() functions return when they find that their parameters
are invalid.
- The atan2() function failed to perform a correct parameter check.
c.lib 1.171 (16.8.2004) c.lib 1.171 (16.8.2004)
- Added hypot() - Added hypot()

10
library/stack.lib_rev.h
View File

@@ -1,6 +1,6 @@
#define VERSION 1 #define VERSION 1
#define REVISION 171 #define REVISION 172
#define DATE "16.8.2004" #define DATE "21.8.2004"
#define VERS "stack.lib 1.171" #define VERS "stack.lib 1.172"
#define VSTRING "stack.lib 1.171 (16.8.2004)\r\n" #define VSTRING "stack.lib 1.172 (21.8.2004)\r\n"
#define VERSTAG "\0$VER: stack.lib 1.171 (16.8.2004)" #define VERSTAG "\0$VER: stack.lib 1.172 (21.8.2004)"

2
library/stack.lib_rev.rev
View File

@@ -1 +1 @@
171 172

10
library/unix.lib_rev.h
View File

@@ -1,6 +1,6 @@
#define VERSION 1 #define VERSION 1
#define REVISION 171 #define REVISION 172
#define DATE "16.8.2004" #define DATE "21.8.2004"
#define VERS "unix.lib 1.171" #define VERS "unix.lib 1.172"
#define VSTRING "unix.lib 1.171 (16.8.2004)\r\n" #define VSTRING "unix.lib 1.172 (21.8.2004)\r\n"
#define VERSTAG "\0$VER: unix.lib 1.171 (16.8.2004)" #define VERSTAG "\0$VER: unix.lib 1.172 (21.8.2004)"

2
library/unix.lib_rev.rev
View File

@@ -1 +1 @@
171 172