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

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

library/GNUmakefile.68k

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

library/GNUmakefile.os4

@@ -1,5 +1,5 @@
 #
-# $Id: GNUmakefile.os4,v 1.5 2004-08-16 09:33:11 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 \

library/amiga.lib_rev.h

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

library/amiga.lib_rev.rev

@@ -1 +1 @@
-172
+175

library/c.lib_rev.h

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

library/c.lib_rev.rev

@@ -1 +1 @@
-172
+175

library/changes

@@ -1,3 +1,42 @@
+c.lib 1.175 (10.9.2004)
+
+- <stdarg.h> now tries to use the compiler supplied, machine specific
+  <stdarg.h> file and also includes the OS4-specifc <sys/amigaos-va.h>
+  file, if necessary.
+
+- Added another test to <sys/time.h> to check if the "timeval" definition is
+  already in place. If it is, <exec/types.h> will not be included.
+
+- <sys/time.h> can be made to define the timeval data structure locally if
+  the __USE_CLIB2_TIMEVAL preprocessor symbol is defined. In this case no
+  <exec/types.h> or <devices/timer.h> file will be read.
+
+- The sprintf() family did not properly handle empty strings as format
+  specifications. This would result in a necessary buffer flush action
+  getting skipped, which consequently did not put the string termination
+  character into the output buffer.
+
+
+c.lib 1.174 (27.8.2004)
+
+- The parameters of atan2() were swapped. Fixed.
+
+- Merged fdlibm 5.3 changes with __kernel_tan(), __exp() and __pow()
+  functions.
+
+- Replaced the rint() and rintf() functions with the fdlibm code.
+
+
+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.
+
+
 c.lib 1.172 (21.8.2004)
 
 - acos() now returns 0 for a domain error.

library/debug.lib_rev.h

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

library/debug.lib_rev.rev

@@ -1 +1 @@
-172
+175

library/fcntl_get_default_file.c

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

library/include/assert.h

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

library/include/dos.h

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

library/include/stdarg.h

@@ -1,5 +1,5 @@
 /*
- * $Id: stdarg.h,v 1.1.1.1 2004-07-26 16:32:53 obarthel Exp $
+ * $Id: stdarg.h,v 1.2 2004-09-09 08:25:30 obarthel Exp $
  *
  * :ts=4
  *
@@ -57,12 +57,25 @@ typedef char * va_list;
 /****************************************************************************/
 
 #else
- #if defined(__GNUC__)
+
-  #undef _STDARG_H
+/****************************************************************************/
-  #include_next "stdarg.h"
+
- #else
+#if defined(__GNUC__)
-  #error "Unknown compiler"
+
- #endif /* __GNUC__ */
+/* Use the compiler supplied, machine specific <stdarg.h> file. */
+#undef _STDARG_H
+#include_next "stdarg.h"
+
+#include <sys/amigaos-va.h>
+
+#else
+
+#error "Unknown compiler"
+
+#endif /* __GNUC__ */
+
+/****************************************************************************/
+
 #endif /* __amigaos4__ */
 
 /****************************************************************************/

library/include/stdio.h

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

library/include/sys/time.h

@@ -1,5 +1,5 @@
 /*
- * $Id: time.h,v 1.2 2004-08-07 09:15:33 obarthel Exp $
+ * $Id: time.h,v 1.6 2004-09-10 07:39:20 obarthel Exp $
  *
  * :ts=4
  *
@@ -52,7 +52,7 @@ extern "C" {
    structure and try to get by with this definition. Sometimes it works,
    sometimes it doesn't. Not sure if there really is a good solution for
    this problem... */
-#ifndef DEVICES_TIMER_H
+#if !defined(__TIMEVAL_ALREADY_DEFINED) && !defined(__USE_CLIB2_TIMEVAL)
 
 /****************************************************************************/
 
@@ -73,11 +73,23 @@ extern "C" {
 /****************************************************************************/
 
 /* This will define the 'struct timeval' */
+#ifndef DEVICES_TIMER_H
 #include <devices/timer.h>
+#endif /* DEVICES_TIMER_H */
 
 /****************************************************************************/
 
-#else
+#endif /* INCLUDE_VERSION */
+
+/****************************************************************************/
+
+#endif /* !__TIMEVAL_ALREADY_DEFINED && !__USE_CLIB2_TIMEVAL */
+
+/****************************************************************************/
+
+/* If the timeval is still undefined or should be defined locally,
+   define our own now... */
+#if !defined(__TIMEVAL_ALREADY_DEFINED)
 
 /****************************************************************************/
 
@@ -94,11 +106,7 @@ struct timeval
 
 /****************************************************************************/
 
-#endif /* INCLUDE_VERSION */
+#endif /* !__TIMEVAL_ALREADY_DEFINED */
-
-/****************************************************************************/
-
-#endif /* DEVICES_TIMER_H */
 
 /****************************************************************************/
 

library/m.lib_rev.h

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

library/m.lib_rev.rev

@@ -1 +1 @@
-172
+175

library/m881.lib_rev.h

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

library/m881.lib_rev.rev

@@ -1 +1 @@
-172
+175

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.3 2004-08-27 11:40:49 obarthel Exp $
  *
  * :ts=4
  *
@@ -63,7 +63,7 @@ extern double __atan(double x);
 /****************************************************************************/
 
 INLINE static const double
-__atan2(double x,double y)
+__atan2(double y,double x)
 {
 	const double pi = 3.14159265358979323846;
 	const double pi_over_2 = pi / 2.0;
@@ -135,7 +135,7 @@ __atan(double x)
 }
 
 INLINE static const double
-__atan2(double x,double y)
+__atan2(double y,double x)
 {
 	double pi,pi_over_2;
 	double result;
@@ -210,7 +210,7 @@ pi      = 3.1415926535897931160E+00, /* 0x400921FB, 0x54442D18 */
 pi_lo   = 1.2246467991473531772E-16; /* 0x3CA1A626, 0x33145C07 */
 
 INLINE static const double
-__atan2(double x,double y)
+__atan2(double y,double x)
 {
 	double z;
 	int k,m,hx,hy,ix,iy;
@@ -319,11 +319,11 @@ __atan2(double x,double y)
 /****************************************************************************/
 
 double
-atan2(double x,double y)
+atan2(double y,double x)
 {
 	double result;
 
-	result = __atan2(x,y);
+	result = __atan2(y,x);
 
 	return(result);
 }

library/math_exp.c

@@ -1,5 +1,5 @@
 /*
- * $Id: math_exp.c,v 1.1.1.1 2004-07-26 16:30:41 obarthel Exp $
+ * $Id: math_exp.c,v 1.2 2004-08-27 11:40:49 obarthel Exp $
  *
  * :ts=4
  *
@@ -194,7 +194,7 @@ __exp(double x)
 	    } 
 		else 
 		{
-			k  = invln2*x+halF[xsb];
+			k  = (int)(invln2*x+halF[xsb]);
 			t  = k;
 			hi = x - t*ln2HI[0];	/* t*ln2HI is exact here */
 			lo = t*ln2LO[0];

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.4 2004-08-27 13:49:17 obarthel Exp $
  *
  * :ts=4
  *
@@ -148,6 +148,33 @@ do {												\
   (d) = sl_u.value;									\
 } while (0)
 
+/* A union which permits us to convert between a float and a 32 bit
+   int. */
+
+typedef union
+{
+  float value;
+  unsigned int word;
+} ieee_float_shape_type;
+
+/* Get a 32 bit int from a float.  */
+
+#define GET_FLOAT_WORD(i,d)		\
+do {							\
+  ieee_float_shape_type gf_u;	\
+  gf_u.value = (d);				\
+  (i) = gf_u.word;				\
+} while (0)
+
+/* Set a float from a 32 bit int.  */
+
+#define SET_FLOAT_WORD(d,i)		\
+do {							\
+  ieee_float_shape_type sf_u;	\
+  sf_u.word = (i);				\
+  (d) = sf_u.value;				\
+} while (0)
+
 extern double __kernel_cos(double x, double y);
 extern double __kernel_sin(double x, double y, int iy);
 extern int __rem_pio2(double x, double *y);

library/math_kernel_tan.c

@@ -1,5 +1,5 @@
 /*
- * $Id: math_kernel_tan.c,v 1.1.1.1 2004-07-26 16:30:48 obarthel Exp $
+ * $Id: math_kernel_tan.c,v 1.2 2004-08-27 11:40:49 obarthel Exp $
  *
  * :ts=4
  *
@@ -82,7 +82,21 @@ double __kernel_tan(double x, double y, int iy)
 			unsigned int low;
 			GET_LOW_WORD(low,x);
 			if(((ix|low)|(iy+1))==0) return one/fabs(x);
-			else return (iy==1)? x: -one/x;
+			else {
+				if (iy == 1)
+					return x;
+				else {	/* compute -1 / (x+y) carefully */
+					double a, t;
+
+					z = w = x + y;
+					SET_LOW_WORD(z,0);
+					v = y - (z - x);
+					t = a = -one / w;
+					SET_LOW_WORD(t,0);
+					s = one + t * z;
+					return t + a * (s + t * v);
+				}
+			}
 		}
 	}
 	if(ix>=0x3FE59428) { 			/* |x|>=0.6744 */

library/math_pow.c

@@ -1,5 +1,5 @@
 /*
- * $Id: math_pow.c,v 1.1.1.1 2004-07-26 16:30:52 obarthel Exp $
+ * $Id: math_pow.c,v 1.2 2004-08-27 11:40:49 obarthel Exp $
  *
  * :ts=4
  *
@@ -286,11 +286,12 @@ __pow(double x,double y)
 	}
     
     /* (x<0)**(non-int) is NaN */
-    /* REDHAT LOCAL: This used to be
+	n = ((unsigned int)hx>>31)+1;
-	   if((((hx>>31)+1)|yisint)==0) return (x-x)/(x-x);
+	if((n|yisint)==0) return (x-x)/(x-x);
-       but ANSI C says a right shift of a signed negative quantity is
+
-       implementation defined.  */
+	s = one; /* s (sign of result -ve**odd) = -1 else = 1 */
-	if(((((unsigned int)hx>>31)-1)|yisint)==0) return (x-x)/(x-x);
+	if((n|(yisint-1))==0)
+		s = -one;/* (-ve)**(odd int) */
 
     /* |y| is huge */
 	if(iy>0x41e00000) { /* if |y| > 2**31 */
@@ -299,11 +300,11 @@ __pow(double x,double y)
 			if(ix>=0x3ff00000) return (hy>0)? huge*huge:tiny*tiny;
 	    }
 		/* over/underflow if x is not close to one */
-	    if(ix<0x3fefffff) return (hy<0)? huge*huge:tiny*tiny;
+	    if(ix<0x3fefffff) return (hy<0)? s*huge*huge:s*tiny*tiny;
-	    if(ix>0x3ff00000) return (hy>0)? huge*huge:tiny*tiny;
+	    if(ix>0x3ff00000) return (hy>0)? s*huge*huge:s*tiny*tiny;
 		/* now |1-x| is tiny <= 2**-20, suffice to compute 
 		   log(x) by x-x^2/2+x^3/3-x^4/4 */
-	    t = ax-1;		/* t has 20 trailing zeros */
+	    t = ax-one;		/* t has 20 trailing zeros */
 	    w = (t*t)*(0.5-t*(0.3333333333333333333333-t*0.25));
 	    u = ivln2_h*t;	/* ivln2_h has 21 sig. bits */
 	    v = t*ivln2_l-w*ivln2;
@@ -311,7 +312,7 @@ __pow(double x,double y)
 	    SET_LOW_WORD(t1,0);
 	    t2 = v-(t1-u);
 	} else {
-	    double s2,s_h,s_l,t_h,t_l;
+	    double ss,s2,s_h,s_l,t_h,t_l;
 	    n = 0;
 		/* take care subnormal number */
 	    if(ix<0x00100000)
@@ -325,11 +326,11 @@ __pow(double x,double y)
 	    else {k=0;n+=1;ix -= 0x00100000;}
 	    SET_HIGH_WORD(ax,ix);
 
-		/* compute s = s_h+s_l = (x-1)/(x+1) or (x-1.5)/(x+1.5) */
+		/* compute ss = s_h+s_l = (x-1)/(x+1) or (x-1.5)/(x+1.5) */
 	    u = ax-bp[k];		/* bp[0]=1.0, bp[1]=1.5 */
 	    v = one/(ax+bp[k]);
-	    s = u*v;
+	    ss = u*v;
-	    s_h = s;
+	    s_h = ss;
 	    SET_LOW_WORD(s_h,0);
 		/* t_h=ax+bp[k] High */
 	    t_h = zero;
@@ -337,33 +338,29 @@ __pow(double x,double y)
 	    t_l = ax - (t_h-bp[k]);
 	    s_l = v*((u-s_h*t_h)-s_h*t_l);
 		/* compute log(ax) */
-	    s2 = s*s;
+	    s2 = ss*ss;
 	    r = s2*s2*(L1+s2*(L2+s2*(L3+s2*(L4+s2*(L5+s2*L6)))));
-	    r += s_l*(s_h+s);
+	    r += s_l*(s_h+ss);
 	    s2  = s_h*s_h;
 	    t_h = 3.0+s2+r;
 	    SET_LOW_WORD(t_h,0);
 	    t_l = r-((t_h-3.0)-s2);
-		/* u+v = s*(1+...) */
+		/* u+v = ss*(1+...) */
 	    u = s_h*t_h;
-	    v = s_l*t_h+t_l*s;
+	    v = s_l*t_h+t_l*ss;
-		/* 2/(3log2)*(s+...) */
+		/* 2/(3log2)*(ss+...) */
 	    p_h = u+v;
 	    SET_LOW_WORD(p_h,0);
 	    p_l = v-(p_h-u);
 	    z_h = cp_h*p_h;		/* cp_h+cp_l = 2/(3*log2) */
 	    z_l = cp_l*p_h+p_l*cp+dp_l[k];
-		/* log2(ax) = (s+..)*2/(3*log2) = n + dp_h + z_h + z_l */
+		/* log2(ax) = (ss+..)*2/(3*log2) = n + dp_h + z_h + z_l */
 	    t = (double)n;
 	    t1 = (((z_h+z_l)+dp_h[k])+t);
 	    SET_LOW_WORD(t1,0);
 	    t2 = z_l-(((t1-t)-dp_h[k])-z_h);
 	}
 
-	s = one; /* s (sign of result -ve**odd) = -1 else = 1 */
-	if(((((unsigned int)hx>>31)-1)|(yisint-1))==0)
-	    s = -one;/* (-ve)**(odd int) */
-
     /* split up y into y1+y2 and compute (y1+y2)*(t1+t2) */
 	y1  = y;
 	SET_LOW_WORD(y1,0);

library/math_rint.c

@@ -1,5 +1,5 @@
 /*
- * $Id: math_rint.c,v 1.2 2004-08-07 09:15:32 obarthel Exp $
+ * $Id: math_rint.c,v 1.3 2004-08-27 13:49:17 obarthel Exp $
  *
  * :ts=4
  *
@@ -54,6 +54,10 @@
 
 /****************************************************************************/
 
+#if defined(IEEE_FLOATING_POINT_SUPPORT) || defined(M68881_FLOATING_POINT_SUPPORT)
+
+/****************************************************************************/
+
 double
 rint(double x)
 {
@@ -62,5 +66,71 @@ rint(double x)
 
 /****************************************************************************/
 
-#endif /* FLOATING_POINT_SUPPORT */
+#endif /* IEEE_FLOATING_POINT_SUPPORT || M68881_FLOATING_POINT_SUPPORT */
 
+/****************************************************************************/
+
+#if defined(PPC_FLOATING_POINT_SUPPORT)
+
+/****************************************************************************/
+
+static const double
+TWO52[2]={
+  4.50359962737049600000e+15, /* 0x43300000, 0x00000000 */
+ -4.50359962737049600000e+15, /* 0xC3300000, 0x00000000 */
+};
+
+double
+rint(double x)
+{
+	int i0,j0,sx;
+	unsigned i,i1;
+	double w,t;
+	GET_HIGH_WORD(i0,x);
+	sx = (i0>>31)&1;
+	GET_LOW_WORD(i1,x);
+	j0 = ((i0>>20)&0x7ff)-0x3ff;
+	if(j0<20) {
+	    if(j0<0) { 	
+		if(((i0&0x7fffffff)|i1)==0) return x;
+		i1 |= (i0&0x0fffff);
+		i0 &= 0xfffe0000;
+		i0 |= ((i1|-i1)>>12)&0x80000;
+		SET_HIGH_WORD(x,i0);
+	        w = TWO52[sx]+x;
+	        t =  w-TWO52[sx];
+	        GET_HIGH_WORD(i0,t);
+	        SET_HIGH_WORD(t,(i0&0x7fffffff)|(sx<<31));
+	        return t;
+	    } else {
+		i = (0x000fffff)>>j0;
+		if(((i0&i)|i1)==0) return x; /* x is integral */
+		i>>=1;
+		if(((i0&i)|i1)!=0) {
+		    if(j0==19) i1 = 0x40000000; else
+		    i0 = (i0&(~i))|((0x20000)>>j0);
+		}
+	    }
+	} else if (j0>51) {
+	    if(j0==0x400) return x+x;	/* inf or NaN */
+	    else return x;		/* x is integral */
+	} else {
+	    i = ((unsigned)(0xffffffff))>>(j0-20);
+	    if((i1&i)==0) return x;	/* x is integral */
+	    i>>=1;
+	    if((i1&i)!=0) i1 = (i1&(~i))|((0x40000000)>>(j0-20));
+	}
+	
+	SET_HIGH_WORD(x,i0);
+	SET_LOW_WORD(x,i1);
+	w = TWO52[sx]+x;
+	return w-TWO52[sx];
+}
+
+/****************************************************************************/
+
+#endif /* PPC_FLOATING_POINT_SUPPORT */
+
+/****************************************************************************/
+
+#endif /* FLOATING_POINT_SUPPORT */

library/math_rintf.c

@@ -1,5 +1,5 @@
 /*
- * $Id: math_rintf.c,v 1.1 2004-08-07 09:15:32 obarthel Exp $
+ * $Id: math_rintf.c,v 1.2 2004-08-27 13:49:17 obarthel Exp $
  *
  * :ts=4
  *
@@ -54,6 +54,10 @@
 
 /****************************************************************************/
 
+#if defined(IEEE_FLOATING_POINT_SUPPORT) || defined(M68881_FLOATING_POINT_SUPPORT)
+
+/****************************************************************************/
+
 float
 rintf(float x)
 {
@@ -62,5 +66,64 @@ rintf(float x)
 
 /****************************************************************************/
 
-#endif /* FLOATING_POINT_SUPPORT */
+#endif /* IEEE_FLOATING_POINT_SUPPORT || M68881_FLOATING_POINT_SUPPORT */
 
+/****************************************************************************/
+
+#if defined(PPC_FLOATING_POINT_SUPPORT)
+
+/****************************************************************************/
+
+/* Conversion to float by Ian Lance Taylor, Cygnus Support, ian@cygnus.com. */
+
+/****************************************************************************/
+
+static const float
+TWO23[2]={
+  8.3886080000e+06, /* 0x4b000000 */
+ -8.3886080000e+06, /* 0xcb000000 */
+};
+
+float
+rintf(float x)
+{
+	int i0,j0,sx;
+	unsigned int i,i1;
+	float w,t;
+	GET_FLOAT_WORD(i0,x);
+	sx = (i0>>31)&1;
+	j0 = ((i0>>23)&0xff)-0x7f;
+	if(j0<23) {
+	    if(j0<0) {
+		if((i0&0x7fffffff)==0) return x;
+		i1 = (i0&0x07fffff);
+		i0 &= 0xfff00000;
+		i0 |= ((i1|-i1)>>9)&0x400000;
+		SET_FLOAT_WORD(x,i0);
+	        w = TWO23[sx]+x;
+	        t =  w-TWO23[sx];
+		GET_FLOAT_WORD(i0,t);
+		SET_FLOAT_WORD(t,(i0&0x7fffffff)|(sx<<31));
+	        return t;
+	    } else {
+		i = (0x007fffff)>>j0;
+		if((i0&i)==0) return x; /* x is integral */
+		i>>=1;
+		if((i0&i)!=0) i0 = (i0&(~i))|((0x100000)>>j0);
+	    }
+	} else {
+	    if(j0==0x80) return x+x;	/* inf or NaN */
+	    else return x;		/* x is integral */
+	}
+	SET_FLOAT_WORD(x,i0);
+	w = TWO23[sx]+x;
+	return w-TWO23[sx];
+}
+
+/****************************************************************************/
+
+#endif /* PPC_FLOATING_POINT_SUPPORT */
+
+/****************************************************************************/
+
+#endif /* FLOATING_POINT_SUPPORT */

library/net.lib_rev.h

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

library/net.lib_rev.rev

@@ -1 +1 @@
-172
+175

library/releasenotes

@@ -1,15 +1,11 @@
-c.lib 1.172 (21.8.2004)
+c.lib 1.175 (10.9.2004)
 
-- Changed the values which the acos(), asin(), atan2(), fmod()
+- The timeval definition in <sys/time.h> can now be used without
-  and sqrt() functions return when they find that their parameters
+  having to include <exec/types.h> and <devices/timer.h>. Just
-  are invalid.
+  define the __USE_CLIB2_TIMEVAL preprocessor symbol. However,
+  this is intended only for code which for certain reasons cannot
+  include these header files. Don't use this approach if your
+  code may include <devices/timer.h> at some point.
 
-- The atan2() function failed to perform a correct parameter check.
+- The sprintf() function family did not properly terminate the
-
+  output string if the format string itself was empty. Fixed.
-
-c.lib 1.171 (16.8.2004)
-
-- Added hypot()
-
-- vfprintf/vfscanf now support the %lld/%llu (64 bit integer) format
-  by default

library/smakefile

@@ -1,5 +1,5 @@
 #
-# $Id: smakefile,v 1.6 2004-08-16 09:33:12 obarthel Exp $
+# $Id: smakefile,v 1.7 2004-08-25 15:27:27 obarthel Exp $
 #
 # :ts=8
 #
@@ -163,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 \

library/stack.lib_rev.h

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

library/stack.lib_rev.rev

@@ -1 +1 @@
-172
+175

library/stdio_puts.c

@@ -1,5 +1,5 @@
 /*
- * $Id: stdio_puts.c,v 1.1.1.1 2004-07-26 16:31:40 obarthel Exp $
+ * $Id: stdio_puts.c,v 1.2 2004-09-10 07:39:19 obarthel Exp $
  *
  * :ts=4
  *
@@ -94,7 +94,7 @@ puts(const char *s)
 
  out:
 
-	/* Note: if buffering is disabled for this stdout, then we still
+	/* Note: if buffering is disabled for this stream, then we still
 	   may have buffered data around, queued to be printed right now.
 	   This is intended to improve performance as it takes more effort
 	   to write a single character to a file than to write a bunch. */

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.5 2004-09-10 07:39:19 obarthel Exp $
  *
  * :ts=4
  *
@@ -262,7 +262,6 @@ vfprintf(FILE * stream,const char * format, va_list arg)
 					if(arg == NULL)
 					{
 						errno = EFAULT;
-						result = EOF;
 						goto out;
 					}
 				}
@@ -344,7 +343,6 @@ vfprintf(FILE * stream,const char * format, va_list arg)
 					if(arg == NULL)
 					{
 						errno = EFAULT;
-						result = EOF;
 						goto out;
 					}
 				}
@@ -566,7 +564,6 @@ vfprintf(FILE * stream,const char * format, va_list arg)
 				if(arg == NULL)
 				{
 					errno = EFAULT;
-					result = EOF;
 					goto out;
 				}
 			}
@@ -623,7 +620,6 @@ vfprintf(FILE * stream,const char * format, va_list arg)
 				if(arg == NULL)
 				{
 					errno = EFAULT;
-					result = EOF;
 					goto out;
 				}
 			}
@@ -1013,7 +1009,6 @@ vfprintf(FILE * stream,const char * format, va_list arg)
 				if(arg == NULL)
 				{
 					errno = EFAULT;
-					result = EOF;
 					goto out;
 				}
 			}
@@ -1168,7 +1163,6 @@ vfprintf(FILE * stream,const char * format, va_list arg)
 				if(arg == NULL)
 				{
 					errno = EFAULT;
-					result = EOF;
 					goto out;
 				}
 			}
@@ -1224,7 +1218,6 @@ vfprintf(FILE * stream,const char * format, va_list arg)
 				if(arg == NULL)
 				{
 					errno = EFAULT;
-					result = EOF;
 					goto out;
 				}
 			}
@@ -1243,7 +1236,6 @@ vfprintf(FILE * stream,const char * format, va_list arg)
 					if(short_ptr == NULL)
 					{
 						errno = EFAULT;
-						result = EOF;
 						goto out;
 					}
 				}
@@ -1268,7 +1260,6 @@ vfprintf(FILE * stream,const char * format, va_list arg)
 							if(int_ptr == NULL)
 							{
 								errno = EFAULT;
-								result = EOF;
 								goto out;
 							}
 						}
@@ -1289,7 +1280,6 @@ vfprintf(FILE * stream,const char * format, va_list arg)
 							if(int_ptr == NULL)
 							{
 								errno = EFAULT;
-								result = EOF;
 								goto out;
 							}
 						}
@@ -1311,7 +1301,6 @@ vfprintf(FILE * stream,const char * format, va_list arg)
 						if(int_ptr == NULL)
 						{
 							errno = EFAULT;
-							result = EOF;
 							goto out;
 						}
 					}
@@ -1524,7 +1513,7 @@ vfprintf(FILE * stream,const char * format, va_list arg)
 	   may have buffered data around, queued to be printed right now.
 	   This is intended to improve performance as it takes more effort
 	   to write a single character to a file than to write a bunch. */
-	if(result > 0 && (iob->iob_Flags & IOBF_BUFFER_MODE) == IOBF_BUFFER_MODE_NONE)
+	if(result != EOF && (iob->iob_Flags & IOBF_BUFFER_MODE) == IOBF_BUFFER_MODE_NONE)
 	{
 		if(__iob_write_buffer_is_valid(iob) && __flush_iob_write_buffer(iob) < 0)
 			result = EOF;

library/unix.lib_rev.h

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

library/unix.lib_rev.rev

@@ -1 +1 @@
-172
+175