+1997-08-29 02:36 Ulrich Drepper <drepper@cygnus.com>
+
+ * Makefile (version-info.h): Use ISO form for the date.
+
+ * catgets/catgetsinfo.h: Include <bits/libc-lock.h>.
+ (struct catalog_obj): Add lock field.
+ (__open_catalog): Remove second parameter from prototype.
+ * catgets/catgets.c (catopen): Initialize lock field.
+ (catgets): Don't pass second parameter to __open_catalog.
+ * catgets/gencat.c: Initialize lock field and don't pass second
+ parameter to __open_catalog.
+ * catgets/open_catalog.c (__open_catalog): Decide about use of
+ path by examining path in struct, not based on extra argument.
+ Acquire a the lock before trying to load the catalog and release
+ it before returning.
+
+ * csu/Makefile (abi-tag.h): Make sure target directory exists.
+
+ * io/Makefile (headers): Add bits/poll.h.
+ * io/sys/poll.h: Remove definitions of POLL* constants.
+ Include <bits/poll.h>.
+ * sysdeps/generic/bits/poll.h: New file.
+ * sysdeps/unix/sysv/linux/bits/poll.h: New file.
+ * sysdeps/unix/sysv/linux/m68k/bits/poll.h: New file.
+ * sysdeps/unix/sysv/linux/mips/bits/poll.h: New file.
+ * sysdeps/unix/sysv/linux/sparc/bits/poll.h: New file.
+
+ * libio/fileops.c (_IO_file_read, _IO_file_write): Remove dead code.
+
+ * malloc/obstack.c: Add casts to keep very verbose compilers on
+ 64bit machine quiet.
+
+ * nss/Makefile (libnss_db.so): Find libdb.so in db2 directory.
+
+1997-08-28 17:30 Ulrich Drepper <drepper@cygnus.com>
+
+ * catgets/catgets.c (catopen): Correctly determine length of string
+ in NLSPATH evironment variable. Patch by HJ Lu <hjl@gnu.ai.mit.edu>.
+
+1997-08-27 23:19 Richard Henderson <rth@cygnus.com>
+
+ * sysdeps/generic/dl-sysdep.c (DL_FIND_ARG_COMPONENTS): Provide
+ default macro to track down arguments from stack start.
+ (_dl_sysdep_start): Use it.
+ * sysdeps/unix/sysv/linux/powerpc/dl-sysdep.c: Truncate to simply
+ providing a special DL_FIND_ARG_COMPONENTS and including the next
+ file up the line.
+
+ * sysdeps/powerpc/e_sqrt.c: Move contents to w_sqrt.c and provide stub.
+ * sysdeps/powerpc/e_sqrtf.c: Likewise.
+ * sysdeps/powerpc/s_copysignf.S: Provide empty file; symbol is with
+ the double precision version.
+ * sysdeps/powerpc/s_fabsf.S: Likewise.
+ * sysdeps/powerpc/s_isnanf.S: Likewise.
+
1997-08-10 19:17 Philip Blundell <Philip.Blundell@pobox.com>
* nss/nss_db/db-XXX.c: Include <db_185.h> not <db.h>. Somebody
$(objpfx)version-info.h: $(+sysdir_pfx)config.make $(all-Banner-files)
(case $(config-os) in \
linux*) version=`(echo -e "#include <linux/version.h>\nUTS_RELEASE"\
- | $(CC) -E -P - | \
+ | $(CC) -E -P - | \
sed -e 's/"\([^"]*\)".*/\1/p' -e d) 2>/dev/null`;\
if [ -z "$$version" ]; then \
if [ -r /proc/version ]; then \
fi; \
fi; \
echo -n "\"Compiled on a Linux $$version system "; \
- echo "on `date +%Y/%m/%d`.\\n\"" ;; \
+ echo "on `date +%Y-%m-%d`.\\n\"" ;; \
*) ;; \
esac; \
files="$(all-Banner-files)"; \
--- /dev/null
+/* 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. */
+
+
+/* Event types that can be polled for. These bits may be set in `events'
+ to indicate the interesting event types; they will appear in `revents'
+ to indicate the status of the file descriptor. */
+#define POLLIN 01 /* There is data to read. */
+#define POLLPRI 02 /* There is urgent data to read. */
+#define POLLOUT 04 /* Writing now will not block. */
+
+/* Some aliases. */
+#define POLLWRNORM POLLOUT
+
+/* Event types always implicitly polled for. These bits need not be set in
+ `events', but they will appear in `revents' to indicate the status of
+ the file descriptor. */
+#define POLLERR 010 /* Error condition. */
+#define POLLHUP 020 /* Hung up. */
+#define POLLNVAL 040 /* Invalid polling request. */
+
+/* Canonical number of polling requests to read in at a time in poll. */
+#define NPOLLFILE 30
if (nlspath != NULL && *nlspath != '\0')
{
/* Append the system dependent directory. */
- size_t len = strlen (nlspath + 1 + sizeof NLSPATH);
+ size_t len = strlen (nlspath) + 1 + sizeof NLSPATH;
char *tmp = alloca (len);
__stpcpy (__stpcpy (__stpcpy (tmp, nlspath), ":"), NLSPATH);
result->nlspath = NULL;
}
+ __libc_lock_init (result->lock);
+
return (nl_catd) result;
}
catalog = (__nl_catd) catalog_desc;
if (catalog->status == closed)
- __open_catalog (catalog, 1);
+ __open_catalog (catalog);
if (catalog->status == nonexisting)
{
-/* Copyright (C) 1996 Free Software Foundation, Inc.
+/* Copyright (C) 1996, 1997 Free Software Foundation, Inc.
This file is part of the GNU C Library.
Contributed by Ulrich Drepper, <drepper@gnu.ai.mit.edu>.
Boston, MA 02111-1307, USA. */
#include <sys/types.h>
+#include <bits/libc-lock.h>
struct catalog_obj
struct catalog_obj *file_ptr;
size_t file_size;
+
+ __libc_lock_define (,lock);
} *__nl_catd;
/* Prototypes for helper functions. */
-void __open_catalog (__nl_catd __catalog, int __with_path);
+void __open_catalog (__nl_catd __catalog);
old_cat_obj.status = closed;
old_cat_obj.cat_name = file_name;
+ old_cat_obj.nlspath = NULL;
+ __libc_lock_init (old_cat_obj.lock);
/* Try to open catalog, but don't look through the NLSPATH. */
- __open_catalog (&old_cat_obj, 0);
+ __open_catalog (&old_cat_obj);
if (old_cat_obj.status != mmapped && old_cat_obj.status != malloced)
if (errno == ENOENT)
void
-__open_catalog (__nl_catd catalog, int with_path)
+__open_catalog (__nl_catd catalog)
{
int fd;
struct stat st;
int swapping;
- if (strchr (catalog->cat_name, '/') != NULL || !with_path)
- fd = open (catalog->cat_name, O_RDONLY);
+ /* Make sure we are alone. */
+ __libc_lock_lock (catalog->lock);
+
+ /* Check whether there was no other thread faster. */
+ if (catalog->status != closed)
+ /* While we waited some other thread tried to open the catalog. */
+ goto unlock_return;
+
+ if (strchr (catalog->cat_name, '/') != NULL || catalog->nlspath == NULL)
+ fd = __open (catalog->cat_name, O_RDONLY);
else
{
const char *run_nlspath = catalog->nlspath;
if (fd < 0 || __fstat (fd, &st) < 0)
{
catalog->status = nonexisting;
- return;
+ goto unlock_return;
}
#ifndef MAP_COPY
if (catalog->file_ptr == NULL)
{
catalog->status = nonexisting;
- return;
+ goto unlock_return;
}
todo = st.st_size;
/* Save read, handle partial reads. */
{
free ((void *) catalog->file_ptr);
catalog->status = nonexisting;
- return;
+ goto unlock_return;
}
todo -= now;
}
swapping = 1;
else
{
- /* Illegal file. Free he resources and mark catalog as not
+ /* Illegal file. Free the resources and mark catalog as not
usable. */
if (catalog->status == mmapped)
__munmap ((void *) catalog->file_ptr, catalog->file_size);
else
free (catalog->file_ptr);
catalog->status = nonexisting;
- return;
+ goto unlock_return;
}
#define SWAP(x) (swapping ? SWAPU32 (x) : (x))
catalog->strings =
(const char *) &catalog->file_ptr->name_ptr[catalog->plane_size
* catalog->plane_depth * 3 * 2];
+
+ /* Release the lock again. */
+ unlock_return:
+ __libc_lock_unlock (catalog->lock);
}
/ := $$/# bite me.
$(objpfx)abi-tag.h: $(..)abi-tags
+ $(make-target-directory)
rm -f $@.new
sed 's/#.*$//;/^[ ]*$$/d' $< | while read conf tag; do \
test `expr '$(config-machine)-$(config-vendor)-$(config-os)' \
headers := sys/stat.h bits/stat.h sys/statfs.h bits/statfs.h sys/vfs.h \
fcntl.h sys/fcntl.h bits/fcntl.h \
- poll.h sys/poll.h \
+ poll.h sys/poll.h bits/poll.h \
utime.h ftw.h fts.h
routines := \
/* Compatibility definitions for System V `poll' interface.
- Copyright (C) 1994, 1996 Free Software Foundation, Inc.
+ Copyright (C) 1994, 1996, 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
#include <features.h>
+/* Get the platform dependent bits of `poll'. */
+#include <bits/poll.h>
+
__BEGIN_DECLS
/* Data structure describing a polling request. */
short int revents; /* Types of events that actually occurred. */
};
-/* Event types that can be polled for. These bits may be set in `events'
- to indicate the interesting event types; they will appear in `revents'
- to indicate the status of the file descriptor. */
-#define POLLIN 01 /* There is data to read. */
-#define POLLPRI 02 /* There is urgent data to read. */
-#define POLLOUT 04 /* Writing now will not block. */
-
-/* Some aliases. */
-#define POLLWRNORM POLLOUT
-
-/* Event types always implicitly polled for. These bits need not be set in
- `events', but they will appear in `revents' to indicate the status of
- the file descriptor. */
-#define POLLERR 010 /* Error condition. */
-#define POLLHUP 020 /* Hung up. */
-#define POLLNVAL 040 /* Invalid polling request. */
-
-/* Canonical number of polling requests to read in at a time in poll. */
-#define NPOLLFILE 30
-
/* Poll the file descriptors described by the NFDS structures starting at
FDS. If TIMEOUT is nonzero and not -1, allow TIMEOUT milliseconds for
void *buf;
_IO_ssize_t size;
{
- for (;;)
- {
- _IO_ssize_t count = _IO_read (fp->_fileno, buf, size);
-#if 0 && defined EINTR
- /* We must not do this optimization since POSIX.1 explicitly
- requests that the stream operations must return with the
- error EINTR if this happens. There must be the possibility
- that stream operations time out. --drepper */
- if (count == -1 && errno == EINTR)
- continue;
-#endif
- return count;
- }
+ return _IO_read (fp->_fileno, buf, size);
}
_IO_pos_t
_IO_ssize_t count = _IO_write (f->_fileno, data, to_do);
if (count == EOF)
{
-#if 0 && defined EINTR
- /* We must not do this optimization since POSIX.1 explicitly
- requests that the stream operations must return with the
- error EINTR if this happens. There must be the
- possibility that stream operations time out. --drepper */
- if (errno == EINTR)
- continue;
- else
-#endif
- {
- f->_flags |= _IO_ERR_SEEN;
- break;
- }
+ f->_flags |= _IO_ERR_SEEN;
+ break;
}
to_do -= count;
data = (void *) ((char *) data + count);
572baa84bd05d4b236b7e2fb211d0dfd charmaps/T.61-7BIT
1e39e36aa7544014059b0aa8381ab051 charmaps/T.61-8BIT
81c8e12a75dff4371ce82773d670cd6d charmaps/VIDEOTEX-SUPPL
+910e8174540ecba1ac61b5f27f6dc359 locales/cs_CZ
45ade09ead9fd385d58504bfc005ecab locales/da_DK
249894e0554d46d1fbdae4a5fb8cc20e locales/de_AT
b3628f73e00bb655a5e96bcc2331893c locales/de_BE
a25300033ea6c619a4e15051f14aa65e locales/fo_FO
02ca55b19338f94530f0b60999638ed4 locales/fr_BE
655c7b8713b9aad20014df2c27928cb7 locales/fr_CA
-8e60885c3fda81bc7773f139657974f3 locales/fr_CA,2.13
-8a76a0e3ea2923367fdbab78a6bc67cb locales/fr_CA,2.13.orig
+d5bec15a74c4107a77a46fe185883574 locales/fr_CA,2.13
19403a5cd69a9ad658b173859eb022ef locales/fr_CH
48d8981b117e72c5eb2e9c181cbd7d2b locales/fr_FR
cc1b77cf4cdc4488a99637e730e0f57f locales/fr_LU
1987b72e766038b0f475165c994d1469 locales/ga_IE
be2ef06fd9a4b4def515216972fe9250 locales/gr_GR
-9e2de7fe4b41f9bad952cdc5bfd77cd4 locales/hr_HR
+e7ad1d62ccf958b04f018cbd96ede3b2 locales/hr_HR
7f35d03bbe29b53831674704f8b307af locales/hu_HU
1a8b95f6663b7a99703a32c6135d8896 locales/is_IS
47620dbc36bf3ffe04b32dd16b7aae3c locales/it_IT
e71081f29649cfd4ac8563ae1f7932fa locales/nl_NL
3a0720088defd80baa0623990c6d196a locales/no_NO
6d1bb18d4271cd712e5dc24eec4706b9 locales/pl_PL
-b07ce7e57dda4687f2a83cd5ec79a3e0 locales/POSIX
+bbbcbd6f0a484ec25d8a592217a76ebb locales/POSIX
509fc74fdd394f6876358d357f955645 locales/pt_BR
7c2463bcee68bccde3145642a34a8ef1 locales/pt_PT
32c766f85eb82823856485e5802dce19 locales/ro_RO
locales := $(filter-out $(addprefix locales/, CVS RCS %~), \
$(wildcard locales/*))
-test-srcs := collate-test xfrm-test
+test-srcs := collate-test xfrm-test tst-fmon
test-input := de_DE.ISO-8859-1 da_DK.ISO-8859-1 fr_CA,2.13.ISO-8859-1
-
+fmon-input := de_DE.ISO-8859-1 en_US.ISO-8859-1
# Get $(inst_i18ndir) defined.
include ../Makeconfig
ifeq (no,$(cross-compiling))
-tests: $(objpfx)collate-test $(objpfx)xfrm-test
+tests: $(objpfx)collate-test $(objpfx)xfrm-test $(objpfx)tst-fmon
$(SHELL) -e sort-test.sh $(common-objpfx) $(test-input)
+ $(SHELL) -e tst-fmon.sh $(common-objpfx) $(fmon-input)
endif
and
POSIX character set descriptions
-Ulrich Drepper Time-stamp: <1997/02/12 22:13:01 drepper>
+Ulrich Drepper Time-stamp: <1997/06/04 01:36:26 drepper>
drepper@cygnus.com
localedef -i fr_CA -f ISO-8859-1 fr_CA
This will place the 6 output files in the appropriate directory where
-the GNU libc functions can find them. Please note that you need the
-rights to write to this directory ($(prefix)/share/locale, where
+the GNU libc functions can find them. Please note that you need
+permission to write to this directory ($(prefix)/share/locale, where
$(prefix) is the value you specified while configuring GNU libc). If
-you do not have the necessary rights, you can write the files into an
+you do not have the necessary permissions, you can write the files into an
arbitrary directory by giving a path including a '/' character instead
of `fr_CA'. E.g., to put the new files in a subdirectory of the
current directory simply use
especially in the section describing the `setlocale' function.
-The here contained files can originally be found at
+The files contained here were originally from
ftp://dkuug.dk/i18n/WG15-collection
and
Ulrich Drepper <drepper@cygnus.com>
-Please make sure your corrections are relativ to the originally
+Please make sure your corrections are relative to the originally
distributed files. Consult the CHECKSUMS file which contains the MD5
sums for all data files.
--- /dev/null
+" DM123,45"
+"-DM123,45"
+" DM3.456,78"
+" DM123,45"
+" -DM123,45"
+" DM3.456,78"
+" DM 123,45"
+"-DM 123,45"
+" DM 3.456,78"
+" DM***123,45"
+"-DM***123,45"
+" DM*3.456,78"
+" DM000123,45"
+"-DM000123,45"
+" DM03.456,78"
+" DM 123,45"
+"-DM 123,45"
+" DM 3456,78"
+" DM 123"
+"-DM 123"
+" DM 3457"
+" DM 123,4500"
+"-DM 123,4500"
+" DM 3456,7810"
+" DM 123,45 "
+"(DM 123,45)"
+" DM 3.456,78 "
+" 123,45 "
+"( 123,45)"
+" 3.456,78 "
--- /dev/null
+" $123.45"
+"-$123.45"
+" $3,456.78"
+" $123.45"
+" -$123.45"
+" $3,456.78"
+" $ 123.45"
+"-$ 123.45"
+" $ 3,456.78"
+" $***123.45"
+"-$***123.45"
+" $*3,456.78"
+" $000123.45"
+"-$000123.45"
+" $03,456.78"
+" $ 123.45"
+"-$ 123.45"
+" $ 3456.78"
+" $ 123"
+"-$ 123"
+" $ 3457"
+" $ 123.4500"
+"-$ 123.4500"
+" $ 3456.7810"
+" $ 123.45 "
+"($ 123.45)"
+" $ 3,456.78 "
+" 123.45 "
+"( 123.45)"
+" 3,456.78 "
comment_char %
%
% Czech Language Locale for Czech
-% Source:
-% Address: U ¹koly 292 Without diactitical chars: U skoly 292
-% 783 72 Velký Týnec 782 72 Velky Tynec
+% Source:
+% Address: U ¹koly 292 Without diactitical chars: U skoly 292
+% 783 72 Velký Týnec 782 72 Velky Tynec
% Contact: Vladimir Michl
% Email: Vladimir.Michl@upol.cz
% Tel:
% Charset: ISO_8859-2:1987
% Distribution and use is free, also
% for commercial purposes.
+% 1997-08-20: Michael Mráka <michael@fi.muni.cz>
+% Zmìny zejména v sekci LC_TIME. (Changes especially in LC_TIME section.)
+
% zpracování:
%% localedef -c -i <tento-soubor> -f "ISO_8859-2:1987" 'cs_CZ.ISO-8859-2'
%% pokud se podaøí odstranit chyby, lze -c vynechat.
-%% pro úspì¹né pøelo¾ení je tøeba mít kolekci lokalizací WG15collection.
-%% Tuto rozbalit do adresáøe
+%% pro úspì¹né pøelo¾ení je tøeba mít kolekci lokalizací WG15collection. Tuto rozbalit do adresáøe
%% /usr/share/i18n
%% Lokalizace se pak budou tvoøit v adresáøi /usr/share/locale
LC_COLLATE
% Definice písmene ch
-collating-element <c-h> from "<c><h>"
-collating-element <C-h> from "<C><h>"
-collating-element <C-H> from "<C><H>"
+collating-element <ch> from "<c><h>"
+collating-element <Ch> from "<C><h>"
+collating-element <CH> from "<C><H>"
collating-symbol <CAPITAL>
collating-symbol <SMALL>
collating-symbol <CEDILLA>
collating-symbol <OGONEK>
-order_start forward;backward/
- ;forward;position
+order_start forward;forward;forward;forward
-<CAPITAL>
<SMALL>
+<CAPITAL>
<NONE>
<ACUTE>
<CEDILLA>
<OGONEK>
-%
+%
<NS> <NS>;<NS>;<NS>;IGNORE
<SP> IGNORE;IGNORE;IGNORE;<SP>
<HT> IGNORE;IGNORE;IGNORE;<HT>
<OC> IGNORE;IGNORE;IGNORE;<OC>
<PM> IGNORE;IGNORE;IGNORE;<PM>
<AC> IGNORE;IGNORE;IGNORE;<AC>
-UNDEFINED IGNORE;IGNORE;IGNORE
-
+UNDEFINED IGNORE;IGNORE;IGNORE;IGNORE
+
<0> <0>;<0>;IGNORE;IGNORE
<1> <1>;<1>;IGNORE;IGNORE
<2> <2>;<2>;IGNORE;IGNORE
<H> <H>;<NONE>;<CAPITAL>;IGNORE
<h> <H>;<NONE>;<SMALL>;IGNORE
-<C-H> <C-H>;<NONE>;<CAPITAL>;IGNORE
-<C-h> <C-h>;<NONE>;<CAPITAL>;IGNORE
-<c-h> <c-h>;<NONE>;<SMALL>;IGNORE
+<CH> <CH>;<NONE>;<CAPITAL>;IGNORE
+<Ch> <Ch>;<NONE>;<CAPITAL>;IGNORE
+<ch> <ch>;<NONE>;<SMALL>;IGNORE
<I> <I>;<NONE>;<CAPITAL>;IGNORE
<i> <I>;<NONE>;<SMALL>;IGNORE
LC_CTYPE
-digit <0>;<1>;<2>;<3>;<4>;/
- <5>;<6>;<7>;<8>;<9>
+digit <0>;<1>;<2>;<3>;<4>;<5>;<6>;<7>;<8>;<9>
-xdigit <0>;<1>;<2>;<3>;<4>;/
- <5>;<6>;<7>;<8>;<9>;/
- <a>;...;<f>;/
- <A>;...;<F>
+xdigit <0>;<1>;<2>;<3>;<4>;<5>;<6>;<7>;<8>;<9>;/
+ <a>;...;<f>;<A>;...;<F>
punct <!>;...;<//>;/
<:>;...;<At>;/
space <SP>;<LF>;<VT>;<FF>;/
<CR>;<HT>;<NS>
-
+
cntrl <NU>;<SH>;<SX>;<EX>;<ET>;<EQ>;/
<AK>;<BL>;<BS>;<HT>;<LF>;<VT>;/
<FF>;<CR>;<SO>;<SI>;<DL>;<D1>;/
<MW>;<SG>;<EG>;<SS>;<GC>;<SC>;/
<CI>;<ST>;<OC>;<PM>;<AC>
-alpha <A>;...;<Z>;/
+
+upper <A>;...;<Z>;/
<A;>;/
<L//>;/
<L<>;/
<U">;/
<U:>;/
<Y'>;/
- <T,>;/
- <a>;...;<z>;/
+ <T,>
+
+lower <a>;...;<z>;/
<a;>;/
<l//>;/
<l<>;/
<y'>;/
<t,>
<A;>;/
<L//>;/
<L<>;/
<U">;/
<U:>;/
<Y'>;/
- <T,>
-
-lower <a>;...;<z>;/
+ <T,>;/
+ <a>;...;<z>;/
<a;>;/
<l//>;/
<l<>;/
<y'>;/
<t,>
-
toupper (<a>,<A>);(<b>,<B>);(<c>,<C>);(<d>,<D>);(<e>,<E>);(<f>,<F>);/
(<g>,<G>);(<h>,<H>);(<i>,<I>);(<j>,<J>);(<k>,<K>);(<l>,<L>);/
(<m>,<M>);(<n>,<N>);(<o>,<O>);(<p>,<P>);(<q>,<Q>);(<r>,<R>);/
%% ekvivalenty yes/no
%% -------------------------
-LC_MESSAGES
+LC_MESSAGES
yesexpr "<<(><a><A><y><Y><)/>><.><*>"
noexpr "<<(><n><N><)/>><.><*>"
LC_TIME
+
abday "<N><e>";/
"<P><o>";/
"<U'><t>";/
"<P><a'><t><e><k>";/
"<S><o><b><o><t><a>"
-abmon "<L><e><d>";/
- "<U'><n><o>";/
- "<B><r<><e>";/
- "<D><u><b>";/
- "<K><v><e<>";/
- "<C<><e><r>";/
- "<C<><n><c>";/
- "<S><r><p>";/
- "<Z><a'><r<>";/
- "<R<><i'><j>";/
- "<L><i><s>";/
- "<P><r><o>"
+%abmon "<L><e><d>";"<U'><n><o>";"<B><r<><e>";"<D><u><b>";"<K><v><e<>";/
+% "<C<><e><r>";"<C<><n><c>";"<S><r><p>";"<Z><a'><r<>";"<R<><i'><j>";/
+% "<L><i><s>";"<P><r><o>"
+% Obávám se, ¾e èe¹tina ¾ádné zkratky pro mìsíce nezná :-)
+abmon "<L><e><d><e><n>";/
+ "<U'><n><o><r>";/
+ "<B><r<><e><z><e><n>";/
+ "<D><u><b><e><n>";/
+ "<K><v><e<><t><e><n>";/
+ "<C<><e><r><v><e><n>";/
+ "<C<><e><r><v><e><n><e><c>";/
+ "<S><r><p><e><n>";/
+ "<Z><a'><r<><i'>";/
+ "<R<><i'><j><e><n>";/
+ "<L><i><s><t><o><p><a><d>";/
+ "<P><r><o><s><i><n><e><c>"
mon "<L><e><d><e><n>";/
"<U'><n><o><r>";/
"<P><r><o><s><i><n><e><c>"
-d_t_fmt "<%><a><SP><%><d><.><SP><%><B><SP><%><Y><SP><%><H><:><%><M><:><%><S><SP><%><Z>"
-%d_t_fmt "<%><d><.><%><m><.><%><Y><SP><%><T><SP><%><Z>"
+d_t_fmt "<%><a><SP><%><e><.><SP><%><B><SP><%><Y><,><SP><%><H><:><%><M><:><%><S><SP><%><Z>"
d_fmt "<%><d><.><%><m><.><%><Y>"
-%d_fmt "<%><d><.><%><m><.><%><Y>"
t_fmt "<%><H><:><%><M><:><%><S>"
-%t_fmt "<%><T>"
t_fmt_ampm "<%><I><:><%><M><:><%><S>"
-%t_fmt_ampm ""
-%am_pm "am";"pm"
am_pm "";""
-% Zde nevím, co následující polo¾ky znamenají
-% V pøípadì potøeby prosím opravte
-
-%era "<%><Y>"
-
-%era_year "<%><y>"
-
-%alt_digits "<0>";"<1>";"<2>";"<3>";"<4>";/
-% "<5>";"<6>";"<7>";"<8>"
-
-%era_d_fmt "<%><e><SP><%><B><SP><%><Y>"
-
END LC_TIME
%% END OF LOCALIZATION FILE for cs_CZ.ISO-8859-2
exit $status
# Local Variables:
-# mode:ksh
+# mode:shell-script
# End:
--- /dev/null
+#include <monetary.h>
+#include <stdio.h>
+#include <locale.h>
+
+static int
+check (const char *fmt, double n)
+{
+ int result;
+ char buf[1000];
+
+ result = strfmon (buf, sizeof buf, fmt, n) == -1;
+
+ printf ("\"%s\"\n", buf);
+ return result;
+}
+
+int
+main (void)
+{
+ int result = 0;
+
+ setlocale (LC_ALL, "");
+
+ result |= check ("%n", 123.45);
+ result |= check ("%n", -123.45);
+ result |= check ("%n", 3456.781);
+
+ result |= check ("%11n", 123.45);
+ result |= check ("%11n", -123.45);
+ result |= check ("%11n", 3456.781);
+
+ result |= check ("%#5n", 123.45);
+ result |= check ("%#5n", -123.45);
+ result |= check ("%#5n", 3456.781);
+
+ result |= check ("%=*#5n", 123.45);
+ result |= check ("%=*#5n", -123.45);
+ result |= check ("%=*#5n", 3456.781);
+
+ result |= check ("%=0#5n", 123.45);
+ result |= check ("%=0#5n", -123.45);
+ result |= check ("%=0#5n", 3456.781);
+
+ result |= check ("%^#5n", 123.45);
+ result |= check ("%^#5n", -123.45);
+ result |= check ("%^#5n", 3456.781);
+
+ result |= check ("%^#5.0n", 123.45);
+ result |= check ("%^#5.0n", -123.45);
+ result |= check ("%^#5.0n", 3456.781);
+
+ result |= check ("%^#5.4n", 123.45);
+ result |= check ("%^#5.4n", -123.45);
+ result |= check ("%^#5.4n", 3456.781);
+
+ result |= check ("%(#5n", 123.45);
+ result |= check ("%(#5n", -123.45);
+ result |= check ("%(#5n", 3456.781);
+
+ result |= check ("%!(#5n", 123.45);
+ result |= check ("%!(#5n", -123.45);
+ result |= check ("%!(#5n", 3456.781);
+
+ return result;
+}
--- /dev/null
+#! /bin/sh
+
+common_objpfx=$1; shift
+lang=$*
+
+here=`pwd`
+
+# Generate data files.
+for l in $lang; do
+ cns=`echo $l | sed 's/\(.*\)[.][^.]*/\1/'`
+ cn=locales/$cns
+ fn=charmaps/`echo $l | sed 's/.*[.]\([^.]*\)/\1/'`
+ LD_LIBRARY_PATH=$common_objpfx I18NPATH=./locales ${common_objpfx}elf/ld.so \
+ ${common_objpfx}locale/localedef --quiet -i $cn -f $fn \
+ ${common_objpfx}localedata/$cns
+done
+
+# Run the tests.
+for l in $lang; do
+ cns=`echo $l | sed 's/\(.*\)[.][^.]*/\1/'`
+
+ LOCPATH=$common_objpfx/localedata LC_ALL=$cns \
+ LD_LIBRARY_PATH=$common_objpfx $common_objpfx/elf/ld.so \
+ $common_objpfx/localedata/tst-fmon \
+ > $common_objpfx/localedata/fmon-$cns.out || status=1
+ cmp -s fmon-$cns.exp $common_objpfx/localedata/fmon-$cns.out || status=1
+done
+
+exit $status
+# Local Variables:
+# mode:shell-script
+# End:
register struct _obstack_chunk *chunk; /* points to new chunk */
if (alignment == 0)
- alignment = DEFAULT_ALIGNMENT;
+ alignment = (int) DEFAULT_ALIGNMENT;
if (size == 0)
/* Default size is what GNU malloc can fit in a 4096-byte block. */
{
register struct _obstack_chunk *chunk; /* points to new chunk */
if (alignment == 0)
- alignment = DEFAULT_ALIGNMENT;
+ alignment = (int) DEFAULT_ALIGNMENT;
if (size == 0)
/* Default size is what GNU malloc can fit in a 4096-byte block. */
{
register struct _obstack_chunk *old_chunk = h->chunk;
register struct _obstack_chunk *new_chunk;
register long new_size;
- register int obj_size = h->next_free - h->object_base;
- register int i;
- int already;
+ register long obj_size = h->next_free - h->object_base;
+ register long i;
+ long already;
/* Compute size for new chunk. */
new_size = (obj_size + length) + (obj_size >> 3) + 100;
include ../Rules
-$(objpfx)libnss_db.so: $(common-objpfx)db/libdb.so $(objpfx)libnss_files.so
+$(objpfx)libnss_db.so: $(common-objpfx)db2/libdb.so $(objpfx)libnss_files.so
$(libnss_db-routines:%=$(objpfx)%.c): $(objpfx)db-%.c: nss_files/files-%.c
@rm -f $@.new
--- /dev/null
+/* 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. */
+
+
+/* Event types that can be polled for. These bits may be set in `events'
+ to indicate the interesting event types; they will appear in `revents'
+ to indicate the status of the file descriptor. */
+#define POLLIN 01 /* There is data to read. */
+#define POLLPRI 02 /* There is urgent data to read. */
+#define POLLOUT 04 /* Writing now will not block. */
+
+/* Some aliases. */
+#define POLLWRNORM POLLOUT
+
+/* Event types always implicitly polled for. These bits need not be set in
+ `events', but they will appear in `revents' to indicate the status of
+ the file descriptor. */
+#define POLLERR 010 /* Error condition. */
+#define POLLHUP 020 /* Hung up. */
+#define POLLNVAL 040 /* Invalid polling request. */
+
+/* Canonical number of polling requests to read in at a time in poll. */
+#define NPOLLFILE 30
of init-first. */
static ElfW(auxv_t) *_dl_auxv;
+
+#ifndef DL_FIND_ARG_COMPONENTS
+#define DL_FIND_ARG_COMPONENTS(cookie, argc, argv, envp, auxp) \
+ do { \
+ void **_tmp; \
+ (argc) = *(long *) cookie; \
+ (argv) = (char **) cookie + 1; \
+ (envp) = (argv) + (argc) + 1; \
+ for (_tmp = (void **) (envp); *_tmp; ++_tmp) \
+ continue; \
+ (auxp) = (void *) ++_tmp; \
+ } while (0)
+#endif
+
+
ElfW(Addr)
_dl_sysdep_start (void **start_argptr,
void (*dl_main) (const ElfW(Phdr) *phdr, ElfW(Word) phnum,
gid_t egid = 0;
unsigned int seen;
+ DL_FIND_ARG_COMPONENTS (start_argptr, _dl_argc, _dl_argv, _environ, _dl_auxv);
+
user_entry = (ElfW(Addr)) &ENTRY_POINT;
- _dl_argc = *(long *) start_argptr;
- _dl_argv = (char **) start_argptr + 1;
- _environ = &_dl_argv[_dl_argc + 1];
_dl_platform = NULL; /* Default to nothing known about the platform. */
- start_argptr = (void **) _environ;
- while (*start_argptr)
- ++start_argptr;
seen = 0;
#define M(type) (1 << (type))
- for (av = _dl_auxv = (void *) ++start_argptr;
- av->a_type != AT_NULL;
- seen |= M ((++av)->a_type))
+ for (av = _dl_auxv; av->a_type != AT_NULL; seen |= M ((++av)->a_type))
switch (av->a_type)
{
case AT_PHDR:
-/* Single-precision floating point square root.
- 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. */
-
-#include <math.h>
-#include <math_private.h>
-#include <fenv_libc.h>
-#include <inttypes.h>
-
-static const double almost_half = 0.5000000000000001; /* 0.5 + 2^-53 */
-static const uint32_t a_nan = 0x7fc00000;
-static const uint32_t a_inf = 0x7f800000;
-static const float two108 = 3.245185536584267269e+32;
-static const float twom54 = 5.551115123125782702e-17;
-extern const float __t_sqrt[1024];
-
-/* The method is based on a description in
- Computation of elementary functions on the IBM RISC System/6000 processor,
- P. W. Markstein, IBM J. Res. Develop, 34(1) 1990.
- Basically, it consists of two interleaved Newton-Rhapson approximations,
- one to find the actual square root, and one to find its reciprocal
- without the expense of a division operation. The tricky bit here
- is the use of the POWER/PowerPC multiply-add operation to get the
- required accuracy with high speed.
-
- The argument reduction works by a combination of table lookup to
- obtain the initial guesses, and some careful modification of the
- generated guesses (which mostly runs on the integer unit, while the
- Newton-Rhapson is running on the FPU). */
-double
-__sqrt(double x)
-{
- const float inf = *(const float *)&a_inf;
- /* x = f_wash(x); *//* This ensures only one exception for SNaN. */
- if (x > 0)
- {
- if (x != inf)
- {
- /* Variables named starting with 's' exist in the
- argument-reduced space, so that 2 > sx >= 0.5,
- 1.41... > sg >= 0.70.., 0.70.. >= sy > 0.35... .
- Variables named ending with 'i' are integer versions of
- floating-point values. */
- double sx; /* The value of which we're trying to find the
- square root. */
- double sg,g; /* Guess of the square root of x. */
- double sd,d; /* Difference between the square of the guess and x. */
- double sy; /* Estimate of 1/2g (overestimated by 1ulp). */
- double sy2; /* 2*sy */
- double e; /* Difference between y*g and 1/2 (se = e * fsy). */
- double shx; /* == sx * fsg */
- double fsg; /* sg*fsg == g. */
- fenv_t fe; /* Saved floating-point environment (stores rounding
- mode and whether the inexact exception is
- enabled). */
- uint32_t xi0, xi1, sxi, fsgi;
- const float *t_sqrt;
-
- fe = fegetenv_register();
- EXTRACT_WORDS (xi0,xi1,x);
- relax_fenv_state();
- sxi = xi0 & 0x3fffffff | 0x3fe00000;
- INSERT_WORDS (sx, sxi, xi1);
- t_sqrt = __t_sqrt + (xi0 >> 52-32-8-1 & 0x3fe);
- sg = t_sqrt[0];
- sy = t_sqrt[1];
-
- /* Here we have three Newton-Rhapson iterations each of a
- division and a square root and the remainder of the
- argument reduction, all interleaved. */
- sd = -(sg*sg - sx);
- fsgi = xi0 + 0x40000000 >> 1 & 0x7ff00000;
- sy2 = sy + sy;
- sg = sy*sd + sg; /* 16-bit approximation to sqrt(sx). */
- INSERT_WORDS (fsg, fsgi, 0);
- e = -(sy*sg - almost_half);
- sd = -(sg*sg - sx);
- if ((xi0 & 0x7ff00000) == 0)
- goto denorm;
- sy = sy + e*sy2;
- sg = sg + sy*sd; /* 32-bit approximation to sqrt(sx). */
- sy2 = sy + sy;
- e = -(sy*sg - almost_half);
- sd = -(sg*sg - sx);
- sy = sy + e*sy2;
- shx = sx * fsg;
- sg = sg + sy*sd; /* 64-bit approximation to sqrt(sx),
- but perhaps rounded incorrectly. */
- sy2 = sy + sy;
- g = sg * fsg;
- e = -(sy*sg - almost_half);
- d = -(g*sg - shx);
- sy = sy + e*sy2;
- fesetenv_register (fe);
- return g + sy*d;
- denorm:
- /* For denormalised numbers, we normalise, calculate the
- square root, and return an adjusted result. */
- fesetenv_register (fe);
- return __sqrt(x * two108) * twom54;
- }
- }
- else if (x < 0)
- {
-#ifdef FE_INVALID_SQRT
- feraiseexcept (FE_INVALID_SQRT);
- /* For some reason, some PowerPC processors don't implement
- FE_INVALID_SQRT. I guess no-one ever thought they'd be
- used for square roots... :-) */
- if (!fetestexcept (FE_INVALID))
-#endif
- feraiseexcept (FE_INVALID);
-#ifndef _IEEE_LIBM
- if (_LIB_VERSION != _IEEE_)
- x = __kernel_standard(x,x,26);
- else
-#endif
- x = *(const float*)&a_nan;
- }
- return f_wash(x);
-}
-
-weak_alias (__sqrt, sqrt)
-/* Strictly, this is wrong, but the only places where _ieee754_sqrt is
- used will not pass in a negative result. */
-strong_alias(__sqrt,__ieee754_sqrt)
+/* __ieee754_sqrt is in w_sqrt.c */
-/* Single-precision floating point square root.
- 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. */
-
-#include <math.h>
-#include <math_private.h>
-#include <fenv_libc.h>
-#include <inttypes.h>
-
-static const float almost_half = 0.50000006; /* 0.5 + 2^-24 */
-static const uint32_t a_nan = 0x7fc00000;
-static const uint32_t a_inf = 0x7f800000;
-static const float two48 = 281474976710656.0;
-static const float twom24 = 5.9604644775390625e-8;
-extern const float __t_sqrt[1024];
-
-/* The method is based on a description in
- Computation of elementary functions on the IBM RISC System/6000 processor,
- P. W. Markstein, IBM J. Res. Develop, 34(1) 1990.
- Basically, it consists of two interleaved Newton-Rhapson approximations,
- one to find the actual square root, and one to find its reciprocal
- without the expense of a division operation. The tricky bit here
- is the use of the POWER/PowerPC multiply-add operation to get the
- required accuracy with high speed.
-
- The argument reduction works by a combination of table lookup to
- obtain the initial guesses, and some careful modification of the
- generated guesses (which mostly runs on the integer unit, while the
- Newton-Rhapson is running on the FPU). */
-float
-__sqrtf(float x)
-{
- const float inf = *(const float *)&a_inf;
- /* x = f_washf(x); *//* This ensures only one exception for SNaN. */
- if (x > 0)
- {
- if (x != inf)
- {
- /* Variables named starting with 's' exist in the
- argument-reduced space, so that 2 > sx >= 0.5,
- 1.41... > sg >= 0.70.., 0.70.. >= sy > 0.35... .
- Variables named ending with 'i' are integer versions of
- floating-point values. */
- float sx; /* The value of which we're trying to find the square
- root. */
- float sg,g; /* Guess of the square root of x. */
- float sd,d; /* Difference between the square of the guess and x. */
- float sy; /* Estimate of 1/2g (overestimated by 1ulp). */
- float sy2; /* 2*sy */
- float e; /* Difference between y*g and 1/2 (note that e==se). */
- float shx; /* == sx * fsg */
- float fsg; /* sg*fsg == g. */
- fenv_t fe; /* Saved floating-point environment (stores rounding
- mode and whether the inexact exception is
- enabled). */
- uint32_t xi, sxi, fsgi;
- const float *t_sqrt;
-
- GET_FLOAT_WORD (xi, x);
- fe = fegetenv_register ();
- relax_fenv_state ();
- sxi = xi & 0x3fffffff | 0x3f000000;
- SET_FLOAT_WORD (sx, sxi);
- t_sqrt = __t_sqrt + (xi >> 23-8-1 & 0x3fe);
- sg = t_sqrt[0];
- sy = t_sqrt[1];
-
- /* Here we have three Newton-Rhapson iterations each of a
- division and a square root and the remainder of the
- argument reduction, all interleaved. */
- sd = -(sg*sg - sx);
- fsgi = xi + 0x40000000 >> 1 & 0x7f800000;
- sy2 = sy + sy;
- sg = sy*sd + sg; /* 16-bit approximation to sqrt(sx). */
- e = -(sy*sg - almost_half);
- SET_FLOAT_WORD (fsg, fsgi);
- sd = -(sg*sg - sx);
- sy = sy + e*sy2;
- if ((xi & 0x7f800000) == 0)
- goto denorm;
- shx = sx * fsg;
- sg = sg + sy*sd; /* 32-bit approximation to sqrt(sx),
- but perhaps rounded incorrectly. */
- sy2 = sy + sy;
- g = sg * fsg;
- e = -(sy*sg - almost_half);
- d = -(g*sg - shx);
- sy = sy + e*sy2;
- fesetenv_register (fe);
- return g + sy*d;
- denorm:
- /* For denormalised numbers, we normalise, calculate the
- square root, and return an adjusted result. */
- fesetenv_register (fe);
- return __sqrtf(x * two48) * twom24;
- }
- }
- else if (x < 0)
- {
-#ifdef FE_INVALID_SQRT
- feraiseexcept (FE_INVALID_SQRT);
- /* For some reason, some PowerPC processors don't implement
- FE_INVALID_SQRT. I guess no-one ever thought they'd be
- used for square roots... :-) */
- if (!fetestexcept (FE_INVALID))
-#endif
- feraiseexcept (FE_INVALID);
-#ifndef _IEEE_LIBM
- if (_LIB_VERSION != _IEEE_)
- x = __kernel_standard(x,x,126);
- else
-#endif
- x = *(const float*)&a_nan;
- }
- return f_washf(x);
-}
-
-weak_alias (__sqrtf, sqrtf)
-/* Strictly, this is wrong, but the only places where _ieee754_sqrt is
- used will not pass in a negative result. */
-strong_alias(__sqrtf,__ieee754_sqrtf)
+/* __ieee754_sqrtf is in w_sqrtf.c */
--- /dev/null
+/* __copysignf is in s_copysign.S */
--- /dev/null
+/* __fabsf is in s_fabs.S */
--- /dev/null
+/* __isnanf is in s_isnan.c */
--- /dev/null
+/* Single-precision floating point square root.
+ 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. */
+
+#include <math.h>
+#include <math_private.h>
+#include <fenv_libc.h>
+#include <inttypes.h>
+
+static const double almost_half = 0.5000000000000001; /* 0.5 + 2^-53 */
+static const uint32_t a_nan = 0x7fc00000;
+static const uint32_t a_inf = 0x7f800000;
+static const float two108 = 3.245185536584267269e+32;
+static const float twom54 = 5.551115123125782702e-17;
+extern const float __t_sqrt[1024];
+
+/* The method is based on a description in
+ Computation of elementary functions on the IBM RISC System/6000 processor,
+ P. W. Markstein, IBM J. Res. Develop, 34(1) 1990.
+ Basically, it consists of two interleaved Newton-Rhapson approximations,
+ one to find the actual square root, and one to find its reciprocal
+ without the expense of a division operation. The tricky bit here
+ is the use of the POWER/PowerPC multiply-add operation to get the
+ required accuracy with high speed.
+
+ The argument reduction works by a combination of table lookup to
+ obtain the initial guesses, and some careful modification of the
+ generated guesses (which mostly runs on the integer unit, while the
+ Newton-Rhapson is running on the FPU). */
+double
+__sqrt(double x)
+{
+ const float inf = *(const float *)&a_inf;
+ /* x = f_wash(x); *//* This ensures only one exception for SNaN. */
+ if (x > 0)
+ {
+ if (x != inf)
+ {
+ /* Variables named starting with 's' exist in the
+ argument-reduced space, so that 2 > sx >= 0.5,
+ 1.41... > sg >= 0.70.., 0.70.. >= sy > 0.35... .
+ Variables named ending with 'i' are integer versions of
+ floating-point values. */
+ double sx; /* The value of which we're trying to find the
+ square root. */
+ double sg,g; /* Guess of the square root of x. */
+ double sd,d; /* Difference between the square of the guess and x. */
+ double sy; /* Estimate of 1/2g (overestimated by 1ulp). */
+ double sy2; /* 2*sy */
+ double e; /* Difference between y*g and 1/2 (se = e * fsy). */
+ double shx; /* == sx * fsg */
+ double fsg; /* sg*fsg == g. */
+ fenv_t fe; /* Saved floating-point environment (stores rounding
+ mode and whether the inexact exception is
+ enabled). */
+ uint32_t xi0, xi1, sxi, fsgi;
+ const float *t_sqrt;
+
+ fe = fegetenv_register();
+ EXTRACT_WORDS (xi0,xi1,x);
+ relax_fenv_state();
+ sxi = xi0 & 0x3fffffff | 0x3fe00000;
+ INSERT_WORDS (sx, sxi, xi1);
+ t_sqrt = __t_sqrt + (xi0 >> 52-32-8-1 & 0x3fe);
+ sg = t_sqrt[0];
+ sy = t_sqrt[1];
+
+ /* Here we have three Newton-Rhapson iterations each of a
+ division and a square root and the remainder of the
+ argument reduction, all interleaved. */
+ sd = -(sg*sg - sx);
+ fsgi = xi0 + 0x40000000 >> 1 & 0x7ff00000;
+ sy2 = sy + sy;
+ sg = sy*sd + sg; /* 16-bit approximation to sqrt(sx). */
+ INSERT_WORDS (fsg, fsgi, 0);
+ e = -(sy*sg - almost_half);
+ sd = -(sg*sg - sx);
+ if ((xi0 & 0x7ff00000) == 0)
+ goto denorm;
+ sy = sy + e*sy2;
+ sg = sg + sy*sd; /* 32-bit approximation to sqrt(sx). */
+ sy2 = sy + sy;
+ e = -(sy*sg - almost_half);
+ sd = -(sg*sg - sx);
+ sy = sy + e*sy2;
+ shx = sx * fsg;
+ sg = sg + sy*sd; /* 64-bit approximation to sqrt(sx),
+ but perhaps rounded incorrectly. */
+ sy2 = sy + sy;
+ g = sg * fsg;
+ e = -(sy*sg - almost_half);
+ d = -(g*sg - shx);
+ sy = sy + e*sy2;
+ fesetenv_register (fe);
+ return g + sy*d;
+ denorm:
+ /* For denormalised numbers, we normalise, calculate the
+ square root, and return an adjusted result. */
+ fesetenv_register (fe);
+ return __sqrt(x * two108) * twom54;
+ }
+ }
+ else if (x < 0)
+ {
+#ifdef FE_INVALID_SQRT
+ feraiseexcept (FE_INVALID_SQRT);
+ /* For some reason, some PowerPC processors don't implement
+ FE_INVALID_SQRT. I guess no-one ever thought they'd be
+ used for square roots... :-) */
+ if (!fetestexcept (FE_INVALID))
+#endif
+ feraiseexcept (FE_INVALID);
+#ifndef _IEEE_LIBM
+ if (_LIB_VERSION != _IEEE_)
+ x = __kernel_standard(x,x,26);
+ else
+#endif
+ x = *(const float*)&a_nan;
+ }
+ return f_wash(x);
+}
+
+weak_alias (__sqrt, sqrt)
+/* Strictly, this is wrong, but the only places where _ieee754_sqrt is
+ used will not pass in a negative result. */
+strong_alias(__sqrt,__ieee754_sqrt)
--- /dev/null
+/* Single-precision floating point square root.
+ 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. */
+
+#include <math.h>
+#include <math_private.h>
+#include <fenv_libc.h>
+#include <inttypes.h>
+
+static const float almost_half = 0.50000006; /* 0.5 + 2^-24 */
+static const uint32_t a_nan = 0x7fc00000;
+static const uint32_t a_inf = 0x7f800000;
+static const float two48 = 281474976710656.0;
+static const float twom24 = 5.9604644775390625e-8;
+extern const float __t_sqrt[1024];
+
+/* The method is based on a description in
+ Computation of elementary functions on the IBM RISC System/6000 processor,
+ P. W. Markstein, IBM J. Res. Develop, 34(1) 1990.
+ Basically, it consists of two interleaved Newton-Rhapson approximations,
+ one to find the actual square root, and one to find its reciprocal
+ without the expense of a division operation. The tricky bit here
+ is the use of the POWER/PowerPC multiply-add operation to get the
+ required accuracy with high speed.
+
+ The argument reduction works by a combination of table lookup to
+ obtain the initial guesses, and some careful modification of the
+ generated guesses (which mostly runs on the integer unit, while the
+ Newton-Rhapson is running on the FPU). */
+float
+__sqrtf(float x)
+{
+ const float inf = *(const float *)&a_inf;
+ /* x = f_washf(x); *//* This ensures only one exception for SNaN. */
+ if (x > 0)
+ {
+ if (x != inf)
+ {
+ /* Variables named starting with 's' exist in the
+ argument-reduced space, so that 2 > sx >= 0.5,
+ 1.41... > sg >= 0.70.., 0.70.. >= sy > 0.35... .
+ Variables named ending with 'i' are integer versions of
+ floating-point values. */
+ float sx; /* The value of which we're trying to find the square
+ root. */
+ float sg,g; /* Guess of the square root of x. */
+ float sd,d; /* Difference between the square of the guess and x. */
+ float sy; /* Estimate of 1/2g (overestimated by 1ulp). */
+ float sy2; /* 2*sy */
+ float e; /* Difference between y*g and 1/2 (note that e==se). */
+ float shx; /* == sx * fsg */
+ float fsg; /* sg*fsg == g. */
+ fenv_t fe; /* Saved floating-point environment (stores rounding
+ mode and whether the inexact exception is
+ enabled). */
+ uint32_t xi, sxi, fsgi;
+ const float *t_sqrt;
+
+ GET_FLOAT_WORD (xi, x);
+ fe = fegetenv_register ();
+ relax_fenv_state ();
+ sxi = xi & 0x3fffffff | 0x3f000000;
+ SET_FLOAT_WORD (sx, sxi);
+ t_sqrt = __t_sqrt + (xi >> 23-8-1 & 0x3fe);
+ sg = t_sqrt[0];
+ sy = t_sqrt[1];
+
+ /* Here we have three Newton-Rhapson iterations each of a
+ division and a square root and the remainder of the
+ argument reduction, all interleaved. */
+ sd = -(sg*sg - sx);
+ fsgi = xi + 0x40000000 >> 1 & 0x7f800000;
+ sy2 = sy + sy;
+ sg = sy*sd + sg; /* 16-bit approximation to sqrt(sx). */
+ e = -(sy*sg - almost_half);
+ SET_FLOAT_WORD (fsg, fsgi);
+ sd = -(sg*sg - sx);
+ sy = sy + e*sy2;
+ if ((xi & 0x7f800000) == 0)
+ goto denorm;
+ shx = sx * fsg;
+ sg = sg + sy*sd; /* 32-bit approximation to sqrt(sx),
+ but perhaps rounded incorrectly. */
+ sy2 = sy + sy;
+ g = sg * fsg;
+ e = -(sy*sg - almost_half);
+ d = -(g*sg - shx);
+ sy = sy + e*sy2;
+ fesetenv_register (fe);
+ return g + sy*d;
+ denorm:
+ /* For denormalised numbers, we normalise, calculate the
+ square root, and return an adjusted result. */
+ fesetenv_register (fe);
+ return __sqrtf(x * two48) * twom24;
+ }
+ }
+ else if (x < 0)
+ {
+#ifdef FE_INVALID_SQRT
+ feraiseexcept (FE_INVALID_SQRT);
+ /* For some reason, some PowerPC processors don't implement
+ FE_INVALID_SQRT. I guess no-one ever thought they'd be
+ used for square roots... :-) */
+ if (!fetestexcept (FE_INVALID))
+#endif
+ feraiseexcept (FE_INVALID);
+#ifndef _IEEE_LIBM
+ if (_LIB_VERSION != _IEEE_)
+ x = __kernel_standard(x,x,126);
+ else
+#endif
+ x = *(const float*)&a_nan;
+ }
+ return f_washf(x);
+}
+
+weak_alias (__sqrtf, sqrtf)
+/* Strictly, this is wrong, but the only places where _ieee754_sqrt is
+ used will not pass in a negative result. */
+strong_alias(__sqrtf,__ieee754_sqrtf)
--- /dev/null
+/* 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. */
+
+
+/* Event types that can be polled for. These bits may be set in `events'
+ to indicate the interesting event types; they will appear in `revents'
+ to indicate the status of the file descriptor. */
+#define POLLIN 0x001 /* There is data to read. */
+#define POLLPRI 0x002 /* There is urgent data to read. */
+#define POLLOUT 0x004 /* Writing now will not block. */
+
+#ifdef __USE_XOPEN
+/* These values are defined in XPG4.2. */
+# define POLLRDNORM 0x040 /* Normal data may be read. */
+# define POLLRDBAND 0x080 /* Priority data may be read. */
+# define POLLWRNORM 0x100 /* Writing now will not block. */
+# define POLLWRBAND 0x200 /* Priority data may be written. */
+#endif
+
+#ifdef __USE_GNU
+/* This is an extension for Linux. */
+# define POLLMSG 0x400
+#endif
+
+/* Event types always implicitly polled for. These bits need not be set in
+ `events', but they will appear in `revents' to indicate the status of
+ the file descriptor. */
+#define POLLERR 0x008 /* Error condition. */
+#define POLLHUP 0x010 /* Hung up. */
+#define POLLNVAL 0x020 /* Invalid polling request. */
+
+/* Canonical number of polling requests to read in at a time in poll. */
+#define NPOLLFILE 30
--- /dev/null
+/* 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. */
+
+
+/* Event types that can be polled for. These bits may be set in `events'
+ to indicate the interesting event types; they will appear in `revents'
+ to indicate the status of the file descriptor. */
+#define POLLIN 0x001 /* There is data to read. */
+#define POLLPRI 0x002 /* There is urgent data to read. */
+#define POLLOUT 0x004 /* Writing now will not block. */
+
+#ifdef __USE_XOPEN
+/* These values are defined in XPG4.2. */
+# define POLLRDNORM 0x040 /* Normal data may be read. */
+# define POLLRDBAND 0x080 /* Priority data may be read. */
+# define POLLWRNORM POLLOUT /* Writing now will not block. */
+# define POLLWRBAND 0x100 /* Priority data may be written. */
+#endif
+
+/* Event types always implicitly polled for. These bits need not be set in
+ `events', but they will appear in `revents' to indicate the status of
+ the file descriptor. */
+#define POLLERR 0x008 /* Error condition. */
+#define POLLHUP 0x010 /* Hung up. */
+#define POLLNVAL 0x020 /* Invalid polling request. */
+
+/* Canonical number of polling requests to read in at a time in poll. */
+#define NPOLLFILE 30
--- /dev/null
+/* 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. */
+
+
+/* Event types that can be polled for. These bits may be set in `events'
+ to indicate the interesting event types; they will appear in `revents'
+ to indicate the status of the file descriptor. */
+#define POLLIN 0x001 /* There is data to read. */
+#define POLLPRI 0x002 /* There is urgent data to read. */
+#define POLLOUT 0x004 /* Writing now will not block. */
+
+#ifdef __USE_XOPEN
+/* These values are defined in XPG4.2. */
+# define POLLRDNORM 0x040 /* Normal data may be read. */
+# define POLLRDBAND 0x080 /* Priority data may be read. */
+# define POLLWRNORM POLLOUT /* Writing now will not block. */
+# define POLLWRBAND 0x100 /* Priority data may be written. */
+#endif
+
+#ifdef __USE_GNU
+/* This is an extension for Linux. */
+# define POLLMSG 0x400
+#endif
+
+/* Event types always implicitly polled for. These bits need not be set in
+ `events', but they will appear in `revents' to indicate the status of
+ the file descriptor. */
+#define POLLERR 0x008 /* Error condition. */
+#define POLLHUP 0x010 /* Hung up. */
+#define POLLNVAL 0x020 /* Invalid polling request. */
+
+/* Canonical number of polling requests to read in at a time in poll. */
+#define NPOLLFILE 30
write to the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
Boston, MA 02111-1307, USA. */
-#include <elf.h>
-#include <sys/types.h>
-#include <sys/stat.h>
-#include <sys/mman.h>
-#include <fcntl.h>
-#include <link.h>
-#include <unistd.h>
-
-extern int _dl_argc;
-extern char **_dl_argv;
-extern char **_environ;
-extern size_t _dl_pagesize;
-extern void _end;
-extern void _start (void);
-
-int __libc_enable_secure;
-int __libc_multiple_libcs; /* Defining this here avoids the inclusion
- of init-first. */
-
-ElfW(Addr)
-_dl_sysdep_start (void **start_argptr,
- void (*dl_main) (const ElfW(Phdr) *phdr, ElfW(Word) phnum,
- ElfW(Addr) *user_entry))
-{
- const ElfW(Phdr) *phdr = NULL;
- ElfW(Word) phnum = 0;
- ElfW(Addr) user_entry;
- ElfW(auxv_t) *av;
- uid_t uid = 0;
- uid_t euid = 0;
- gid_t gid = 0;
- gid_t egid = 0;
- unsigned int seen;
-
- user_entry = (ElfW(Addr)) &_start;
- _dl_argc = *(long *) start_argptr;
- _dl_argv = (char **) start_argptr + 1;
- _environ = &_dl_argv[_dl_argc + 1];
- start_argptr = (void **) _environ;
- while (*start_argptr)
- ++start_argptr;
- ++start_argptr;
-
- if (*start_argptr == 0 &&
- ((unsigned)(char *)start_argptr & 0xF) != 0)
- {
- unsigned test_sap = (int)(char *)start_argptr;
- test_sap = test_sap + 0xF & ~0xF;
- if (*(long *)(char *)test_sap == AT_PHDR)
- start_argptr = (void **)(char *)test_sap;
- }
-
- seen = 0;
-#define M(type) (1 << (type))
-
- for (av = (void *) start_argptr;
- av->a_type != AT_NULL;
- seen |= M ((++av)->a_type))
- switch (av->a_type)
- {
- case AT_PHDR:
- phdr = av->a_un.a_ptr;
- break;
- case AT_PHNUM:
- phnum = av->a_un.a_val;
- break;
- case AT_PAGESZ:
- _dl_pagesize = av->a_un.a_val;
- break;
- case AT_ENTRY:
- user_entry = av->a_un.a_val;
- break;
- case AT_UID:
- uid = av->a_un.a_val;
- break;
- case AT_GID:
- gid = av->a_un.a_val;
- break;
- case AT_EUID:
- euid = av->a_un.a_val;
- break;
- case AT_EGID:
- egid = av->a_un.a_val;
- break;
- }
-
- /* Linux doesn't provide us with any of these values on the stack
- when the dynamic linker is run directly as a program. */
-
-#define SEE(UID, uid) if ((seen & M (AT_##UID)) == 0) uid = __get##uid ()
- SEE (UID, uid);
- SEE (GID, gid);
- SEE (EUID, euid);
- SEE (EGID, egid);
-
-
- __libc_enable_secure = uid != euid || gid != egid;
-
- __brk (0); /* Initialize the break. */
-
- if (__sbrk (0) == &_end)
- {
- /* The dynamic linker was run as a program, and so the initial break
- starts just after our bss, at &_end. The malloc in dl-minimal.c
- will consume the rest of this page, so tell the kernel to move the
- break up that far. When the user program examines its break, it
- will see this new value and not clobber our data. */
- size_t pg = __getpagesize ();
-
- __sbrk (pg - ((&_end - (void *) 0) & pg));
- __sbrk (pg - ((&_end - (void *) 0) & (pg - 1)));
- }
-
- (*dl_main) (phdr, phnum, &user_entry);
- return user_entry;
-}
-
-void
-_dl_sysdep_start_cleanup (void)
-{
-}
-\f
-#ifndef MAP_ANON
-/* This is only needed if the system doesn't support MAP_ANON. */
-
-int
-_dl_sysdep_open_zero_fill (void)
-{
- return __open ("/dev/zero", O_RDONLY);
-}
-#endif
+/* The PowerPC's auxiliary argument block gets aligned to a 16-byte
+ boundary. This is history and impossible to change compatibly. */
+
+#define DL_FIND_ARG_COMPONENTS(cookie, argc, argv, envp, auxp) \
+ do { \
+ void **_tmp; \
+ (argc) = *(long *) cookie; \
+ (argv) = (char **) cookie + 1; \
+ (envp) = (argv) + (argc) + 1; \
+ for (_tmp = (void **) (envp); *_tmp; ++_tmp) \
+ continue; \
+ if (*_tmp == 0 && ((size_t)_tmp & 0xf) != 0) \
+ { \
+ size_t _test = (size_t)_tmp; \
+ _test = _test + 0xf & ~0xf; \
+ if (*(long *)_test == AT_PHDR) \
+ _tmp = (void **)_test; \
+ } \
+ (auxp) = (void *) _tmp; \
+ } while (0)
+
+
+#include <sysdeps/unix/sysv/linux/dl-sysdep.c>
--- /dev/null
+/* 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. */
+
+
+/* Event types that can be polled for. These bits may be set in `events'
+ to indicate the interesting event types; they will appear in `revents'
+ to indicate the status of the file descriptor. */
+#define POLLIN 0x001 /* There is data to read. */
+#define POLLPRI 0x002 /* There is urgent data to read. */
+#define POLLOUT 0x004 /* Writing now will not block. */
+
+#ifdef __USE_XOPEN
+/* These values are defined in XPG4.2. */
+# define POLLRDNORM 0x040 /* Normal data may be read. */
+# define POLLRDBAND 0x080 /* Priority data may be read. */
+# define POLLWRNORM POLLOUT /* Writing now will not block. */
+# define POLLWRBAND 0x100 /* Priority data may be written. */
+#endif
+
+/* Event types always implicitly polled for. These bits need not be set in
+ `events', but they will appear in `revents' to indicate the status of
+ the file descriptor. */
+#define POLLERR 0x008 /* Error condition. */
+#define POLLHUP 0x010 /* Hung up. */
+#define POLLNVAL 0x020 /* Invalid polling request. */
+
+/* Canonical number of polling requests to read in at a time in poll. */
+#define NPOLLFILE 30
projects / external / glibc.git / commitdiff