+1997-06-04 20:57 Ulrich Drepper <drepper@cygnus.com>
+
+ * manual/string.texi: Add comments to discourage use of index and
+ rindex.
+ (strtok, strsep): Apply function on copy of the strings in example.
+ (l64a): Add example.
+
+ * posix/unistd.h: Correct value for _POSIX_VERSION.
+
+ * sunrpc/Makefile (defines): Remove definition.
+
+ * sysdeps/ieee754/nan.h: Correct typo.
+
+1997-06-04 10:50 Fila Kolodny <fila@ibi.com>
+
+ * posix/unistd.h: Add definition of __fchdir corresponding to fchdir.
+
+ * login/utmp_daemon.c: Correct location of utmpd.h.
+
+1997-06-03 19:16 Andreas Schwab <schwab@issan.informatik.uni-dortmund.de>
+
+ * Makerules: Rename $(common-objpfx)distinfo-$(subdir) to
+ $(objpfx)distinfo.
+ * rpm/Makefile (distinfo): Adapted.
+
+1997-06-03 18:32 Andreas Schwab <schwab@issan.informatik.uni-dortmund.de>
+
+ * rpm/Makefile (install-slib): Collect shared libraries here
+ instead of in install-lib, including libc.
+ (instvars): Add slib.
+
+1997-06-03 18:23 Andreas Schwab <schwab@issan.informatik.uni-dortmund.de>
+
+ * login/Makefile (libutil-routines): Add updwtmp.
+
+1997-06-03 16:16 Andreas Schwab <schwab@issan.informatik.uni-dortmund.de>
+
+ * monetary.h: New file, needed for localedata/tst-fmon.c.
+
+1997-06-02 20:31 Andreas Schwab <schwab@issan.informatik.uni-dortmund.de>
+
+ * math/libm-test.c (cpow_test): Add epsilon for long double in
+ test for 2^10.
+ (identities): Add epsilon for float in second identity test.
+
+ * sysdeps/m68k/huge_val.h: Change GCC's HUGE_VAL{,F,L} to use
+ DI and SI mode integers instead of bytes. Fix value of HUGE_VALL.
+
+ * sysdeps/m68k/nan.h: New file.
+
+ * sysdeps/m68k/fpu/__math.h (isgreater, isgreaterequal, isless,
+ islessequal, islessgreater, isunordered): Fix assembler syntax.
+
+ * sysdeps/m68k/fpu/fraiseexcpt.c: Do it right so that gcc doesn't
+ optimize out the operations.
+
+ * sysdeps/libm-ieee754/s_nan.c: Use NaN macro instead of static
+ constant.
+ * sysdeps/libm-ieee754/s_nanf.c: Likewise.
+ * sysdeps/libm-ieee754/s_nanl.c: Likewise.
+
+ * math/carg.c [NO_LONG_DOUBLE]: Add alias for long double
+ function.
+ * sysdeps/libm-ieee754/s_erf.c: Likewise.
+ * sysdeps/libm-ieee754/s_fdim.c: Likewise.
+ * sysdeps/libm-ieee754/s_fmax.c: Likewise.
+ * sysdeps/libm-ieee754/s_fmin.c: Likewise.
+ * sysdeps/libm-ieee754/s_log2.c: Likewise.
+ * sysdeps/libm-ieee754/s_nan.c: Likewise.
+ * sysdeps/libm-ieee754/s_remquo.c: Likewise.
+
1997-06-03 23:42 Ulrich Drepper <drepper@cygnus.com>
* elf/dl-support.c: Define and initialize _dl_verbose used in
check: tests
\f
.PHONY: TAGS
-TAGS: $(common-objpfx)distinfo-$(subdir) $(..)MakeTAGS
+TAGS: $(objpfx)distinfo $(..)MakeTAGS
$(MAKE) $(addprefix -f ,$^) $@
-$(..)po/%.pot: $(common-objpfx)distinfo-$(subdir) $(..)MakeTAGS FORCE
+$(..)po/%.pot: $(objpfx)distinfo $(..)MakeTAGS FORCE
$(MAKE) $(addprefix -f ,$(filter-out FORCE,$^)) $@
FORCE:
-rm -f $(addprefix $(objpfx),$(generated)) $(+depfiles)
-rm -fr $(addprefix $(objpfx),$(generated-dirs))
-rm -f $(addprefix $(common-objpfx),$(common-generated))
- -rm -f $(common-objpfx)distinfo-$(subdir)
+ -rm -f $(objpfx)distinfo
\f
# Produce a file `stub-$(subdir)' which contains `#define __stub_FUNCTION'
# for each function which is a stub. We grovel over all the .d files
# Make the distribution tar file.
.PHONY: dist
-dist: $(common-objpfx)distinfo-$(subdir) $(..)Make-dist
+dist: $(objpfx)distinfo $(..)Make-dist
$(MAKE) -f $< -f $(word 2,$^) $(Make-dist-args)
# Avoid depending on source files found in sysdeps dirs,
# environment get too large. Instead, we write all the information into
# a generated makefile fragment `distinfo', and then include it with -f in
# the sub-make that makes the distribution (above).
-$(common-objpfx)distinfo-$(subdir): Makefile $(..)Makerules \
- $(wildcard $(foreach dir,$(sysdirs),\
- $(dir)/Makefile))
+$(objpfx)distinfo: Makefile $(..)Makerules \
+ $(wildcard $(foreach dir,$(sysdirs),$(dir)/Makefile))
$(distinfo-vars)
mv -f $@.new $@
-.PHONY: subdir_distinfo distinfo
-subdir_distinfo: distinfo
-distinfo: $(common-objpfx)distinfo-$(subdir)
+.PHONY: subdir_distinfo
+subdir_distinfo: $(objpfx)distinfo
define distinfo-vars
rm -f $@.new
extra-libs := libutil
extra-libs-others := $(extra-libs)
-libutil-routines:= login login_tty logout logwtmp pty
+libutil-routines:= login login_tty logout logwtmp pty updwtmp
include ../Rules
#include <utmp.h>
#include "utmp-private.h"
-#include "utmpd/utmpd.h"
+#include "programs/utmpd.h"
#ifndef _LIBC
#define __set_errno(val) errno = (val)
@comment BSD
@deftypefun {char *} index (const char *@var{string}, int @var{c})
@code{index} is another name for @code{strchr}; they are exactly the same.
+New code should always use @code{strchr} since this name is defined in
+@w{ISO C} while @code{index} is a BSD invention which never was available
+on @w{System V} derived systems.
@end deftypefun
@comment string.h
@comment BSD
@deftypefun {char *} rindex (const char *@var{string}, int @var{c})
@code{rindex} is another name for @code{strrchr}; they are exactly the same.
+New code should always use @code{strrchr} since this name is defined in
+@w{ISO C} while @code{rindex} is a BSD invention which never was available
+on @w{System V} derived systems.
@end deftypefun
@comment string.h
@dots{}
-char string[] = "words separated by spaces -- and, punctuation!";
+const char string[] = "words separated by spaces -- and, punctuation!";
const char delimiters[] = " .,;:!-";
-char *token;
+char *token, *cp;
@dots{}
-token = strtok (string, delimiters); /* token => "words" */
+cp = strdupa (string); /* Make writable copy. */
+token = strtok (cp, delimiters); /* token => "words" */
token = strtok (NULL, delimiters); /* token => "separated" */
token = strtok (NULL, delimiters); /* token => "by" */
token = strtok (NULL, delimiters); /* token => "spaces" */
@var{newstring} and leaving @var{save_ptr} between the calls unchanged
does the job without limiting reentrancy.
-This function was proposed for POSIX.1b and can be found on many systems
+This function is defined in POSIX-1 and can be found on many systems
which support multi-threading.
@end deftypefun
@dots{}
-char string[] = "words separated by spaces -- and, punctuation!";
+const char string[] = "words separated by spaces -- and, punctuation!";
const char delimiters[] = " .,;:!-";
char *running;
char *token;
@dots{}
-running = string;
+running = strdupa (string);
token = strsep (&running, delimiters); /* token => "words" */
token = strsep (&running, delimiters); /* token => "separated" */
token = strsep (&running, delimiters); /* token => "by" */
string representing of the encoding of @var{n}. To encoded a series of
bytes the use should append the new string to the destination buffer.
@emph{Warning:} Since a static buffer is used this function should not
-be used in multi-threaded programs. There is no thread-safe alternatice
+be used in multi-threaded programs. There is no thread-safe alternative
to this function in the C library.
@end deftypefun
+Alone the @code{l64a} function is not usable. To encode arbitrary
+sequences of bytes one needs some more code and this could look like
+this:
+
+@smallexample
+char *
+encode (const void *buf, size_t len)
+@{
+ /* @r{We know in advance how long the buffer has to be.} */
+ unsigned char *in = (unsigned char *) buf;
+ char *out = malloc (6 + ((len + 3) / 4) * 6 + 1);
+ char *cp = out;
+
+ /* @r{Encode the length.} */
+ memcpy (cp, l64a (len), 6);
+ cp += 6;
+
+ while (len > 3)
+ @{
+ unsigned long int n = *in++;
+ n = (n << 8) | *in++;
+ n = (n << 8) | *in++;
+ n = (n << 8) | *in++;
+ len -= 4;
+ /* @r{Using `htonl' is necessary so that the data can be}
+ @r{decoded even on machines with different byte order.} */
+ memcpy (cp, l64a (htonl (n)), 6);
+ cp += 6;
+ @}
+ if (len > 0)
+ @{
+ unsigned long int n = *in++;
+ if (--len > 0)
+ @{
+ n = (n << 8) | *in++;
+ if (--len > 0)
+ n = (n << 8) | *in;
+ @}
+ memcpy (cp, l64a (htonl (n)), 6);
+ cp += 6;
+ @}
+ *cp = '\0';
+ return out;
+@}
+@end smallexample
+
+It is strange that the library does not provide the complete
+functionality needed but so be it. There are some other encoding
+methods which are much more widely used (UU encoding, Base64 encoding).
+Generally, it is better to use one of these encodings.
+
To decode data produced with @code{l64a} the following function should be
used.
+@comment stdlib.h
+@comment XPG
@deftypefun {long int} a64l (const char *@var{string})
The parameter @var{string} should contain a string which was produced by
a call to @code{l64a}. The function processes the next 6 characters and
@node Argz and Envz Vectors
@section Argz and Envz Vectors
-@cindex argz vectors
+@cindex argz vectors (string vectors)
@cindex string vectors, null-character separated
@cindex argument vectors, null-character separated
@dfn{argz vectors} are vectors of strings in a contiguous block of
memory, each element separated from its neighbors by null-characters
(@code{'\0'}).
-@cindex envz vectors
+@cindex envz vectors (environment vectors)
@cindex environment vectors, null-character separated
@dfn{Envz vectors} are an extension of argz vectors where each element is a
-name-value pair, separated by a @code{'='} character (as in a unix
+name-value pair, separated by a @code{'='} character (as in a Unix
environment).
@menu
@pindex argz.h
These functions are declared in the standard include file @file{argz.h}.
+@comment argz.h
+@comment GNU
@deftypefun {error_t} argz_create (char *const @var{argv}[], char **@var{argz}, size_t *@var{argz_len})
-The @code{argz_create} function converts the unix-style argument vector
+The @code{argz_create} function converts the Unix-style argument vector
@var{argv} (a vector of pointers to normal C strings, terminated by
@code{(char *)0}; @pxref{Program Arguments}) into an argz vector with
the same elements, which is returned in @var{argz} and @var{argz_len}.
@end deftypefun
+@comment argz.h
+@comment GNU
@deftypefun {error_t} argz_create_sep (const char *@var{string}, int @var{sep}, char **@var{argz}, size_t *@var{argz_len})
The @code{argz_create_sep} function converts the null-terminated string
@var{string} into an argz vector (returned in @var{argz} and
character @var{sep}.
@end deftypefun
+@comment argz.h
+@comment GNU
@deftypefun {size_t} argz_count (const char *@var{argz}, size_t @var{arg_len})
Returns the number of elements in the argz vector @var{argz} and
@var{argz_len}.
@end deftypefun
+@comment argz.h
+@comment GNU
@deftypefun {void} argz_extract (char *@var{argz}, size_t @var{argz_len}, char **@var{argv})
The @code{argz_extract} function converts the argz vector @var{argz} and
-@var{argz_len} into a unix-style argument vector stored in @var{argv},
+@var{argz_len} into a Unix-style argument vector stored in @var{argv},
by putting pointers to every element in @var{argz} into successive
positions in @var{argv}, followed by a terminator of @code{0}.
@var{Argv} must be pre-allocated with enough space to hold all the
@var{argz} to an exec function (@pxref{Executing a File}).
@end deftypefun
+@comment argz.h
+@comment GNU
@deftypefun {void} argz_stringify (char *@var{argz}, size_t @var{len}, int @var{sep})
The @code{argz_stringify} converts @var{argz} into a normal string with
the elements separated by the character @var{sep}, by replacing each
readable manner.
@end deftypefun
+@comment argz.h
+@comment GNU
@deftypefun {error_t} argz_add (char **@var{argz}, size_t *@var{argz_len}, const char *@var{str})
The @code{argz_add} function adds the string @var{str} to the end of the
argz vector @code{*@var{argz}}, and updates @code{*@var{argz}} and
@code{*@var{argz_len}} accordingly.
@end deftypefun
+@comment argz.h
+@comment GNU
@deftypefun {error_t} argz_add_sep (char **@var{argz}, size_t *@var{argz_len}, const char *@var{str}, int @var{delim})
The @code{argz_add_sep} function is similar to @code{argz_add}, but
@var{str} is split into separate elements in the result at occurances of
the character @var{delim}. This is useful, for instance, for
-adding the components of a unix search path to an argz vector, by using
+adding the components of a Unix search path to an argz vector, by using
a value of @code{':'} for @var{delim}.
@end deftypefun
+@comment argz.h
+@comment GNU
@deftypefun {error_t} argz_append (char **@var{argz}, size_t *@var{argz_len}, const char *@var{buf}, size_t @var{buf_len})
The @code{argz_append} function appends @var{buf_len} bytes starting at
@var{buf} to the argz vector @code{*@var{argz}}, reallocating
@code{*@var{argz_len}}.
@end deftypefun
+@comment argz.h
+@comment GNU
@deftypefun {error_t} argz_delete (char **@var{argz}, size_t *@var{argz_len}, char *@var{entry})
If @var{entry} points to the beginning of one of the elements in the
argz vector @code{*@var{argz}}, the @code{argz_delete} function will
pointers into argz vectors such as @var{entry} will then become invalid.
@end deftypefun
+@comment argz.h
+@comment GNU
@deftypefun {error_t} argz_insert (char **@var{argz}, size_t *@var{argz_len}, char *@var{before}, const char *@var{entry})
The @code{argz_insert} function inserts the string @var{entry} into the
argz vector @code{*@var{argz}} at a point just before the existing
@var{before} will result in @var{entry} being inserted at the beginning.
@end deftypefun
+@comment argz.h
+@comment GNU
@deftypefun {char *} argz_next (char *@var{argz}, size_t @var{argz_len}, const char *@var{entry})
The @code{argz_next} function provides a convenient way of iterating
over the elements in the argz vector @var{argz}. It returns a pointer
@pindex envz.h
These functions are declared in the standard include file @file{envz.h}.
+@comment envz.h
+@comment GNU
@deftypefun {char *} envz_entry (const char *@var{envz}, size_t @var{envz_len}, const char *@var{name})
The @code{envz_entry} function finds the entry in @var{envz} with the name
@var{name}, and returns a pointer to the whole entry---that is, the argz
there is no entry with that name, @code{0} is returned.
@end deftypefun
+@comment envz.h
+@comment GNU
@deftypefun {char *} envz_get (const char *@var{envz}, size_t @var{envz_len}, const char *@var{name})
The @code{envz_get} function finds the entry in @var{envz} with the name
@var{name} (like @code{envz_entry}), and returns a pointer to the value
that name (or only a null entry), @code{0} is returned.
@end deftypefun
+@comment envz.h
+@comment GNU
@deftypefun {error_t} envz_add (char **@var{envz}, size_t *@var{envz_len}, const char *@var{name}, const char *@var{value})
The @code{envz_add} function adds an entry to @code{*@var{envz}}
(updating @code{*@var{envz}} and @code{*@var{envz_len}}) with the name
(mentioned above).
@end deftypefun
+@comment envz.h
+@comment GNU
@deftypefun {error_t} envz_merge (char **@var{envz}, size_t *@var{envz_len}, const char *@var{envz2}, size_t @var{envz2_len}, int @var{override})
The @code{envz_merge} function adds each entry in @var{envz2} to @var{envz},
as if with @code{envz_add}, updating @code{*@var{envz}} and
being added to @var{envz}, if @var{override} is false.
@end deftypefun
+@comment envz.h
+@comment GNU
@deftypefun {void} envz_strip (char **@var{envz}, size_t *@var{envz_len})
The @code{envz_strip} function removes any null entries from @var{envz},
updating @code{*@var{envz}} and @code{*@var{envz_len}}.
return __atan2 (__imag__ x, __real__ x);
}
weak_alias (__carg, carg)
+#ifdef NO_LONG_DOUBLE
+strong_alias (__carg, __cargl)
+weak_alias (__carg, cargl)
+#endif
check ("imag(cpow (1 + i0), (0 + i0)) = 0", __imag__ result, 0);
result = FUNC (cpow) (BUILD_COMPLEX (2, 0), BUILD_COMPLEX (10, 0));
- check ("real(cpow (2 + i0), (10 + i0)) = 1024", __real__ result, 1024);
+ check_eps ("real(cpow (2 + i0), (10 + i0)) = 1024", __real__ result, 1024,
+ CHOOSE (2e-16L, 0, 0));
check ("imag(cpow (2 + i0), (10 + i0)) = 0", __imag__ result, 0);
}
identities (void)
{
identities1_test (0.2L, CHOOSE (1e-18L, 0, 2e-7));
- identities1_test (0.9L, CHOOSE (1e-18L, 0, 0));
+ identities1_test (0.9L, CHOOSE (1e-18L, 0, 1e-7));
identities1_test (0, 0);
identities1_test (-1, CHOOSE (1e-18L, 0, 1e-7));
/* These may be used to determine what facilities are present at compile time.
Their values can be obtained at run time from `sysconf'. */
-/* POSIX Standard approved as IEEE Std 1003.1 as of August, 1988 and
- extended by P1003.1b (aka POSIX.4). */
-#define _POSIX_VERSION 199309L
+/* POSIX Standard approved as ISO/IEC 9945-1 as of August, 1988 and
+ extended by POSIX-1b (aka POSIX-4) and POSIX-1c (aka POSIX threads). */
+#define _POSIX_VERSION 199506L
/* These are not #ifdef __USE_POSIX2 because they are
in the theoretically application-owned namespace. */
-#define _POSIX2_C_VERSION 199209L /* Invalid until 1003.2 is done. */
+/* POSIX Standard approved as ISO/IEC 9945-2 as of December, 1993. */
+#define _POSIX2_C_VERSION 199209L
/* If defined, the implementation supports the
C Language Bindings Option. */
#if defined __USE_BSD || defined __USE_XOPEN_EXTENDED
/* Change the process's working directory to the one FD is open on. */
+extern int __fchdir __P ((int __fd));
extern int fchdir __P ((int __fd));
#endif
include $(common-objpfx)soversions.mk
include $(common-objpfx)version.mk
-distinfo := $(common-objpfx)distinfo- \
- $(wildcard $(subdirs:%=$(common-objpfx)distinfo-%))
+distinfo := $(common-objpfx)distinfo \
+ $(wildcard $(subdirs:%=$(common-objpfx)%/distinfo))
-include $(distinfo)
config = $(config-machine)-$(config-vendor)-$(config-os)
install-sysconf := $(filter $(sysconfdir)/%,$(install-others))
install-others := $(filter-out $(sysconfdir)/%,$(install-others))
-# Add the unversioned lib*.so's to install-lib.
-install-lib += $(install-lib.so)
+# Add the unversioned lib*.so's.
+install-slib = $(install-lib.so)
-# For each versioned lib*.so, add three files:
-# lib*-VERSION.so, lib*.so.MAJOR, and lib*.so
-install-lib += $(foreach lib,$(versioned),\
- $(patsubst %.so,%-$(version).so,$(lib)) \
- $(lib)$($(lib)-version) $(lib))
+# For each versioned lib*.so, add two files:
+# lib*-VERSION.so and lib*.so.MAJOR
+install-slib += $(foreach lib,$(versioned),\
+ $(patsubst %.so,%-$(version).so,$(lib)) \
+ $(lib)$($(lib)-version))
+install-lib += $(versioned)
# Add libc.a and libc_p.a.
install-lib += $(foreach o,$(filter-out .so,$(object-suffixes)),\
ifeq (yes,$(build-shared))
# Add libc.so itself, which is a special case in Makerules.
ifndef libc.so-version
-install-others += $(slibdir)/libc.so
+install-slib += libc.so
else
-install-others += $(libdir)/libc.so \
- $(slibdir)/libc-$(version).so \
- $(slibdir)/libc.so$(libc.so-version)
+install-lib += libc.so
+install-slib += libc-$(version).so libc.so$(libc.so-version)
endif
endif
\f
all: glibc-$(version).$(config).rpm
-instvars = include lib bin sbin data others
+instvars = include lib slib bin sbin data others
# Generate the rpm spec file for this configuration.
$(config): template $(distinfo) Makefile
# Install the rpc data base file.
$(inst_sysconfdir)/rpc: etc.rpc
$(do-install)
-
-defines := $(defines) -D_PATH_RPC='"$(sysconfdir)/rpc"'
\f
# Generate the rpcsvc headers with rpcgen.
# We use a stamp file to avoid unnessary recompilation each time rpcgen is
#define NANF \
(__extension__ \
- ((union { unsigned __l __attribute__((__mode__(__SI__))); flaot __d; }) \
+ ((union { unsigned __l __attribute__((__mode__(__SI__))); float __d; }) \
{ __l: 0x7fc00000UL }).__d)
#else
if(hx>=0) return one-r/x; else return r/x-one;
}
weak_alias (__erf, erf)
+#ifdef NO_LONG_DOUBLE
+strong_alias (__erf, __erfl)
+weak_alias (__erf, erfl)
+#endif
#ifdef __STDC__
double __erfc(double x)
return x < y ? 0 : x - y;
}
weak_alias (__fdim, fdim)
+#ifdef NO_LONG_DOUBLE
+strong_alias (__fdim, __fdiml)
+weak_alias (__fdim, fdiml)
+#endif
return (isgreaterequal (x, y) || isnan (y)) ? x : y;
}
weak_alias (__fmax, fmax)
+#ifdef NO_LONG_DOUBLE
+strong_alias (__fmax, __fmaxl)
+weak_alias (__fmax, fmaxl)
+#endif
return (islessequal (x, y) || isnan (y)) ? x : y;
}
weak_alias (__fmin, fmin)
+#ifdef NO_LONG_DOUBLE
+strong_alias (__fmim, __fminl)
+weak_alias (__fmin, fminl)
+#endif
}
weak_alias (__log2, log2)
+#ifdef NO_LONG_DOUBLE
+strong_alias (__log2, __log2l)
+weak_alias (__log2, log2l)
+#endif
double
__nan (const char *tagp)
{
- static const union ieee754_double nan_value =
- { ieee: { mantissa1: 0, mantissa0: 0x80000, exponent: 0x7ff, negative: 0 } };
-
if (tagp[0] != '\0')
{
char buf[6 + strlen (tagp)];
return strtod (buf, NULL);
}
- return nan_value.d;
+ return NAN;
}
weak_alias (__nan, nan)
+#ifdef NO_LONG_DOUBLE
+strong_alias (__nan, __nanl)
+weak_alias (__nan, nanl)
+#endif
float
__nanf (const char *tagp)
{
- static const union ieee754_float nan_value =
- { ieee: { mantissa: 0x400000, exponent: 0xff, negative: 0 } };
-
if (tagp[0] != '\0')
{
char buf[6 + strlen (tagp)];
return strtof (buf, NULL);
}
- return nan_value.f;
+ return NANF;
}
weak_alias (__nanf, nanf)
long double
__nanl (const char *tagp)
{
- static const union ieee854_long_double nan_value =
- { ieee: { mantissa1: 0, mantissa0: 0xc0000000,
- exponent: 0x7fff, negative: 0 } };
-
if (tagp[0] != '\0')
{
char buf[6 + strlen (tagp)];
return strtold (buf, NULL);
}
- return nan_value.d;
+ return NANL;
}
weak_alias (__nanl, nanl)
return x;
}
weak_alias (__remquo, remquo)
+#ifdef NO_LONG_DOUBLE
+strong_alias (__remquo, __remquol)
+weak_alias (__remquo, remquol)
+#endif
#define isgreater(x, y) \
__extension__ \
({ char __result; \
- __asm__ ("fcmp %2,%1; fsogt %0" \
+ __asm__ ("fcmp%.x %2,%1; fsogt %0" \
: "=dm" (__result) : "f" (x), "f" (y)); \
(int) __result; })
#define isgreaterequal(x, y) \
__extension__ \
({ char __result; \
- __asm__ ("fcmp %2,%1; fsoge %0" \
+ __asm__ ("fcmp%.x %2,%1; fsoge %0" \
: "=dm" (__result) : "f" (x), "f" (y)); \
(int) __result; })
#define isless(x, y) \
__extension__ \
({ char __result; \
- __asm__ ("fcmp %2,%1; fsolt %0" \
+ __asm__ ("fcmp%.x %2,%1; fsolt %0" \
: "=dm" (__result) : "f" (x), "f" (y)); \
(int) __result; })
#define islessequal(x, y) \
__extension__ \
({ char __result; \
- __asm__ ("fcmp %2,%1; fsole %0" \
+ __asm__ ("fcmp%.x %2,%1; fsole %0" \
: "=dm" (__result) : "f" (x), "f" (y)); \
(int) __result; })
#define islessgreater(x, y) \
__extension__ \
({ char __result; \
- __asm__ ("fcmp %2,%1; fsogl %0" \
+ __asm__ ("fcmp%.x %2,%1; fsogl %0" \
: "=dm" (__result) : "f" (x), "f" (y)); \
(int) __result; })
#define isunordered(x, y) \
__extension__ \
({ char __result; \
- __asm__ ("fcmp %2,%1; fsun %0" \
+ __asm__ ("fcmp%.x %2,%1; fsun %0" \
: "=dm" (__result) : "f" (x), "f" (y)); \
(int) __result; })
#endif
if (excepts & FE_INVALID)
{
/* One example of a invalid operation is 0 * Infinity. */
- double d = 0.0 * HUGE_VAL;
- /* Now force the exception. */
- __asm__ __volatile__ ("fnop" : : "f" (d));
+ double d = HUGE_VAL;
+ __asm__ __volatile__ ("fmul%.s %#0r0,%0; fnop" : "=f" (d) : "0" (d));
}
/* Next: division by zero. */
/* Next: overflow. */
if (excepts & FE_OVERFLOW)
{
- long double d = LDBL_MAX * LDBL_MAX;
- /* Now force the exception. */
- __asm__ __volatile__ ("fnop" : : "f" (d));
+ long double d = LDBL_MAX;
+ __asm__ __volatile__ ("fmul%.x %0,%0; fnop" : "=f" (d) : "0" (d));
}
/* Next: underflow. */
if (excepts & FE_UNDERFLOW)
{
- long double d = LDBL_MIN / 16.0;
- /* Now force the exception. */
- __asm__ __volatile__ ("fnop" : : "f" (d));
+ long double d = LDBL_MIN;
+ __asm__ __volatile__ ("fdiv%.s %#0r16,%0; fnop" : "=f" (d) : "0" (d));
}
/* Last: inexact. */
if (excepts & FE_INEXACT)
{
- long double d1, d2 = 1.0;
- __asm__ __volatile__ ("fmovecr %#0,%0\n\t"
- "fdiv%.x %1,%0\n\t"
- "fnop"
- : "=&f" (d1) : "f" (d2));
+ long double d = 1.0;
+ __asm__ __volatile__ ("fdiv%.s %#0r3,%0; fnop" : "=f" (d) : "0" (d));
}
}
/* IEEE positive infinity (-HUGE_VAL is negative infinity). */
-#define __HUGE_VAL_bytes { 0x7f, 0xf0, 0, 0, 0, 0, 0, 0 }
-
-#define __huge_val_t union { unsigned char __c[8]; double __d; }
#ifdef __GNUC__
-#define HUGE_VAL (__extension__ \
- ((__huge_val_t) { __c: __HUGE_VAL_bytes }).__d)
-#else /* Not GCC. */
-static __huge_val_t __huge_val = { __HUGE_VAL_bytes };
+
+#define HUGE_VAL \
+ (__extension__ \
+ ((union { unsigned long long __l; double __d; }) \
+ { __l: 0x7ff0000000000000ULL }).__d)
+
+#else /* not GCC */
+
+static union { unsigned char __c[8]; double __d; } __huge_val =
+ { { 0x7f, 0xf0, 0, 0, 0, 0, 0, 0 } };
#define HUGE_VAL (__huge_val.__d)
+
#endif /* GCC. */
#ifdef __USE_ISOC9X
-#define __HUGE_VALF_bytes { 0x7f, 0x80, 0, 0 }
+#ifdef __GNUC__
-#define __huge_valf_t union { unsigned char __c[4]; float __f; }
-#ifdef __GNUC__
-#define HUGE_VALF (__extension__ \
- ((__huge_valf_t) { __c: __HUGE_VALF_bytes }).__f)
-#else /* Not GCC. */
-static __huge_valf_t __huge_valf = { __HUGE_VALF_bytes };
-#define HUGE_VALF (__huge_valf.__f)
-#endif /* GCC. */
+#define HUGE_VALF \
+ (__extension__ \
+ ((union { unsigned long __l; float __f; }) \
+ { __l: 0x7f800000UL }).__f)
+#define HUGE_VALL \
+ (__extension__ \
+ ((union { unsigned long __l[3]; long double __ld; }) \
+ { __l: { 0x7fff0000UL, 0x80000000UL, 0UL } }).__ld)
-#define __HUGE_VALL_bytes { 0x7f, 0xff, 0x80, 0, 0, 0, 0, 0, 0, 0, 0, 0 }
+#else /* not GCC */
-#define __huge_vall_t union { unsigned char __c[12]; long double __ld; }
-#ifdef __GNUC__
-#define HUGE_VALL (__extension__ \
- ((__huge_vall_t) { __c: __HUGE_VALL_bytes }).__ld)
-#else /* Not GCC. */
-static __huge_vall_t __huge_vall = { __HUGE_VALL_bytes };
+static union { unsigned char __c[4]; float __f; } __huge_valf =
+ { { 0x7f, 0x80, 0, 0 } };
+#define HUGE_VALF (__huge_valf.__f)
+
+static union { unsigned char __c[12]; long double __ld; } __huge_vall =
+ { { 0x7f, 0xff, 0, 0, 0x80, 0, 0, 0, 0, 0, 0, 0 } };
#define HUGE_VALL (__huge_vall.__ld)
+
#endif /* GCC. */
#endif /* __USE_ISOC9X. */
--- /dev/null
+/* `NAN' constants for m68k.
+ Copyright (C) 1997 Free Software Foundation, Inc.
+ This file is part of the GNU C Library.
+
+ The GNU C Library is free software; you can redistribute it and/or
+ modify it under the terms of the GNU Library General Public License as
+ published by the Free Software Foundation; either version 2 of the
+ License, or (at your option) any later version.
+
+ The GNU C Library is distributed in the hope that it will be useful,
+ but WITHOUT ANY WARRANTY; without even the implied warranty of
+ MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
+ Library General Public License for more details.
+
+ You should have received a copy of the GNU Library General Public
+ License along with the GNU C Library; see the file COPYING.LIB. If not,
+ write to the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
+ Boston, MA 02111-1307, USA. */
+
+#ifndef _NAN_H
+
+#define _NAN_H 1
+
+/* IEEE Not A Number. */
+
+#ifdef __GNUC__
+
+#define NAN \
+ (__extension__ \
+ ((union { unsigned long long __l; double __d; }) \
+ { __l: 0x7fffffffffffffffULL }).__d)
+
+#define NANF \
+ (__extension__ \
+ ((union { unsigned long __l; float __f; }) \
+ { __l: 0x7fffffffUL }).__f)
+
+#define NANL \
+ (__extension__ \
+ ((union { unsigned long __l[3]; long double __ld; }) \
+ { __l: { 0x7fff0000UL, 0xffffffffUL, 0xffffffffUL } }).__ld)
+
+#else
+
+static union { unsigned char __c[8]; double __d; } __nan =
+ { { 0x7f, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff } };
+#define NAN (__nan.__d)
+
+static union { unsigned char __c[4]; float __f; } __nanf =
+ { { 0x7f, 0xff, 0xff, 0xff } };
+#define NANF (__nanf.__f)
+
+static union { unsigned char __c[12]; long double __ld; } __nanl =
+ { { 0x7f, 0xff, 0, 0, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff } };
+#define NANL (__nanl.__ld)
+
+#endif /* GCC. */
+
+#endif /* nan.h */
projects / platform / upstream / glibc.git / commitdiff