1
0
mirror of https://github.com/adtools/clib2.git synced 2025-12-08 14:59:05 +00:00

21 Commits

Author SHA1 Message Date
Olaf Barthel
69d7d50c6f This commit was manufactured by cvs2svn to create tag 'V1_173'.
git-svn-id: file:///Users/olsen/Code/migration-svn-zu-git/logical-line-staging/clib2/tags/V1_173@14717 87f5fb63-7c3d-0410-a384-fd976d0f7a62
2004-08-25 15:27:29 +00:00
Olaf Barthel
51f1dacdfa c.lib 1.173 (25.8.2004)
- The <assert.h> header file was missing the C++ 'extern "C" { .. }'
  declarations.

- Added a new function __get_default_file() which allows direct access
  to the low level file handle/socket descriptor associated with a
  file descriptor.


git-svn-id: file:///Users/olsen/Code/migration-svn-zu-git/logical-line-staging/clib2/trunk@14716 87f5fb63-7c3d-0410-a384-fd976d0f7a62
2004-08-25 15:27:28 +00:00
Olaf Barthel
56e788a268 - Removed the USE_64_BIT_INTS definition from the GCC-68k makefile.
Apparently, the 64 bit integer math still doesn't work right in the
  plain 68k libgcc.a.


git-svn-id: file:///Users/olsen/Code/migration-svn-zu-git/logical-line-staging/clib2/trunk@14715 87f5fb63-7c3d-0410-a384-fd976d0f7a62
2004-08-23 13:47:32 +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
Olaf Barthel
de24377581 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
2004-08-16 09:33:13 +00:00
Olaf Barthel
51c2ad8cfd - Added a build makefile for GCC/68k.
git-svn-id: file:///Users/olsen/Code/migration-svn-zu-git/logical-line-staging/clib2/trunk@14710 87f5fb63-7c3d-0410-a384-fd976d0f7a62
2004-08-14 15:01:22 +00:00
Olaf Barthel
a9b217d3f8 - Moved the address alignment test macros for memchr(), memcmp(), memcpy(),
memmove() and memset() into "string_headers.h".


git-svn-id: file:///Users/olsen/Code/migration-svn-zu-git/logical-line-staging/clib2/trunk@14709 87f5fb63-7c3d-0410-a384-fd976d0f7a62
2004-08-14 11:11:01 +00:00
Olaf Barthel
a0c638e3d6 - memcmp(), memcpy() and memset() now build with the GCC 2.x compatibility
header files in place.


git-svn-id: file:///Users/olsen/Code/migration-svn-zu-git/logical-line-staging/clib2/trunk@14708 87f5fb63-7c3d-0410-a384-fd976d0f7a62
2004-08-14 10:00:33 +00:00
Olaf Barthel
16407d5389 c.lib 1.170 (14.8.2004)
- Added "math_logb.c", and it appears to work, too.


git-svn-id: file:///Users/olsen/Code/migration-svn-zu-git/logical-line-staging/clib2/trunk@14706 87f5fb63-7c3d-0410-a384-fd976d0f7a62
2004-08-14 08:54:25 +00:00
Olaf Barthel
c18e21ee36 - Added "math_logb.c"; I still have to verify that it works as expected.
git-svn-id: file:///Users/olsen/Code/migration-svn-zu-git/logical-line-staging/clib2/trunk@14705 87f5fb63-7c3d-0410-a384-fd976d0f7a62
2004-08-12 12:31:29 +00:00
Olaf Barthel
3f284b7fb8 c.lib 1.169 (8.8.2004)
- Since the 'long double' data type is not really supported by the GCC
  versions we use (and not supported by SAS/C either) building the
  library with support code for it is now a configurable option. Unless
  enabled, 'long double' is now treated like 'double'.

- Reworked the HUGE_VAL definition which previously would default to
  Infinity. The new code properly defines this to the largest
  representable floating point number. The 'great' thing about the
  HUGE_VAL definition in this library is that it's a reference to
  a binary constant initialized by the library startup code. So any
  application checking for HUGE_VAL merely needs to be relinked
  rather than recompiled.


git-svn-id: file:///Users/olsen/Code/migration-svn-zu-git/logical-line-staging/clib2/trunk@14703 87f5fb63-7c3d-0410-a384-fd976d0f7a62
2004-08-08 10:55:57 +00:00
Olaf Barthel
0a3962a105 - Moved the isascii() definition behind the "The following is not part of the
ISO 'C' (1994) standard." warning.


git-svn-id: file:///Users/olsen/Code/migration-svn-zu-git/logical-line-staging/clib2/trunk@14702 87f5fb63-7c3d-0410-a384-fd976d0f7a62
2004-08-07 10:42:04 +00:00
Olaf Barthel
1ebd864f60 c.lib 1.168 (7.8.2004)
- Ditched __is_infinity() and __is_not_a_number(), brought them back
  as isinf() and isnan().

- Updated code and header files to state exactly which ISO 'C' version
  is meant by the "The following is not part of the ISO 'C' standard."
  warning.

- Integrated rint() and rintf().


git-svn-id: file:///Users/olsen/Code/migration-svn-zu-git/logical-line-staging/clib2/trunk@14700 87f5fb63-7c3d-0410-a384-fd976d0f7a62
2004-08-07 10:24:04 +00:00
Olaf Barthel
115497faec - Ditched __is_infinity() and __is_not_a_number(), brought them back
as isinf() and isnan().

- Updated code and header files to state exactly which ISO 'C' version
  is meant by the "The following is not part of the ISO 'C' standard."
  warning.

- Integrated rint() and rintf().


git-svn-id: file:///Users/olsen/Code/migration-svn-zu-git/logical-line-staging/clib2/trunk@14699 87f5fb63-7c3d-0410-a384-fd976d0f7a62
2004-08-07 09:15:33 +00:00
Thomas Frieden
f6c5e12f63 Implements the functions rint and rintf (float version).
The rint function rounds the argument to the integral value. Used for
example in the Ogg Vorbis libraries.


git-svn-id: file:///Users/olsen/Code/migration-svn-zu-git/logical-line-staging/clib2/trunk@14698 87f5fb63-7c3d-0410-a384-fd976d0f7a62
2004-08-06 12:56:43 +00:00
Olaf Barthel
04d2b93463 - Fixed the smakefile so that the library builds properly.
- Moved the test program smakefile portions into a separate file.

- Added comments explaining how to set up the header files.


git-svn-id: file:///Users/olsen/Code/migration-svn-zu-git/logical-line-staging/clib2/trunk@14697 87f5fb63-7c3d-0410-a384-fd976d0f7a62
2004-08-06 11:53:49 +00:00
Olaf Barthel
bdaf52ea0e - Added notes on building the library
git-svn-id: file:///Users/olsen/Code/migration-svn-zu-git/logical-line-staging/clib2/trunk@14696 87f5fb63-7c3d-0410-a384-fd976d0f7a62
2004-08-06 11:52:21 +00:00
Olaf Barthel
f3435ba057 - Added a build smakefile, which is based upon the original smakefile used for building
the library and the test code.


git-svn-id: file:///Users/olsen/Code/migration-svn-zu-git/logical-line-staging/clib2/trunk@14695 87f5fb63-7c3d-0410-a384-fd976d0f7a62
2004-08-06 11:51:50 +00:00
Olaf Barthel
5d1a8ec197 - Modified <string.h> so that it no longer causes warnings with GCC 2.95.x
if -fno-builtin is not used.


git-svn-id: file:///Users/olsen/Code/migration-svn-zu-git/logical-line-staging/clib2/trunk@14694 87f5fb63-7c3d-0410-a384-fd976d0f7a62
2004-07-30 09:25:16 +00:00
Olaf Barthel
1b4d0215d7 c.lib 1.167 (29.7.2004)
- Modified __is_infinity() and __is_not_a_number() to use more portable
  methods for accessing the low level representation of the IEEE 754
  numbers they work on.

- Fixed a compiler warning in h_strerror()


git-svn-id: file:///Users/olsen/Code/migration-svn-zu-git/logical-line-staging/clib2/trunk@14693 87f5fb63-7c3d-0410-a384-fd976d0f7a62
2004-07-29 08:35:15 +00:00
Olaf Barthel
93619a81a3 - Modified __is_infinity() and __is_not_a_number() to use more portable
methods for accessing the low level representation of the IEEE 754
  numbers they work on.


git-svn-id: file:///Users/olsen/Code/migration-svn-zu-git/logical-line-staging/clib2/trunk@14692 87f5fb63-7c3d-0410-a384-fd976d0f7a62
2004-07-29 08:14:49 +00:00
147 changed files with 4271 additions and 3523 deletions

View File

@@ -1,5 +1,5 @@
#
# $Id: GNUmakefile.68k,v 1.2 2004-07-28 15:50:44 obarthel Exp $
# $Id: GNUmakefile.68k,v 1.8 2004-08-25 15:27:27 obarthel Exp $
#
# :ts=8
#
@@ -144,6 +144,7 @@ C_LIB = \
fcntl_open.o \
fcntl_read.o \
fcntl_write.o \
fcntl_get_default_file.o \
libgen_basename.o \
libgen_dirname.o \
locale_data.o \
@@ -395,6 +396,7 @@ UNIX_LIB = \
fcntl_creat.o \
fcntl_fcntl.o \
fcntl_open.o \
fcntl_get_default_file.o \
mount_convertinfo.o \
mount_statfs.o \
stat_chmod.o \
@@ -452,12 +454,18 @@ MATH_LIB = \
math_floor.o \
math_fmod.o \
math_frexp.o \
math_hypot.o \
math_init_exit.o \
math_isinf.o \
math_isnan.o \
math_ldexp.o \
math_log.o \
math_log10.o \
math_logb.o \
math_modf.o \
math_pow.o \
math_rint.o \
math_rintf.o \
math_sin.o \
math_sinh.o \
math_sqrt.o \
@@ -467,8 +475,6 @@ MATH_LIB = \
stdio_flush.o \
stdio_fprintf.o \
stdio_fscanf.o \
stdio_isinfinity.o \
stdio_isnotanumber.o \
stdio_printf.o \
stdio_scanf.o \
stdio_snprintf.o \
@@ -696,11 +702,6 @@ STARTUPS := nrcrt0.o nbcrt0.o nr32crt0.o nb32crt0.o ncrt0.o mainnb.o mainb.o mai
##############################################################################
all: \
lib/libm020/libm.a \
lib/libm.a \
lib/libb/libm020/libm.a \
lib/libb/libm.a \
lib/libb32/libm020/libm.a \
lib/nrcrt0.o \
lib/nbcrt0.o \
lib/ncrt0.o \
@@ -708,7 +709,12 @@ all: \
lib/n32rcrt0.o \
lib/mainnb.o \
lib/mainb.o \
lib/mainb32.o
lib/mainb32.o \
lib/libm.a \
lib/libm020/libm.a \
lib/libb/libm.a \
lib/libb/libm020/libm.a \
lib/libb32/libm020/libm.a
##############################################################################

View File

@@ -1,5 +1,5 @@
#
# $Id: GNUmakefile.os4,v 1.2 2004-07-28 15:50:44 obarthel Exp $
# $Id: GNUmakefile.os4,v 1.6 2004-08-25 15:27:27 obarthel Exp $
#
# :ts=8
#
@@ -138,6 +138,7 @@ C_LIB = \
fcntl_open.o \
fcntl_read.o \
fcntl_write.o \
fcntl_get_default_file.o \
libgen_basename.o \
libgen_dirname.o \
locale_data.o \
@@ -387,6 +388,7 @@ UNIX_LIB = \
fcntl_creat.o \
fcntl_fcntl.o \
fcntl_open.o \
fcntl_get_default_file.o \
mount_convertinfo.o \
mount_statfs.o \
stat_chmod.o \
@@ -444,12 +446,18 @@ MATH_LIB = \
math_floor.o \
math_fmod.o \
math_frexp.o \
math_hypot.o \
math_init_exit.o \
math_isnan.o \
math_isinf.o \
math_ldexp.o \
math_log.o \
math_log10.o \
math_logb.o \
math_modf.o \
math_pow.o \
math_rint.o \
math_rintf.o \
math_sin.o \
math_sinh.o \
math_sqrt.o \
@@ -465,8 +473,6 @@ MATH_LIB = \
stdio_flush.o \
stdio_fprintf.o \
stdio_fscanf.o \
stdio_isinfinity.o \
stdio_isnotanumber.o \
stdio_printf.o \
stdio_scanf.o \
stdio_snprintf.o \

View File

@@ -1,6 +1,6 @@
#define VERSION 1
#define REVISION 166
#define DATE "28.7.2004"
#define VERS "amiga.lib 1.166"
#define VSTRING "amiga.lib 1.166 (28.7.2004)\r\n"
#define VERSTAG "\0$VER: amiga.lib 1.166 (28.7.2004)"
#define REVISION 173
#define DATE "25.8.2004"
#define VERS "amiga.lib 1.173"
#define VSTRING "amiga.lib 1.173 (25.8.2004)\r\n"
#define VERSTAG "\0$VER: amiga.lib 1.173 (25.8.2004)"

View File

@@ -1 +1 @@
166
173

View File

@@ -1,6 +1,6 @@
#define VERSION 1
#define REVISION 166
#define DATE "28.7.2004"
#define VERS "c.lib 1.166"
#define VSTRING "c.lib 1.166 (28.7.2004)\r\n"
#define VERSTAG "\0$VER: c.lib 1.166 (28.7.2004)"
#define REVISION 173
#define DATE "25.8.2004"
#define VERS "c.lib 1.173"
#define VSTRING "c.lib 1.173 (25.8.2004)\r\n"
#define VERSTAG "\0$VER: c.lib 1.173 (25.8.2004)"

View File

@@ -1 +1 @@
166
173

3127
library/changes Normal file

File diff suppressed because it is too large Load Diff

View File

@@ -1,6 +1,6 @@
#define VERSION 1
#define REVISION 166
#define DATE "28.7.2004"
#define VERS "debug.lib 1.166"
#define VSTRING "debug.lib 1.166 (28.7.2004)\r\n"
#define VERSTAG "\0$VER: debug.lib 1.166 (28.7.2004)"
#define REVISION 173
#define DATE "25.8.2004"
#define VERS "debug.lib 1.173"
#define VSTRING "debug.lib 1.173 (25.8.2004)\r\n"
#define VERSTAG "\0$VER: debug.lib 1.173 (25.8.2004)"

View File

@@ -1 +1 @@
166
173

View File

@@ -1,5 +1,5 @@
/*
* $Id: dirent_closedir.c,v 1.1.1.1 2004-07-26 16:30:30 obarthel Exp $
* $Id: dirent_closedir.c,v 1.2 2004-08-07 09:15:32 obarthel Exp $
*
* :ts=4
*
@@ -43,7 +43,7 @@
/****************************************************************************/
/* The following is not part of the ISO 'C' standard. */
/* The following is not part of the ISO 'C' (1994) standard. */
/****************************************************************************/

View File

@@ -1,5 +1,5 @@
/*
* $Id: dirent_data.c,v 1.1.1.1 2004-07-26 16:30:30 obarthel Exp $
* $Id: dirent_data.c,v 1.3 2004-08-07 10:24:04 obarthel Exp $
*
* :ts=4
*
@@ -37,10 +37,6 @@
/****************************************************************************/
/* The following is not part of the ISO 'C' standard. */
/****************************************************************************/
/* Directories being scanned whose locks need to be freed when shutting down. */
struct MinList __directory_list;

View File

@@ -1,5 +1,5 @@
/*
* $Id: dirent_opendir.c,v 1.1.1.1 2004-07-26 16:30:31 obarthel Exp $
* $Id: dirent_opendir.c,v 1.2 2004-08-07 09:15:32 obarthel Exp $
*
* :ts=4
*
@@ -49,7 +49,7 @@
/****************************************************************************/
/* The following is not part of the ISO 'C' standard. */
/* The following is not part of the ISO 'C' (1994) standard. */
/****************************************************************************/

View File

@@ -1,5 +1,5 @@
/*
* $Id: dirent_readdir.c,v 1.1.1.1 2004-07-26 16:30:31 obarthel Exp $
* $Id: dirent_readdir.c,v 1.2 2004-08-07 09:15:32 obarthel Exp $
*
* :ts=4
*
@@ -37,7 +37,7 @@
/****************************************************************************/
/* The following is not part of the ISO 'C' standard. */
/* The following is not part of the ISO 'C' (1994) standard. */
/****************************************************************************/

View File

@@ -1,5 +1,5 @@
/*
* $Id: dirent_rewinddir.c,v 1.1.1.1 2004-07-26 16:30:31 obarthel Exp $
* $Id: dirent_rewinddir.c,v 1.2 2004-08-07 09:15:32 obarthel Exp $
*
* :ts=4
*
@@ -37,7 +37,7 @@
/****************************************************************************/
/* The following is not part of the ISO 'C' standard. */
/* The following is not part of the ISO 'C' (1994) standard. */
/****************************************************************************/

View File

@@ -1,5 +1,5 @@
/*
* $Id: fcntl_close.c,v 1.1.1.1 2004-07-26 16:30:32 obarthel Exp $
* $Id: fcntl_close.c,v 1.2 2004-08-07 09:15:32 obarthel Exp $
*
* :ts=4
*
@@ -37,7 +37,7 @@
/****************************************************************************/
/* The following is not part of the ISO 'C' standard. */
/* The following is not part of the ISO 'C' (1994) standard. */
/****************************************************************************/

View File

@@ -1,5 +1,5 @@
/*
* $Id: fcntl_creat.c,v 1.1.1.1 2004-07-26 16:30:32 obarthel Exp $
* $Id: fcntl_creat.c,v 1.2 2004-08-07 09:15:32 obarthel Exp $
*
* :ts=4
*
@@ -43,7 +43,7 @@
/****************************************************************************/
/* The following is not part of the ISO 'C' standard. */
/* The following is not part of the ISO 'C' (1994) standard. */
/****************************************************************************/

View File

@@ -1,5 +1,5 @@
/*
* $Id: fcntl_fcntl.c,v 1.1.1.1 2004-07-26 16:30:33 obarthel Exp $
* $Id: fcntl_fcntl.c,v 1.2 2004-08-07 09:15:32 obarthel Exp $
*
* :ts=4
*
@@ -37,7 +37,7 @@
/****************************************************************************/
/* The following is not part of the ISO 'C' standard. */
/* The following is not part of the ISO 'C' (1994) standard. */
/****************************************************************************/

View File

@@ -0,0 +1,69 @@
/*
* $Id: fcntl_get_default_file.c,v 1.1 2004-08-25 15:27:27 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.
*/
#ifndef _FCNTL_HEADERS_H
#include "fcntl_headers.h"
#endif /* _FCNTL_HEADERS_H */
/****************************************************************************/
/* The following is not part of the ISO 'C' (1994) standard. */
/****************************************************************************/
int
__get_default_file(int file_descriptor,long * file_ptr)
{
struct fd * fd;
int result = -1;
assert( file_descriptor >= 0 && file_descriptor < __num_fd );
assert( __fd[file_descriptor] != NULL );
assert( FLAG_IS_SET(__fd[file_descriptor]->fd_Flags,FDF_IN_USE) );
assert( file_ptr != NULL );
fd = __get_file_descriptor(file_descriptor);
if(fd == NULL)
{
errno = EBADF;
goto out;
}
(*file_ptr) = (long)fd->fd_DefaultFile;
result = 0;
out:
return(result);
}

View File

@@ -1,5 +1,5 @@
/*
* $Id: fcntl_lseek.c,v 1.1.1.1 2004-07-26 16:30:33 obarthel Exp $
* $Id: fcntl_lseek.c,v 1.2 2004-08-07 09:15:32 obarthel Exp $
*
* :ts=4
*
@@ -37,7 +37,7 @@
/****************************************************************************/
/* The following is not part of the ISO 'C' standard. */
/* The following is not part of the ISO 'C' (1994) standard. */
/****************************************************************************/

View File

@@ -1,5 +1,5 @@
/*
* $Id: fcntl_open.c,v 1.1.1.1 2004-07-26 16:30:34 obarthel Exp $
* $Id: fcntl_open.c,v 1.2 2004-08-07 09:15:32 obarthel Exp $
*
* :ts=4
*
@@ -49,7 +49,7 @@
/****************************************************************************/
/* The following is not part of the ISO 'C' standard. */
/* The following is not part of the ISO 'C' (1994) standard. */
/****************************************************************************/

View File

@@ -1,5 +1,5 @@
/*
* $Id: fcntl_read.c,v 1.1.1.1 2004-07-26 16:30:34 obarthel Exp $
* $Id: fcntl_read.c,v 1.2 2004-08-07 09:15:32 obarthel Exp $
*
* :ts=4
*
@@ -43,7 +43,7 @@
/****************************************************************************/
/* The following is not part of the ISO 'C' standard. */
/* The following is not part of the ISO 'C' (1994) standard. */
/****************************************************************************/

View File

@@ -1,5 +1,5 @@
/*
* $Id: fcntl_write.c,v 1.1.1.1 2004-07-26 16:30:34 obarthel Exp $
* $Id: fcntl_write.c,v 1.2 2004-08-07 09:15:32 obarthel Exp $
*
* :ts=4
*
@@ -43,7 +43,7 @@
/****************************************************************************/
/* The following is not part of the ISO 'C' standard. */
/* The following is not part of the ISO 'C' (1994) standard. */
/****************************************************************************/

View File

@@ -1,5 +1,5 @@
/*
* $Id: assert.h,v 1.1.1.1 2004-07-26 16:32:49 obarthel Exp $
* $Id: assert.h,v 1.2 2004-08-25 15:27:28 obarthel Exp $
*
* :ts=4
*
@@ -36,6 +36,12 @@
/****************************************************************************/
#ifdef __cplusplus
extern "C" {
#endif /* __cplusplus */
/****************************************************************************/
#ifndef assert
/****************************************************************************/
@@ -67,4 +73,10 @@ extern void __assertion_failure(const char *file_name,int line_number,const char
/****************************************************************************/
#ifdef __cplusplus
}
#endif /* __cplusplus */
/****************************************************************************/
#endif /* _ASSERT_H */

View File

@@ -1,5 +1,5 @@
/*
* $Id: ctype.h,v 1.1.1.1 2004-07-26 16:32:50 obarthel Exp $
* $Id: ctype.h,v 1.3 2004-08-07 10:42:04 obarthel Exp $
*
* :ts=4
*
@@ -63,12 +63,6 @@ extern int toupper(int c);
/****************************************************************************/
/* The following is not part of the ISO 'C' standard. */
#define isascii(c) ((unsigned)(c) <= 127)
/****************************************************************************/
/*
* If requested, reimplement the character classification functions as macros;
* note that the macro variants ignore the current locale and default to the
@@ -113,6 +107,12 @@ extern const unsigned char * const __ctype_table;
/****************************************************************************/
/* The following is not part of the ISO 'C' (1994) standard. */
#define isascii(c) ((unsigned)(c) <= 127)
/****************************************************************************/
#ifdef __cplusplus
}
#endif /* __cplusplus */

View File

@@ -1,5 +1,5 @@
/*
* $Id: dirent.h,v 1.1.1.1 2004-07-26 16:32:50 obarthel Exp $
* $Id: dirent.h,v 1.2 2004-08-07 09:15:33 obarthel Exp $
*
* :ts=4
*
@@ -36,7 +36,7 @@
/****************************************************************************/
/* The following is not part of the ISO 'C' standard. */
/* The following is not part of the ISO 'C' (1994) standard. */
/****************************************************************************/

View File

@@ -1,5 +1,5 @@
/*
* $Id: dos.h,v 1.1.1.1 2004-07-26 16:32:50 obarthel Exp $
* $Id: dos.h,v 1.3 2004-08-25 15:27:28 obarthel Exp $
*
* :ts=4
*
@@ -36,7 +36,7 @@
/****************************************************************************/
/* The following is not part of the ISO 'C' standard. */
/* The following is not part of the ISO 'C' (1994) standard. */
/****************************************************************************/
@@ -112,6 +112,18 @@ extern void __set_a4(unsigned long value);
/****************************************************************************/
/*
* Obtain the low level 'file' handle or socket ID bound to a file
* descriptor. This function returns 0 for success and non-zero
* otherwise (if, for example, the file descriptor value you
* provided is not valid; errno will be set to the appropriate
* error code, too). Put a pointer to the file handle variable you
* want to be filled in into the second parameter to this function.
*/
extern int __get_default_file(int file_descriptor,long * file_ptr);
/****************************************************************************/
/*
* This will be set to TRUE if the current program was launched from
* the internet superserver ('inetd') or an equivalent facility.

View File

@@ -1,5 +1,5 @@
/*
* $Id: fcntl.h,v 1.1.1.1 2004-07-26 16:32:51 obarthel Exp $
* $Id: fcntl.h,v 1.2 2004-08-07 09:15:33 obarthel Exp $
*
* :ts=4
*
@@ -36,7 +36,7 @@
/****************************************************************************/
/* The following is not part of the ISO 'C' standard. */
/* The following is not part of the ISO 'C' (1994) standard. */
/****************************************************************************/

View File

@@ -1,5 +1,5 @@
/*
* $Id: grp.h,v 1.1.1.1 2004-07-26 16:32:52 obarthel Exp $
* $Id: grp.h,v 1.2 2004-08-07 09:15:33 obarthel Exp $
*
* :ts=4
*
@@ -36,7 +36,7 @@
/****************************************************************************/
/* The following is not part of the ISO 'C' standard. */
/* The following is not part of the ISO 'C' (1994) standard. */
/****************************************************************************/

View File

@@ -1,5 +1,5 @@
/*
* $Id: libgen.h,v 1.1.1.1 2004-07-26 16:32:52 obarthel Exp $
* $Id: libgen.h,v 1.2 2004-08-07 09:15:33 obarthel Exp $
*
* :ts=4
*
@@ -36,7 +36,7 @@
/****************************************************************************/
/* The following is not part of the ISO 'C' standard. */
/* The following is not part of the ISO 'C' (1994) standard. */
/****************************************************************************/

View File

@@ -1,5 +1,5 @@
/*
* $Id: limits.h,v 1.1.1.1 2004-07-26 16:32:52 obarthel Exp $
* $Id: limits.h,v 1.2 2004-08-07 09:15:33 obarthel Exp $
*
* :ts=4
*
@@ -54,7 +54,7 @@
/****************************************************************************/
/* The following is not part of the ISO 'C' standard. */
/* The following is not part of the ISO 'C' (1994) standard. */
/****************************************************************************/

View File

@@ -1,5 +1,5 @@
/*
* $Id: math.h,v 1.1.1.1 2004-07-26 16:32:53 obarthel Exp $
* $Id: math.h,v 1.4 2004-08-16 09:33:13 obarthel Exp $
*
* :ts=4
*
@@ -81,6 +81,19 @@ extern double tanh(double x);
/****************************************************************************/
/* The following is not part of the ISO 'C' (1994) standard. */
/****************************************************************************/
extern double rint(double x);
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);
/****************************************************************************/
#ifdef __cplusplus
}
#endif /* __cplusplus */

View File

@@ -1,5 +1,5 @@
/*
* $Id: pwd.h,v 1.1.1.1 2004-07-26 16:32:53 obarthel Exp $
* $Id: pwd.h,v 1.2 2004-08-07 09:15:33 obarthel Exp $
*
* :ts=4
*
@@ -36,7 +36,7 @@
/****************************************************************************/
/* The following is not part of the ISO 'C' standard. */
/* The following is not part of the ISO 'C' (1994) standard. */
/****************************************************************************/

View File

@@ -1,5 +1,5 @@
/*
* $Id: signal.h,v 1.2 2004-07-28 14:14:38 obarthel Exp $
* $Id: signal.h,v 1.3 2004-08-07 09:15:33 obarthel Exp $
*
* :ts=4
*
@@ -62,7 +62,7 @@ extern int raise(int sig);
/****************************************************************************/
/* The following is not part of the ISO 'C' standard. */
/* The following is not part of the ISO 'C' (1994) standard. */
/****************************************************************************/

View File

@@ -1,5 +1,5 @@
/*
* $Id: stdio.h,v 1.1.1.1 2004-07-26 16:32:54 obarthel Exp $
* $Id: stdio.h,v 1.3 2004-08-25 15:27:28 obarthel Exp $
*
* :ts=4
*
@@ -62,7 +62,7 @@ extern "C" {
* correspond to a real limitation for this 'C' runtime library and is
* included solely for ISO 'C' (1994) compliance.
*/
#define FOPEN_MAX 8
#define FOPEN_MAX 64
/****************************************************************************/
@@ -308,7 +308,7 @@ extern int __flush(FILE *stream);
/****************************************************************************/
/* The following is not part of the ISO 'C' standard. */
/* The following is not part of the ISO 'C' (1994) standard. */
/****************************************************************************/

View File

@@ -1,5 +1,5 @@
/*
* $Id: stdlib.h,v 1.1.1.1 2004-07-26 16:32:55 obarthel Exp $
* $Id: stdlib.h,v 1.2 2004-08-07 09:15:33 obarthel Exp $
*
* :ts=4
*
@@ -147,7 +147,7 @@ extern long atol(const char *str);
/****************************************************************************/
/* The following is not part of the ISO 'C' standard. */
/* The following is not part of the ISO 'C' (1994) standard. */
/****************************************************************************/

View File

@@ -1,5 +1,5 @@
/*
* $Id: string.h,v 1.1.1.1 2004-07-26 16:32:55 obarthel Exp $
* $Id: string.h,v 1.3 2004-08-07 09:15:33 obarthel Exp $
*
* :ts=4
*
@@ -71,15 +71,25 @@ extern size_t strxfrm(char *dest, const char *src, size_t len);
/****************************************************************************/
extern void *memmove(void *dest, const void * src, size_t len);
extern void *memchr(const void * ptr, int val, size_t len);
/* This is ugly: GCC 2.95.x assumes that 'unsigned long' is used in the built-in
memcmp/memcpy/memset functions instead of 'size_t'. This can produce warnings
where none are necessary. */
#if defined(__GNUC__) && (__GNUC__ < 3)
extern int memcmp(const void *ptr1, const void *ptr2, unsigned long len);
extern void *memcpy(void *dest, const void *src, unsigned long len);
extern void *memset(void *ptr, int val, unsigned long len);
#else
extern int memcmp(const void *ptr1, const void *ptr2, size_t len);
extern void *memcpy(void *dest, const void *src, size_t len);
extern void *memmove(void *dest, const void * src, size_t len);
extern void *memset(void *ptr, int val, size_t len);
#endif /* __GNUC__ && __GNUC__ < 3 */
/****************************************************************************/
/* The following is not part of the ISO 'C' standard. */
/* The following is not part of the ISO 'C' (1994) standard. */
/****************************************************************************/

View File

@@ -1,5 +1,5 @@
/*
* $Id: strings.h,v 1.1.1.1 2004-07-26 16:32:55 obarthel Exp $
* $Id: strings.h,v 1.2 2004-08-07 09:15:33 obarthel Exp $
*
* :ts=4
*
@@ -36,7 +36,7 @@
/****************************************************************************/
/* The following is not part of the ISO 'C' standard. */
/* The following is not part of the ISO 'C' (1994) standard. */
/****************************************************************************/

View File

@@ -1,5 +1,5 @@
/*
* $Id: amigaos-va.h,v 1.1.1.1 2004-07-26 16:32:57 obarthel Exp $
* $Id: amigaos-va.h,v 1.2 2004-08-07 09:15:33 obarthel Exp $
*
* :ts=4
*
@@ -36,7 +36,7 @@
/****************************************************************************/
/* The following is not part of the ISO 'C' standard. */
/* The following is not part of the ISO 'C' (1994) standard. */
/****************************************************************************/

View File

@@ -1,5 +1,5 @@
/*
* $Id: mount.h,v 1.1.1.1 2004-07-26 16:32:58 obarthel Exp $
* $Id: mount.h,v 1.2 2004-08-07 09:15:33 obarthel Exp $
*
* :ts=4
*
@@ -36,7 +36,7 @@
/****************************************************************************/
/* The following is not part of the ISO 'C' standard. */
/* The following is not part of the ISO 'C' (1994) standard. */
/****************************************************************************/

View File

@@ -1,5 +1,5 @@
/*
* $Id: stat.h,v 1.1.1.1 2004-07-26 16:32:58 obarthel Exp $
* $Id: stat.h,v 1.2 2004-08-07 09:15:33 obarthel Exp $
*
* :ts=4
*
@@ -36,7 +36,7 @@
/****************************************************************************/
/* The following is not part of the ISO 'C' standard. */
/* The following is not part of the ISO 'C' (1994) standard. */
/****************************************************************************/

View File

@@ -1,5 +1,5 @@
/*
* $Id: time.h,v 1.1.1.1 2004-07-26 16:32:58 obarthel Exp $
* $Id: time.h,v 1.2 2004-08-07 09:15:33 obarthel Exp $
*
* :ts=4
*
@@ -36,7 +36,7 @@
/****************************************************************************/
/* The following is not part of the ISO 'C' standard. */
/* The following is not part of the ISO 'C' (1994) standard. */
/****************************************************************************/

View File

@@ -1,5 +1,5 @@
/*
* $Id: types.h,v 1.1.1.1 2004-07-26 16:32:59 obarthel Exp $
* $Id: types.h,v 1.2 2004-08-07 09:15:33 obarthel Exp $
*
* :ts=4
*
@@ -36,7 +36,7 @@
/****************************************************************************/
/* The following is not part of the ISO 'C' standard. */
/* The following is not part of the ISO 'C' (1994) standard. */
/****************************************************************************/

View File

@@ -1,5 +1,5 @@
/*
* $Id: unistd.h,v 1.3 2004-07-28 15:50:45 obarthel Exp $
* $Id: unistd.h,v 1.4 2004-08-07 09:15:33 obarthel Exp $
*
* :ts=4
*
@@ -36,7 +36,7 @@
/****************************************************************************/
/* The following is not part of the ISO 'C' standard. */
/* The following is not part of the ISO 'C' (1994) standard. */
/****************************************************************************/

View File

@@ -1,5 +1,5 @@
/*
* $Id: utime.h,v 1.1.1.1 2004-07-26 16:32:56 obarthel Exp $
* $Id: utime.h,v 1.2 2004-08-07 09:15:33 obarthel Exp $
*
* :ts=4
*
@@ -36,7 +36,7 @@
/****************************************************************************/
/* The following is not part of the ISO 'C' standard. */
/* The following is not part of the ISO 'C' (1994) standard. */
/****************************************************************************/

View File

@@ -1,5 +1,5 @@
/*
* $Id: libgen_basename.c,v 1.1.1.1 2004-07-26 16:30:34 obarthel Exp $
* $Id: libgen_basename.c,v 1.2 2004-08-07 09:15:32 obarthel Exp $
*
* :ts=4
*
@@ -36,7 +36,7 @@
/****************************************************************************/
/* The following is not part of the ISO 'C' standard. */
/* The following is not part of the ISO 'C' (1994) standard. */
/****************************************************************************/

View File

@@ -1,5 +1,5 @@
/*
* $Id: libgen_dirname.c,v 1.1.1.1 2004-07-26 16:30:34 obarthel Exp $
* $Id: libgen_dirname.c,v 1.2 2004-08-07 09:15:32 obarthel Exp $
*
* :ts=4
*
@@ -40,7 +40,7 @@
/****************************************************************************/
/* The following is not part of the ISO 'C' standard. */
/* The following is not part of the ISO 'C' (1994) standard. */
/****************************************************************************/

View File

@@ -1,6 +1,6 @@
#define VERSION 1
#define REVISION 166
#define DATE "28.7.2004"
#define VERS "m.lib 1.166"
#define VSTRING "m.lib 1.166 (28.7.2004)\r\n"
#define VERSTAG "\0$VER: m.lib 1.166 (28.7.2004)"
#define REVISION 173
#define DATE "25.8.2004"
#define VERS "m.lib 1.173"
#define VSTRING "m.lib 1.173 (25.8.2004)\r\n"
#define VERSTAG "\0$VER: m.lib 1.173 (25.8.2004)"

View File

@@ -1 +1 @@
166
173

View File

@@ -1,6 +1,6 @@
#define VERSION 1
#define REVISION 166
#define DATE "28.7.2004"
#define VERS "m881.lib 1.166"
#define VSTRING "m881.lib 1.166 (28.7.2004)\r\n"
#define VERSTAG "\0$VER: m881.lib 1.166 (28.7.2004)"
#define REVISION 173
#define DATE "25.8.2004"
#define VERS "m881.lib 1.173"
#define VSTRING "m881.lib 1.173 (25.8.2004)\r\n"
#define VERSTAG "\0$VER: m881.lib 1.173 (25.8.2004)"

View File

@@ -1 +1 @@
166
173

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
*
@@ -226,7 +226,7 @@ acos(double x)
}
else
{
result = HUGE_VAL;
result = 0;
errno = EDOM;
}

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
*
@@ -237,7 +237,7 @@ asin(double x)
}
else
{
result = HUGE_VAL;
result = 0;
errno = EDOM;
}

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
*
@@ -107,7 +107,7 @@ __atan2(double x,double y)
}
else
{
result = HUGE_VAL;
result = 0;
errno = EDOM;
}
}
@@ -186,7 +186,7 @@ __atan2(double x,double y)
}
else
{
result = HUGE_VAL;
result = 0;
errno = EDOM;
}
}
@@ -201,9 +201,6 @@ __atan2(double x,double y)
#if defined(PPC_FLOATING_POINT_SUPPORT)
static const double
tiny = 1.0e-300,
zero = 0.0,
@@ -326,15 +323,7 @@ atan2(double x,double y)
{
double result;
if(x != 0.0 && y != 0.0)
{
result = __atan2(x,y);
}
else
{
result = HUGE_VAL;
errno = EDOM;
}
return(result);
}

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
*
@@ -48,3 +48,5 @@ struct Library * MathIeeeDoubTransBase;
/****************************************************************************/
double __huge_val;
double __not_a_number;
double __infinity;

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
*
@@ -284,7 +284,7 @@ fmod(double x,double y)
}
else
{
result = HUGE_VAL;
result = x;
errno = EDOM;
}

View File

@@ -1,5 +1,5 @@
/*
* $Id: math_fp_support.h,v 1.1.1.1 2004-07-26 16:30:44 obarthel Exp $
* $Id: math_fp_support.h,v 1.2 2004-08-08 10:55:57 obarthel Exp $
*
* :ts=4
*
@@ -36,9 +36,47 @@
/****************************************************************************/
/* If any of the three supported floating point support flavours is
enabled, make sure that the generic 'FLOATING_POINT_SUPPORT' symbol
is defined, too.*/
#if (defined(IEEE_FLOATING_POINT_SUPPORT) || defined(M68881_FLOATING_POINT_SUPPORT) || defined(PPC_FLOATING_POINT_SUPPORT))
#define FLOATING_POINT_SUPPORT
#endif
#endif /* IEEE_FLOATING_POINT_SUPPORT || M68881_FLOATING_POINT_SUPPORT || PPC_FLOATING_POINT_SUPPORT */
/****************************************************************************/
/* This selects whether or not the 'long double' type should be used. So far,
only 'double' can be supported, and 'long double' defaults to 'double'. */
/*#define USE_LONG_DOUBLE*/
/****************************************************************************/
#if defined(USE_LONG_DOUBLE)
typedef long double __long_double_t;
#else
typedef double __long_double_t;
#endif /* USE_LONG_DOUBLE */
/****************************************************************************/
/* 'Portable' raw representations of three IEEE floating point formats. */
union ieee_long_double
{
long double value;
unsigned long raw[3];
};
union ieee_double
{
double value;
unsigned long raw[2];
};
union ieee_single
{
float value;
unsigned long raw[1];
};
/****************************************************************************/

View File

@@ -1,5 +1,5 @@
/*
* $Id: math_headers.h,v 1.1.1.1 2004-07-26 16:30:45 obarthel Exp $
* $Id: math_headers.h,v 1.3 2004-08-21 18:57:40 obarthel Exp $
*
* :ts=4
*
@@ -38,6 +38,7 @@
#include <limits.h>
#include <errno.h>
#include <float.h>
#include <math.h>
/****************************************************************************/
@@ -164,4 +165,9 @@ extern double __scalbn(double x, int n);
/****************************************************************************/
extern double __not_a_number;
extern double __infinity;
/****************************************************************************/
#endif /* _MATH_HEADERS_H */

171
library/math_hypot.c Normal file
View 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 */

View File

@@ -1,5 +1,5 @@
/*
* $Id: math_init_exit.c,v 1.1.1.1 2004-07-26 16:30:46 obarthel Exp $
* $Id: math_init_exit.c,v 1.3 2004-08-21 18:57:40 obarthel Exp $
*
* :ts=4
*
@@ -121,41 +121,87 @@ __math_init(void)
#endif /* IEEE_FLOATING_POINT_SUPPORT */
/* Now fill in the HUGE_VAL constant, which is set to
* +Infinity.
*/
the largest representable floating point value. */
if(sizeof(__huge_val) == 4) /* single precision */
{
static const unsigned long infinity[] =
static const unsigned long largest_fp_value[1] =
{
0x7F800000
/* Exponent = +126, Mantissa = 8,388,607 */
0x7f7fffff
};
assert( sizeof(infinity) == sizeof(__huge_val) );
static const unsigned long not_a_number[1] =
{
/* Exponent = 255 and fraction != 0.0 */
0x7fffffff
};
memmove((void *)&__huge_val,infinity,sizeof(infinity));
static const unsigned long infinity[1] =
{
/* Exponent = 255 and fraction = 0.0 */
0x7f800000
};
assert( sizeof(largest_fp_value) == sizeof(__huge_val) );
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 */
{
static const unsigned long infinity[] =
static const unsigned long largest_fp_value[2] =
{
0x7FF00000,0x00000000
/* Exponent = +1022, Mantissa = 4,503,599,627,370,495 */
0x7fefffff,0xffffffff
};
assert( sizeof(infinity) == sizeof(__huge_val) );
static const unsigned long not_a_number[2] =
{
/* Exponent = 2047 and fraction != 0.0 */
0x7fffffff,0xffffffff
};
memmove((void *)&__huge_val,infinity,sizeof(infinity));
static const unsigned long infinity[2] =
{
/* Exponent = 2047 and fraction = 0.0 */
0x7ff00000,0x00000000
};
assert( sizeof(largest_fp_value) == sizeof(__huge_val) );
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)
else if (sizeof(__huge_val) == 12) /* extended precision */
{
static const unsigned long infinity[] =
static const unsigned long largest_fp_value[3] =
{
0x7FFF0000,0x00000000,0x00000000
/* Exponent = +32766, Mantissa = 18,446,744,073,709,551,615 */
0x7ffe0000,0xffffffff,0xffffffff
};
assert( sizeof(infinity) == sizeof(__huge_val) );
static const unsigned long not_a_number[3] =
{
/* Exponent = 32767 and fraction != 0.0 */
0x7fff0000,0xffffffff,0xffffffff
};
memmove((void *)&__huge_val,infinity,sizeof(infinity));
static const unsigned long infinity[3] =
{
/* Exponent = 32767 and fraction = 0.0 */
0x7fff0000,0x00000000,0x00000000
};
assert( sizeof(largest_fp_value) == sizeof(__huge_val) );
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 */
result = OK;

60
library/stdio_isinfinity.c → library/math_isinf.c Normal file → Executable file
View File

@@ -1,5 +1,5 @@
/*
* $Id: stdio_isinfinity.c,v 1.1.1.1 2004-07-26 16:31:37 obarthel Exp $
* $Id: math_isinf.c,v 1.2 2004-08-08 10:55:57 obarthel Exp $
*
* :ts=4
*
@@ -39,43 +39,73 @@
#if defined (FLOATING_POINT_SUPPORT)
/****************************************************************************/
/* The following is not part of the ISO 'C' (1994) standard. */
/****************************************************************************/
int
__is_infinity(long double number)
isinf(double number)
{
const unsigned long * const raw = (const unsigned long * const)&number;
int result = 0;
int is_infinity;
int result;
ENTER();
/* This assumes that a) 'number' is stored in big endian format
* and b) it is stored in IEEE 754 format.
*/
if(sizeof(number) == 4) /* single precision */
and b) it is stored in IEEE 754 format. */
if (sizeof(number) == 4) /* single precision */
{
union ieee_single x;
x.value = number;
/* Exponent = 255 and fraction = 0.0 */
if((raw[0] & 0x7FFFFFFF) == 0x7F800000)
result = 1;
is_infinity = ((x.raw[0] & 0x7FFFFFFF) == 0x7F800000);
}
else if (sizeof(number) == 8) /* double precision */
{
union ieee_double x;
x.value = number;
/* Exponent = 2047 and fraction = 0.0 */
if(((raw[0] & 0x7FFFFFFF) == 0x7FF00000) && (raw[1] == 0))
{
result = 1;
}
is_infinity = (((x.raw[0] & 0x7FFFFFFF) == 0x7FF00000) && (x.raw[1] == 0));
}
#if defined(USE_LONG_DOUBLE)
else if (sizeof(number) == 12) /* extended precision */
{
union ieee_long_double x;
x.value = number;
/* Exponent = 32767 and fraction = 0.0 */
if(((raw[0] & 0x7FFF0000) == 0x7FFF0000) &&
(raw[1] & 0x7FFFFFFF) == 0 && (raw[2] == 0))
is_infinity = (((x.raw[0] & 0x7FFF0000) == 0x7FFF0000) && (x.raw[1] & 0x7FFFFFFF) == 0 && (x.raw[2] == 0));
}
#endif /* USE_LONG_DOUBLE */
else
{
/* Can't happen */
is_infinity = 0;
}
if(is_infinity)
{
if(number < 0)
result = -1;
else
result = 1;
}
else
{
result = 0;
}
RETURN(result);
return(result);
}
/****************************************************************************/
#endif /* FLOATING_POINT_SUPPORT */

57
library/stdio_isnotanumber.c → library/math_isnan.c Normal file → Executable file
View File

@@ -1,5 +1,5 @@
/*
* $Id: stdio_isnotanumber.c,v 1.1.1.1 2004-07-26 16:31:37 obarthel Exp $
* $Id: math_isnan.c,v 1.2 2004-08-08 10:55:57 obarthel Exp $
*
* :ts=4
*
@@ -39,47 +39,60 @@
#if defined (FLOATING_POINT_SUPPORT)
/****************************************************************************/
/* The following is not part of the ISO 'C' (1994) standard. */
/****************************************************************************/
int
__is_not_a_number(long double number)
isnan(double number)
{
const unsigned long * const raw = (const unsigned long * const)&number;
int result = 0;
int result;
ENTER();
/* This assumes that a) 'number' is stored in big endian format
* and b) it is stored in IEEE 754 format.
*/
if(sizeof(number) == 4) /* single precision */
and b) it is stored in IEEE 754 format. */
if (sizeof(number) == 4) /* single precision */
{
union ieee_single x;
x.value = number;
/* Exponent = 255 and fraction != 0.0 */
if((raw[0] & 0x7F800000) == 0x7F800000 &&
(raw[0] & 0x007FFFFF) != 0)
{
result = 1;
}
result = ((x.raw[0] & 0x7F800000) == 0x7F800000 && (x.raw[0] & 0x007FFFFF) != 0);
}
else if (sizeof(number) == 8) /* double precision */
{
union ieee_double x;
x.value = number;
/* Exponent = 2047 and fraction != 0.0 */
if(((raw[0] & 0x7FF00000) == 0x7FF00000) &&
((raw[0] & 0x000FFFFF) != 0 || (raw[1] != 0)))
{
result = 1;
}
result = (((x.raw[0] & 0x7FF00000) == 0x7FF00000) && ((x.raw[0] & 0x000FFFFF) != 0 || (x.raw[1] != 0)));
}
#if defined(USE_LONG_DOUBLE)
else if (sizeof(number) == 12) /* extended precision */
{
/* Exponent = 32767 and fraction != 0.0 */
if(((raw[0] & 0x7FFF0000) == 0x7FFF0000) &&
((raw[1] & 0x7FFFFFFF) != 0 || raw[2] != 0))
{
result = 1;
union ieee_long_double x;
x.value = number;
/* Exponent = 32766 and fraction != 0.0 */
result = (((x.raw[0] & 0x7FFF0000) == 0x7FFF0000) && ((x.raw[1] & 0x7FFFFFFF) != 0 || x.raw[2] != 0));
}
#endif /* USE_LONG_DOUBLE */
else
{
/* Can't happen */
result = 0;
}
RETURN(result);
return(result);
}
/****************************************************************************/
#endif /* FLOATING_POINT_SUPPORT */

136
library/math_logb.c Normal file
View File

@@ -0,0 +1,136 @@
/*
* $Id: math_logb.c,v 1.2 2004-08-14 11:11:01 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
__logb(double x)
{
double result;
result = log(x) / log((double)FLT_RADIX);
return(result);
}
#endif /* IEEE_FLOATING_POINT_SUPPORT || M68881_FLOATING_POINT_SUPPORT */
/****************************************************************************/
#if defined(PPC_FLOATING_POINT_SUPPORT)
INLINE static const double
__logb(double x)
{
unsigned int lx,ix;
EXTRACT_WORDS(ix,lx,x);
ix &= 0x7fffffff; /* high |x| */
if((ix|lx)==0)
return -1.0/fabs(x);
if(ix>=0x7ff00000)
return x*x;
if((ix>>=20)==0) /* IEEE 754 logb */
return -1022.0;
else
return (double) (ix-1023);
}
#endif /* PPC_FLOATING_POINT_SUPPORT */
/****************************************************************************/
double
logb(double x)
{
double result;
int sign;
if(x == 0.0)
{
result = -HUGE_VAL;
goto out;
}
if(isnan(x))
{
result = x;
goto out;
}
sign = isinf(x);
if(sign != 0)
{
if(sign < 0)
result = (-x);
else
result = x;
goto out;
}
result = __logb(x);
out:
return(result);
}
/****************************************************************************/
#endif /* FLOATING_POINT_SUPPORT */

66
library/math_rint.c Executable file
View File

@@ -0,0 +1,66 @@
/*
* $Id: math_rint.c,v 1.2 2004-08-07 09:15:32 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 */
/****************************************************************************/
/* The following is not part of the ISO 'C' (1994) (1994) standard. */
/****************************************************************************/
#if defined(FLOATING_POINT_SUPPORT)
/****************************************************************************/
double
rint(double x)
{
return floor ( x+0.5 );
}
/****************************************************************************/
#endif /* FLOATING_POINT_SUPPORT */

66
library/math_rintf.c Executable file
View File

@@ -0,0 +1,66 @@
/*
* $Id: math_rintf.c,v 1.1 2004-08-07 09:15:32 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 */
/****************************************************************************/
/* The following is not part of the ISO 'C' (1994) (1994) standard. */
/****************************************************************************/
#if defined(FLOATING_POINT_SUPPORT)
/****************************************************************************/
float
rintf(float x)
{
return (float) floor ( x + 0.5f );
}
/****************************************************************************/
#endif /* FLOATING_POINT_SUPPORT */

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
*
@@ -251,7 +251,7 @@ sqrt(double x)
}
else
{
result = HUGE_VAL;
result = 0;
errno = EDOM;
}

View File

@@ -1,5 +1,5 @@
/*
* $Id: mount_fstatfs.c,v 1.1.1.1 2004-07-26 16:30:54 obarthel Exp $
* $Id: mount_fstatfs.c,v 1.2 2004-08-07 09:15:32 obarthel Exp $
*
* :ts=4
*
@@ -43,7 +43,7 @@
/****************************************************************************/
/* The following is not part of the ISO 'C' standard. */
/* The following is not part of the ISO 'C' (1994) standard. */
/****************************************************************************/

View File

@@ -1,5 +1,5 @@
/*
* $Id: mount_statfs.c,v 1.1.1.1 2004-07-26 16:30:55 obarthel Exp $
* $Id: mount_statfs.c,v 1.2 2004-08-07 09:15:32 obarthel Exp $
*
* :ts=4
*
@@ -43,7 +43,7 @@
/****************************************************************************/
/* The following is not part of the ISO 'C' standard. */
/* The following is not part of the ISO 'C' (1994) standard. */
/****************************************************************************/

View File

@@ -1,6 +1,6 @@
#define VERSION 1
#define REVISION 166
#define DATE "28.7.2004"
#define VERS "net.lib 1.166"
#define VSTRING "net.lib 1.166 (28.7.2004)\r\n"
#define VERSTAG "\0$VER: net.lib 1.166 (28.7.2004)"
#define REVISION 173
#define DATE "25.8.2004"
#define VERS "net.lib 1.173"
#define VSTRING "net.lib 1.173 (25.8.2004)\r\n"
#define VERSTAG "\0$VER: net.lib 1.173 (25.8.2004)"

View File

@@ -1 +1 @@
166
173

File diff suppressed because it is too large Load Diff

View File

@@ -1,5 +1,5 @@
/*
* $Id: signal_kill.c,v 1.1.1.1 2004-07-26 16:31:05 obarthel Exp $
* $Id: signal_kill.c,v 1.2 2004-08-07 09:15:32 obarthel Exp $
*
* :ts=4
*
@@ -37,7 +37,7 @@
/****************************************************************************/
/* The following is not part of the ISO 'C' standard. */
/* The following is not part of the ISO 'C' (1994) standard. */
/****************************************************************************/

View File

@@ -1,5 +1,5 @@
/*
* $Id: signal_sigaddset.c,v 1.1.1.1 2004-07-26 16:31:05 obarthel Exp $
* $Id: signal_sigaddset.c,v 1.2 2004-08-07 09:15:32 obarthel Exp $
*
* :ts=4
*
@@ -43,7 +43,7 @@
/****************************************************************************/
/* The following is not part of the ISO 'C' standard. */
/* The following is not part of the ISO 'C' (1994) standard. */
/****************************************************************************/

View File

@@ -1,5 +1,5 @@
/*
* $Id: signal_sigblock.c,v 1.1.1.1 2004-07-26 16:31:05 obarthel Exp $
* $Id: signal_sigblock.c,v 1.2 2004-08-07 09:15:32 obarthel Exp $
*
* :ts=4
*
@@ -37,7 +37,7 @@
/****************************************************************************/
/* The following is not part of the ISO 'C' standard. */
/* The following is not part of the ISO 'C' (1994) standard. */
/****************************************************************************/

View File

@@ -1,5 +1,5 @@
/*
* $Id: signal_sigemptyset.c,v 1.1.1.1 2004-07-26 16:31:06 obarthel Exp $
* $Id: signal_sigemptyset.c,v 1.2 2004-08-07 09:15:32 obarthel Exp $
*
* :ts=4
*
@@ -43,7 +43,7 @@
/****************************************************************************/
/* The following is not part of the ISO 'C' standard. */
/* The following is not part of the ISO 'C' (1994) standard. */
/****************************************************************************/

View File

@@ -1,5 +1,5 @@
/*
* $Id: signal_sigmask.c,v 1.1.1.1 2004-07-26 16:31:06 obarthel Exp $
* $Id: signal_sigmask.c,v 1.2 2004-08-07 09:15:32 obarthel Exp $
*
* :ts=4
*
@@ -37,7 +37,7 @@
/****************************************************************************/
/* The following is not part of the ISO 'C' standard. */
/* The following is not part of the ISO 'C' (1994) standard. */
/****************************************************************************/

View File

@@ -1,5 +1,5 @@
/*
* $Id: signal_sigprocmask.c,v 1.1.1.1 2004-07-26 16:31:06 obarthel Exp $
* $Id: signal_sigprocmask.c,v 1.2 2004-08-07 09:15:32 obarthel Exp $
*
* :ts=4
*
@@ -37,7 +37,7 @@
/****************************************************************************/
/* The following is not part of the ISO 'C' standard. */
/* The following is not part of the ISO 'C' (1994) standard. */
/****************************************************************************/

View File

@@ -1,5 +1,5 @@
/*
* $Id: signal_sigsetmask.c,v 1.1.1.1 2004-07-26 16:31:06 obarthel Exp $
* $Id: signal_sigsetmask.c,v 1.2 2004-08-07 09:15:32 obarthel Exp $
*
* :ts=4
*
@@ -37,7 +37,7 @@
/****************************************************************************/
/* The following is not part of the ISO 'C' standard. */
/* The following is not part of the ISO 'C' (1994) standard. */
/****************************************************************************/

View File

@@ -1,5 +1,5 @@
#
# $Id: smakefile,v 1.2 2004-07-28 15:50:45 obarthel Exp $
# $Id: smakefile,v 1.7 2004-08-25 15:27:27 obarthel Exp $
#
# :ts=8
#
@@ -14,6 +14,14 @@
@echo "Assembling $<"
@asm $(AFLAGS) $<
##############################################################################
# You might want to change this to the directory where your operating system
# header files are stored. On my system, that's "V:include", but you might
# get lucky with "sc:include" instead, which is the default for SAS/C.
INCLUDE_DIR = V:include
#INCLUDE_DIR = sc:include
##############################################################################
OPTIMIZE = optimize opttime optschedule optinline
@@ -33,7 +41,15 @@ SUPPORT = define=UNIX_PATH_SEMANTICS define=SOCKET_SUPPORT define=USERGROUP_SUP
##############################################################################
CFLAGS = \
idlen=64 idir=include idir=netinclude commentnest \
resopt \
nover \
memorysize=huge \
idir=netinclude \
idlen=64 \
commentnest \
nostackcheck \
stringmerge \
errorrexx \
$(PROFILE) $(OPTIMIZE) $(CODE) $(DATA) $(CPU) $(MATH) \
$(SUPPORT) $(DEBUG)
@@ -147,7 +163,8 @@ FCNTL_OBJ = \
fcntl_lseek.o \
fcntl_open.o \
fcntl_read.o \
fcntl_write.o
fcntl_write.o \
fcntl_get_default_file.o
LIBGEN_OBJ = \
libgen_basename.o \
@@ -173,12 +190,18 @@ MATH_OBJ = \
math_floor.o \
math_fmod.o \
math_frexp.o \
math_hypot.o \
math_init_exit.o \
math_isinf.o \
math_isnan.o \
math_ldexp.o \
math_log.o \
math_log10.o \
math_logb.o \
math_modf.o \
math_pow.o \
math_rint.o \
math_rintf.o \
math_sin.o \
math_sinh.o \
math_sqrt.o \
@@ -298,8 +321,6 @@ STDIO_OBJ = \
stdio_initializeiob.o \
stdio_init_exit.o \
stdio_iobhookentry.o \
stdio_isinfinity.o \
stdio_isnotanumber.o \
stdio_locksemaphorename.o \
stdio_nostdio.o \
stdio_openiob.o \
@@ -519,16 +540,16 @@ UTIME_OBJ = \
##############################################################################
all: setup c.lib startup.o test fgets_test iotest sscanf_test printf_test stack_size_test translate_test cleanup
all: setup c.lib startup.o cleanup
clean:
-delete \#?.o \#?.lib \#?.map test fgets_test iotest sscanf_test printf_test stack_size_test translate_test
-delete \#?.o \#?.lib \#?.map
##############################################################################
setup:
@echo "Setting up include: assignment"
@assign include: include V:include
@assign include: include $(INCLUDE_DIR)
cleanup:
@echo "Cleaning up include: assignment"
@@ -560,43 +581,6 @@ cvs-tag:
##############################################################################
test: test.o startup.o c.lib
@echo "Linking $@"
@slink startup.o test.o to $@ lib c.lib addsym \
map $@.map,fhx fwidth 32 pwidth 32 swidth 32
fgets_test: fgets_test.o startup.o c.lib
@echo "Linking $@"
@slink startup.o fgets_test.o to $@ lib c.lib addsym \
map $@.map,fhx fwidth 32 pwidth 32 swidth 32
iotest: iotest.o startup.o c.lib
@echo "Linking $@"
@slink startup.o iotest.o to $@ lib c.lib addsym \
map $@.map,fhx fwidth 32 pwidth 32 swidth 32
sscanf_test: sscanf_test.o startup.o c.lib
@echo "Linking $@"
@slink startup.o sscanf_test.o to $@ lib c.lib addsym \
map $@.map,fhx fwidth 32 pwidth 32 swidth 32
printf_test: printf_test.o startup.o c.lib
@echo "Linking $@"
@slink startup.o printf_test.o to $@ lib c.lib addsym \
map $@.map,fhx fwidth 32 pwidth 32 swidth 32
stack_size_test: stack_size_test.o startup.o c.lib
@echo "Linking $@"
@slink startup.o stack_size_test.o to $@ lib c.lib addsym \
map $@.map,fhx fwidth 32 pwidth 32 swidth 32
translate_test: translate_test.o startup.o c.lib
@echo "Linking $@"
@slink startup.o translate_test.o to $@ lib c.lib addsym \
map $@.map,fhx fwidth 32 pwidth 32 swidth 32
##############################################################################
c.lib_rev.o : c.lib_rev.c c.lib_rev.h
amiga_hookentry.o : amiga_hookentry.asm

View File

@@ -1,5 +1,5 @@
/*
* $Id: socket_hstrerror.c,v 1.1 2004-07-28 15:50:45 obarthel Exp $
* $Id: socket_hstrerror.c,v 1.2 2004-07-29 08:35:15 obarthel Exp $
*
* :ts=4
*
@@ -121,6 +121,7 @@ hstrerror(int error_number)
result = "Unknown server error_number";
break;
default:
case 4: /* NO_ADDRESS */
result = "No address associated with name";

View File

@@ -1,6 +1,6 @@
#define VERSION 1
#define REVISION 166
#define DATE "28.7.2004"
#define VERS "stack.lib 1.166"
#define VSTRING "stack.lib 1.166 (28.7.2004)\r\n"
#define VERSTAG "\0$VER: stack.lib 1.166 (28.7.2004)"
#define REVISION 173
#define DATE "25.8.2004"
#define VERS "stack.lib 1.173"
#define VSTRING "stack.lib 1.173 (25.8.2004)\r\n"
#define VERSTAG "\0$VER: stack.lib 1.173 (25.8.2004)"

View File

@@ -1 +1 @@
166
173

View File

@@ -1,5 +1,5 @@
/*
* $Id: stat_chmod.c,v 1.1.1.1 2004-07-26 16:31:21 obarthel Exp $
* $Id: stat_chmod.c,v 1.2 2004-08-07 09:15:32 obarthel Exp $
*
* :ts=4
*
@@ -43,7 +43,7 @@
/****************************************************************************/
/* The following is not part of the ISO 'C' standard. */
/* The following is not part of the ISO 'C' (1994) standard. */
/****************************************************************************/

View File

@@ -1,5 +1,5 @@
/*
* $Id: stat_convertfileinfo.c,v 1.1.1.1 2004-07-26 16:31:21 obarthel Exp $
* $Id: stat_convertfileinfo.c,v 1.3 2004-08-07 10:24:04 obarthel Exp $
*
* :ts=4
*
@@ -41,10 +41,6 @@
/****************************************************************************/
/* The following is not part of the ISO 'C' standard. */
/****************************************************************************/
void
__convert_file_info_to_stat(
const struct MsgPort * file_system,

View File

@@ -1,5 +1,5 @@
/*
* $Id: stat_fchmod.c,v 1.1.1.1 2004-07-26 16:31:22 obarthel Exp $
* $Id: stat_fchmod.c,v 1.2 2004-08-07 09:15:32 obarthel Exp $
*
* :ts=4
*
@@ -37,7 +37,7 @@
/****************************************************************************/
/* The following is not part of the ISO 'C' standard. */
/* The following is not part of the ISO 'C' (1994) standard. */
/****************************************************************************/

View File

@@ -1,5 +1,5 @@
/*
* $Id: stat_fstat.c,v 1.1.1.1 2004-07-26 16:31:22 obarthel Exp $
* $Id: stat_fstat.c,v 1.2 2004-08-07 09:15:32 obarthel Exp $
*
* :ts=4
*
@@ -43,7 +43,7 @@
/****************************************************************************/
/* The following is not part of the ISO 'C' standard. */
/* The following is not part of the ISO 'C' (1994) standard. */
/****************************************************************************/

View File

@@ -1,5 +1,5 @@
/*
* $Id: stat_lstat.c,v 1.1.1.1 2004-07-26 16:31:22 obarthel Exp $
* $Id: stat_lstat.c,v 1.2 2004-08-07 09:15:32 obarthel Exp $
*
* :ts=4
*
@@ -43,7 +43,7 @@
/****************************************************************************/
/* The following is not part of the ISO 'C' standard. */
/* The following is not part of the ISO 'C' (1994) standard. */
/****************************************************************************/

View File

@@ -1,5 +1,5 @@
/*
* $Id: stat_mkdir.c,v 1.1.1.1 2004-07-26 16:31:22 obarthel Exp $
* $Id: stat_mkdir.c,v 1.2 2004-08-07 09:15:32 obarthel Exp $
*
* :ts=4
*
@@ -43,7 +43,7 @@
/****************************************************************************/
/* The following is not part of the ISO 'C' standard. */
/* The following is not part of the ISO 'C' (1994) standard. */
/****************************************************************************/

View File

@@ -1,5 +1,5 @@
/*
* $Id: stat_rmdir.c,v 1.1.1.1 2004-07-26 16:31:23 obarthel Exp $
* $Id: stat_rmdir.c,v 1.2 2004-08-07 09:15:32 obarthel Exp $
*
* :ts=4
*
@@ -43,7 +43,7 @@
/****************************************************************************/
/* The following is not part of the ISO 'C' standard. */
/* The following is not part of the ISO 'C' (1994) standard. */
/****************************************************************************/

View File

@@ -1,5 +1,5 @@
/*
* $Id: stat_stat.c,v 1.1.1.1 2004-07-26 16:31:23 obarthel Exp $
* $Id: stat_stat.c,v 1.2 2004-08-07 09:15:32 obarthel Exp $
*
* :ts=4
*
@@ -47,7 +47,7 @@
/****************************************************************************/
/* The following is not part of the ISO 'C' standard. */
/* The following is not part of the ISO 'C' (1994) standard. */
/****************************************************************************/

View File

@@ -1,5 +1,5 @@
/*
* $Id: stat_umask.c,v 1.1.1.1 2004-07-26 16:31:23 obarthel Exp $
* $Id: stat_umask.c,v 1.2 2004-08-07 09:15:32 obarthel Exp $
*
* :ts=4
*
@@ -37,7 +37,7 @@
/****************************************************************************/
/* The following is not part of the ISO 'C' standard. */
/* The following is not part of the ISO 'C' (1994) standard. */
/****************************************************************************/

View File

@@ -1,5 +1,5 @@
/*
* $Id: stdio_asprintf.c,v 1.1.1.1 2004-07-26 16:31:23 obarthel Exp $
* $Id: stdio_asprintf.c,v 1.2 2004-08-07 09:15:32 obarthel Exp $
*
* :ts=4
*
@@ -43,7 +43,7 @@
/****************************************************************************/
/* The following is not part of the ISO 'C' standard. */
/* The following is not part of the ISO 'C' (1994) standard. */
/****************************************************************************/

View File

@@ -1,5 +1,5 @@
/*
* $Id: stdio_headers.h,v 1.1.1.1 2004-07-26 16:31:35 obarthel Exp $
* $Id: stdio_headers.h,v 1.2 2004-08-07 09:15:32 obarthel Exp $
*
* :ts=4
*
@@ -72,7 +72,6 @@
/****************************************************************************/
/* The following is not part of the ISO 'C' standard. */
#include <sys/stat.h>
#include <unistd.h>
#include <dirent.h>

View File

@@ -1,5 +1,5 @@
/*
* $Id: stdio_popen.c,v 1.1.1.1 2004-07-26 16:31:38 obarthel Exp $
* $Id: stdio_popen.c,v 1.2 2004-08-07 09:15:32 obarthel Exp $
*
* :ts=4
*
@@ -49,7 +49,7 @@
/****************************************************************************/
/* The following is not part of the ISO 'C' standard. */
/* The following is not part of the ISO 'C' (1994) standard. */
/****************************************************************************/

View File

@@ -1,5 +1,5 @@
/*
* $Id: stdio_protos.h,v 1.1.1.1 2004-07-26 16:31:39 obarthel Exp $
* $Id: stdio_protos.h,v 1.2 2004-08-08 10:55:57 obarthel Exp $
*
* :ts=4
*
@@ -200,22 +200,4 @@ extern void __duplicate_fd(struct fd * duplicate_fd,struct fd * original_fd);
/****************************************************************************/
#if defined(FLOATING_POINT_SUPPORT)
/****************************************************************************/
/* stdio_isnotanumber.c */
extern int __is_not_a_number(long double number);
/****************************************************************************/
/* stdio_isinfinity.c */
extern int __is_infinity(long double number);
/****************************************************************************/
#endif /* FLOATING_POINT_SUPPORT */
/****************************************************************************/
#endif /* _STDIO_PROTOS_H */

View File

@@ -1,5 +1,5 @@
/*
* $Id: stdio_vasprintf.c,v 1.1.1.1 2004-07-26 16:31:43 obarthel Exp $
* $Id: stdio_vasprintf.c,v 1.2 2004-08-07 09:15:32 obarthel Exp $
*
* :ts=4
*
@@ -47,7 +47,7 @@
/****************************************************************************/
/* The following is not part of the ISO 'C' standard. */
/* The following is not part of the ISO 'C' (1994) standard. */
/****************************************************************************/

View File

@@ -1,5 +1,5 @@
/*
* $Id: stdio_vfprintf.c,v 1.1.1.1 2004-07-26 16:31:46 obarthel Exp $
* $Id: stdio_vfprintf.c,v 1.4 2004-08-14 11:11:01 obarthel Exp $
*
* :ts=4
*
@@ -72,7 +72,7 @@
/****************************************************************************/
static int
get_num_leading_digits(long double v)
get_num_leading_digits(__long_double_t v)
{
int num_digits;
@@ -634,30 +634,31 @@ vfprintf(FILE * stream,const char * format, va_list arg)
const char * buffer_stop = &buffer[sizeof(buffer)-1];
char * buffer_start = buffer;
long double v;
__long_double_t v;
int sign;
output_buffer = buffer_start;
D(("sizeof(long double) == %ld",sizeof(v)));
if(parameter_size == parameter_size_long_double)
v = va_arg(arg, long double);
v = va_arg(arg, __long_double_t);
else
v = va_arg(arg, double);
if(__is_infinity(fabs(v)))
if((sign = isinf(v)) != 0)
{
SHOWMSG("infinity");
strcpy(output_buffer,"Inf");
output_len = 3;
if(v < 0.0)
if(sign < 0)
SET_FLAG(format_flags,FORMATF_IsNegative);
fill_character = ' ';
}
else if (__is_not_a_number(v))
else if (isnan(v))
{
SHOWMSG("not a number");
@@ -676,7 +677,7 @@ vfprintf(FILE * stream,const char * format, va_list arg)
else
{
BOOL strip_trailing_zeroes = FALSE;
long double roundoff_fudge = 0.0;
__long_double_t roundoff_fudge = 0.0;
int max_digits = -1;
int exponent = 0;
int digit;
@@ -713,7 +714,7 @@ vfprintf(FILE * stream,const char * format, va_list arg)
/* Figure out whether 'e' or 'f' format should be used. */
if(conversion_type == 'g' || conversion_type == 'e')
{
long double local_v = v;
__long_double_t local_v = v;
int local_exponent = 0;
/* Put one single digit in front of the decimal point. */
@@ -978,7 +979,7 @@ vfprintf(FILE * stream,const char * format, va_list arg)
/* Remove the parameter from the argument vector and
don't produce any output. */
if(parameter_size == parameter_size_long_double)
(void)va_arg(arg, long double);
(void)va_arg(arg, __long_double_t);
else
(void)va_arg(arg, double);

View File

@@ -1,5 +1,5 @@
/*
* $Id: stdio_vfscanf.c,v 1.1.1.1 2004-07-26 16:31:48 obarthel Exp $
* $Id: stdio_vfscanf.c,v 1.2 2004-08-08 10:55:57 obarthel Exp $
*
* :ts=4
*
@@ -456,8 +456,8 @@ __vfscanf(FILE *stream, const char *format, va_list arg)
{
#if defined(FLOATING_POINT_SUPPORT)
{
long double sum = 0.0;
long double new_sum;
__long_double_t sum = 0.0;
__long_double_t new_sum;
BOOL is_negative = FALSE;
BOOL decimal_point_matches = FALSE;
BOOL have_exponent = FALSE;
@@ -495,7 +495,7 @@ __vfscanf(FILE *stream, const char *format, va_list arg)
{
SHOWMSG("extended format (long double)");
next_parameter = va_arg(arg,long double *);
next_parameter = va_arg(arg,__long_double_t *);
}
assert( next_parameter != NULL );
@@ -520,7 +520,7 @@ __vfscanf(FILE *stream, const char *format, va_list arg)
}
else
{
*((long double *)next_parameter) = 0;
*((__long_double_t *)next_parameter) = 0;
}
}
@@ -869,7 +869,7 @@ __vfscanf(FILE *stream, const char *format, va_list arg)
}
else
{
*((long double *)next_parameter) = sum;
*((__long_double_t *)next_parameter) = sum;
}
num_assignments++;
@@ -912,7 +912,7 @@ __vfscanf(FILE *stream, const char *format, va_list arg)
{
SHOWMSG("extended format (long double)");
next_parameter = va_arg(arg,long double *);
next_parameter = va_arg(arg,__long_double_t *);
}
assert( next_parameter != NULL );

View File

@@ -1,5 +1,5 @@
/*
* $Id: stdio_vsnprintf.c,v 1.1.1.1 2004-07-26 16:31:49 obarthel Exp $
* $Id: stdio_vsnprintf.c,v 1.2 2004-08-07 09:15:32 obarthel Exp $
*
* :ts=4
*
@@ -43,7 +43,7 @@
/****************************************************************************/
/* The following is not part of the ISO 'C' standard. */
/* The following is not part of the ISO 'C' (1994) standard. */
/****************************************************************************/

View File

@@ -1,5 +1,5 @@
/*
* $Id: stdio_vsnprintf_hook_entry.c,v 1.1.1.1 2004-07-26 16:31:49 obarthel Exp $
* $Id: stdio_vsnprintf_hook_entry.c,v 1.3 2004-08-07 10:24:04 obarthel Exp $
*
* :ts=4
*
@@ -43,10 +43,6 @@
/****************************************************************************/
/* The following is not part of the ISO 'C' standard. */
/****************************************************************************/
void
__vsnprintf_hook_entry(
struct Hook * UNUSED unused_hook,

View File

@@ -1,5 +1,5 @@
/*
* $Id: stdlib_mkdtemp.c,v 1.1.1.1 2004-07-26 16:32:00 obarthel Exp $
* $Id: stdlib_mkdtemp.c,v 1.2 2004-08-07 09:15:32 obarthel Exp $
*
* :ts=4
*
@@ -47,7 +47,7 @@
/****************************************************************************/
/* The following is not part of the ISO 'C' standard. */
/* The following is not part of the ISO 'C' (1994) standard. */
/****************************************************************************/

Some files were not shown because too many files have changed in this diff Show More