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

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

library/GNUmakefile.68k

@@ -1,5 +1,5 @@
 #
-# $Id: GNUmakefile.68k,v 1.3 2004-08-07 09:15:32 obarthel Exp $
+# $Id: GNUmakefile.68k,v 1.6 2004-08-16 09:33:11 obarthel Exp $
 #
 # :ts=8
 #
@@ -103,9 +103,9 @@ WARNINGS = \
 	-Wundef -Wbad-function-cast -Wmissing-declarations -Wconversion
 
 INCLUDES = -Iinclude -I. -Inetinclude
- OPTIONS = -DNDEBUG -fno-builtin -DNO_INLINE_STDARG
-#OPTIONS = -D__MEM_DEBUG -fno-builtin
-#OPTIONS = -DDEBUG -D__MEM_DEBUG -DNO_INLINE_STDARG -fno-builtin
+ OPTIONS = -DUSE_64_BIT_INTS -DNDEBUG -fno-builtin -DNO_INLINE_STDARG
+#OPTIONS = -DUSE_64_BIT_INTS -D__MEM_DEBUG -fno-builtin
+#OPTIONS = -DUSE_64_BIT_INTS -DDEBUG -D__MEM_DEBUG -DNO_INLINE_STDARG -fno-builtin
  OPTIMIZE = -O
 #OPTIMIZE = -O2 -fomit-frame-pointer
 #DEBUG = -g2
@@ -452,12 +452,14 @@ 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 \
@@ -698,11 +700,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 \
@@ -710,7 +707,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
 
 ##############################################################################
 

library/GNUmakefile.os4

@@ -1,5 +1,5 @@
 #
-# $Id: GNUmakefile.os4,v 1.3 2004-08-07 09:15:32 obarthel Exp $
+# $Id: GNUmakefile.os4,v 1.5 2004-08-16 09:33:11 obarthel Exp $
 #
 # :ts=8
 #
@@ -444,12 +444,14 @@ 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 \

library/amiga.lib_rev.h

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

library/amiga.lib_rev.rev

@@ -1 +1 @@
-168
+172

library/c.lib_rev.h

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

library/c.lib_rev.rev

@@ -1 +1 @@
-168
+172

library/debug.lib_rev.h

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

library/debug.lib_rev.rev

@@ -1 +1 @@
-168
+172

library/include/ctype.h

@@ -1,5 +1,5 @@
 /*
- * $Id: ctype.h,v 1.2 2004-08-07 09:15:33 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' (1994) 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 */

library/include/math.h

@@ -1,5 +1,5 @@
 /*
- * $Id: math.h,v 1.2 2004-08-07 09:15:33 obarthel Exp $
+ * $Id: math.h,v 1.4 2004-08-16 09:33:13 obarthel Exp $
  *
  * :ts=4
  *
@@ -89,6 +89,8 @@ 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);
 
 /****************************************************************************/
 

library/m.lib_rev.h

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

library/m.lib_rev.rev

@@ -1 +1 @@
-168
+172

library/m881.lib_rev.h

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

library/m881.lib_rev.rev

@@ -1 +1 @@
-168
+172

library/math_acos.c

@@ -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;
 	}
 

library/math_asin.c

@@ -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;
 	}
 

library/math_atan2.c

@@ -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;
-	}
+	result = __atan2(x,y);
 
 	return(result);
 }

library/math_data.c

@@ -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;

library/math_fmod.c

@@ -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;
 	}
 

library/math_fp_support.h

@@ -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];
+};
 
 /****************************************************************************/
 

library/math_headers.h

@@ -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 */

library/math_hypot.c

@@ -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 */

library/math_init_exit.c

@@ -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;
 

library/math_isinf.c

@@ -1,5 +1,5 @@
 /*
- * $Id: math_isinf.c,v 1.1 2004-08-07 09:15:32 obarthel Exp $
+ * $Id: math_isinf.c,v 1.2 2004-08-08 10:55:57 obarthel Exp $
  *
  * :ts=4
  *
@@ -45,26 +45,6 @@
 
 /****************************************************************************/
 
-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];
-};
-
-/****************************************************************************/
-
 int
 isinf(double number)
 {
@@ -93,6 +73,7 @@ isinf(double number)
 		/* Exponent = 2047 and fraction = 0.0 */
 		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;
@@ -102,6 +83,7 @@ isinf(double number)
 		/* Exponent = 32767 and fraction = 0.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 */

library/math_isnan.c

@@ -1,5 +1,5 @@
 /*
- * $Id: math_isnan.c,v 1.1 2004-08-07 09:15:32 obarthel Exp $
+ * $Id: math_isnan.c,v 1.2 2004-08-08 10:55:57 obarthel Exp $
  *
  * :ts=4
  *
@@ -45,26 +45,6 @@
 
 /****************************************************************************/
 
-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];
-};
-
-/****************************************************************************/
-
 int
 isnan(double number)
 {
@@ -92,15 +72,17 @@ isnan(double number)
 		/* Exponent = 2047 and fraction != 0.0 */
 		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 */
 	{
 		union ieee_long_double x;
 
 		x.value = number;
 
-		/* Exponent = 32767 and fraction != 0.0 */
+		/* 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 */

library/math_logb.c

@@ -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 */

library/math_sqrt.c

@@ -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;
 	}
 

library/net.lib_rev.h

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

library/net.lib_rev.rev

@@ -1 +1 @@
-168
+172

library/smakefile

@@ -1,5 +1,5 @@
 #
-# $Id: smakefile,v 1.4 2004-08-07 09:15:32 obarthel Exp $
+# $Id: smakefile,v 1.6 2004-08-16 09:33:12 obarthel Exp $
 #
 # :ts=8
 #
@@ -189,12 +189,14 @@ 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 \

library/stack.lib_rev.h

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

library/stack.lib_rev.rev

@@ -1 +1 @@
-168
+172

library/stdio_protos.h

@@ -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 */

library/stdio_vfprintf.c

@@ -1,5 +1,5 @@
 /*
- * $Id: stdio_vfprintf.c,v 1.2 2004-08-07 09:15:32 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,25 +634,26 @@ 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(isinf(v) != 0)
+				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 = ' ';
@@ -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);
 

library/stdio_vfscanf.c

@@ -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 );

library/stdlib_qsort.c

@@ -1,5 +1,5 @@
 /*
- * $Id: stdlib_qsort.c,v 1.1.1.1 2004-07-26 16:32:02 obarthel Exp $
+ * $Id: stdlib_qsort.c,v 1.2 2004-08-14 11:11:01 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.1.1.1 2004-07-26 16:32:14 obarthel Exp $
+ * $Id: string_headers.h,v 1.2 2004-08-14 11:11:01 obarthel Exp $
  *
  * :ts=4
  *
@@ -57,4 +57,21 @@
 
 /****************************************************************************/
 
+/* 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.1.1.1 2004-07-26 16:32:15 obarthel Exp $
+ * $Id: string_memchr.c,v 1.2 2004-08-14 11:11:01 obarthel Exp $
  *
  * :ts=4
  *
@@ -43,12 +43,6 @@
 
 /****************************************************************************/
 
-#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.1.1.1 2004-07-26 16:32:15 obarthel Exp $
+ * $Id: string_memcmp.c,v 1.3 2004-08-14 11:11:01 obarthel Exp $
  *
  * :ts=4
  *
@@ -43,12 +43,6 @@
 
 /****************************************************************************/
 
-#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)
 {
@@ -154,8 +148,16 @@ __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.1.1.1 2004-07-26 16:32:15 obarthel Exp $
+ * $Id: string_memcpy.c,v 1.3 2004-08-14 11:11:01 obarthel Exp $
  *
  * :ts=4
  *
@@ -184,8 +184,16 @@ 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;
 
@@ -221,12 +229,6 @@ 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)
 {
@@ -322,8 +324,16 @@ __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.1.1.1 2004-07-26 16:32:16 obarthel Exp $
+ * $Id: string_memmove.c,v 1.2 2004-08-14 11:11:01 obarthel Exp $
  *
  * :ts=4
  *
@@ -351,12 +351,6 @@ 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.1.1.1 2004-07-26 16:32:17 obarthel Exp $
+ * $Id: string_memset.c,v 1.3 2004-08-14 11:11:01 obarthel Exp $
  *
  * :ts=4
  *
@@ -43,12 +43,6 @@
 
 /****************************************************************************/
 
-#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)
 {
@@ -132,8 +126,16 @@ __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	168
-#define DATE		"7.8.2004"
-#define VERS		"unix.lib 1.168"
-#define VSTRING		"unix.lib 1.168 (7.8.2004)\r\n"
-#define VERSTAG		"\0$VER: unix.lib 1.168 (7.8.2004)"
+#define REVISION	172
+#define DATE		"21.8.2004"
+#define VERS		"unix.lib 1.172"
+#define VSTRING		"unix.lib 1.172 (21.8.2004)\r\n"
+#define VERSTAG		"\0$VER: unix.lib 1.172 (21.8.2004)"

library/unix.lib_rev.rev

@@ -1 +1 @@
-168
+172