This commit was manufactured by cvs2svn to create tag 'V1_170'.

git-svn-id: file:///Users/olsen/Code/migration-svn-zu-git/logical-line-staging/clib2/tags/V1_170@14707 87f5fb63-7c3d-0410-a384-fd976d0f7a62

library/GNUmakefile.68k

@@ -1,5 +1,5 @@
 #
-# $Id: GNUmakefile.68k,v 1.8 2004-08-25 15:27:27 obarthel Exp $
+# $Id: GNUmakefile.68k,v 1.5 2004-08-14 08:54:25 obarthel Exp $
 #
 # :ts=8
 #
@@ -144,7 +144,6 @@ 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 \
@@ -396,7 +395,6 @@ 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 \
@@ -454,7 +452,6 @@ MATH_LIB = \
 	math_floor.o \
 	math_fmod.o \
 	math_frexp.o \
-	math_hypot.o \
 	math_init_exit.o \
 	math_isinf.o \
 	math_isnan.o \

library/GNUmakefile.os4

@@ -1,5 +1,5 @@
 #
-# $Id: GNUmakefile.os4,v 1.6 2004-08-25 15:27:27 obarthel Exp $
+# $Id: GNUmakefile.os4,v 1.4 2004-08-12 12:31:15 obarthel Exp $
 #
 # :ts=8
 #
@@ -138,7 +138,6 @@ 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 \
@@ -388,7 +387,6 @@ 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 \
@@ -446,7 +444,6 @@ MATH_LIB = \
 	math_floor.o \
 	math_fmod.o \
 	math_frexp.o \
-	math_hypot.o \
 	math_init_exit.o \
 	math_isnan.o \
 	math_isinf.o \

library/amiga.lib_rev.h

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

library/amiga.lib_rev.rev

@@ -1 +1 @@
-173
+170

library/c.lib_rev.h

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

library/c.lib_rev.rev

@@ -1 +1 @@
-173
+170

library/debug.lib_rev.h

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

library/debug.lib_rev.rev

@@ -1 +1 @@
-173
+170

library/fcntl_get_default_file.c

@@ -1,69 +0,0 @@
-/*
- * $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);
-}

library/include/assert.h

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

library/include/dos.h

@@ -1,5 +1,5 @@
 /*
- * $Id: dos.h,v 1.3 2004-08-25 15:27:28 obarthel Exp $
+ * $Id: dos.h,v 1.2 2004-08-07 09:15:33 obarthel Exp $
  *
  * :ts=4
  *
@@ -112,18 +112,6 @@ 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.

library/include/math.h

@@ -1,5 +1,5 @@
 /*
- * $Id: math.h,v 1.4 2004-08-16 09:33:13 obarthel Exp $
+ * $Id: math.h,v 1.3 2004-08-12 12:31:29 obarthel Exp $
  *
  * :ts=4
  *
@@ -90,7 +90,6 @@ 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);
 
 /****************************************************************************/
 

library/include/stdio.h

@@ -1,5 +1,5 @@
 /*
- * $Id: stdio.h,v 1.3 2004-08-25 15:27:28 obarthel Exp $
+ * $Id: stdio.h,v 1.2 2004-08-07 09:15:33 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 64
+#define FOPEN_MAX 8
 
 /****************************************************************************/
 

library/m.lib_rev.h

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

library/m.lib_rev.rev

@@ -1 +1 @@
-173
+170

library/m881.lib_rev.h

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

library/m881.lib_rev.rev

@@ -1 +1 @@
-173
+170

library/math_acos.c

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

library/math_asin.c

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

library/math_atan2.c

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

library/math_data.c

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

library/math_fmod.c

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

library/math_headers.h

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

library/math_hypot.c

@@ -1,171 +0,0 @@
-/*
- * $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 */

library/math_init_exit.c

@@ -1,5 +1,5 @@
 /*
- * $Id: math_init_exit.c,v 1.3 2004-08-21 18:57:40 obarthel Exp $
+ * $Id: math_init_exit.c,v 1.2 2004-08-08 10:55:57 obarthel Exp $
  *
  * :ts=4
  *
@@ -130,23 +130,9 @@ __math_init(void)
 			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) );
 
 		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 */
 	{
@@ -156,23 +142,9 @@ __math_init(void)
 			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) );
 
 		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 */
@@ -183,23 +155,9 @@ __math_init(void)
 			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) );
 
 		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 */
 

library/math_logb.c

@@ -1,5 +1,5 @@
 /*
- * $Id: math_logb.c,v 1.2 2004-08-14 11:11:01 obarthel Exp $
+ * $Id: math_logb.c,v 1.1 2004-08-12 12:31:16 obarthel Exp $
  *
  * :ts=4
  *
@@ -59,7 +59,7 @@ __logb(double x)
 {
 	double result;
 
-	result = log(x) / log((double)FLT_RADIX);
+	result = log(x) / log(FLT_RADIX);
 
 	return(result);
 }

library/math_sqrt.c

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

library/net.lib_rev.h

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

library/net.lib_rev.rev

@@ -1 +1 @@
-173
+170

library/smakefile

@@ -1,5 +1,5 @@
 #
-# $Id: smakefile,v 1.7 2004-08-25 15:27:27 obarthel Exp $
+# $Id: smakefile,v 1.5 2004-08-12 12:31:27 obarthel Exp $
 #
 # :ts=8
 #
@@ -163,8 +163,7 @@ 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 \
@@ -190,7 +189,6 @@ MATH_OBJ = \
 	math_floor.o \
 	math_fmod.o \
 	math_frexp.o \
-	math_hypot.o \
 	math_init_exit.o \
 	math_isinf.o \
 	math_isnan.o \

library/stack.lib_rev.h

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

library/stack.lib_rev.rev

@@ -1 +1 @@
-173
+170

library/stdio_vfprintf.c

@@ -1,5 +1,5 @@
 /*
- * $Id: stdio_vfprintf.c,v 1.4 2004-08-14 11:11:01 obarthel Exp $
+ * $Id: stdio_vfprintf.c,v 1.3 2004-08-08 10:55:57 obarthel Exp $
  *
  * :ts=4
  *
@@ -635,7 +635,6 @@ vfprintf(FILE * stream,const char * format, va_list arg)
 				char *			buffer_start	= buffer;
 
 				__long_double_t v;
-				int sign;
 
 				output_buffer = buffer_start;
 
@@ -646,14 +645,14 @@ vfprintf(FILE * stream,const char * format, va_list arg)
 				else
 					v = va_arg(arg, double);
 
-				if((sign = isinf(v)) != 0)
+				if(isinf(v) != 0)
 				{
 					SHOWMSG("infinity");
 
 					strcpy(output_buffer,"Inf");
 					output_len = 3;
 
-					if(sign < 0)
+					if(v < 0.0)
 						SET_FLAG(format_flags,FORMATF_IsNegative);
 
 					fill_character = ' ';

library/stdlib_qsort.c

@@ -1,5 +1,5 @@
 /*
- * $Id: stdlib_qsort.c,v 1.2 2004-08-14 11:11:01 obarthel Exp $
+ * $Id: stdlib_qsort.c,v 1.1.1.1 2004-07-26 16:32:02 obarthel Exp $
  *
  * :ts=4
  *
@@ -81,7 +81,7 @@
 /* For an 68030 and beyond the alignment does not matter and you can skip the
    second half of the test (everything beyond the 'nbytes >= sizeof(long)'). */
 #if defined(M68020)
-#define IS_WORD_ALIGNED(a,b) (1)
+#define IS_WORD_ALIGNED(a,b) 1
 #else
 #define IS_WORD_ALIGNED(a,b) (((((unsigned long)(a)) | ((unsigned long)(b))) & 1) == 0)
 #endif /* M68020 */

library/string_headers.h

@@ -1,5 +1,5 @@
 /*
- * $Id: string_headers.h,v 1.2 2004-08-14 11:11:01 obarthel Exp $
+ * $Id: string_headers.h,v 1.1.1.1 2004-07-26 16:32:14 obarthel Exp $
  *
  * :ts=4
  *
@@ -57,21 +57,4 @@
 
 /****************************************************************************/
 
-/* Address is neither aligned to a word or long word boundary. */
-#define IS_UNALIGNED(a) ((((unsigned long)(a)) & 1) != 0)
-
-/* Address is aligned to a word boundary, but not to a long
-   word boundary. */
-#define IS_SHORT_ALIGNED(a) ((((unsigned long)(a)) & 3) == 2)
-
-/* Address is aligned to a long word boundary. For an 68030 and beyond the
-   alignment does not matter. */
-#if defined(M68020)
-#define IS_LONG_ALIGNED(a) ((((unsigned long)(a)) & 3) == 0)
-#else
-#define IS_LONG_ALIGNED(a) (1)
-#endif /* M68020 */
-
-/****************************************************************************/
-
 #endif /* _STRING_HEADERS_H */

library/string_memchr.c

@@ -1,5 +1,5 @@
 /*
- * $Id: string_memchr.c,v 1.2 2004-08-14 11:11:01 obarthel Exp $
+ * $Id: string_memchr.c,v 1.1.1.1 2004-07-26 16:32:15 obarthel Exp $
  *
  * :ts=4
  *
@@ -43,6 +43,12 @@
 
 /****************************************************************************/
 
+#define IS_UNALIGNED(a) 	((((unsigned long)(a)) & 1) != 0)
+#define IS_SHORT_ALIGNED(a)	((((unsigned long)(a)) & 3) == 2)
+#define IS_LONG_ALIGNED(a)	((((unsigned long)(a)) & 1) == 0)
+
+/****************************************************************************/
+
 /* Check if one of the four bytes which make up a long word is zero. */
 #define LONG_CONTAINS_ZERO_OCTET(x) (((x) + 0xfefefeff) & ~((x) | 0x7f7f7f7f))
 

library/string_memcmp.c

@@ -1,5 +1,5 @@
 /*
- * $Id: string_memcmp.c,v 1.3 2004-08-14 11:11:01 obarthel Exp $
+ * $Id: string_memcmp.c,v 1.1.1.1 2004-07-26 16:32:15 obarthel Exp $
  *
  * :ts=4
  *
@@ -43,6 +43,12 @@
 
 /****************************************************************************/
 
+#define IS_UNALIGNED(a) 	((((unsigned long)(a)) & 1) != 0)
+#define IS_SHORT_ALIGNED(a)	((((unsigned long)(a)) & 3) == 2)
+#define IS_LONG_ALIGNED(a)	((((unsigned long)(a)) & 1) == 0)
+
+/****************************************************************************/
+
 INLINE static int
 __memcmp(const char *m1,const char *m2,size_t len)
 {
@@ -148,16 +154,8 @@ __memcmp(const char *m1,const char *m2,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)
-int
-memcmp(const void *ptr1, const void *ptr2, unsigned long len)
-#else
 int
 memcmp(const void *ptr1, const void *ptr2, size_t len)
-#endif /* __GNUC__ && __GNUC__ < 3 */
 {
 	int result = 0;
 

library/string_memcpy.c

@@ -1,5 +1,5 @@
 /*
- * $Id: string_memcpy.c,v 1.3 2004-08-14 11:11:01 obarthel Exp $
+ * $Id: string_memcpy.c,v 1.1.1.1 2004-07-26 16:32:15 obarthel Exp $
  *
  * :ts=4
  *
@@ -184,16 +184,8 @@ extern void __bcopy(const void *src,void *dst,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)
-void *
-memcpy(void *dst, const void *src, unsigned long len)
-#else
 void *
 memcpy(void *dst, const void *src, size_t len)
-#endif /* __GNUC__ && __GNUC__ < 3 */
 {
 	void * result = dst;
 
@@ -229,6 +221,12 @@ memcpy(void *dst, const void *src, size_t len)
 
 /****************************************************************************/
 
+#define IS_UNALIGNED(a) 	((((unsigned long)(a)) & 1) != 0)
+#define IS_SHORT_ALIGNED(a)	((((unsigned long)(a)) & 3) == 2)
+#define IS_LONG_ALIGNED(a)	((((unsigned long)(a)) & 1) == 0)
+
+/****************************************************************************/
+
 INLINE static void 
 __memcpy(unsigned char * to,unsigned char * from,size_t len)
 {
@@ -324,16 +322,8 @@ __memcpy(unsigned char * to,unsigned char * from,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)
-void *
-memcpy(void *dst, const void *src, unsigned long len)
-#else
 void *
 memcpy(void *dst, const void *src, size_t len)
-#endif /* __GNUC__ && __GNUC__ < 3 */
 {
 	void * result = dst;
 

library/string_memmove.c

@@ -1,5 +1,5 @@
 /*
- * $Id: string_memmove.c,v 1.2 2004-08-14 11:11:01 obarthel Exp $
+ * $Id: string_memmove.c,v 1.1.1.1 2004-07-26 16:32:16 obarthel Exp $
  *
  * :ts=4
  *
@@ -351,6 +351,12 @@ memmove(void *dest, const void * src, size_t len)
 
 /****************************************************************************/
 
+#define IS_UNALIGNED(a) 	((((unsigned long)(a)) & 1) != 0)
+#define IS_SHORT_ALIGNED(a)	((((unsigned long)(a)) & 3) == 2)
+#define IS_LONG_ALIGNED(a)	((((unsigned long)(a)) & 1) == 0)
+
+/****************************************************************************/
+
 INLINE static void
 __memmove(unsigned char * to,unsigned char * from,size_t len)
 {

library/string_memset.c

@@ -1,5 +1,5 @@
 /*
- * $Id: string_memset.c,v 1.3 2004-08-14 11:11:01 obarthel Exp $
+ * $Id: string_memset.c,v 1.1.1.1 2004-07-26 16:32:17 obarthel Exp $
  *
  * :ts=4
  *
@@ -43,6 +43,12 @@
 
 /****************************************************************************/
 
+#define IS_UNALIGNED(a) 	((((unsigned long)(a)) & 1) != 0)
+#define IS_SHORT_ALIGNED(a)	((((unsigned long)(a)) & 3) == 2)
+#define IS_LONG_ALIGNED(a)	((((unsigned long)(a)) & 1) == 0)
+
+/****************************************************************************/
+
 INLINE static void
 __memset(unsigned char * to,unsigned char value,size_t len)
 {
@@ -126,16 +132,8 @@ __memset(unsigned char * to,unsigned char value,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)
-void *
-memset(void *ptr, int val, unsigned long len)
-#else
 void *
 memset(void *ptr, int val, size_t len)
-#endif /* __GNUC__ && __GNUC__ < 3 */
 {
 	void * result = ptr;
 	unsigned char * m = ptr;

library/unix.lib_rev.h

@@ -1,6 +1,6 @@
 #define VERSION		1
-#define REVISION	173
+#define REVISION	170
-#define DATE		"25.8.2004"
+#define DATE		"14.8.2004"
-#define VERS		"unix.lib 1.173"
+#define VERS		"unix.lib 1.170"
-#define VSTRING		"unix.lib 1.173 (25.8.2004)\r\n"
+#define VSTRING		"unix.lib 1.170 (14.8.2004)\r\n"
-#define VERSTAG		"\0$VER: unix.lib 1.173 (25.8.2004)"
+#define VERSTAG		"\0$VER: unix.lib 1.170 (14.8.2004)"

library/unix.lib_rev.rev

@@ -1 +1 @@
-173
+170