diff options
48 files changed, 5262 insertions, 763 deletions
diff --git a/ChangeLog b/ChangeLog index f9dd5c7be1..f7d94565cf 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,102 @@ +1997-03-29 17:39 Ulrich Drepper <drepper@cygnus.com> + + * math/Makefile (routines): Add carg, s_ccosh and s_csinh. + + * math/complex.h: Add C++ protection. + + * math/libm-test.c (cexp_test): Correct a few bugs. + (csinh_test): New function. + (ccosh_test): New function. + (cacos_test): New function. + (cacosh_test): New function. + (casinh_test): New function. + (catanh_test): New function. + (main): Add calls to csinh_test and ccosh_test. + + * misc/Makefile (tests): Add tst-tsearch. + Add rule to link tst-tsearch against libm. + * misc/tsearch.c: Rewritten to use Red-Black-Tree algorithm by + Bernd Schmidt <crux@Pool.Informatik.RWTH-Aachen.DE>. + * misc/tst-tsearch.c: New file. + + * stdio-common/bug5.c: Clear LD_LIBRARY_PATH environment variable + before using system. + * stdio-common/test-popen.c: Clear LD_LIBRARY_PATH environment variable + before using popen. + + * sysdeps/libm-ieee754/s_cexp.c: Correct handling of special cases. + * sysdeps/libm-ieee754/s_cexpf.c: Likewise. + * sysdeps/libm-ieee754/s_cexpl.c: Likewise. + + * sysdeps/libm-i387/s_cexp.S: New file. ix87 specific implementation + of complex exponential function. + * sysdeps/libm-i387/s_cexpf.S: New file. + * sysdeps/libm-i387/s_cexpl.S: New file. + + * sysdeps/libm-ieee754/s_ccosh.c: New file. Implementation of + complex cosh function. + * sysdeps/libm-ieee754/s_ccoshf.c: New file. + * sysdeps/libm-ieee754/s_ccoshl.c: New file. + * sysdeps/libm-ieee754/s_csinh.c: New file. Implementation of + complex sinh function. + * sysdeps/libm-ieee754/s_csinhf.c: New file. + * sysdeps/libm-ieee754/s_csinhl.c: New file. + + * math/carg.c: New file. Generic implementatio of carg function. + * math/cargf.c: New file. + * math/cargl.c: New file. + +1997-03-29 16:07 Ulrich Drepper <drepper@cygnus.com> + + * sysdeps/posix/system.c: Update copyright. + +1997-03-29 04:18 Ulrich Drepper <drepper@cygnus.com> + + * elf/dl-error.c (_dl_catch_error): Add another argument which is + passed to OPERATE. + (_dl_receive_error): Likewise. + * elf/link.h: Change prototypes for _dl_catch_error and + _dl_receive_error to reflect above change. + * elf/dl-deps.c: Don't use nested function. Call _dl_catch_error + with additional argument with pointer to data. + * elf/dlclose.c: Likewise. + * elf/dlerror.c: Likewise. + * elf/dlopen.c: Likewise. + * elf/dlsym.c: Likewise. + * elf/dlvsym.c: Likewise. + * elf/rtld.c: Likewise. + * nss/nsswitch.c: Likewise. + Patch by Bernd Schmidt <crux@Pool.Informatik.RWTH-Aachen.DE>. + +1997-03-28 21:14 Miguel de Icaza <miguel@nuclecu.unam.mx> + + * elf/dl-error.c: Manually set up the values of "c", this avoids a + call to memcpy and a zero 152 bytes structure. + + * sysdeps/sparc/dl-machine.h (elf_machine_rela): Test + RTLD_BOOTSTRAP to avoid performing relative relocs on a second + pass. + + * sysdeps/sparc/udiv_qrnnd.S: Make the code PIC aware. + + * sysdeps/unix/sysv/linux/sparc/Dist: Add kernel_stat.h and + kernel_sigaction.h + + Add Linux/SPARC specific definitions. + * sysdeps/unix/sysv/linux/sparc/fcntlbits.h: New file. + * sysdeps/unix/sysv/linux/sparc/ioctls.h: New file. + * sysdeps/unix/sysv/linux/sparc/kernel_sigaction.h: New file. + * sysdeps/unix/sysv/linux/sparc/kernel_stat.h: New file. + * sysdeps/unix/sysv/linux/sparc/sigaction.h: New file. + * sysdeps/unix/sysv/linux/sparc/signum.h: New file. + * sysdeps/unix/sysv/linux/sparc/termbits.h: New file. + +1997-03-28 13:06 Philip Blundell <pjb27@cam.ac.uk> + + * sysdeps/posix/getaddrinfo.c (gaih_inet_serv): Use + __getservbyname_r() not getservbyname(). + (BROKEN_LIKE_POSIX): Define to 1 so we get strict POSIX behaviour. + 1997-03-27 02:28 Ulrich Drepper <drepper@cygnus.com> * gmon/gmon.c (monstartup): Mark all messages. diff --git a/PROJECTS b/PROJECTS index dc0a6701e9..394b18efdf 100644 --- a/PROJECTS +++ b/PROJECTS @@ -110,32 +110,26 @@ contact <bug-glibc@prep.ai.mit.edu> **** Almost done! -[10] Write AVL-tree based tsearch() et.al. functions. Currently only - a very simple algorithm is used. - There is a public domain version but using this would cause problems - with the assignment. - - -[11] Extend regex and/or rx to work with wide characters and complete +[10] Extend regex and/or rx to work with wide characters and complete implementation of character class and collation class handling. It is planed to do a complete rewrite. -[12] Write access function for netmasks, bootparams, and automount +[11] Write access function for netmasks, bootparams, and automount databases for nss_files and nss_db module. The functions should be embedded in the nss scheme. This is not hard and not all services must be supported at once. -[13] Rewrite utmp/wtmp functions to use database functions. This is much +[12] Rewrite utmp/wtmp functions to use database functions. This is much better than the normal flat file format. **** There are plans for a new approach to this problem. Please contact bug-glibc@prep.ai.mit.edu before starting to work.) -[14] Several more or less small functions have to be written: +[13] Several more or less small functions have to be written: + tcgetid() and waitid() from XPG4.2 + grantpt(), ptsname(), unlockpt() from XPG4.2 @@ -145,7 +139,7 @@ contact <bug-glibc@prep.ai.mit.edu> More information are available on request. -[15] We need to write a library for on-the-fly transformation of streams +[14] We need to write a library for on-the-fly transformation of streams of text. In fact, this would be a recode-library (you know, GNU recode). This is needed in several places in the GNU libc and I already have rather concrete plans but so far no possibility to start this. diff --git a/elf/dl-deps.c b/elf/dl-deps.c index 7a6772979b..e2fd340822 100644 --- a/elf/dl-deps.c +++ b/elf/dl-deps.c @@ -22,6 +22,29 @@ #include <dlfcn.h> #include <stdlib.h> +struct openaux_args +{ + /* The arguments to openaux. */ + struct link_map *map; + int trace_mode; + const char *strtab; + ElfW(Dyn) *d; + + /* The return value of openaux. */ + struct link_map *aux; +}; + +static void +openaux (void *a) +{ + struct openaux_args *args = (struct openaux_args *) a; + + args->aux = _dl_map_object (args->map, args->strtab + args->d->d_un.d_val, + (args->map->l_type == lt_executable + ? lt_library : args->map->l_type), + args->trace_mode); +} + void _dl_map_object_deps (struct link_map *map, struct link_map **preloads, unsigned int npreloads, @@ -75,27 +98,21 @@ _dl_map_object_deps (struct link_map *map, /* There is at least one auxiliary library specified. We try to load it, and if we can, use its symbols in preference to our own. But if we can't load it, we just silently ignore it. */ - const char *strtab + struct openaux_args args; + args.strtab = ((void *) map->l_addr + map->l_info[DT_STRTAB]->d_un.d_ptr); - ElfW(Dyn) *d; + args.map = map; + args.trace_mode = trace_mode; - for (d = map->l_ld; d->d_tag != DT_NULL; ++d) - if (d->d_tag == DT_AUXILIARY) + for (args.d = map->l_ld; args.d->d_tag != DT_NULL; ++args.d) + if (args.d->d_tag == DT_AUXILIARY) { - struct link_map *aux; - void openaux (void) - { - aux = _dl_map_object (map, strtab + d->d_un.d_val, - (map->l_type == lt_executable - ? lt_library : map->l_type), - trace_mode); - } char *errstring; const char *objname; - if (! _dl_catch_error (&errstring, &objname, openaux)) + if (! _dl_catch_error (&errstring, &objname, openaux, &args)) /* The auxiliary object is actually there. Use it as the first search element, even before MAP itself. */ - preload (aux); + preload (args.aux); } } diff --git a/elf/dl-error.c b/elf/dl-error.c index 263bd65eb0..e2565bb348 100644 --- a/elf/dl-error.c +++ b/elf/dl-error.c @@ -85,19 +85,25 @@ _dl_signal_error (int errcode, int _dl_catch_error (char **errstring, const char **objname, - void (*operate) (void)) + void (*operate) (void *), + void *args) { int errcode; - struct catch *old, c = { errstring: NULL, objname: NULL }; - /* We need not handle `receiver' since setting a `catch' is handle + struct catch *old, c; + /* We need not handle `receiver' since setting a `catch' is handled before it. */ + /* Some systems (.e.g, SPARC) handle constructors to local variables + inefficient. So we initialize `c' by hand. */ + c.errstring = NULL; + c.objname = NULL; + old = catch; errcode = setjmp (c.env); if (errcode == 0) { catch = &c; - (*operate) (); + (*operate) (args); catch = old; *errstring = NULL; *objname = NULL; @@ -112,7 +118,7 @@ _dl_catch_error (char **errstring, } void -_dl_receive_error (receiver_fct fct, void (*operate) (void)) +_dl_receive_error (receiver_fct fct, void (*operate) (void *), void *args) { struct catch *old_catch; receiver_fct old_receiver; @@ -124,7 +130,7 @@ _dl_receive_error (receiver_fct fct, void (*operate) (void)) catch = NULL; receiver = fct; - (*operate) (); + (*operate) (args); catch = old_catch; receiver = old_receiver; diff --git a/elf/dlclose.c b/elf/dlclose.c index 6a142119f7..d96ffc9cc1 100644 --- a/elf/dlclose.c +++ b/elf/dlclose.c @@ -20,13 +20,14 @@ #include <link.h> #include <dlfcn.h> +static void +dlclose_doit (void *handle) +{ + _dl_close (handle); +} + int dlclose (void *handle) { - void doit (void) - { - _dl_close (handle); - } - - return _dlerror_run (doit) ? -1 : 0; + return _dlerror_run (dlclose_doit, handle) ? -1 : 0; } diff --git a/elf/dlerror.c b/elf/dlerror.c index 9e55bc7c76..e2b1ac94a9 100644 --- a/elf/dlerror.c +++ b/elf/dlerror.c @@ -64,7 +64,7 @@ dlerror (void) } int -_dlerror_run (void (*operate) (void)) +_dlerror_run (void (*operate) (void *), void *args) { if (last_errstring != NULL) /* Free the error string from the last failed command. This can @@ -72,6 +72,6 @@ _dlerror_run (void (*operate) (void)) free (last_errstring); last_errcode = _dl_catch_error (&last_errstring, &last_object_name, - operate); + operate, args); return last_errstring != NULL; } diff --git a/elf/dlopen.c b/elf/dlopen.c index c2cf8cd58d..4963e9962e 100644 --- a/elf/dlopen.c +++ b/elf/dlopen.c @@ -21,15 +21,31 @@ #include <link.h> #include <dlfcn.h> -void * -dlopen (const char *file, int mode) +struct dlopen_args { + /* The arguments for dlopen_doit. */ + const char *file; + int mode; + /* The return value of dlopen_doit. */ struct link_map *new; +}; + - void doit (void) - { - new = _dl_open (file ?: "", mode); - } +static void +dlopen_doit (void *a) +{ + struct dlopen_args *args = (struct dlopen_args *) a; + + args->new = _dl_open (args->file ?: "", args->mode); +} + + +void * +dlopen (const char *file, int mode) +{ + struct dlopen_args args; + args.file = file; + args.mode = mode; - return _dlerror_run (doit) ? NULL : new; + return _dlerror_run (dlopen_doit, &args) ? NULL : args.new; } diff --git a/elf/dlsym.c b/elf/dlsym.c index d05619bfb4..1072f16ce1 100644 --- a/elf/dlsym.c +++ b/elf/dlsym.c @@ -22,47 +22,71 @@ #include <dlfcn.h> #include <setjmp.h> - -void * -dlsym (void *handle, const char *name) +struct dlsym_args { - ElfW(Addr) caller = (ElfW(Addr)) __builtin_return_address (0); + /* The arguments to dlsym_doit. */ + void *handle; + const char *name; + struct r_found_version version; + ElfW(Addr) caller; + /* The return values of dlsym_doit. */ ElfW(Addr) loadbase; - const ElfW(Sym) *ref = NULL; - void doit (void) + const ElfW(Sym) *ref; +}; + + +static void +dlsym_doit (void *a) +{ + struct dlsym_args *args = (struct dlsym_args *) a; + args->ref = NULL; + + if (args->handle == NULL) + /* Search the global scope. */ + args->loadbase = _dl_lookup_symbol (args->name, &args->ref, + &(_dl_global_scope + ?: _dl_default_scope)[2], + NULL, 0); + else if (args->handle == RTLD_NEXT) { - if (handle == NULL) - /* Search the global scope. */ - loadbase = _dl_lookup_symbol - (name, &ref, &(_dl_global_scope ?: _dl_default_scope)[2], NULL, 0); - else if (handle == RTLD_NEXT) - { - struct link_map *l, *match; + struct link_map *l, *match; - /* Find the highest-addressed object that CALLER is not below. */ - match = NULL; - for (l = _dl_loaded; l; l = l->l_next) - if (caller >= l->l_addr && (!match || match->l_addr < l->l_addr)) - match = l; + /* Find the highest-addressed object that CALLER is not below. */ + match = NULL; + for (l = _dl_loaded; l; l = l->l_next) + if (args->caller >= l->l_addr && (!match || match->l_addr < l->l_addr)) + match = l; - if (! match) - _dl_signal_error (0, NULL, _("\ + if (! match) + _dl_signal_error (0, NULL, _("\ RTLD_NEXT used in code not dynamically loaded")); - l = match; - while (l->l_loader) - l = l->l_loader; + l = match; + while (l->l_loader) + l = l->l_loader; - loadbase = _dl_lookup_symbol_skip (name, &ref, &_dl_loaded, NULL, l); - } - else - { - /* Search the scope of the given object. */ - struct link_map *map = handle; - struct link_map *mapscope[2] = { map, NULL }; - loadbase = _dl_lookup_symbol (name, &ref, mapscope, map->l_name, 0); - } + args->loadbase = _dl_lookup_symbol_skip (args->name, &args->ref, + &_dl_loaded, NULL, l); } + else + { + /* Search the scope of the given object. */ + struct link_map *map = args->handle; + struct link_map *mapscope[2] = { map, NULL }; + args->loadbase = _dl_lookup_symbol (args->name, &args->ref, mapscope, + map->l_name, 0); + } +} + + +void * +dlsym (void *handle, const char *name) +{ + struct dlsym_args args; + args.caller = (ElfW(Addr)) __builtin_return_address (0); + args.handle = handle; + args.name = name; - return _dlerror_run (doit) ? NULL : (void *) (loadbase + ref->st_value); + return (_dlerror_run (dlsym_doit, &args) + ? NULL : (void *) (args.loadbase + args.ref->st_value)); } diff --git a/elf/dlvsym.c b/elf/dlvsym.c index b3d4c1aeee..ca8e25d9df 100644 --- a/elf/dlvsym.c +++ b/elf/dlvsym.c @@ -24,57 +24,82 @@ #include <dl-hash.h> -void * -__dlvsym (void *handle, const char *name, const char *version_str) +struct dlvsym_args { - ElfW(Addr) caller = (ElfW(Addr)) __builtin_return_address (0); - ElfW(Addr) loadbase; + /* The arguments to dlvsym_doit. */ + void *handle; + const char *name; struct r_found_version version; - const ElfW(Sym) *ref = NULL; - void doit (void) + ElfW(Addr) caller; + /* The return values of dlvsym_doit. */ + ElfW(Addr) loadbase; + const ElfW(Sym) *ref; +}; + + +static void +dlvsym_doit (void *a) +{ + struct dlvsym_args *args = (struct dlvsym_args *)a; + args->ref = NULL; + + if (args->handle == NULL) + /* Search the global scope. */ + args->loadbase = _dl_lookup_versioned_symbol (args->name, &args->ref, + &(_dl_global_scope + ?: _dl_default_scope)[2], + NULL, &args->version, 0); + else if (args->handle == RTLD_NEXT) { - if (handle == NULL) - /* Search the global scope. */ - loadbase = _dl_lookup_versioned_symbol - (name, &ref, &(_dl_global_scope ?: _dl_default_scope)[2], NULL, - &version, 0); - else if (handle == RTLD_NEXT) - { - struct link_map *l, *match; - - /* Find the highest-addressed object that CALLER is not below. */ - match = NULL; - for (l = _dl_loaded; l; l = l->l_next) - if (caller >= l->l_addr && (!match || match->l_addr < l->l_addr)) - match = l; - - if (! match) - _dl_signal_error (0, NULL, _("\ + struct link_map *l, *match; + + /* Find the highest-addressed object that CALLER is not below. */ + match = NULL; + for (l = _dl_loaded; l; l = l->l_next) + if (args->caller >= l->l_addr && (!match || match->l_addr < l->l_addr)) + match = l; + + if (! match) + _dl_signal_error (0, NULL, _("\ RTLD_NEXT used in code not dynamically loaded")); - l = match; - while (l->l_loader) - l = l->l_loader; - - loadbase = _dl_lookup_versioned_symbol_skip - (name, &ref, &_dl_loaded, NULL, &version, l); - } - else - { - /* Search the scope of the given object. */ - struct link_map *map = handle; - struct link_map *mapscope[2] = { map, NULL }; - loadbase = _dl_lookup_versioned_symbol - (name, &ref, mapscope, map->l_name, &version, 0); - } + l = match; + while (l->l_loader) + l = l->l_loader; + + args->loadbase = _dl_lookup_versioned_symbol_skip (args->name, + &args->ref, + &_dl_loaded, + NULL, &args->version, + l); + } + else + { + /* Search the scope of the given object. */ + struct link_map *map = args->handle; + struct link_map *mapscope[2] = { map, NULL }; + args->loadbase = _dl_lookup_versioned_symbol (args->name, &args->ref, + mapscope, map->l_name, + &args->version, 0); } +} + +void * +__dlvsym (void *handle, const char *name, const char *version_str) +{ + struct dlvsym_args args; + + args.handle = handle; + args.name = name; + args.caller = (ElfW(Addr)) __builtin_return_address (0); /* Compute hash value to the version string. */ - version.name = version_str; - version.hash = _dl_elf_hash (version_str); + args.version.name = version_str; + args.version.hash = _dl_elf_hash (version_str); /* We don't have a specific file where the symbol can be found. */ - version.filename = NULL; + args.version.filename = NULL; - return _dlerror_run (doit) ? NULL : (void *) (loadbase + ref->st_value); + return (_dlerror_run (dlvsym_doit, &args) + ? NULL : (void *) (args.loadbase + args.ref->st_value)); } weak_alias (__dlvsym, dlvsym) diff --git a/elf/link.h b/elf/link.h index 3934aed8e2..0e58996b04 100644 --- a/elf/link.h +++ b/elf/link.h @@ -238,21 +238,26 @@ extern void _dl_signal_error (int errcode, error, *ERRSTRING is set to null. If there is an error, *ERRSTRING and *OBJECT are set to the strings passed to _dl_signal_error, and the error code passed is the return value. ERRSTRING if nonzero points to a - malloc'ed string which the caller has to free after use. */ + malloc'ed string which the caller has to free after use. + ARGS is passed as argument to OPERATE. */ extern int _dl_catch_error (char **errstring, const char **object, - void (*operate) (void)); + void (*operate) (void *), + void *args); /* Call OPERATE, receiving errors from `dl_signal_error'. Unlike `_dl_catch_error' the operation is resumed after the OPERATE - function returns. */ -extern void _dl_receive_error (receiver_fct fct, void (*operate) (void)); + function returns. + ARGS is passed as argument to OPERATE. */ +extern void _dl_receive_error (receiver_fct fct, void (*operate) (void *), + void *args); /* Helper function for <dlfcn.h> functions. Runs the OPERATE function via _dl_catch_error. Returns zero for success, nonzero for failure; and - arranges for `dlerror' to return the error details. */ -extern int _dlerror_run (void (*operate) (void)); + arranges for `dlerror' to return the error details. + ARGS is passed as argument to OPERATE. */ +extern int _dlerror_run (void (*operate) (void *), void *args); /* Open the shared object NAME and map in its segments. diff --git a/elf/rtld.c b/elf/rtld.c index d6bd516dfc..6f9737e060 100644 --- a/elf/rtld.c +++ b/elf/rtld.c @@ -140,6 +140,55 @@ _dl_start (void *arg) void _start (void); +/* Some helper functions. */ + +/* Arguments to relocate_doit. */ +struct relocate_args +{ + struct link_map *l; + int lazy; +}; + +struct map_args +{ + /* Argument to map_doit. */ + char *str; + /* Return value of map_doit. */ + struct link_map *main_map; +}; + +/* Arguments to version_check_doit. */ +struct version_check_args +{ + struct link_map *main_map; + int doexit; +}; + +static void +relocate_doit (void *a) +{ + struct relocate_args *args = (struct relocate_args *) a; + + _dl_relocate_object (args->l, _dl_object_relocation_scope (args->l), + args->lazy); +} + +static void +map_doit (void *a) +{ + struct map_args *args = (struct map_args *)a; + args->main_map = _dl_map_object (NULL, args->str, lt_library, 0); +} + +static void +version_check_doit (void *a) +{ + struct version_check_args *args = (struct version_check_args *)a; + if (_dl_check_all_versions (args->main_map, 1) && args->doexit) + /* We cannot start the application. Abort now. */ + _exit (1); +} + unsigned int _dl_skip_args; /* Nonzero if we were run directly. */ static void @@ -234,14 +283,13 @@ of this helper program; chances are you did not intend to run this program.\n", if (mode == verify) { - void doit (void) - { - main_map = _dl_map_object (NULL, _dl_argv[0], lt_library, 0); - } char *err_str = NULL; const char *obj_name __attribute__ ((unused)); + struct map_args args; - (void) _dl_catch_error (&err_str, &obj_name, doit); + args.str = _dl_argv[0]; + (void) _dl_catch_error (&err_str, &obj_name, map_doit, &args); + main_map = args.main_map; if (err_str != NULL) { free (err_str); @@ -469,14 +517,10 @@ of this helper program; chances are you did not intend to run this program.\n", /* Now let us see whether all libraries are available in the versions we need. */ { - void doit (void) - { - if (_dl_check_all_versions (main_map, 1) && mode == normal) - /* We cannot start the application. Abort now. */ - _exit (1); - } - - _dl_receive_error (print_missing_version, doit); + struct version_check_args args; + args.doexit = mode == normal; + args.main_map = main_map; + _dl_receive_error (print_missing_version, version_check_doit, &args); } if (mode != normal) @@ -535,11 +579,10 @@ of this helper program; chances are you did not intend to run this program.\n", else if (lazy >= 0) { /* We have to do symbol dependency testing. */ + struct relocate_args args; struct link_map *l; - void doit (void) - { - _dl_relocate_object (l, _dl_object_relocation_scope (l), lazy); - } + + args.lazy = lazy; l = _dl_loaded; while (l->l_next) @@ -548,7 +591,8 @@ of this helper program; chances are you did not intend to run this program.\n", { if (l != &_dl_rtld_map && l->l_opencount > 0) { - _dl_receive_error (print_unresolved, doit); + args.l = l; + _dl_receive_error (print_unresolved, relocate_doit, &args); *_dl_global_scope_end = NULL; } l = l->l_prev; diff --git a/math/Makefile b/math/Makefile index 2578dbf839..12967ffac5 100644 --- a/math/Makefile +++ b/math/Makefile @@ -49,7 +49,7 @@ libm-calls = e_acos e_acosh e_asin e_atan2 e_atanh e_cosh e_exp e_fmod \ w_log w_log10 w_pow w_remainder w_scalb w_sinh w_sqrt \ s_signbit s_fpclassify s_fmax s_fmin s_fdim s_nan s_trunc \ s_remquo s_log2 s_exp2 \ - conj cimag creal cabs s_cexp + conj cimag creal cabs carg s_cexp s_csinh s_ccosh libm-routines = $(libm-support) $(libm-calls) \ $(patsubst %_rf,%f_r,$(libm-calls:=f)) \ $(long-m-$(long-double-fcts)) diff --git a/math/carg.c b/math/carg.c new file mode 100644 index 0000000000..fb4dc8e52e --- /dev/null +++ b/math/carg.c @@ -0,0 +1,29 @@ +/* Compute argument of complex double value. + Copyright (C) 1997 Free Software Foundation, Inc. + This file is part of the GNU C Library. + Contributed by Ulrich Drepper <drepper@cygnus.com>, 1997. + + 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 <complex.h> +#include <math.h> + +double +__carg (__complex__ double x) +{ + return __atan2 (__imag__ x, __real__ x); +} +weak_alias (__carg, carg) diff --git a/math/cargf.c b/math/cargf.c new file mode 100644 index 0000000000..4b3c9f6d9a --- /dev/null +++ b/math/cargf.c @@ -0,0 +1,29 @@ +/* Compute argument of complex float value. + Copyright (C) 1997 Free Software Foundation, Inc. + This file is part of the GNU C Library. + Contributed by Ulrich Drepper <drepper@cygnus.com>, 1997. + + 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 <complex.h> +#include <math.h> + +float +__cargf (__complex__ float x) +{ + return __atan2f (__imag__ x, __real__ x); +} +weak_alias (__cargf, cargf) diff --git a/math/cargl.c b/math/cargl.c new file mode 100644 index 0000000000..4482da9dd0 --- /dev/null +++ b/math/cargl.c @@ -0,0 +1,29 @@ +/* Compute argument of complex long double value. + Copyright (C) 1997 Free Software Foundation, Inc. + This file is part of the GNU C Library. + Contributed by Ulrich Drepper <drepper@cygnus.com>, 1997. + + 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 <complex.h> +#include <math.h> + +long double +__cargl (__complex__ long double x) +{ + return __atan2l (__imag__ x, __real__ x); +} +weak_alias (__cargl, cargl) diff --git a/math/complex.h b/math/complex.h index 6fc5c1975f..42143531dc 100644 --- a/math/complex.h +++ b/math/complex.h @@ -21,7 +21,11 @@ */ #ifndef _COMPLEX_H + #define _COMPLEX_H 1 +#include <features.h> + +__BEGIN_DECLS /* We might need to add support for more compilers here. But once ISO C 9X is out hopefully all maintained compilers will provide the data @@ -41,7 +45,7 @@ #define I _Imaginary_I -/* Optimization aids. This is not yet implemented in gcc and yonce it +/* Optimization aids. This is not yet implemented in gcc and once it is this will probably be available in a gcc header. */ #define CX_LIMITED_RANGE_ON #define CX_LIMITED_RANGE_OFF @@ -99,4 +103,6 @@ #undef __MATHDECL #undef __MATHCALL +__END_DECLS + #endif /* complex.h */ diff --git a/math/libm-test.c b/math/libm-test.c index a575cc66a8..85e4a4b065 100644 --- a/math/libm-test.c +++ b/math/libm-test.c @@ -1550,7 +1550,7 @@ cexp_test (void) check ("imag(cexp(+inf + 0i)) = 0", __imag__ result, 0); result = FUNC(cexp) (BUILD_COMPLEX (plus_infty, minus_zero)); check_isinfp ("real(cexp(+inf - 0i)) = +inf", __real__ result); - check ("imag(cexp(+inf - 0i)) = 0", __imag__ result, 0); + check ("imag(cexp(+inf - 0i)) = -0", __imag__ result, minus_zero); result = FUNC(cexp) (BUILD_COMPLEX (minus_infty, plus_zero)); check ("real(cexp(-inf + 0i)) = 0", __real__ result, 0); @@ -1574,11 +1574,11 @@ cexp_test (void) check ("imag(cexp(-inf + 4.0i)) = -0", __imag__ result, minus_zero); result = FUNC(cexp) (BUILD_COMPLEX (plus_infty, 2.0)); - check_isinfn ("real(cexp(+inf + 2.0i)) = -0", __real__ result); - check_isinfp ("imag(cexp(+inf + 2.0i)) = 0", __imag__ result); + check_isinfn ("real(cexp(+inf + 2.0i)) = -inf", __real__ result); + check_isinfp ("imag(cexp(+inf + 2.0i)) = +inf", __imag__ result); result = FUNC(cexp) (BUILD_COMPLEX (plus_infty, 4.0)); - check_isinfn ("real(cexp(+inf + 4.0i)) = -0", __real__ result); - check_isinfn ("imag(cexp(+inf + 4.0i)) = -0", __imag__ result); + check_isinfn ("real(cexp(+inf + 4.0i)) = -inf", __real__ result); + check_isinfn ("imag(cexp(+inf + 4.0i)) = -inf", __imag__ result); result = FUNC(cexp) (BUILD_COMPLEX (plus_infty, plus_infty)); check_isinfp ("real(cexp(+inf + i inf)) = +inf", __real__ result); @@ -1592,7 +1592,7 @@ cexp_test (void) check ("imag(cexp(-inf + i inf)) = 0", __imag__ result, 0); result = FUNC(cexp) (BUILD_COMPLEX (minus_infty, minus_infty)); check ("real(cexp(-inf - i inf)) = 0", __real__ result, 0); - check ("imag(cexp(-inf - i inf)) = 0", __imag__ result, 0); + check ("imag(cexp(-inf - i inf)) = -0", __imag__ result, minus_zero); result = FUNC(cexp) (BUILD_COMPLEX (minus_infty, nan_value)); check ("real(cexp(-inf + i NaN)) = 0", __real__ result, 0); @@ -1622,6 +1622,760 @@ cexp_test (void) static void +csinh_test (void) +{ + __complex__ MATHTYPE result; + + result = FUNC(csinh) (BUILD_COMPLEX (0.0, 0.0)); + check ("real(csinh(0 + 0i)) = 0", __real__ result, 0); + check ("imag(csinh(0 + 0i)) = 0", __imag__ result, 0); + result = FUNC(csinh) (BUILD_COMPLEX (minus_zero, 0.0)); + check ("real(csinh(-0 + 0i)) = -0", __real__ result, minus_zero); + check ("imag(csinh(-0 + 0i)) = 0", __imag__ result, 0); + result = FUNC(csinh) (BUILD_COMPLEX (0.0, minus_zero)); + check ("real(csinh(0 - 0i)) = 0", __real__ result, 0); + check ("imag(csinh(0 - 0i)) = -0", __imag__ result, minus_zero); + result = FUNC(csinh) (BUILD_COMPLEX (minus_zero, minus_zero)); + check ("real(csinh(-0 - 0i)) = -0", __real__ result, minus_zero); + check ("imag(csinh(-0 - 0i)) = -0", __imag__ result, minus_zero); + + result = FUNC(csinh) (BUILD_COMPLEX (0.0, plus_infty)); + check ("real(csinh(0 + i Inf)) = 0", FUNC(fabs) (__real__ result), 0); + check_isnan ("imag(csinh(0 + i Inf)) = NaN", __imag__ result); + result = FUNC(csinh) (BUILD_COMPLEX (minus_zero, plus_infty)); + check ("real(csinh(-0 + i Inf)) = -0", FUNC(fabs) (__real__ result), 0); + check_isnan ("imag(csinh(-0 + i Inf)) = NaN", __imag__ result); + result = FUNC(csinh) (BUILD_COMPLEX (0.0, minus_infty)); + check ("real(csinh(0 - i Inf)) = 0", FUNC(fabs) (__real__ result), 0); + check_isnan ("imag(csinh(0 - i Inf)) = NaN", __imag__ result); + result = FUNC(csinh) (BUILD_COMPLEX (minus_zero, minus_infty)); + check ("real(csinh(-0 - i Inf)) = -0", FUNC(fabs) (__real__ result), 0); + check_isnan ("imag(csinh(-0 - i Inf)) = NaN", __imag__ result); + + result = FUNC(csinh) (BUILD_COMPLEX (plus_infty, 0.0)); + check_isinfp ("real(csinh(+Inf + 0i)) = +Inf", __real__ result); + check ("imag(csinh(+Inf + 0i)) = 0", __imag__ result, 0); + result = FUNC(csinh) (BUILD_COMPLEX (minus_infty, 0.0)); + check_isinfn ("real(csinh(-Inf + 0i)) = -Inf", __real__ result); + check ("imag(csinh(-Inf + 0i)) = 0", __imag__ result, 0); + result = FUNC(csinh) (BUILD_COMPLEX (plus_infty, minus_zero)); + check_isinfp ("real(csinh(+Inf - 0i)) = +Inf", __real__ result); + check ("imag(csinh(+Inf - 0i)) = -0", __imag__ result, minus_zero); + result = FUNC(csinh) (BUILD_COMPLEX (minus_infty, minus_zero)); + check_isinfn ("real(csinh(-Inf - 0i)) = -Inf", __real__ result); + check ("imag(csinh(-Inf - 0i)) = -0", __imag__ result, minus_zero); + + result = FUNC(csinh) (BUILD_COMPLEX (plus_infty, plus_infty)); + check_isinfp ("real(csinh(+Inf + i Inf)) = +-Inf", + FUNC(fabs) (__real__ result)); + check_isnan ("imag(csinh(+Inf + i Inf)) = NaN", __imag__ result); + result = FUNC(csinh) (BUILD_COMPLEX (minus_infty, plus_infty)); + check_isinfp ("real(csinh(-Inf + i Inf)) = +-Inf", + FUNC(fabs) (__real__ result)); + check_isnan ("imag(csinh(-Inf + i Inf)) = NaN", __imag__ result); + result = FUNC(csinh) (BUILD_COMPLEX (plus_infty, minus_infty)); + check_isinfp ("real(csinh(Inf - i Inf)) = +-Inf", + FUNC(fabs) (__real__ result)); + check_isnan ("imag(csinh(Inf - i Inf)) = NaN", __imag__ result); + result = FUNC(csinh) (BUILD_COMPLEX (minus_infty, minus_infty)); + check_isinfp ("real(csinh(-Inf - i Inf)) = -Inf", + FUNC(fabs) (__real__ result)); + check_isnan ("imag(csinh(-Inf - i Inf)) = NaN", __imag__ result); + + result = FUNC(csinh) (BUILD_COMPLEX (plus_infty, 4.625)); + check_isinfn ("real(csinh(+Inf + i4.625)) = -Inf", __real__ result); + check_isinfn ("imag(csinh(+Inf + i4.625)) = -Inf", __imag__ result); + result = FUNC(csinh) (BUILD_COMPLEX (minus_infty, 4.625)); + check_isinfp ("real(csinh(-Inf + i4.625)) = +Inf", __real__ result); + check_isinfn ("imag(csinh(-Inf + i4.625)) = -Inf", __imag__ result); + result = FUNC(csinh) (BUILD_COMPLEX (plus_infty, -4.625)); + check_isinfn ("real(csinh(+Inf - i4.625)) = -Inf", __real__ result); + check_isinfp ("imag(csinh(+Inf - i4.625)) = +Inf", __imag__ result); + result = FUNC(csinh) (BUILD_COMPLEX (minus_infty, -4.625)); + check_isinfp ("real(csinh(-Inf - i4.625)) = +Inf", __real__ result); + check_isinfp ("imag(csinh(-Inf - i4.625)) = +Inf", __imag__ result); + + result = FUNC(csinh) (BUILD_COMPLEX (6.75, plus_infty)); + check_isnan ("real(csinh(6.75 + i Inf)) = NaN", __real__ result); + check_isnan ("imag(csinh(6.75 + i Inf)) = NaN", __imag__ result); + result = FUNC(csinh) (BUILD_COMPLEX (-6.75, plus_infty)); + check_isnan ("real(csinh(-6.75 + i Inf)) = NaN", __real__ result); + check_isnan ("imag(csinh(-6.75 + i Inf)) = NaN", __imag__ result); + result = FUNC(csinh) (BUILD_COMPLEX (6.75, minus_infty)); + check_isnan ("real(csinh(6.75 - i Inf)) = NaN", __real__ result); + check_isnan ("imag(csinh(6.75 - i Inf)) = NaN", __imag__ result); + result = FUNC(csinh) (BUILD_COMPLEX (-6.75, minus_infty)); + check_isnan ("real(csinh(-6.75 - i Inf)) = NaN", __real__ result); + check_isnan ("imag(csinh(-6.75 - i Inf)) = NaN", __imag__ result); + + result = FUNC(csinh) (BUILD_COMPLEX (0.0, nan_value)); + check ("real(csinh(0 + i NaN)) = 0", FUNC(fabs) (__real__ result), 0); + check_isnan ("imag(csinh(0 + i NaN)) = NaN", __imag__ result); + result = FUNC(csinh) (BUILD_COMPLEX (minus_zero, nan_value)); + check ("real(csinh(-0 + i NaN)) = -0", FUNC(fabs) (__real__ result), 0); + check_isnan ("imag(csinh(-0 + i NaN)) = NaN", __imag__ result); + + result = FUNC(csinh) (BUILD_COMPLEX (plus_infty, nan_value)); + check_isinfp ("real(csinh(+Inf + i NaN)) = +-Inf", + FUNC(fabs) (__real__ result)); + check_isnan ("imag(csinh(+Inf + i NaN)) = NaN", __imag__ result); + result = FUNC(csinh) (BUILD_COMPLEX (minus_infty, nan_value)); + check_isinfp ("real(csinh(-Inf + i NaN)) = +-Inf", + FUNC(fabs) (__real__ result)); + check_isnan ("imag(csinh(-0 + i NaN)) = NaN", __imag__ result); + + result = FUNC(csinh) (BUILD_COMPLEX (9.0, nan_value)); + check_isnan ("real(csinh(9.0 + i NaN)) = NaN", __real__ result); + check_isnan ("imag(csinh(9.0 + i NaN)) = NaN", __imag__ result); + result = FUNC(csinh) (BUILD_COMPLEX (-9.0, nan_value)); + check_isnan ("real(csinh(-9.0 + i NaN)) = NaN", __real__ result); + check_isnan ("imag(csinh(-9.0 + i NaN)) = NaN", __imag__ result); + + result = FUNC(csinh) (BUILD_COMPLEX (nan_value, 0.0)); + check_isnan ("real(csinh(NaN + i0)) = NaN", __real__ result); + check ("imag(csinh(NaN + i0)) = NaN", __imag__ result, 0.0); + result = FUNC(csinh) (BUILD_COMPLEX (nan_value, minus_zero)); + check_isnan ("real(csinh(NaN - i0)) = NaN", __real__ result); + check ("imag(csinh(NaN - i0)) = NaN", __imag__ result, minus_zero); + + result = FUNC(csinh) (BUILD_COMPLEX (nan_value, 10.0)); + check_isnan ("real(csinh(NaN + i10)) = NaN", __real__ result); + check_isnan ("imag(csinh(NaN + i10)) = NaN", __imag__ result); + result = FUNC(csinh) (BUILD_COMPLEX (nan_value, -10.0)); + check_isnan ("real(csinh(NaN - i10)) = NaN", __real__ result); + check_isnan ("imag(csinh(NaN - i10)) = NaN", __imag__ result); + + result = FUNC(csinh) (BUILD_COMPLEX (nan_value, plus_infty)); + check_isnan ("real(csinh(NaN + i Inf)) = NaN", __real__ result); + check_isnan ("imag(csinh(NaN + i Inf)) = NaN", __imag__ result); + result = FUNC(csinh) (BUILD_COMPLEX (nan_value, minus_infty)); + check_isnan ("real(csinh(NaN - i Inf)) = NaN", __real__ result); + check_isnan ("imag(csinh(NaN - i Inf)) = NaN", __imag__ result); + + result = FUNC(csinh) (BUILD_COMPLEX (nan_value, nan_value)); + check_isnan ("real(csinh(NaN + i NaN)) = NaN", __real__ result); + check_isnan ("imag(csinh(NaN + i NaN)) = NaN", __imag__ result); +} + + +static void +ccosh_test (void) +{ + __complex__ MATHTYPE result; + + result = FUNC(ccosh) (BUILD_COMPLEX (0.0, 0.0)); + check ("real(ccosh(0 + 0i)) = 0", __real__ result, 1.0); + check ("imag(ccosh(0 + 0i)) = 0", __imag__ result, 0); + result = FUNC(ccosh) (BUILD_COMPLEX (minus_zero, 0.0)); + check ("real(ccosh(-0 + 0i)) = -0", __real__ result, 1.0); + check ("imag(ccosh(-0 + 0i)) = 0", __imag__ result, 0); + result = FUNC(ccosh) (BUILD_COMPLEX (0.0, minus_zero)); + check ("real(ccosh(0 - 0i)) = 0", __real__ result, 1.0); + check ("imag(ccosh(0 - 0i)) = -0", __imag__ result, minus_zero); + result = FUNC(ccosh) (BUILD_COMPLEX (minus_zero, minus_zero)); + check ("real(ccosh(-0 - 0i)) = -0", __real__ result, 1.0); + check ("imag(ccosh(-0 - 0i)) = -0", __imag__ result, minus_zero); + + result = FUNC(ccosh) (BUILD_COMPLEX (0.0, plus_infty)); + check_isnan ("real(ccosh(0 + i Inf)) = NaN", __real__ result); + check ("imag(ccosh(0 + i Inf)) = +-0", FUNC(fabs) (__imag__ result), 0); + result = FUNC(ccosh) (BUILD_COMPLEX (minus_zero, plus_infty)); + check_isnan ("real(ccosh(-0 + i Inf)) = NaN", __real__ result); + check ("imag(ccosh(-0 + i Inf)) = -0", FUNC(fabs) (__imag__ result), 0); + result = FUNC(ccosh) (BUILD_COMPLEX (0.0, minus_infty)); + check_isnan ("real(ccosh(0 - i Inf)) = NaN", __real__ result); + check ("imag(ccosh(0 - i Inf)) = 0", FUNC(fabs) (__imag__ result), 0); + result = FUNC(ccosh) (BUILD_COMPLEX (minus_zero, minus_infty)); + check_isnan ("real(ccosh(-0 - i Inf)) = NaN", __real__ result); + check ("imag(ccosh(-0 - i Inf)) = -0", FUNC(fabs) (__imag__ result), 0); + + result = FUNC(ccosh) (BUILD_COMPLEX (plus_infty, 0.0)); + check_isinfp ("real(ccosh(+Inf + 0i)) = +Inf", __real__ result); + check ("imag(ccosh(+Inf + 0i)) = 0", __imag__ result, 0); + result = FUNC(ccosh) (BUILD_COMPLEX (minus_infty, 0.0)); + check_isinfp ("real(ccosh(-Inf + 0i)) = +Inf", __real__ result); + check ("imag(ccosh(-Inf + 0i)) = 0", __imag__ result, 0); + result = FUNC(ccosh) (BUILD_COMPLEX (plus_infty, minus_zero)); + check_isinfp ("real(ccosh(+Inf - 0i)) = +Inf", __real__ result); + check ("imag(ccosh(+Inf - 0i)) = -0", __imag__ result, minus_zero); + result = FUNC(ccosh) (BUILD_COMPLEX (minus_infty, minus_zero)); + check_isinfp ("real(ccosh(-Inf - 0i)) = +Inf", __real__ result); + check ("imag(ccosh(-Inf - 0i)) = -0", __imag__ result, minus_zero); + + result = FUNC(ccosh) (BUILD_COMPLEX (plus_infty, plus_infty)); + check_isinfp ("real(ccosh(+Inf + i Inf)) = +Inf", __real__ result); + check_isnan ("imag(ccosh(+Inf + i Inf)) = NaN", __imag__ result); + result = FUNC(ccosh) (BUILD_COMPLEX (minus_infty, plus_infty)); + check_isinfp ("real(ccosh(-Inf + i Inf)) = +Inf", __real__ result); + check_isnan ("imag(ccosh(-Inf + i Inf)) = NaN", __imag__ result); + result = FUNC(ccosh) (BUILD_COMPLEX (plus_infty, minus_infty)); + check_isinfp ("real(ccosh(Inf - i Inf)) = +Inf", __real__ result); + check_isnan ("imag(ccosh(Inf - i Inf)) = NaN", __imag__ result); + result = FUNC(ccosh) (BUILD_COMPLEX (minus_infty, minus_infty)); + check_isinfp ("real(ccosh(-Inf - i Inf)) = +Inf", __real__ result); + check_isnan ("imag(ccosh(-Inf - i Inf)) = NaN", __imag__ result); + + result = FUNC(ccosh) (BUILD_COMPLEX (plus_infty, 4.625)); + check_isinfn ("real(ccosh(+Inf + i4.625)) = -Inf", __real__ result); + check_isinfn ("imag(ccosh(+Inf + i4.625)) = -Inf", __imag__ result); + result = FUNC(ccosh) (BUILD_COMPLEX (minus_infty, 4.625)); + check_isinfn ("real(ccosh(-Inf + i4.625)) = -Inf", __real__ result); + check_isinfn ("imag(ccosh(-Inf + i4.625)) = -Inf", __imag__ result); + result = FUNC(ccosh) (BUILD_COMPLEX (plus_infty, -4.625)); + check_isinfn ("real(ccosh(+Inf - i4.625)) = -Inf", __real__ result); + check_isinfp ("imag(ccosh(+Inf - i4.625)) = +Inf", __imag__ result); + result = FUNC(ccosh) (BUILD_COMPLEX (minus_infty, -4.625)); + check_isinfn ("real(ccosh(-Inf - i4.625)) = -Inf", __real__ result); + check_isinfp ("imag(ccosh(-Inf - i4.625)) = +Inf", __imag__ result); + + result = FUNC(ccosh) (BUILD_COMPLEX (6.75, plus_infty)); + check_isnan ("real(ccosh(6.75 + i Inf)) = NaN", __real__ result); + check_isnan ("imag(ccosh(6.75 + i Inf)) = NaN", __imag__ result); + result = FUNC(ccosh) (BUILD_COMPLEX (-6.75, plus_infty)); + check_isnan ("real(ccosh(-6.75 + i Inf)) = NaN", __real__ result); + check_isnan ("imag(ccosh(-6.75 + i Inf)) = NaN", __imag__ result); + result = FUNC(ccosh) (BUILD_COMPLEX (6.75, minus_infty)); + check_isnan ("real(ccosh(6.75 - i Inf)) = NaN", __real__ result); + check_isnan ("imag(ccosh(6.75 - i Inf)) = NaN", __imag__ result); + result = FUNC(ccosh) (BUILD_COMPLEX (-6.75, minus_infty)); + check_isnan ("real(ccosh(-6.75 - i Inf)) = NaN", __real__ result); + check_isnan ("imag(ccosh(-6.75 - i Inf)) = NaN", __imag__ result); + + result = FUNC(ccosh) (BUILD_COMPLEX (0.0, nan_value)); + check_isnan ("real(ccosh(0 + i NaN)) = NaN", __real__ result); + check ("imag(ccosh(0 + i NaN)) = +-0", FUNC(fabs) (__imag__ result), 0); + result = FUNC(ccosh) (BUILD_COMPLEX (minus_zero, nan_value)); + check_isnan ("real(ccosh(-0 + i NaN)) = NaN", __real__ result); + check ("imag(ccosh(-0 + i NaN)) = +-0", FUNC(fabs) (__imag__ result), 0); + + result = FUNC(ccosh) (BUILD_COMPLEX (plus_infty, nan_value)); + check_isinfp ("real(ccosh(+Inf + i NaN)) = +Inf", __real__ result); + check_isnan ("imag(ccosh(+Inf + i NaN)) = NaN", __imag__ result); + result = FUNC(ccosh) (BUILD_COMPLEX (minus_infty, nan_value)); + check_isinfp ("real(ccosh(-Inf + i NaN)) = +Inf", __real__ result); + check_isnan ("imag(ccosh(-0 + i NaN)) = NaN", __imag__ result); + + result = FUNC(ccosh) (BUILD_COMPLEX (9.0, nan_value)); + check_isnan ("real(ccosh(9.0 + i NaN)) = NaN", __real__ result); + check_isnan ("imag(ccosh(9.0 + i NaN)) = NaN", __imag__ result); + result = FUNC(ccosh) (BUILD_COMPLEX (-9.0, nan_value)); + check_isnan ("real(ccosh(-9.0 + i NaN)) = NaN", __real__ result); + check_isnan ("imag(ccosh(-9.0 + i NaN)) = NaN", __imag__ result); + + result = FUNC(ccosh) (BUILD_COMPLEX (nan_value, 0.0)); + check_isnan ("real(ccosh(NaN + i0)) = NaN", __real__ result); + check ("imag(ccosh(NaN + i0)) = NaN", __imag__ result, 0.0); + result = FUNC(ccosh) (BUILD_COMPLEX (nan_value, minus_zero)); + check_isnan ("real(ccosh(NaN - i0)) = NaN", __real__ result); + check ("imag(ccosh(NaN - i0)) = NaN", __imag__ result, minus_zero); + + result = FUNC(ccosh) (BUILD_COMPLEX (nan_value, 10.0)); + check_isnan ("real(ccosh(NaN + i10)) = NaN", __real__ result); + check_isnan ("imag(ccosh(NaN + i10)) = NaN", __imag__ result); + result = FUNC(ccosh) (BUILD_COMPLEX (nan_value, -10.0)); + check_isnan ("real(ccosh(NaN - i10)) = NaN", __real__ result); + check_isnan ("imag(ccosh(NaN - i10)) = NaN", __imag__ result); + + result = FUNC(ccosh) (BUILD_COMPLEX (nan_value, plus_infty)); + check_isnan ("real(ccosh(NaN + i Inf)) = NaN", __real__ result); + check_isnan ("imag(ccosh(NaN + i Inf)) = NaN", __imag__ result); + result = FUNC(ccosh) (BUILD_COMPLEX (nan_value, minus_infty)); + check_isnan ("real(ccosh(NaN - i Inf)) = NaN", __real__ result); + check_isnan ("imag(ccosh(NaN - i Inf)) = NaN", __imag__ result); + + result = FUNC(ccosh) (BUILD_COMPLEX (nan_value, nan_value)); + check_isnan ("real(ccosh(NaN + i NaN)) = NaN", __real__ result); + check_isnan ("imag(ccosh(NaN + i NaN)) = NaN", __imag__ result); +} + + +#if 0 +/* Enable these tests as soon as the functions are available. */ +static void +cacos_test (void) +{ + __complex__ MATHTYPE result; + + result = FUNC(cacos) (BUILD_COMPLEX (0, 0)); + check ("real(cacos(0 + i0)) = pi/2", __real__ result, M_PI_2); + check ("imag(cacos(0 + i0)) = -0", __imag__ result, minus_zero); + result = FUNC(cacos) (BUILD_COMPLEX (minus_zero, 0)); + check ("real(cacos(-0 + i0)) = pi/2", __real__ result, M_PI_2); + check ("imag(cacos(-0 + i0)) = -0", __imag__ result, minus_zero); + result = FUNC(cacos) (BUILD_COMPLEX (0, minus_zero)); + check ("real(cacos(0 - i0)) = pi/2", __real__ result, M_PI_2); + check ("imag(cacos(0 - i0)) = 0", __imag__ result, 0); + result = FUNC(cacos) (BUILD_COMPLEX (minus_zero, minus_zero)); + check ("real(cacos(-0 - i0)) = pi/2", __real__ result, M_PI_2); + check ("imag(cacos(-0 - i0)) = 0", __imag__ result, 0); + + result = FUNC(cacos) (BUILD_COMPLEX (minus_infty, plus_infty)); + check ("real(cacos(-Inf + i Inf)) = 3*pi/4", __real__ result, M_PI - M_PI_4); + check_isinfn ("imag(cacos(-Inf + i Inf)) = -Inf", __imag__ result); + result = FUNC(cacos) (BUILD_COMPLEX (minus_infty, minus_infty)); + check ("real(cacos(-Inf - i Inf)) = 3*pi/4", __real__ result, M_PI - M_PI_4); + check_isinfp ("imag(cacos(-Inf - i Inf)) = +Inf", __imag__ result); + + result = FUNC(cacos) (BUILD_COMPLEX (plus_infty, plus_infty)); + check ("real(cacos(+Inf + i Inf)) = pi/4", __real__ result, M_PI_4); + check_isinfn ("imag(cacos(+Inf + i Inf)) = -Inf", __imag__ result); + result = FUNC(cacos) (BUILD_COMPLEX (plus_infty, minus_infty)); + check ("real(cacos(+Inf - i Inf)) = pi/4", __real__ result, M_PI_4); + check_isinfp ("imag(cacos(+Inf - i Inf)) = +Inf", __imag__ result); + + result = FUNC(cacos) (BUILD_COMPLEX (-10.0, plus_infty)); + check ("real(cacos(-10.0 + i Inf)) = pi/2", __real__ result, M_PI_2); + check_isinfn ("imag(cacos(-10.0 + i Inf)) = -Inf", __imag__ result); + result = FUNC(cacos) (BUILD_COMPLEX (-10.0, minus_infty)); + check ("real(cacos(-10.0 - i Inf)) = pi/2", __real__ result, M_PI_2); + check_isinfp ("imag(cacos(-10.0 - i Inf)) = +Inf", __imag__ result); + result = FUNC(cacos) (BUILD_COMPLEX (0, plus_infty)); + check ("real(cacos(0 + i Inf)) = pi/2", __real__ result, M_PI_2); + check_isinfn ("imag(cacos(0 + i Inf)) = -Inf", __imag__ result); + result = FUNC(cacos) (BUILD_COMPLEX (0, minus_infty)); + check ("real(cacos(0 - i Inf)) = pi/2", __real__ result, M_PI_2); + check_isinfp ("imag(cacos(0 - i Inf)) = +Inf", __imag__ result); + result = FUNC(cacos) (BUILD_COMPLEX (0.1, plus_infty)); + check ("real(cacos(0.1 + i Inf)) = pi/2", __real__ result, M_PI_2); + check_isinfn ("imag(cacos(0.1 + i Inf)) = -Inf", __imag__ result); + result = FUNC(cacos) (BUILD_COMPLEX (0.1, minus_infty)); + check ("real(cacos(0.1 - i Inf)) = pi/2", __real__ result, M_PI_2); + check_isinfp ("imag(cacos(0.1 - i Inf)) = +Inf", __imag__ result); + + result = FUNC(cacos) (BUILD_COMPLEX (minus_infty, 0)); + check ("real(cacos(-Inf + i0)) = pi", __real__ result, M_PI); + check_isinfn ("imag(cacos(-Inf + i0)) = -Inf", __imag__ result); + result = FUNC(cacos) (BUILD_COMPLEX (minus_infty, minus_zero)); + check ("real(cacos(-Inf - i0)) = pi", __real__ result, M_PI); + check_isinfp ("imag(cacos(-Inf - i0)) = +Inf", __imag__ result); + result = FUNC(cacos) (BUILD_COMPLEX (minus_infty, 100)); + check ("real(cacos(-Inf + i100)) = pi", __real__ result, M_PI); + check_isinfn ("imag(cacos(-Inf + i100)) = -Inf", __imag__ result); + result = FUNC(cacos) (BUILD_COMPLEX (minus_infty, -100)); + check ("real(cacos(-Inf - i100)) = pi", __real__ result, M_PI); + check_isinfp ("imag(cacos(-Inf - i100)) = +Inf", __imag__ result); + + result = FUNC(cacos) (BUILD_COMPLEX (plus_infty, 0)); + check ("real(cacos(+Inf + i0)) = 0", __real__ result, 0); + check_isinfn ("imag(cacos(+Inf + i0)) = -Inf", __imag__ result); + result = FUNC(cacos) (BUILD_COMPLEX (plus_infty, minus_zero)); + check ("real(cacos(+Inf - i0)) = 0", __real__ result, 0); + check_isinfp ("imag(cacos(+Inf - i0)) = +Inf", __imag__ result); + result = FUNC(cacos) (BUILD_COMPLEX (plus_infty, 0.5)); + check ("real(cacos(+Inf + i0.5)) = 0", __real__ result, 0); + check_isinfn ("imag(cacos(+Inf + i0.5)) = -Inf", __imag__ result); + result = FUNC(cacos) (BUILD_COMPLEX (plus_infty, -0.5)); + check ("real(cacos(+Inf - i0.5)) = 0", __real__ result, 0); + check_isinfp ("imag(cacos(+Inf - i0.5)) = +Inf", __imag__ result); + + result = FUNC(cacos) (BUILD_COMPLEX (plus_infty, nan_value)); + check_isnan ("real(cacos(+Inf + i NaN)) = NaN", __real__ result); + check_isinfp ("imag(cacos(+Inf + i NaN)) = +-Inf", + FUNC(fabs) (__imag__ result)); + result = FUNC(cacos) (BUILD_COMPLEX (minus_infty, nan_value)); + check_isnan ("real(cacos(-Inf + i NaN)) = NaN", __real__ result); + check_isinfp ("imag(cacos(-Inf + i NaN)) = +-Inf", + FUNC(fabs) (__imag__ result)); + + result = FUNC(cacos) (BUILD_COMPLEX (0, nan_value)); + check ("real(cacos(0 + i NaN)) = pi/2", __real__ result, M_PI_2); + check_isnan ("imag(cacos(0 + i NaN)) = NaN", __imag__ result); + result = FUNC(cacos) (BUILD_COMPLEX (minus_zero, nan_value)); + check ("real(cacos(-0 + i NaN)) = pi/2", __real__ result, M_PI_2); + check_isnan ("imag(cacos(-0 + i NaN)) = NaN", __imag__ result); + + result = FUNC(cacos) (BUILD_COMPLEX (nan_value, plus_infty)); + check_isnan ("real(cacos(NaN + i Inf)) = NaN", __real__ result); + check_isinfn ("imag(cacos(NaN + i Inf)) = -Inf", __imag__ result); + result = FUNC(cacos) (BUILD_COMPLEX (nan_value, minus_infty)); + check_isnan ("real(cacos(NaN - i Inf)) = NaN", __real__ result); + check_isinfp ("imag(cacos(NaN - i Inf)) = +Inf", __imag__ result); + + result = FUNC(cacos) (BUILD_COMPLEX (10.5, nan_value)); + check_isnan ("real(cacos(10.5 + i NaN)) = NaN", __real__ result); + check_isnan ("imag(cacos(10.5 + i NaN)) = NaN", __imag__ result); + result = FUNC(cacos) (BUILD_COMPLEX (-10.5, nan_value)); + check_isnan ("real(cacos(-10.5 + i NaN)) = NaN", __real__ result); + check_isnan ("imag(cacos(-10.5 + i NaN)) = NaN", __imag__ result); + + result = FUNC(cacos) (BUILD_COMPLEX (nan_value, 0.75)); + check_isnan ("real(cacos(NaN + i0.75)) = NaN", __real__ result); + check_isnan ("imag(cacos(NaN + i0.75)) = NaN", __imag__ result); + result = FUNC(cacos) (BUILD_COMPLEX (-10.5, nan_value)); + check_isnan ("real(cacos(NaN - i0.75)) = NaN", __real__ result); + check_isnan ("imag(cacos(NaN - i0.75)) = NaN", __imag__ result); + + result = FUNC(cacos) (BUILD_COMPLEX (nan_value, nan_value)); + check_isnan ("real(cacos(NaN + i NaN)) = NaN", __real__ result); + check_isnan ("imag(cacos(NaN + i NaN)) = NaN", __imag__ result); +} + + +static void +cacosh_test (void) +{ + __complex__ MATHTYPE result; + + result = FUNC(cacosh) (BUILD_COMPLEX (0, 0)); + check ("real(cacosh(0 + i0)) = 0", __real__ result, 0); + check ("imag(cacosh(0 + i0)) = pi/2", __imag__ result, M_PI_2); + result = FUNC(cacosh) (BUILD_COMPLEX (minus_zero, 0)); + check ("real(cacosh(-0 + i0)) = 0", __real__ result, 0); + check ("imag(cacosh(-0 + i0)) = pi/2", __imag__ result, M_PI_2); + result = FUNC(cacosh) (BUILD_COMPLEX (0, minus_zero)); + check ("real(cacosh(0 - i0)) = 0", __real__ result, 0); + check ("imag(cacosh(0 - i0)) = -pi/2", __imag__ result, -M_PI_2); + result = FUNC(cacosh) (BUILD_COMPLEX (minus_zero, minus_zero)); + check ("real(cacosh(-0 - i0)) = 0", __real__ result, 0); + check ("imag(cacosh(-0 - i0)) = -pi/2", __imag__ result, -M_PI_2); + + result = FUNC(cacosh) (BUILD_COMPLEX (minus_infty, plus_infty)); + check_isinfp ("real(cacosh(-Inf + i Inf)) = +Inf", __real__ result); + check ("imag(cacosh(-Inf + i Inf)) = 3*pi/4", __imag__ result, + M_PI - M_PI_4); + result = FUNC(cacosh) (BUILD_COMPLEX (minus_infty, minus_infty)); + check_isinfp ("real(cacosh(-Inf - i Inf)) = +Inf", __real__ result); + check ("imag(cacosh(-Inf - i Inf)) = -3*pi/4", __imag__ result, + M_PI_4 - M_PI); + + result = FUNC(cacosh) (BUILD_COMPLEX (plus_infty, plus_infty)); + check_isinfp ("real(cacosh(+Inf + i Inf)) = +Inf", __real__ result); + check ("imag(cacosh(+Inf + i Inf)) = pi/4", __imag__ result, M_PI_4); + result = FUNC(cacosh) (BUILD_COMPLEX (plus_infty, minus_infty)); + check_isinfp ("real(cacosh(+Inf - i Inf)) = +Inf", __real__ result); + check ("imag(cacosh(+Inf - i Inf)) = -pi/4", __imag__ result, -M_PI_4); + + result = FUNC(cacosh) (BUILD_COMPLEX (-10.0, plus_infty)); + check_isinfp ("real(cacosh(-10.0 + i Inf)) = +Inf", __real__ result); + check ("imag(cacosh(-10.0 + i Inf)) = pi/2", __imag__ result, M_PI_2); + result = FUNC(cacosh) (BUILD_COMPLEX (-10.0, minus_infty)); + check_isinfp ("real(cacosh(-10.0 - i Inf)) = +Inf", __real__ result); + check ("imag(cacosh(-10.0 - i Inf)) = -pi/2", __imag__ result, -M_PI_2); + result = FUNC(cacosh) (BUILD_COMPLEX (0, plus_infty)); + check_isinfp ("real(cacosh(0 + i Inf)) = +Inf", __real__ result); + check ("imag(cacosh(0 + i Inf)) = pi/2", __imag__ result, M_PI_2); + result = FUNC(cacosh) (BUILD_COMPLEX (0, minus_infty)); + check_isinfp ("real(cacosh(0 - i Inf)) = +Inf", __real__ result); + check ("imag(cacosh(0 - i Inf)) = -pi/2", __imag__ result, -M_PI_2); + result = FUNC(cacosh) (BUILD_COMPLEX (0.1, plus_infty)); + check_isinfp ("real(cacosh(0.1 + i Inf)) = +Inf", __real__ result); + check ("imag(cacosh(0.1 + i Inf)) = pi/2", __imag__ result, M_PI_2); + result = FUNC(cacosh) (BUILD_COMPLEX (0.1, minus_infty)); + check_isinfp ("real(cacosh(0.1 - i Inf)) = +Inf", __real__ result); + check ("imag(cacosh(0.1 - i Inf)) = -pi/2", __imag__ result, -M_PI_2); + + result = FUNC(cacosh) (BUILD_COMPLEX (minus_infty, 0)); + check_isinfp ("real(cacosh(-Inf + i0)) = +Inf", __real__ result); + check ("imag(cacosh(-Inf + i0)) = pi", __imag__ result, M_PI); + result = FUNC(cacosh) (BUILD_COMPLEX (minus_infty, minus_zero)); + check_isinfp ("real(cacosh(-Inf - i0)) = +Inf", __real__ result); + check ("imag(cacosh(-Inf - i0)) = -pi", __imag__ result, -M_PI); + result = FUNC(cacosh) (BUILD_COMPLEX (minus_infty, 100)); + check_isinfp ("real(cacosh(-Inf + i100)) = +Inf", __real__ result); + check ("imag(cacosh(-Inf + i100)) = pi", __imag__ result, M_PI); + result = FUNC(cacosh) (BUILD_COMPLEX (minus_infty, -100)); + check_isinfp ("real(cacosh(-Inf - i100)) = +Inf", __real__ result); + check ("imag(cacosh(-Inf - i100)) = -pi", __imag__ result, -M_PI); + + result = FUNC(cacosh) (BUILD_COMPLEX (plus_infty, 0)); + check_isinfp ("real(cacosh(+Inf + i0)) = +Inf", __real__ result); + check ("imag(cacosh(+Inf + i0)) = 0", __imag__ result, 0); + result = FUNC(cacosh) (BUILD_COMPLEX (plus_infty, minus_zero)); + check_isinfp ("real(cacosh(+Inf - i0)) = +Inf", __real__ result); + check ("imag(cacosh(+Inf - i0)) = -0", __imag__ result, minus_zero); + result = FUNC(cacosh) (BUILD_COMPLEX (plus_infty, 0.5)); + check_isinfp ("real(cacosh(+Inf + i0.5)) = +Inf", __real__ result); + check ("imag(cacosh(+Inf + i0.5)) = 0", __imag__ result, 0); + result = FUNC(cacosh) (BUILD_COMPLEX (plus_infty, -0.5)); + check_isinfp ("real(cacosh(+Inf - i0.5)) = +Inf", __real__ result); + check ("imag(cacosh(+Inf - i0.5)) = -0", __imag__ result, minus_zero); + + result = FUNC(cacosh) (BUILD_COMPLEX (plus_infty, nan_value)); + check_isinfp ("real(cacosh(+Inf + i NaN)) = +Inf", __real__ result); + check_isnan ("imag(cacosh(+Inf + i NaN)) = NaN", __imag__ result); + result = FUNC(cacosh) (BUILD_COMPLEX (minus_infty, nan_value)); + check_isinfp ("real(cacosh(-Inf + i NaN)) = +Inf", __real__ result); + check_isnan ("imag(cacosh(-Inf + i NaN)) = NaN", __imag__ result); + + result = FUNC(cacosh) (BUILD_COMPLEX (0, nan_value)); + check_isnan ("real(cacosh(0 + i NaN)) = NaN", __real__ result); + check_isnan ("imag(cacosh(0 + i NaN)) = NaN", __imag__ result); + result = FUNC(cacosh) (BUILD_COMPLEX (minus_zero, nan_value)); + check_isnan ("real(cacosh(-0 + i NaN)) = NaN", __real__ result); + check_isnan ("imag(cacosh(-0 + i NaN)) = NaN", __imag__ result); + + result = FUNC(cacosh) (BUILD_COMPLEX (nan_value, plus_infty)); + check_isinfp ("real(cacosh(NaN + i Inf)) = +Inf", __real__ result); + check_isnan ("imag(cacosh(NaN + i Inf)) = NaN", __imag__ result); + result = FUNC(cacosh) (BUILD_COMPLEX (nan_value, minus_infty)); + check_isinfp ("real(cacosh(NaN - i Inf)) = +Inf", __real__ result); + check_isnan ("imag(cacosh(NaN - i Inf)) = NaN", __imag__ result); + + result = FUNC(cacosh) (BUILD_COMPLEX (10.5, nan_value)); + check_isnan ("real(cacosh(10.5 + i NaN)) = NaN", __real__ result); + check_isnan ("imag(cacosh(10.5 + i NaN)) = NaN", __imag__ result); + result = FUNC(cacosh) (BUILD_COMPLEX (-10.5, nan_value)); + check_isnan ("real(cacosh(-10.5 + i NaN)) = NaN", __real__ result); + check_isnan ("imag(cacosh(-10.5 + i NaN)) = NaN", __imag__ result); + + result = FUNC(cacosh) (BUILD_COMPLEX (nan_value, 0.75)); + check_isnan ("real(cacosh(NaN + i0.75)) = NaN", __real__ result); + check_isnan ("imag(cacosh(NaN + i0.75)) = NaN", __imag__ result); + result = FUNC(cacosh) (BUILD_COMPLEX (-10.5, nan_value)); + check_isnan ("real(cacosh(NaN - i0.75)) = NaN", __real__ result); + check_isnan ("imag(cacosh(NaN - i0.75)) = NaN", __imag__ result); + + result = FUNC(cacosh) (BUILD_COMPLEX (nan_value, nan_value)); + check_isnan ("real(cacosh(NaN + i NaN)) = NaN", __real__ result); + check_isnan ("imag(cacosh(NaN + i NaN)) = NaN", __imag__ result); +} + + +static void +casinh_test (void) +{ + __complex__ MATHTYPE result; + + result = FUNC(casinh) (BUILD_COMPLEX (0, 0)); + check ("real(casinh(0 + i0)) = 0", __real__ result, 0); + check ("imag(casinh(0 + i0)) = 0", __imag__ result, 0); + result = FUNC(casinh) (BUILD_COMPLEX (minus_zero, 0)); + check ("real(casinh(-0 + i0)) = -0", __real__ result, minus_zero); + check ("imag(casinh(-0 + i0)) = 0", __imag__ result, 0); + result = FUNC(casinh) (BUILD_COMPLEX (0, minus_zero)); + check ("real(casinh(0 - i0)) = 0", __real__ result, 0); + check ("imag(casinh(0 - i0)) = -0", __imag__ result, minus_zero); + result = FUNC(casinh) (BUILD_COMPLEX (minus_zero, minus_zero)); + check ("real(casinh(-0 - i0)) = -0", __real__ result, minus_zero); + check ("imag(casinh(-0 - i0)) = -0", __imag__ result, minus_zero); + + result = FUNC(casinh) (BUILD_COMPLEX (plus_infty, plus_infty)); + check_isinfp ("real(casinh(+Inf + i Inf)) = +Inf", __real__ result); + check ("imag(casinh(+Inf + i Inf)) = pi/4", __imag__ result, M_PI_4); + result = FUNC(casinh) (BUILD_COMPLEX (plus_infty, minus_infty)); + check_isinfp ("real(casinh(+Inf - i Inf)) = +Inf", __real__ result); + check ("imag(casinh(+Inf - i Inf)) = -pi/4", __imag__ result, -M_PI_4); + result = FUNC(casinh) (BUILD_COMPLEX (minus_infty, plus_infty)); + check_isinfn ("real(casinh(-Inf + i Inf)) = -Inf", __real__ result); + check ("imag(casinh(-Inf + i Inf)) = pi/4", __imag__ result, M_PI_4); + result = FUNC(casinh) (BUILD_COMPLEX (minus_infty, minus_infty)); + check_isinfn ("real(casinh(-Inf - i Inf)) = -Inf", __real__ result); + check ("imag(casinh(-Inf - i Inf)) = -pi/4", __imag__ result, -M_PI_4); + + result = FUNC(casinh) (BUILD_COMPLEX (-10.0, plus_infty)); + check_isinfn ("real(casinh(-10.0 + i Inf)) = -Inf", __real__ result); + check ("imag(casinh(-10.0 + i Inf)) = pi/2", __imag__ result, M_PI_2); + result = FUNC(casinh) (BUILD_COMPLEX (-10.0, minus_infty)); + check_isinfn ("real(casinh(-10.0 - i Inf)) = -Inf", __real__ result); + check ("imag(casinh(-10.0 - i Inf)) = -pi/2", __imag__ result, -M_PI_2); + result = FUNC(casinh) (BUILD_COMPLEX (0, plus_infty)); + check_isinfp ("real(casinh(0 + i Inf)) = +Inf", __real__ result); + check ("imag(casinh(0 + i Inf)) = pi/2", __imag__ result, M_PI_2); + result = FUNC(casinh) (BUILD_COMPLEX (0, minus_infty)); + check_isinfp ("real(casinh(0 - i Inf)) = +Inf", __real__ result); + check ("imag(casinh(0 - i Inf)) = -pi/2", __imag__ result, -M_PI_2); + result = FUNC(casinh) (BUILD_COMPLEX (0.1, plus_infty)); + check_isinfp ("real(casinh(0.1 + i Inf)) = +Inf", __real__ result); + check ("imag(casinh(0.1 + i Inf)) = pi/2", __imag__ result, M_PI_2); + result = FUNC(casinh) (BUILD_COMPLEX (0.1, minus_infty)); + check_isinfp ("real(casinh(0.1 - i Inf)) = +Inf", __real__ result); + check ("imag(casinh(0.1 - i Inf)) = -pi/2", __imag__ result, -M_PI_2); + + result = FUNC(casinh) (BUILD_COMPLEX (minus_infty, 0)); + check_isinfn ("real(casinh(-Inf + i0)) = -Inf", __real__ result); + check ("imag(casinh(-Inf + i0)) = 0", __imag__ result, 0); + result = FUNC(casinh) (BUILD_COMPLEX (minus_infty, minus_zero)); + check_isinfn ("real(casinh(-Inf - i0)) = -Inf", __real__ result); + check ("imag(casinh(-Inf - i0)) = -0", __imag__ result, minus_zero); + result = FUNC(casinh) (BUILD_COMPLEX (minus_infty, 100)); + check_isinfn ("real(casinh(-Inf + i100)) = -Inf", __real__ result); + check ("imag(casinh(-Inf + i100)) = 0", __imag__ result, 0); + result = FUNC(casinh) (BUILD_COMPLEX (minus_infty, -100)); + check_isinfn ("real(casinh(-Inf - i100)) = -Inf", __real__ result); + check ("imag(casinh(-Inf - i100)) = -0", __imag__ result, minus_zero); + + result = FUNC(casinh) (BUILD_COMPLEX (plus_infty, 0)); + check_isinfp ("real(casinh(+Inf + i0)) = +Inf", __real__ result); + check ("imag(casinh(+Inf + i0)) = 0", __imag__ result, 0); + result = FUNC(casinh) (BUILD_COMPLEX (plus_infty, minus_zero)); + check_isinfp ("real(casinh(+Inf - i0)) = +Inf", __real__ result); + check ("imag(casinh(+Inf - i0)) = -0", __imag__ result, minus_zero); + result = FUNC(casinh) (BUILD_COMPLEX (plus_infty, 0.5)); + check_isinfp ("real(casinh(+Inf + i0.5)) = +Inf", __real__ result); + check ("imag(casinh(+Inf + i0.5)) = 0", __imag__ result, 0); + result = FUNC(casinh) (BUILD_COMPLEX (plus_infty, -0.5)); + check_isinfp ("real(casinh(+Inf - i0.5)) = +Inf", __real__ result); + check ("imag(casinh(+Inf - i0.5)) = -0", __imag__ result, minus_zero); + + result = FUNC(casinh) (BUILD_COMPLEX (plus_infty, nan_value)); + check_isinfp ("real(casinh(+Inf + i NaN)) = +Inf", __real__ result); + check_isnan ("imag(casinh(+Inf + i NaN)) = NaN", __imag__ result); + result = FUNC(casinh) (BUILD_COMPLEX (minus_infty, nan_value)); + check_isinfn ("real(casinh(-Inf + i NaN)) = -Inf", __real__ result); + check_isnan ("imag(casinh(-Inf + i NaN)) = NaN", __imag__ result); + + result = FUNC(casinh) (BUILD_COMPLEX (nan_value, 0)); + check_isnan ("real(casinh(NaN + i0)) = NaN", __real__ result); + check ("imag(casinh(NaN + i0)) = 0", __imag__ resul, 0); + result = FUNC(casinh) (BUILD_COMPLEX (minus_zero, nan_value)); + check_isnan ("real(casinh(NaN - i0)) = NaN", __real__ result); + check ("imag(casinh(NaN - i0)) = -0", __imag__ result, minus_zero); + + result = FUNC(casinh) (BUILD_COMPLEX (nan_value, plus_infty)); + check_isinfp ("real(casinh(NaN + i Inf)) = +Inf", + FUNC(fabs) (__real__ result)); + check_isnan ("imag(casinh(NaN + i Inf)) = NaN", __imag__ result); + result = FUNC(casinh) (BUILD_COMPLEX (nan_value, minus_infty)); + check_isinfp ("real(casinh(NaN - i Inf)) = +Inf", + FUNC(fabs) (__real__ result)); + check_isnan ("imag(casinh(NaN - i Inf)) = NaN", __imag__ result); + + result = FUNC(casinh) (BUILD_COMPLEX (10.5, nan_value)); + check_isnan ("real(casinh(10.5 + i NaN)) = NaN", __real__ result); + check_isnan ("imag(casinh(10.5 + i NaN)) = NaN", __imag__ result); + result = FUNC(casinh) (BUILD_COMPLEX (-10.5, nan_value)); + check_isnan ("real(casinh(-10.5 + i NaN)) = NaN", __real__ result); + check_isnan ("imag(casinh(-10.5 + i NaN)) = NaN", __imag__ result); + + result = FUNC(casinh) (BUILD_COMPLEX (nan_value, 0.75)); + check_isnan ("real(casinh(NaN + i0.75)) = NaN", __real__ result); + check_isnan ("imag(casinh(NaN + i0.75)) = NaN", __imag__ result); + result = FUNC(casinh) (BUILD_COMPLEX (-10.5, nan_value)); + check_isnan ("real(casinh(NaN - i0.75)) = NaN", __real__ result); + check_isnan ("imag(casinh(NaN - i0.75)) = NaN", __imag__ result); + + result = FUNC(casinh) (BUILD_COMPLEX (nan_value, nan_value)); + check_isnan ("real(casinh(NaN + i NaN)) = NaN", __real__ result); + check_isnan ("imag(casinh(NaN + i NaN)) = NaN", __imag__ result); +} + + +static void +catanh_test (void) +{ + __complex__ MATHTYPE result; + + result = FUNC(catanh) (BUILD_COMPLEX (0, 0)); + check ("real(catanh(0 + i0)) = 0", __real__ result, 0); + check ("imag(catanh(0 + i0)) = 0", __imag__ result, 0); + result = FUNC(catanh) (BUILD_COMPLEX (minus_zero, 0)); + check ("real(catanh(-0 + i0)) = -0", __real__ result, minus_zero); + check ("imag(catanh(-0 + i0)) = 0", __imag__ result, 0); + result = FUNC(catanh) (BUILD_COMPLEX (0, minus_zero)); + check ("real(catanh(0 - i0)) = 0", __real__ result, 0); + check ("imag(catanh(0 - i0)) = -0", __imag__ result, minus_zero); + result = FUNC(catanh) (BUILD_COMPLEX (minus_zero, minus_zero)); + check ("real(catanh(-0 - i0)) = -0", __real__ result, minus_zero); + check ("imag(catanh(-0 - i0)) = -0", __imag__ result, minus_zero); + + result = FUNC(catanh) (BUILD_COMPLEX (plus_infty, plus_infty)); + check ("real(catanh(+Inf + i Inf)) = 0", __real__ result, 0); + check ("imag(catanh(+Inf + i Inf)) = pi/2", __imag__ result, M_PI_2); + result = FUNC(catanh) (BUILD_COMPLEX (plus_infty, minus_infty)); + check ("real(catanh(+Inf - i Inf)) = 0", __real__ result, 0); + check ("imag(catanh(+Inf - i Inf)) = -pi/2", __imag__ result, -M_PI_2); + result = FUNC(catanh) (BUILD_COMPLEX (minus_infty, plus_infty)); + check ("real(catanh(-Inf + i Inf)) = -0", __real__ result, minus_zero); + check ("imag(catanh(-Inf + i Inf)) = pi/2", __imag__ result, M_PI_2); + result = FUNC(catanh) (BUILD_COMPLEX (minus_infty, minus_infty)); + check ("real(catanh(-Inf - i Inf)) = -0", __real__ result, minus_zero); + check ("imag(catanh(-Inf - i Inf)) = -pi/2", __imag__ result, -M_PI_2); + + result = FUNC(catanh) (BUILD_COMPLEX (-10.0, plus_infty)); + check ("real(catanh(-10.0 + i Inf)) = -0", __real__ result, -minus_zero); + check ("imag(catanh(-10.0 + i Inf)) = pi/2", __imag__ result, M_PI_2); + result = FUNC(catanh) (BUILD_COMPLEX (-10.0, minus_infty)); + check ("real(catanh(-10.0 - i Inf)) = -0", __real__ result, minus_infty); + check ("imag(catanh(-10.0 - i Inf)) = -pi/2", __imag__ result, -M_PI_2); + result = FUNC(catanh) (BUILD_COMPLEX (0, plus_infty)); + check ("real(catanh(0 + i Inf)) = 0", __real__ result, 0); + check ("imag(catanh(0 + i Inf)) = pi/2", __imag__ result, M_PI_2); + result = FUNC(catanh) (BUILD_COMPLEX (0, minus_infty)); + check ("real(catanh(0 - i Inf)) = 0", __real__ result, 0); + check ("imag(catanh(0 - i Inf)) = -pi/2", __imag__ result, -M_PI_2); + result = FUNC(catanh) (BUILD_COMPLEX (0.1, plus_infty)); + check ("real(catanh(0.1 + i Inf)) = 0", __real__ result, 0); + check ("imag(catanh(0.1 + i Inf)) = pi/2", __imag__ result, M_PI_2); + result = FUNC(catanh) (BUILD_COMPLEX (0.1, minus_infty)); + check ("real(catanh(0.1 - i Inf)) = 0", __real__ result, 0); + check ("imag(catanh(0.1 - i Inf)) = -pi/2", __imag__ result, -M_PI_2); + + result = FUNC(catanh) (BUILD_COMPLEX (minus_infty, 0)); + check ("real(catanh(-Inf + i0)) = -0", __real__ result, minus_zero); + check ("imag(catanh(-Inf + i0)) = pi/2", __imag__ result, M_PI_2); + result = FUNC(catanh) (BUILD_COMPLEX (minus_infty, minus_zero)); + check ("real(catanh(-Inf - i0)) = -0", __real__ result, minus_zero); + check ("imag(catanh(-Inf - i0)) = -pi/2", __imag__ result, -M_PI_2); + result = FUNC(catanh) (BUILD_COMPLEX (minus_infty, 100)); + check ("real(catanh(-Inf + i100)) = -0", __real__ result, minus_zero); + check ("imag(catanh(-Inf + i100)) = pi/2", __imag__ result, M_PI_2); + result = FUNC(catanh) (BUILD_COMPLEX (minus_infty, -100)); + check ("real(catanh(-Inf - i100)) = -0", __real__ result, minus_zero); + check ("imag(catanh(-Inf - i100)) = -pi/2", __imag__ result, -M_PI_2); + + result = FUNC(catanh) (BUILD_COMPLEX (plus_infty, 0)); + check ("real(catanh(+Inf + i0)) = 0", __real__ result, 0); + check ("imag(catanh(+Inf + i0)) = pi/2", __imag__ result, M_PI_2); + result = FUNC(catanh) (BUILD_COMPLEX (plus_infty, minus_zero)); + check ("real(catanh(+Inf - i0)) = 0", __real__ result, 0); + check ("imag(catanh(+Inf - i0)) = -pi/2", __imag__ result, -M_PI_2); + result = FUNC(catanh) (BUILD_COMPLEX (plus_infty, 0.5)); + check ("real(catanh(+Inf + i0.5)) = 0", __real__ result, 0); + check ("imag(catanh(+Inf + i0.5)) = pi/2", __imag__ result, M_PI_2); + result = FUNC(catanh) (BUILD_COMPLEX (plus_infty, -0.5)); + check ("real(catanh(+Inf - i0.5)) = 0", __real__ result, 0); + check ("imag(catanh(+Inf - i0.5)) = -pi/2", __imag__ result, -M_PI_2); + + result = FUNC(catanh) (BUILD_COMPLEX (0, nan_value)); + check ("real(catanh(0 + i NaN)) = 0", __real__ result, 0); + check_isnan ("imag(catanh(+Inf + i NaN)) = NaN", __imag__ result); + result = FUNC(catanh) (BUILD_COMPLEX (minus_zero, nan_value)); + check ("real(catanh(-0 + i NaN)) = -0", __real__ result, minus_zero); + check_isnan ("imag(catanh(-Inf + i NaN)) = NaN", __imag__ result); + + result = FUNC(catanh) (BUILD_COMPLEX (plus_infty, nan_value)); + check ("real(catanh(+Inf + i NaN)) = 0", __real__ result, 0); + check_isnan ("imag(catanh(+Inf + i NaN)) = NaN", __imag__ result); + result = FUNC(catanh) (BUILD_COMPLEX (minus_infty, nan_value)); + check ("real(catanh(-Inf + i NaN)) = -0", __real__ result, minus_zero); + check_isnan ("imag(catanh(-Inf + i NaN)) = NaN", __imag__ result); + + result = FUNC(catanh) (BUILD_COMPLEX (nan_value, 0)); + check_isnan ("real(catanh(NaN + i0)) = NaN", __real__ result); + check_isnan ("imag(catanh(NaN + i0)) = NaN", __imag__ resul); + result = FUNC(catanh) (BUILD_COMPLEX (minus_zero, nan_value)); + check_isnan ("real(catanh(NaN - i0)) = NaN", __real__ result); + check_isnan ("imag(catanh(NaN - i0)) = NaN", __imag__ result); + + result = FUNC(catanh) (BUILD_COMPLEX (nan_value, plus_infty)); + check ("real(catanh(NaN + i Inf)) = +-0", FUNC(fabs) (__real__ result), 0); + check ("imag(catanh(NaN + i Inf)) = pi/2", __imag__ result, M_PI_2); + result = FUNC(catanh) (BUILD_COMPLEX (nan_value, minus_infty)); + check ("real(catanh(NaN - i Inf)) = +-0", FUNC(fabs) (__real__ result), 0); + check ("imag(catanh(NaN - i Inf)) = -pi/2", __imag__ result, -M_PI_2); + + result = FUNC(catanh) (BUILD_COMPLEX (10.5, nan_value)); + check_isnan ("real(catanh(10.5 + i NaN)) = NaN", __real__ result); + check_isnan ("imag(catanh(10.5 + i NaN)) = NaN", __imag__ result); + result = FUNC(catanh) (BUILD_COMPLEX (-10.5, nan_value)); + check_isnan ("real(catanh(-10.5 + i NaN)) = NaN", __real__ result); + check_isnan ("imag(catanh(-10.5 + i NaN)) = NaN", __imag__ result); + + result = FUNC(catanh) (BUILD_COMPLEX (nan_value, 0.75)); + check_isnan ("real(catanh(NaN + i0.75)) = NaN", __real__ result); + check_isnan ("imag(catanh(NaN + i0.75)) = NaN", __imag__ result); + result = FUNC(catanh) (BUILD_COMPLEX (-10.5, nan_value)); + check_isnan ("real(catanh(NaN - i0.75)) = NaN", __real__ result); + check_isnan ("imag(catanh(NaN - i0.75)) = NaN", __imag__ result); + + result = FUNC(catanh) (BUILD_COMPLEX (nan_value, nan_value)); + check_isnan ("real(catanh(NaN + i NaN)) = NaN", __real__ result); + check_isnan ("imag(catanh(NaN + i NaN)) = NaN", __imag__ result); +} +#endif + + +static void inverse_func_pair_test (const char *test_name, mathfunc f1, mathfunc inverse, MATHTYPE x, MATHTYPE epsilon) @@ -1943,6 +2697,8 @@ main (int argc, char *argv[]) remquo_test (); #endif cexp_test (); + csinh_test (); + ccosh_test (); identities (); inverse_functions (); diff --git a/misc/Makefile b/misc/Makefile index b789659eaa..e2db14daa0 100644 --- a/misc/Makefile +++ b/misc/Makefile @@ -64,7 +64,7 @@ install-lib := libbsd-compat.a libg.a non-lib.a := libbsd-compat.a gpl2lgpl := error.c error.h -tests := tst-dirname +tests := tst-dirname tst-tsearch include ../Rules @@ -77,3 +77,9 @@ $(objpfx)libg.a: $(dep-dummy-lib); $(make-dummy-lib) CFLAGS-init-misc.c = -fkeep-inline-functions + +ifeq ($(build-shared),yes) +$(objpfx)tst-tsearch: $(common-objpfx)math/libm.so$(libm.so-version) +else +$(objpfx)tst-tsearch: $(common-objpfx)math/libm.a +endif diff --git a/misc/tsearch.c b/misc/tsearch.c index 6af6536a72..466536bf34 100644 --- a/misc/tsearch.c +++ b/misc/tsearch.c @@ -1,5 +1,6 @@ -/* Copyright (C) 1995, 1996 Free Software Foundation, Inc. +/* Copyright (C) 1995, 1996, 1997 Free Software Foundation, Inc. This file is part of the GNU C Library. + Contributed by Bernd Schmidt <crux@Pool.Informatik.RWTH-Aachen.DE>, 1997. 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 @@ -16,175 +17,584 @@ write to the Free Software Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */ -/* Tree search generalized from Knuth (6.2.2) Algorithm T just like - the AT&T man page says. - - The node_t structure is for internal use only, lint doesn't grok it. - - Written by reading the System V Interface Definition, not the code. +/* Tree search for red/black trees. + The algorithm for adding nodes is taken from one of the many "Algorithms" + books by Robert Sedgewick, although the implementation differs. + The algorithm for deleting nodes can probably be found in a book named + "Introduction to Algorithms" by Cormen/Leiserson/Rivest. At least that's + the book that my professor took most algorithms from during the "Data + Structures" course... Totally public domain. */ -/*LINTLIBRARY*/ + +/* Red/black trees are binary trees in which the edges are colored either red + or black. They have the following properties: + 1. The number of black edges on every path from the root to a leaf is + constant. + 2. No two red edges are adjacent. + Therefore there is an upper bound on the length of every path, it's + O(log n) where n is the number of nodes in the tree. No path can be longer + than 1+2*P where P is the length of the shortest path in the tree. + Useful for the implementation: + 3. If one of the children of a node is NULL, then the other one is red + (if it exists). + + In the implementation, not the edges are colored, but the nodes. The color + interpreted as the color of the edge leading to this node. The color is + meaningless for the root node, but we color the root node black for + convenience. All added nodes are red initially. + + Adding to a red/black tree is rather easy. The right place is searched + with a usual binary tree search. Additionally, whenever a node N is + reached that has two red successors, the successors are colored black and + the node itself colored red. This moves red edges up the tree where they + pose less of a problem once we get to really insert the new node. Changing + N's color to red may violate rule 2, however, so rotations may become + necessary to restore the invariants. Adding a new red leaf may violate + the same rule, so afterwards an additional check is run and the tree + possibly rotated. + + Deleting is hairy. There are mainly two nodes involved: the node to be + deleted (n1), and another node that is to be unchained from the tree (n2). + If n1 has a successor (the node with a smallest key that is larger than + n1), then the successor becomes n2 and its contents are copied into n1, + otherwise n1 becomes n2. + Unchaining a node may violate rule 1: if n2 is black, one subtree is + missing one black edge afterwards. The algorithm must try to move this + error upwards towards the root, so that the subtree that does not have + enough black edges becomes the whole tree. Once that happens, the error + has disappeared. It may not be necessary to go all the way up, since it + is possible that rotations and recoloring can fix the error before that. + + Although the deletion algorithm must walk upwards through the tree, we + do not store parent pointers in the nodes. Instead, delete allocates a + small array of parent pointers and fills it while descending the tree. + Since we know that the length of a path is O(log n), where n is the number + of nodes, this is likely to use less memory. */ + +/* Tree rotations look like this: + A C + / \ / \ + B C A G + / \ / \ --> / \ + D E F G B F + / \ + D E + + In this case, A has been rotated left. This preserves the ordering of the + binary tree. */ #include <stdlib.h> #include <search.h> -/* This routine is not very bad. It makes many assumptions about - the compiler. It assumes that the first field in the node must be - the "key" field, which points to the datum. It is very tricky - stuff. H.J. */ - typedef struct node_t { + /* Callers expect this to be the first element in the structure - do not + move! */ const void *key; struct node_t *left; struct node_t *right; + unsigned int red:1; +} *node; + +#undef DEBUGGING + +#ifdef DEBUGGING + +/* Routines to check tree invariants. */ + +#include <assert.h> + +#define CHECK_TREE(a) check_tree(a) + +static void +check_tree_recurse (node p, int d_sofar, int d_total) +{ + if (p == NULL) + { + assert (d_sofar == d_total); + return; + } + + check_tree_recurse (p->left, d_sofar + (p->left && !p->left->red), d_total); + check_tree_recurse (p->right, d_sofar + (p->right && !p->right->red), d_total); + if (p->left) + assert (!(p->left->red && p->red)); + if (p->right) + assert (!(p->right->red && p->red)); +} + +static void +check_tree (node root) +{ + int cnt = 0; + node p; + if (root == NULL) + return; + root->red = 0; + for(p = root->left; p; p = p->left) + cnt += !p->red; + check_tree_recurse (root, 0, cnt); } -node; -/* Prototype fpr local function. */ -static void trecurse __P ((const void *vroot, __action_fn_t action, int level)); +#else -/* find or insert datum into search tree. -char *key; key to be located -node **rootp; address of tree root -int (*compar)(); ordering function -*/ +#define CHECK_TREE(a) + +#endif + +/* Possibly "split" a node with two red successors, and/or fix up two red + edges in a row. ROOTP is a pointer to the lowest node we visited, PARENTP + and GPARENTP pointers to its parent/grandparent. P_R and GP_R contain the + comparison values that determined which way was taken in the tree to reach + ROOTP. MODE is 1 if we need not do the split, but must check for two red + edges between GPARENTP and ROOTP. */ +static void +maybe_split_for_insert (node *rootp, node *parentp, node *gparentp, + int p_r, int gp_r, int mode) +{ + node root = *rootp; + node *rp, *lp; + rp = &(*rootp)->right; + lp = &(*rootp)->left; + + /* See if we have to split this node (both successors red). */ + if (mode == 1 + || ((*rp) != NULL && (*lp) != NULL && (*rp)->red && (*lp)->red)) + { + /* This node becomes red, its successors black. */ + root->red = 1; + if (*rp) + (*rp)->red = 0; + if (*lp) + (*lp)->red = 0; + + /* If the parent of this node is also red, we have to do + rotations. */ + if (parentp != NULL && (*parentp)->red) + { + node gp = *gparentp; + node p = *parentp; + /* There are two main cases: + 1. The edge types (left or right) of the two red edges differ. + 2. Both red edges are of the same type. + There exist two symmetries of each case, so there is a total of + 4 cases. */ + if ((p_r > 0) != (gp_r > 0)) + { + /* Put the child at the top of the tree, with its parent + and grandparent as successors. */ + p->red = 1; + gp->red = 1; + root->red = 0; + if (p_r < 0) + { + /* Child is left of parent. */ + p->left = *rp; + *rp = p; + gp->right = *lp; + *lp = gp; + } + else + { + /* Child is right of parent. */ + p->right = *lp; + *lp = p; + gp->left = *rp; + *rp = gp; + } + *gparentp = root; + } + else + { + *gparentp = *parentp; + /* Parent becomes the top of the tree, grandparent and + child are its successors. */ + p->red = 0; + gp->red = 1; + if (p_r < 0) + { + /* Left edges. */ + gp->left = p->right; + p->right = gp; + } + else + { + /* Right edges. */ + gp->right = p->left; + p->left = gp; + } + } + } + } +} + +/* Find or insert datum into search tree. + KEY is the key to be located, ROOTP is the address of tree root, + COMPAR the ordering function. */ void * -__tsearch (key, vrootp, compar) - const void *key; - void **vrootp; - __compar_fn_t compar; +__tsearch (const void *key, void **vrootp, __compar_fn_t compar) { - node *q; - node **rootp = (node **) vrootp; + node q; + node *parentp = NULL, *gparentp = NULL; + node *rootp = (node *) vrootp; + node *nextp; + int r = 0, p_r = 0, gp_r = 0; /* No they might not, Mr Compiler. */ if (rootp == NULL) return NULL; - while (*rootp != NULL) /* Knuth's T1: */ - { - int r; + /* This saves some additional tests below. */ + if (*rootp != NULL) + (*rootp)->red = 0; + + CHECK_TREE (*rootp); - r = (*compar) (key, (*rootp)->key); - if (r == 0) /* T2: */ - return *rootp; /* we found it! */ - rootp = (r < 0) - ? &(*rootp)->left /* T3: follow left branch */ - : &(*rootp)->right; /* T4: follow right branch */ + nextp = rootp; + while (*nextp != NULL) + { + node root = *rootp; + r = (*compar) (key, root->key); + if (r == 0) + return root; + + maybe_split_for_insert (rootp, parentp, gparentp, p_r, gp_r, 0); + /* If that did any rotations, parentp and gparentp are now garbage. + That doesn't matter, because the values they contain are never + used again in that case. */ + + nextp = r < 0 ? &root->left : &root->right; + if (*nextp == NULL) + break; + + gparentp = parentp; + parentp = rootp; + rootp = nextp; + + gp_r = p_r; + p_r = r; } - q = (node *) malloc (sizeof (node)); /* T5: key not found */ - if (q != NULL) /* make new node */ + q = (struct node_t *) malloc (sizeof (struct node_t)); + if (q != NULL) { - *rootp = q; /* link new node to old */ + *nextp = q; /* link new node to old */ q->key = key; /* initialize new node */ + q->red = 1; q->left = q->right = NULL; } + if (nextp != rootp) + /* There may be two red edges in a row now, which we must avoid by + rotating the tree. */ + maybe_split_for_insert (nextp, rootp, parentp, r, p_r, 1); return q; } weak_alias (__tsearch, tsearch) +/* Find datum in search tree. + KEY is the key to be located, ROOTP is the address of tree root, + COMPAR the ordering function. */ void * __tfind (key, vrootp, compar) const void *key; const void **vrootp; __compar_fn_t compar; { - node **rootp = (node **) vrootp; + node *rootp = (node *) vrootp; if (rootp == NULL) return NULL; - while (*rootp != NULL) /* Knuth's T1: */ + CHECK_TREE (*rootp); + + while (*rootp != NULL) { + node root = *rootp; int r; - r = (*compar)(key, (*rootp)->key); - if (r == 0) /* T2: */ - return *rootp; /* we found it! */ + r = (*compar) (key, root->key); + if (r == 0) + return root; - rootp = (r < 0) - ? &(*rootp)->left /* T3: follow left branch */ - : &(*rootp)->right; /* T4: follow right branch */ + rootp = r < 0 ? &root->left : &root->right; } - return NULL; + return NULL; } weak_alias (__tfind, tfind) -/* delete node with given key -char *key; key to be deleted -node **rootp; address of the root of tree -int (*compar)(); comparison function -*/ +/* Delete node with given key. + KEY is the key to be deleted, ROOTP is the address of the root of tree, + COMPAR the comparison function. */ void * -__tdelete (key, vrootp, compar) - const void *key; - void **vrootp; - __compar_fn_t compar; +__tdelete (const void *key, void **vrootp, __compar_fn_t compar) { - node *p; - node *q; - node *r; + node p, q, r, retval; int cmp; - node **rootp = (node **) vrootp; + node *rootp = (node *) vrootp; + node root, unchained; + /* Stack of nodes so we remember the parents without recursion. It's + _very_ unlikely that there are paths longer than 40 nodes. The tree + would need to have around 250.000 nodes. */ + int stacksize = 40; + int sp = 0; + node **nodestack = alloca (sizeof (node *) * stacksize); - if (rootp == NULL || (p = *rootp) == NULL) + if (rootp == NULL) return NULL; + p = *rootp; + if (p == NULL) + return NULL; + + CHECK_TREE (p); while ((cmp = (*compar) (key, (*rootp)->key)) != 0) { + if (sp == stacksize) + { + node **newstack; + stacksize += 20; + newstack = alloca (sizeof (node *) * stacksize); + memcpy (newstack, nodestack, sp * sizeof (node *)); + nodestack = newstack; + } + + nodestack[sp++] = rootp; p = *rootp; - rootp = (cmp < 0) - ? &(*rootp)->left /* follow left branch */ - : &(*rootp)->right; /* follow right branch */ + rootp = ((cmp < 0) + ? &(*rootp)->left + : &(*rootp)->right); if (*rootp == NULL) - return NULL; /* key not found */ + return NULL; } - r = (*rootp)->right; /* D1: */ - q = (*rootp)->left; - if (q == NULL) /* Left NULL? */ - q = r; - else if (r != NULL) /* Right link is NULL? */ + /* This is bogus if the node to be deleted is the root... this routine + really should return an integer with 0 for success, -1 for failure + and errno = ESRCH or something. */ + retval = p; + + /* We don't unchain the node we want to delete. Instead, we overwrite + it with its successor and unchain the successor. If there is no + successor, we really unchain the node to be deleted. */ + + root = *rootp; + + r = root->right; + q = root->left; + + if (q == NULL || r == NULL) + unchained = root; + else { - if (r->left == NULL) /* D2: Find successor */ + node *parent = rootp, *up = &root->right; + for (;;) { - r->left = q; - q = r; + if (sp == stacksize) + { + node **newstack; + stacksize += 20; + newstack = alloca (sizeof (node *) * stacksize); + memcpy (newstack, nodestack, sp * sizeof (node *)); + nodestack = newstack; + } + nodestack[sp++] = parent; + parent = up; + if ((*up)->left == NULL) + break; + up = &(*up)->left; } + unchained = *up; + } + + /* We know that either the left or right successor of UNCHAINED is NULL. + R becomes the other one, it is chained into the parent of UNCHAINED. */ + r = unchained->left; + if (r == NULL) + r = unchained->right; + if (sp == 0) + *rootp = r; + else + { + q = *nodestack[sp-1]; + if (unchained == q->right) + q->right = r; else - { /* D3: Find (struct node_t *)0 link */ - for (q = r->left; q->left != NULL; q = r->left) - r = q; - r->left = q->right; - q->left = (*rootp)->left; - q->right = (*rootp)->right; + q->left = r; + } + + if (unchained != root) + root->key = unchained->key; + if (!unchained->red) + { + /* Now we lost a black edge, which means that the number of black + edges on every path is no longer constant. We must balance the + tree. */ + /* NODESTACK now contains all parents of R. R is likely to be NULL + in the first iteration. */ + /* NULL nodes are considered black throughout - this is necessary for + correctness. */ + while (sp > 0 && (r == NULL || !r->red)) + { + node *pp = nodestack[sp - 1]; + p = *pp; + /* Two symmetric cases. */ + if (r == p->left) + { + /* Q is R's brother, P is R's parent. The subtree with root + R has one black edge less than the subtree with root Q. */ + q = p->right; + if (q != NULL && q->red) + { + /* If Q is red, we know that P is black. We rotate P left + so that Q becomes the top node in the tree, with P below + it. P is colored red, Q is colored black. + This action does not change the black edge count for any + leaf in the tree, but we will be able to recognize one + of the following situations, which all require that Q + is black. */ + q->red = 0; + p->red = 1; + /* Left rotate p. */ + p->right = q->left; + q->left = p; + *pp = q; + /* Make sure pp is right if the case below tries to use + it. */ + nodestack[sp++] = pp = &q->left; + q = p->right; + } + /* We know that Q can't be NULL here. We also know that Q is + black. */ + if ((q->left == NULL || !q->left->red) + && (q->right == NULL || !q->right->red)) + { + /* Q has two black successors. We can simply color Q red. + The whole subtree with root P is now missing one black + edge. Note that this action can temporarily make the + tree invalid (if P is red). But we will exit the loop + in that case and set P black, which both makes the tree + valid and also makes the black edge count come out + right. If P is black, we are at least one step closer + to the root and we'll try again the next iteration. */ + q->red = 1; + r = p; + } + else + { + /* Q is black, one of Q's successors is red. We can + repair the tree with one operation and will exit the + loop afterwards. */ + if (q->right == NULL || !q->right->red) + { + /* The left one is red. We perform the same action as + in maybe_split_for_insert where two red edges are + adjacent but point in different directions: + Q's left successor (let's call it Q2) becomes the + top of the subtree we are looking at, its parent (Q) + and grandparent (P) become its successors. The former + successors of Q2 are placed below P and Q. + P becomes black, and Q2 gets the color that P had. + This changes the black edge count only for node R and + its successors. */ + node q2 = q->left; + q2->red = p->red; + p->right = q2->left; + q->left = q2->right; + q2->right = q; + q2->left = p; + *pp = q2; + p->red = 0; + } + else + { + /* It's the right one. Rotate P left. P becomes black, + and Q gets the color that P had. Q's right successor + also becomes black. This changes the black edge + count only for node R and its successors. */ + q->red = p->red; + p->red = 0; + + q->right->red = 0; + + /* left rotate p */ + p->right = q->left; + q->left = p; + *pp = q; + } + + /* We're done. */ + sp = 1; + r = NULL; + } + } + else + { + /* Comments: see above. */ + q = p->left; + if (q != NULL && q->red) + { + q->red = 0; + p->red = 1; + p->left = q->right; + q->right = p; + *pp = q; + nodestack[sp++] = pp = &q->right; + q = p->left; + } + if ((q->right == NULL || !q->right->red) + && (q->left == NULL || !q->left->red)) + { + q->red = 1; + r = p; + } + else + { + if (q->left == NULL || !q->left->red) + { + node q2 = q->right; + q2->red = p->red; + p->left = q2->right; + q->right = q2->left; + q2->left = q; + q2->right = p; + *pp = q2; + p->red = 0; + } + else + { + q->red = p->red; + p->red = 0; + q->left->red = 0; + p->left = q->right; + q->right = p; + *pp = q; + } + sp = 1; + r = NULL; + } + } + --sp; } + if (r != NULL) + r->red = 0; } - free ((struct node_t *) *rootp); /* D4: Free node */ - *rootp = q; /* link parent to new node */ - return p; + + free (unchained); + return retval; } weak_alias (__tdelete, tdelete) -/* Walk the nodes of a tree -node *root; Root of the tree to be walked -void (*action)(); Function to be called at each node -int level; -*/ +/* Walk the nodes of a tree. + ROOT is the root of the tree to be walked, ACTION the function to be + called at each node. LEVEL is the level of ROOT in the whole tree. */ static void -trecurse (vroot, action, level) - const void *vroot; - __action_fn_t action; - int level; +trecurse (const void *vroot, __action_fn_t action, int level) { - node *root = (node *) vroot; + node root = (node ) vroot; if (root->left == NULL && root->right == NULL) (*action) (root, leaf, level); @@ -201,17 +611,15 @@ trecurse (vroot, action, level) } -/* void twalk(root, action) Walk the nodes of a tree -node *root; Root of the tree to be walked -void (*action)(); Function to be called at each node -PTR -*/ +/* Walk the nodes of a tree. + ROOT is the root of the tree to be walked, ACTION the function to be + called at each node. */ void -__twalk (vroot, action) - const void *vroot; - __action_fn_t action; +__twalk (const void *vroot, __action_fn_t action) { - const node *root = (node *) vroot; + const node root = (node) vroot; + + CHECK_TREE (root); if (root != NULL && action != NULL) trecurse (root, action, 0); diff --git a/misc/tst-tsearch.c b/misc/tst-tsearch.c new file mode 100644 index 0000000000..eca11cbb95 --- /dev/null +++ b/misc/tst-tsearch.c @@ -0,0 +1,329 @@ +/* Test program for tsearch et al. + 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. */ + +#define _GNU_SOURCE 1 + +#include <stdio.h> +#include <stdlib.h> +#include <search.h> + +#define SEED 0 +#define BALANCED 1 +#define PASSES 100 + +#if BALANCED +#include <math.h> +#define SIZE 1000 +#else +#define SIZE 100 +#endif + +enum order +{ + ascending, + descending, + randomorder +}; + +enum action +{ + build, + build_and_del, + delete, + find +}; + +/* Set to 1 if a test is flunked. */ +static int error = 0; + +/* The keys we add to the tree. */ +static int x[SIZE]; + +/* Pointers into the key array, possibly permutated, to define an order + for insertion/removal. */ +static int y[SIZE]; + +/* Flags set for each element visited during a tree walk. */ +static int z[SIZE]; + +/* Depths for all the elements, to check that the depth is constant for + all three visits. */ +static int depths[SIZE]; + +/* Maximum depth during a tree walk. */ +static int max_depth; + +/* Compare two keys. */ +static int +cmp_fn (const void *a, const void *b) +{ + return *(const int *) a - *(const int *) b; +} + +/* Permute an array of integers. */ +static void +memfry (int *string) +{ + int i; + + for (i = 0; i < SIZE; ++i) + { + int32_t j; + int c; + + j = random () % SIZE; + + c = string[i]; + string[i] = string[j]; + string[j] = c; + } +} + +static void +walk_action (const void *nodep, const VISIT which, const int depth) +{ + int key = **(int **) nodep; + + if (depth > max_depth) + max_depth = depth; + if (which == leaf || which == preorder) + { + ++z[key]; + depths[key] = depth; + } + else + { + if (depths[key] != depth) + { + fputs ("Depth for one element is not constant during tree walk.\n", + stderr); + } + } +} + +static void +walk_tree (void *root, int expected_count) +{ + int i; + + memset (z, 0, sizeof z); + max_depth = 0; + + twalk (root, walk_action); + for (i = 0; i < expected_count; ++i) + if (z[i] != 1) + { + fputs ("Node was not visited.\n", stderr); + error = 1; + } + +#if BALANCED + if (max_depth > log (expected_count) * 2 + 2) +#else + if (max_depth > expected_count) +#endif + { + fputs ("Depth too large during tree walk.\n", stderr); + error = 1; + } +} + +/* Perform an operation on a tree. */ +static void +mangle_tree (enum order how, enum action what, void **root, int lag) +{ + int i; + + if (how == randomorder) + { + for (i = 0; i < SIZE; ++i) + y[i] = i; + memfry (y); + } + + for (i = 0; i < SIZE + lag; ++i) + { + void *elem; + int j, k; + + switch (how) + { + case randomorder: + if (i >= lag) + k = y[i - lag]; + else + k = y[SIZE - i - 1 + lag]; + j = y[i]; + break; + + case ascending: + k = i - lag; + j = i; + break; + + case descending: + k = SIZE - i - 1 + lag; + j = SIZE - i - 1; + break; + + default: + /* This never should happen, but gcc isn't smart enough to + recognize it. */ + abort (); + } + + switch (what) + { + case build_and_del: + case build: + if (i < SIZE) + { + if (tfind (x + j, (const void **) root, cmp_fn) != NULL) + { + fputs ("Found element which is not in tree yet.\n", stderr); + error = 1; + } + elem = tsearch (x + j, root, cmp_fn); + if (elem == 0 + || tfind (x + j, (const void **) root, cmp_fn) == NULL) + { + fputs ("Couldn't find element after it was added.\n", + stderr); + error = 1; + } + } + + if (what == build || i < lag) + break; + + j = k; + /* fall through */ + + case delete: + elem = tfind (x + j, (const void **) root, cmp_fn); + if (elem == NULL || tdelete (x + j, root, cmp_fn) == NULL) + { + fputs ("Error deleting element.\n", stderr); + error = 1; + } + break; + + case find: + if (tfind (x + j, (const void **) root, cmp_fn) == NULL) + { + fputs ("Couldn't find element after it was added.\n", stderr); + error = 1; + } + break; + + } + } +} + + +int +main (int argc, char **argv) +{ + int total_error = 0; + static int state[8] = { 1, 2, 3, 4, 5, 6, 7, 8 }; + void *root = NULL; + int i, j; + + initstate (SEED, state, 8); + + for (i = 0; i < SIZE; ++i) + x[i] = i; + + /* Do this loop several times to get different permutations for the + random case. */ + fputs ("Series I\n", stderr); + for (i = 0; i < PASSES; ++i) + { + fprintf (stderr, "Pass %d... ", i + 1); + fflush (stdout); + error = 0; + + mangle_tree (ascending, build, &root, 0); + mangle_tree (ascending, find, &root, 0); + mangle_tree (descending, find, &root, 0); + mangle_tree (randomorder, find, &root, 0); + walk_tree (root, SIZE); + mangle_tree (ascending, delete, &root, 0); + + mangle_tree (ascending, build, &root, 0); + walk_tree (root, SIZE); + mangle_tree (descending, delete, &root, 0); + + mangle_tree (ascending, build, &root, 0); + walk_tree (root, SIZE); + mangle_tree (randomorder, delete, &root, 0); + + mangle_tree (descending, build, &root, 0); + mangle_tree (ascending, find, &root, 0); + mangle_tree (descending, find, &root, 0); + mangle_tree (randomorder, find, &root, 0); + walk_tree (root, SIZE); + mangle_tree (descending, delete, &root, 0); + + mangle_tree (descending, build, &root, 0); + walk_tree (root, SIZE); + mangle_tree (descending, delete, &root, 0); + + mangle_tree (descending, build, &root, 0); + walk_tree (root, SIZE); + mangle_tree (randomorder, delete, &root, 0); + + mangle_tree (randomorder, build, &root, 0); + mangle_tree (ascending, find, &root, 0); + mangle_tree (descending, find, &root, 0); + mangle_tree (randomorder, find, &root, 0); + walk_tree (root, SIZE); + mangle_tree (randomorder, delete, &root, 0); + + for (j = 1; j < SIZE; j *= 2) + { + mangle_tree (randomorder, build_and_del, &root, j); + } + + fputs (error ? " failed!\n" : " ok.\n", stderr); + total_error |= error; + } + + fputs ("Series II\n", stderr); + for (i = 1; i < SIZE; i *= 2) + { + fprintf (stderr, "For size %d... ", i); + fflush (stdout); + error = 0; + + mangle_tree (ascending, build_and_del, &root, i); + mangle_tree (descending, build_and_del, &root, i); + mangle_tree (ascending, build_and_del, &root, i); + mangle_tree (descending, build_and_del, &root, i); + mangle_tree (ascending, build_and_del, &root, i); + mangle_tree (descending, build_and_del, &root, i); + mangle_tree (ascending, build_and_del, &root, i); + mangle_tree (descending, build_and_del, &root, i); + + fputs (error ? " failed!\n" : " ok.\n", stderr); + total_error |= error; + } + + return total_error; +} diff --git a/nss/nsswitch.c b/nss/nsswitch.c index 5bcacf296d..f36fe9607d 100644 --- a/nss/nsswitch.c +++ b/nss/nsswitch.c @@ -241,13 +241,13 @@ __nss_configure_lookup (const char *dbname, const char *service_line) static int -nss_dlerror_run (void (*operate) (void)) +nss_dlerror_run (void (*operate) (void *), void *args) { char *last_errstring = NULL; const char *last_object_name = NULL; int result; - (void) _dl_catch_error (&last_errstring, &last_object_name, operate); + (void) _dl_catch_error (&last_errstring, &last_object_name, operate, args); result = last_errstring != NULL; if (result) @@ -257,6 +257,42 @@ nss_dlerror_run (void (*operate) (void)) } +struct do_open_args +{ + /* Argument to do_open. */ + char *shlib_name; + service_user *ni; +}; + +struct get_sym_args +{ + /* Arguments to get_sym. */ + struct link_map *map; + char *name; + + /* Return values of get_sym. */ + ElfW(Addr) loadbase; + const ElfW(Sym) *ref; +}; + +static void +do_open (void *a) +{ + struct do_open_args *args = (struct do_open_args *) a; + /* Open and relocate the shared object. */ + args->ni->library->lib_handle = _dl_open (args->shlib_name, RTLD_LAZY); +} + +static void +get_sym (void *a) +{ + struct get_sym_args *args = (struct get_sym_args *) a; + struct link_map *scope[2] = { args->map, NULL }; + args->ref = NULL; + args->loadbase = _dl_lookup_symbol (args->name, &args->ref, + scope, args->map->l_name, 0); +} + /* Comparison function for searching NI->known tree. */ static int known_compare (const void *p1, const void *p2) @@ -332,21 +368,19 @@ nss_lookup_function (service_user *ni, const char *fct_name) /* Load the shared library. */ size_t shlen = (7 + strlen (ni->library->name) + 3 + strlen (__nss_shlib_revision) + 1); - char shlib_name[shlen]; - void do_open (void) - { - /* Open and relocate the shared object. */ - ni->library->lib_handle = _dl_open (shlib_name, RTLD_LAZY); - } + struct do_open_args args; + args.shlib_name = __alloca (shlen); + args.ni = ni; /* Construct shared object name. */ - __stpcpy (__stpcpy (__stpcpy (__stpcpy (shlib_name, "libnss_"), + __stpcpy (__stpcpy (__stpcpy (__stpcpy (args.shlib_name, + "libnss_"), ni->library->name), ".so"), __nss_shlib_revision); - if (nss_dlerror_run (do_open) != 0) + if (nss_dlerror_run (do_open, &args) != 0) /* Failed to load the library. */ ni->library->lib_handle = (void *) -1l; } @@ -359,26 +393,19 @@ nss_lookup_function (service_user *ni, const char *fct_name) /* Get the desired function. Again, GNU ld.so magic ahead. */ size_t namlen = (5 + strlen (ni->library->name) + 1 + strlen (fct_name) + 1); - char name[namlen]; - struct link_map *map = ni->library->lib_handle; - ElfW(Addr) loadbase; - const ElfW(Sym) *ref = NULL; - void get_sym (void) - { - struct link_map *scope[2] = { map, NULL }; - loadbase = _dl_lookup_symbol (name, &ref, - scope, map->l_name, 0); - } + struct get_sym_args args; + args.name = __alloca (namlen); + args.map = ni->library->lib_handle; /* Construct the function name. */ - __stpcpy (__stpcpy (__stpcpy (__stpcpy (name, "_nss_"), + __stpcpy (__stpcpy (__stpcpy (__stpcpy (args.name, "_nss_"), ni->library->name), "_"), fct_name); /* Look up the symbol. */ - result = (nss_dlerror_run (get_sym) - ? NULL : (void *) (loadbase + ref->st_value)); + result = (nss_dlerror_run (get_sym, &args) ? NULL + : (void *) (args.loadbase + args.ref->st_value)); } /* Remember function pointer for later calls. Even if null, we diff --git a/po/libc.pot b/po/libc.pot index dfaea8a48b..4ad9360e52 100644 --- a/po/libc.pot +++ b/po/libc.pot @@ -5,8 +5,8 @@ #, fuzzy msgid "" msgstr "" -"Project-Id-Version: libc 2.0.1\n" -"POT-Creation-Date: 1997-02-04 16:58+0100\n" +"Project-Id-Version: libc 2.0.90\n" +"POT-Creation-Date: 1997-03-27 03:03+0100\n" "PO-Revision-Date: YEAR-MO-DA HO:MI+DIST\n" "Last-Translator: FULL NAME <EMAIL@ADDRESS>\n" "Language-Team: LANGUAGE <LL@li.org>\n" @@ -14,51 +14,128 @@ msgstr "" "Content-Type: text/plain; charset=CHARSET\n" "Content-Transfer-Encoding: ENCODING\n" -#: sunrpc/rpcinfo.c:612 +#: nis/nis_print.c:210 +msgid "\t\tAccess Rights : " +msgstr "" + +#: nis/nis_print.c:208 +#, c-format +msgid "\t\tAttributes : %s\n" +msgstr "" + +#: nis/nis_print.c:229 +#, c-format +msgid "\tEntry data of type %s\n" +msgstr "" + +#: nis/nis_print.c:115 +#, c-format +msgid "\tName : %s\n" +msgstr "" + +#: nis/nis_print.c:116 +msgid "\tPublic Key : " +msgstr "" + +#: nis/nis_print.c:142 +#, c-format +msgid "\tUniversal addresses (%u)\n" +msgstr "" + +#: nis/nis_print.c:206 +#, c-format +msgid "\t[%d]\tName : %s\n" +msgstr "" + +#: nis/nis_print.c:232 +#, c-format +msgid "\t[%u] - [%u bytes] " +msgstr "" + +#: nis/nis_print.c:174 +#, c-format +msgid "" +"\n" +"Direct Type : %d\n" +msgstr "" + +#: nis/nis_print.c:188 +msgid "" +"\n" +"Group Members :\n" +msgstr "" + +#: nis/nis_print.c:252 +#, c-format +msgid "" +"\n" +"Time to Live : %lu (seconds)\n" +msgstr "" + +#: sunrpc/rpcinfo.c:680 msgid " rpcinfo -b prognum versnum\n" msgstr "" -#: sunrpc/rpcinfo.c:613 +#: sunrpc/rpcinfo.c:681 msgid " rpcinfo -d prognum versnum\n" msgstr "" -#: sunrpc/rpcinfo.c:611 +#: sunrpc/rpcinfo.c:679 msgid " rpcinfo -p [ host ]\n" msgstr "" -#: sunrpc/rpcinfo.c:610 +#: sunrpc/rpcinfo.c:678 msgid " rpcinfo [ -n portnum ] -t host prognum [ versnum ]\n" msgstr "" -#: sunrpc/rpcinfo.c:517 +#: nis/nis_print.c:286 +#, c-format +msgid " Data Length = %u\n" +msgstr "" + +#: sunrpc/rpcinfo.c:577 msgid " program vers proto port\n" msgstr "" -#: time/zic.c:425 +#: time/zic.c:419 #, c-format msgid " (rule from \"%s\", line %d)" msgstr "" -#: locale/programs/ld-collate.c:360 locale/programs/ld-ctype.c:1235 +#: argp/argp-help.c:1511 +msgid " [OPTION...]" +msgstr "" + +#: locale/programs/ld-collate.c:363 locale/programs/ld-ctype.c:1242 msgid " done\n" msgstr "" -#: time/zic.c:422 +#: time/zic.c:416 #, c-format msgid "\"%s\", line %d: %s" msgstr "" -#: time/zic.c:949 +#: time/zic.c:943 #, c-format msgid "\"Zone %s\" line and -l option are mutually exclusive" msgstr "" -#: time/zic.c:957 +#: time/zic.c:951 #, c-format msgid "\"Zone %s\" line and -p option are mutually exclusive" msgstr "" -#: time/zic.c:760 +#: argp/argp-help.c:183 +#, c-format +msgid "%.*s: ARGP_HELP_FMT parameter requires a value" +msgstr "" + +#: argp/argp-help.c:191 +#, c-format +msgid "%.*s: Unknown ARGP_HELP_FMT parameter" +msgstr "" + +#: time/zic.c:754 #, c-format msgid "%s in ruleless zone" msgstr "" @@ -78,7 +155,7 @@ msgstr "" msgid "%s%sUnknown signal %d\n" msgstr "" -#: time/zic.c:2155 +#: time/zic.c:2172 #, c-format msgid "%s: %d did not sign extend correctly\n" msgstr "" @@ -88,142 +165,147 @@ msgstr "" msgid "%s: <mb_cur_max> must be greater than <mb_cur_min>\n" msgstr "" -#: time/zic.c:1445 +#: time/zic.c:1443 #, c-format msgid "%s: Can't create %s: %s\n" msgstr "" -#: time/zic.c:2134 +#: time/zic.c:2150 #, c-format msgid "%s: Can't create directory %s: %s\n" msgstr "" -#: time/zic.c:614 +#: time/zic.c:608 #, c-format msgid "%s: Can't link from %s to %s: %s\n" msgstr "" -#: time/zic.c:786 +#: time/zic.c:780 #, c-format msgid "%s: Can't open %s: %s\n" msgstr "" -#: time/zic.c:1435 +#: time/zic.c:1433 #, c-format msgid "%s: Can't remove %s: %s\n" msgstr "" -#: time/zic.c:855 +#: time/zic.c:849 #, c-format msgid "%s: Error closing %s: %s\n" msgstr "" -#: time/zic.c:848 +#: time/zic.c:842 #, c-format msgid "%s: Error reading %s\n" msgstr "" -#: time/zic.c:1509 +#: time/zic.c:1507 #, c-format msgid "%s: Error writing %s\n" msgstr "" -#: time/zdump.c:258 +#: time/zdump.c:266 #, c-format msgid "%s: Error writing standard output " msgstr "" -#: time/zic.c:833 +#: time/zic.c:827 #, c-format msgid "%s: Leap line in non leap seconds file %s\n" msgstr "" -#: time/zic.c:363 +#: time/zic.c:357 #, c-format msgid "%s: Memory exhausted: %s\n" msgstr "" -#: time/zic.c:528 +#: time/zic.c:522 #, c-format msgid "%s: More than one -L option specified\n" msgstr "" -#: time/zic.c:488 +#: time/zic.c:482 #, c-format msgid "%s: More than one -d option specified\n" msgstr "" -#: time/zic.c:498 +#: time/zic.c:492 #, c-format msgid "%s: More than one -l option specified\n" msgstr "" -#: time/zic.c:508 +#: time/zic.c:502 #, c-format msgid "%s: More than one -p option specified\n" msgstr "" -#: time/zic.c:518 +#: time/zic.c:512 #, c-format msgid "%s: More than one -y option specified\n" msgstr "" -#: time/zic.c:1860 +#: argp/argp-parse.c:628 +#, c-format +msgid "%s: Too many arguments\n" +msgstr "" + +#: time/zic.c:1872 #, c-format msgid "%s: command was '%s', result was %d\n" msgstr "" -#: locale/programs/charmap.c:593 locale/programs/locfile.c:878 +#: locale/programs/charmap.c:593 locale/programs/locfile.c:900 #, c-format msgid "%s: error in state machine" msgstr "" -#: posix/getopt.c:788 +#: posix/getopt.c:785 #, c-format msgid "%s: illegal option -- %c\n" msgstr "" -#: posix/getopt.c:791 +#: posix/getopt.c:788 #, c-format msgid "%s: invalid option -- %c\n" msgstr "" -#: posix/getopt.c:712 +#: posix/getopt.c:709 #, c-format msgid "%s: option `%c%s' doesn't allow an argument\n" msgstr "" -#: posix/getopt.c:683 +#: posix/getopt.c:680 #, c-format msgid "%s: option `%s' is ambiguous\n" msgstr "" -#: posix/getopt.c:729 posix/getopt.c:902 +#: posix/getopt.c:726 posix/getopt.c:899 #, c-format msgid "%s: option `%s' requires an argument\n" msgstr "" -#: posix/getopt.c:707 +#: posix/getopt.c:704 #, c-format msgid "%s: option `--%s' doesn't allow an argument\n" msgstr "" -#: posix/getopt.c:886 +#: posix/getopt.c:883 #, c-format msgid "%s: option `-W %s' doesn't allow an argument\n" msgstr "" -#: posix/getopt.c:868 +#: posix/getopt.c:865 #, c-format msgid "%s: option `-W %s' is ambiguous\n" msgstr "" -#: posix/getopt.c:821 posix/getopt.c:951 +#: posix/getopt.c:818 posix/getopt.c:948 #, c-format msgid "%s: option requires an argument -- %c\n" msgstr "" -#: time/zic.c:840 time/zic.c:1252 time/zic.c:1272 +#: time/zic.c:834 time/zic.c:1246 time/zic.c:1266 #, c-format msgid "%s: panic: Invalid l_value %d\n" msgstr "" @@ -233,17 +315,17 @@ msgstr "" msgid "%s: premature end of file" msgstr "" -#: posix/getopt.c:762 +#: posix/getopt.c:759 #, c-format msgid "%s: unrecognized option `%c%s'\n" msgstr "" -#: posix/getopt.c:758 +#: posix/getopt.c:755 #, c-format msgid "%s: unrecognized option `--%s'\n" msgstr "" -#: time/zic.c:447 +#: time/zic.c:441 #, c-format msgid "" "%s: usage is %s [ -s ] [ -v ] [ -l localtime ] [ -p posixrules ] [ -d " @@ -251,59 +333,69 @@ msgid "" "\t[ -L leapseconds ] [ -y yearistype ] [ filename ... ]\n" msgstr "" -#: time/zdump.c:165 +#: time/zdump.c:174 #, c-format msgid "%s: usage is %s [ -v ] [ -c cutoff ] zonename ...\n" msgstr "" -#: sunrpc/clnt_perr.c:125 +#: nis/nis_print.c:290 +msgid "(Unknown object)\n" +msgstr "" + +#: sunrpc/clnt_perr.c:119 #, c-format msgid "(unknown authentication error - %d)" msgstr "" -#: sunrpc/rpcinfo.c:555 +#: sunrpc/rpcinfo.c:616 msgid "(unknown)" msgstr "" -#: catgets/gencat.c:254 +#: catgets/gencat.c:265 msgid "*standard input*" msgstr "" +#: catgets/gencat.c:120 +msgid "" +"-o OUTPUT-FILE [INPUT-FILE]...\n" +"[OUTPUT-FILE [INPUT-FILE]...]" +msgstr "" + #: stdio-common/../sysdeps/gnu/errlist.c:766 msgid ".lib section in a.out corrupted" msgstr "" -#: inet/rcmd.c:359 +#: inet/rcmd.c:363 msgid ".rhosts fstat failed" msgstr "" -#: inet/rcmd.c:355 +#: inet/rcmd.c:359 msgid ".rhosts lstat failed" msgstr "" -#: inet/rcmd.c:357 +#: inet/rcmd.c:361 msgid ".rhosts not regular file" msgstr "" -#: inet/rcmd.c:363 +#: inet/rcmd.c:367 msgid ".rhosts writeable by other than owner" msgstr "" -#: sunrpc/clnt_perr.c:112 sunrpc/clnt_perr.c:133 +#: sunrpc/clnt_perr.c:105 sunrpc/clnt_perr.c:126 #, c-format msgid "; low version = %lu, high version = %lu" msgstr "" -#: sunrpc/clnt_perr.c:119 +#: sunrpc/clnt_perr.c:112 msgid "; why = " msgstr "" -#: locale/programs/ld-ctype.c:326 +#: locale/programs/ld-ctype.c:331 #, c-format msgid "<SP> character must not be in class `%s'" msgstr "" -#: locale/programs/ld-ctype.c:317 +#: locale/programs/ld-ctype.c:321 #, c-format msgid "<SP> character not in class `%s'" msgstr "" @@ -319,6 +411,10 @@ msgstr "" msgid "Aborted" msgstr "" +#: nis/nis_print.c:250 +msgid "Access Rights : " +msgstr "" + #: stdio-common/../sysdeps/gnu/errlist.c:762 msgid "Accessing a corrupted shared library" msgstr "" @@ -328,6 +424,10 @@ msgstr "" msgid "Address already in use" msgstr "" +#: posix/../sysdeps/posix/gai_strerror.c:30 +msgid "Address family for hostname not supported" +msgstr "" + #. TRANS The address family specified for a socket is not supported; it is #. TRANS inconsistent with the protocol being used on the socket. @xref{Sockets}. #: stdio-common/../sysdeps/gnu/errlist.c:349 @@ -351,11 +451,20 @@ msgstr "" msgid "Argument list too long" msgstr "" +#: nis/nis_error.c:65 +msgid "Attempt to remove a non-empty table" +msgstr "" + #: stdio-common/../sysdeps/gnu/errlist.c:770 msgid "Attempting to link in too many shared libraries" msgstr "" -#: sunrpc/clnt_perr.c:276 +#: nis/nis_print.c:221 +#, c-format +msgid "Attributes : %d\n" +msgstr "" + +#: sunrpc/clnt_perr.c:273 msgid "Authentication OK" msgstr "" @@ -364,6 +473,10 @@ msgstr "" msgid "Authentication error" msgstr "" +#: nis/nis_print.c:259 +msgid "BOGUS OBJECT\n" +msgstr "" + #. TRANS Bad address; an invalid pointer was detected. #. TRANS In the GNU system, this error never happens; you get a signal instead. #: stdio-common/../sysdeps/gnu/errlist.c:102 @@ -390,6 +503,18 @@ msgstr "" msgid "Bad system call" msgstr "" +#: posix/../sysdeps/posix/gai_strerror.c:32 +msgid "Bad value for ai_flags" +msgstr "" + +#: locale/programs/localedef.c:109 +msgid "Be strictly POSIX conform" +msgstr "" + +#: nis/nis_print.c:237 +msgid "Binary data\n" +msgstr "" + #. TRANS A file that isn't a block special file was given in a situation that #. TRANS requires one. For example, trying to mount an ordinary file as a file #. TRANS system in Unix gives this error. @@ -397,7 +522,7 @@ msgstr "" msgid "Block device required" msgstr "" -#: sunrpc/pmap_rmt.c:337 +#: sunrpc/pmap_rmt.c:356 msgid "Broadcast select problem" msgstr "" @@ -417,27 +542,35 @@ msgstr "" msgid "Bus error" msgstr "" +#: nis/nis_print.c:44 +msgid "CDS" +msgstr "" + #: sysdeps/unix/sysv/linux/siglist.h:43 msgid "CPU time limit exceeded" msgstr "" +#: nis/nis_error.c:32 +msgid "Cache expired" +msgstr "" + #: stdio-common/../sysdeps/gnu/errlist.c:758 msgid "Can not access a needed shared library" msgstr "" -#: nis/ypclnt.c:694 +#: nis/ypclnt.c:697 msgid "Can't bind to server which serves this domain" msgstr "" -#: nis/ypclnt.c:706 +#: nis/ypclnt.c:709 msgid "Can't communicate with portmapper" msgstr "" -#: nis/ypclnt.c:708 +#: nis/ypclnt.c:711 msgid "Can't communicate with ypbind" msgstr "" -#: nis/ypclnt.c:710 +#: nis/ypclnt.c:713 msgid "Can't communicate with ypserv" msgstr "" @@ -454,7 +587,7 @@ msgstr "" msgid "Cannot assign requested address" msgstr "" -#: sunrpc/pmap_rmt.c:255 +#: sunrpc/pmap_rmt.c:266 msgid "Cannot create socket for broadcast rpc" msgstr "" @@ -462,11 +595,11 @@ msgstr "" msgid "Cannot exec a shared library directly" msgstr "" -#: sunrpc/pmap_rmt.c:349 +#: sunrpc/pmap_rmt.c:369 msgid "Cannot receive reply to broadcast" msgstr "" -#: sunrpc/pmap_clnt.c:79 +#: sunrpc/pmap_clnt.c:76 msgid "Cannot register service" msgstr "" @@ -475,11 +608,11 @@ msgstr "" msgid "Cannot send after transport endpoint shutdown" msgstr "" -#: sunrpc/pmap_rmt.c:313 +#: sunrpc/pmap_rmt.c:329 msgid "Cannot send broadcast packet" msgstr "" -#: sunrpc/pmap_rmt.c:261 +#: sunrpc/pmap_rmt.c:273 msgid "Cannot set socket option SO_BROADCAST" msgstr "" @@ -487,29 +620,42 @@ msgstr "" msgid "Channel number out of range" msgstr "" +#: nis/nis_print.c:201 +#, c-format +msgid "Character Separator : %c\n" +msgstr "" + #: stdio-common/../sysdeps/unix/siglist.c:49 #: sysdeps/unix/sysv/linux/siglist.h:39 msgid "Child exited" msgstr "" -#: sunrpc/clnt_perr.c:286 +#: sunrpc/clnt_perr.c:283 msgid "Client credential too weak" msgstr "" +#: nis/nis_print.c:203 +msgid "Columns :\n" +msgstr "" + #: stdio-common/../sysdeps/gnu/errlist.c:738 msgid "Communication error on send" msgstr "" +#: locale/programs/localedef.c:117 +msgid "Compile locale specification" +msgstr "" + #. TRANS Go home and have a glass of warm, dairy-fresh milk. #: stdio-common/../sysdeps/gnu/errlist.c:601 msgid "Computer bought the farm" msgstr "" -#: locale/programs/ld-ctype.c:1198 +#: locale/programs/ld-ctype.c:1204 msgid "Computing table size for character classes might take a while..." msgstr "" -#: locale/programs/ld-collate.c:327 +#: locale/programs/ld-collate.c:329 msgid "Computing table size for collation information might take a while..." msgstr "" @@ -537,8 +683,12 @@ msgstr "" msgid "Continued" msgstr "" -#: catgets/gencat.c:169 db/makedb.c:120 locale/programs/locale.c:187 -#: locale/programs/localedef.c:177 +#: db/makedb.c:57 +msgid "Convert key to lower case" +msgstr "" + +#: catgets/gencat.c:235 db/makedb.c:230 locale/programs/locale.c:267 +#: locale/programs/localedef.c:392 #, c-format msgid "" "Copyright (C) %s Free Software Foundation, Inc.\n" @@ -550,10 +700,51 @@ msgstr "" msgid "Cputime limit exceeded" msgstr "" -#: nis/ypclnt.c:720 +#: catgets/gencat.c:107 +msgid "Create C header file NAME containing symbol definitions" +msgstr "" + +#: locale/programs/localedef.c:108 +msgid "Create output even if warning messages were issued" +msgstr "" + +#: db/makedb.c:67 +msgid "Create simple DB database from textual input." +msgstr "" + +#: nis/nis_print.c:253 +#, c-format +msgid "Creation Time : %s" +msgstr "" + +#: nis/nis_print.c:123 +msgid "DH.\n" +msgstr "" + +#: nis/nis_print.c:265 +msgid "DIRECTORY\n" +msgstr "" + +#: nis/nis_print.c:40 +msgid "DNANS" +msgstr "" + +#: nis/nis_print.c:36 +msgid "DNS" +msgstr "" + +#: nis/nis_error.c:51 +msgid "Database for table does not exist" +msgstr "" + +#: nis/ypclnt.c:723 msgid "Database is busy" msgstr "" +#: nis/nis_print.c:172 +msgid "Default Access rights: " +msgstr "" + #. TRANS No default destination address was set for the socket. You get this #. TRANS error when you try to transmit data over a connectionless socket, #. TRANS without first specifying a destination for the data with @code{connect}. @@ -581,6 +772,11 @@ msgstr "" msgid "Device or resource busy" msgstr "" +#: nis/nis_print.c:247 +#, c-format +msgid "Directory : %s\n" +msgstr "" + #. TRANS Directory not empty, where an empty directory was expected. Typically, #. TRANS this error occurs when you are trying to delete a directory. #: stdio-common/../sysdeps/gnu/errlist.c:468 @@ -592,7 +788,15 @@ msgstr "" msgid "Disc quota exceeded" msgstr "" -#: nis/ypclnt.c:766 +#: db/makedb.c:60 +msgid "Do not print messages while building database" +msgstr "" + +#: catgets/gencat.c:109 +msgid "Do not use existing catalog, force new output file" +msgstr "" + +#: nis/ypclnt.c:769 msgid "Domain not bound" msgstr "" @@ -601,19 +805,47 @@ msgstr "" msgid "EMT trap" msgstr "" -#: sunrpc/clnt_perr.c:254 +#: nis/nis_print.c:277 +msgid "ENTRY\n" +msgstr "" + +#: nis/nis_print.c:235 +msgid "Encrypted data\n" +msgstr "" + +#: nis/nis_error.c:52 +msgid "Entry/Table type mismatch" +msgstr "" + +#: sunrpc/clnt_perr.c:247 #, c-format msgid "Error %d" msgstr "" +#: nis/nis_error.c:56 +msgid "Error in RPC subsystem" +msgstr "" + +#: nis/nis_error.c:66 +msgid "Error in accessing NIS+ cold start file. Is NIS+ installed?" +msgstr "" + #: string/../sysdeps/mach/_strerror.c:52 msgid "Error in unknown error system: " msgstr "" +#: nis/nis_error.c:59 +msgid "Error while talking to callback proc" +msgstr "" + #: inet/ruserpass.c:161 msgid "Error: .netrc file is readable by others." msgstr "" +#: nis/nis_call.c:180 +msgid "Error: could not find a NIS_COLD_START file\n" +msgstr "" + #: stdio-common/../sysdeps/gnu/errlist.c:698 msgid "Exchange full" msgstr "" @@ -624,11 +856,11 @@ msgstr "" msgid "Exec format error" msgstr "" -#: locale/programs/localedef.c:213 +#: locale/programs/localedef.c:195 msgid "FATAL: system does not define `_POSIX2_LOCALEDEF'" msgstr "" -#: sunrpc/clnt_perr.c:290 +#: sunrpc/clnt_perr.c:287 msgid "Failed (unspecified error)" msgstr "" @@ -666,11 +898,19 @@ msgstr "" msgid "Filesize limit exceeded" msgstr "" +#: nis/nis_error.c:37 +msgid "First/Next chain broken" +msgstr "" + #: stdio-common/../sysdeps/unix/siglist.c:37 #: sysdeps/unix/sysv/linux/siglist.h:28 msgid "Floating point exception" msgstr "" +#: nis/nis_error.c:67 +msgid "Full resync required for directory" +msgstr "" + #. TRANS Function not implemented. Some functions have commands or options defined #. TRANS that might not be supported in all implementations, and this is the kind #. TRANS of error you get if you request them and they are not supported. @@ -678,11 +918,44 @@ msgstr "" msgid "Function not implemented" msgstr "" +#: nis/nis_print.c:269 +msgid "GROUP\n" +msgstr "" + +#: argp/argp-help.c:201 +#, c-format +msgid "Garbage in ARGP_HELP_FMT: %s" +msgstr "" + +#: catgets/gencat.c:115 +msgid "" +"Generate message catalog.\\vIf INPUT-FILE is -, input is read from standard " +"input. If OUTPUT-FILE\n" +"is -, output is written to standard output.\n" +msgstr "" + +#: nis/nis_error.c:36 +msgid "Generic system error" +msgstr "" + +#: locale/programs/locale.c:75 +msgid "Get locale-specific information." +msgstr "" + #. TRANS This error code has no purpose. #: stdio-common/../sysdeps/gnu/errlist.c:606 msgid "Gratuitous error" msgstr "" +#: nis/nis_print.c:249 +#, c-format +msgid "Group : %s\n" +msgstr "" + +#: nis/nis_print.c:185 +msgid "Group Flags :" +msgstr "" + #: stdio-common/../sysdeps/unix/siglist.c:30 #: sysdeps/unix/sysv/linux/siglist.h:22 msgid "Hangup" @@ -702,10 +975,21 @@ msgstr "" msgid "I/O possible" msgstr "" +#: db/makedb.c:70 +msgid "" +"INPUT-FILE OUTPUT-FILE\n" +"-o OUTPUT-FILE INPUT-FILE\n" +"-u INPUT-FILE" +msgstr "" + #: stdio-common/../sysdeps/unix/siglist.c:35 msgid "IOT trap" msgstr "" +#: nis/nis_print.c:34 +msgid "IVY" +msgstr "" + #: stdio-common/../sysdeps/gnu/errlist.c:614 msgid "Identifier removed" msgstr "" @@ -718,6 +1002,10 @@ msgstr "" msgid "Illegal instruction" msgstr "" +#: nis/nis_error.c:61 +msgid "Illegal object type for operation" +msgstr "" + #. TRANS Invalid seek operation (such as on a pipe). #: stdio-common/../sysdeps/gnu/errlist.c:201 msgid "Illegal seek" @@ -752,16 +1040,20 @@ msgstr "" msgid "Information request" msgstr "" +#: locale/programs/localedef.c:99 +msgid "Input Files:" +msgstr "" + #. TRANS Input/output error; usually used for physical read or write errors. #: stdio-common/../sysdeps/gnu/errlist.c:40 msgid "Input/output error" msgstr "" -#: nis/ypclnt.c:700 +#: nis/ypclnt.c:703 msgid "Internal NIS error" msgstr "" -#: nis/ypclnt.c:764 +#: nis/ypclnt.c:767 msgid "Internal ypbind error" msgstr "" @@ -785,33 +1077,37 @@ msgstr "" msgid "Interrupted system call should be restarted" msgstr "" +#: nis/nis_error.c:44 +msgid "Invalid Object for operation" +msgstr "" + #. TRANS Invalid argument. This is used to indicate various kinds of problems #. TRANS with passing the wrong argument to a library function. #: stdio-common/../sysdeps/gnu/errlist.c:152 msgid "Invalid argument" msgstr "" -#: posix/regex.c:946 +#: posix/regex.c:960 msgid "Invalid back reference" msgstr "" -#: posix/regex.c:944 +#: posix/regex.c:958 msgid "Invalid character class name" msgstr "" -#: sunrpc/clnt_perr.c:278 +#: sunrpc/clnt_perr.c:275 msgid "Invalid client credential" msgstr "" -#: sunrpc/clnt_perr.c:282 +#: sunrpc/clnt_perr.c:279 msgid "Invalid client verifier" msgstr "" -#: posix/regex.c:943 +#: posix/regex.c:957 msgid "Invalid collation character" msgstr "" -#: posix/regex.c:950 +#: posix/regex.c:964 msgid "Invalid content of \\{\\}" msgstr "" @@ -832,15 +1128,15 @@ msgstr "" msgid "Invalid or incomplete multibyte or wide character" msgstr "" -#: posix/regex.c:953 +#: posix/regex.c:967 msgid "Invalid preceding regular expression" msgstr "" -#: posix/regex.c:951 +#: posix/regex.c:965 msgid "Invalid range end" msgstr "" -#: posix/regex.c:942 +#: posix/regex.c:956 msgid "Invalid regular expression" msgstr "" @@ -852,7 +1148,7 @@ msgstr "" msgid "Invalid request descriptor" msgstr "" -#: sunrpc/clnt_perr.c:288 +#: sunrpc/clnt_perr.c:285 msgid "Invalid server verifier" msgstr "" @@ -870,11 +1166,24 @@ msgstr "" msgid "Is a named type file" msgstr "" +#: nis/nis_print.c:129 +msgid "Kerberous.\n" +msgstr "" + #: stdio-common/../sysdeps/unix/siglist.c:38 #: sysdeps/unix/sysv/linux/siglist.h:29 msgid "Killed" msgstr "" +#: nis/nis_print.c:281 +msgid "LINK\n" +msgstr "" + +#: nis/nis_local_names.c:125 +#, c-format +msgid "LOCAL entry for UID %d in directory %s not unique\n" +msgstr "" + #: stdio-common/../sysdeps/gnu/errlist.c:686 msgid "Level 2 halted" msgstr "" @@ -891,6 +1200,10 @@ msgstr "" msgid "Level 3 reset" msgstr "" +#: nis/nis_error.c:53 +msgid "Link Points to illegal name" +msgstr "" + #: stdio-common/../sysdeps/gnu/errlist.c:626 msgid "Link has been severed" msgstr "" @@ -899,11 +1212,11 @@ msgstr "" msgid "Link number out of range" msgstr "" -#: nis/ypclnt.c:712 +#: nis/ypclnt.c:715 msgid "Local domain name not set" msgstr "" -#: nis/ypclnt.c:702 +#: nis/ypclnt.c:705 msgid "Local resource allocation failure" msgstr "" @@ -911,7 +1224,29 @@ msgstr "" msgid "Machine is not on the network" msgstr "" -#: posix/regex.c:952 +#: nis/nis_error.c:45 +msgid "Malformed Name, or illegal name" +msgstr "" + +#: argp/argp-help.c:1132 +msgid "" +"Mandatory or optional arguments to long options are also mandatory or " +"optional for any corresponding short options." +msgstr "" + +#: nis/nis_print.c:112 +msgid "Master Server :\n" +msgstr "" + +#: nis/nis_error.c:75 +msgid "Master server busy, full dump rescheduled." +msgstr "" + +#: posix/../sysdeps/posix/gai_strerror.c:35 +msgid "Memory allocation failure" +msgstr "" + +#: posix/regex.c:966 msgid "Memory exhausted" msgstr "" @@ -921,22 +1256,100 @@ msgstr "" msgid "Message too long" msgstr "" +#: nis/nis_error.c:57 +msgid "Missing or malformed attribute" +msgstr "" + +#: nis/nis_print.c:254 +#, c-format +msgid "Mod. Time : %s" +msgstr "" + +#: nis/nis_error.c:50 +msgid "Modification failed" +msgstr "" + +#: nis/nis_error.c:63 +msgid "Modify operation failed" +msgstr "" + +#: locale/programs/locale.c:68 +msgid "Modify output format:" +msgstr "" + #: stdio-common/../sysdeps/gnu/errlist.c:618 msgid "Multihop attempted" msgstr "" -#: nis/ypclnt.c:716 +#: catgets/gencat.c:106 catgets/gencat.c:110 db/makedb.c:58 +#: locale/programs/localedef.c:120 +msgid "NAME" +msgstr "" + +#: locale/programs/locale.c:78 +msgid "" +"NAME\n" +"[-a|-m]" +msgstr "" + +#: nis/nis_print.c:30 +msgid "NIS" +msgstr "" + +#: nis/ypclnt.c:719 msgid "NIS client/server version mismatch - can't supply service" msgstr "" -#: nis/ypclnt.c:714 +#: nis/ypclnt.c:717 msgid "NIS map data base is bad" msgstr "" +#: nis/nis_error.c:68 +msgid "NIS+ operation failed" +msgstr "" + +#: nis/nis_error.c:33 +msgid "NIS+ servers unreachable" +msgstr "" + +#: nis/nis_error.c:69 +msgid "NIS+ service is unavailable or not installed" +msgstr "" + +#: nis/nis_print.c:262 +msgid "NO OBJECT\n" +msgstr "" + +#: nis/nis_print.c:220 +#, c-format +msgid "Name : %s\n" +msgstr "" + +#: nis/nis_print.c:106 +#, c-format +msgid "Name : '%s'\n" +msgstr "" + +#: nis/nis_error.c:40 +msgid "Name not served by this server" +msgstr "" + #: stdio-common/../sysdeps/gnu/errlist.c:746 msgid "Name not unique on network" msgstr "" +#: posix/../sysdeps/posix/gai_strerror.c:37 +msgid "Name or service not known" +msgstr "" + +#: nis/nis_error.c:49 +msgid "Name/entry isn't unique" +msgstr "" + +#: nis/nis_error.c:58 +msgid "Named object is not searchable" +msgstr "" + #. TRANS ??? #: stdio-common/../sysdeps/gnu/errlist.c:554 msgid "Need authenticator" @@ -966,6 +1379,10 @@ msgstr "" msgid "No XENIX semaphores available" msgstr "" +#: posix/../sysdeps/posix/gai_strerror.c:36 +msgid "No address associated with hostname" +msgstr "" + #: resolv/herror.c:77 msgid "No address associated with name" msgstr "" @@ -992,6 +1409,10 @@ msgstr "" msgid "No data available" msgstr "" +#: nis/nis_error.c:73 +msgid "No file space on server" +msgstr "" + #. TRANS No locks available. This is used by the file locking facilities; see #. TRANS @ref{File Locks}. This error is never generated by the GNU system, but #. TRANS it can result from an operation to an NFS server running another @@ -1000,7 +1421,7 @@ msgstr "" msgid "No locks available" msgstr "" -#: posix/regex.c:941 +#: posix/regex.c:955 msgid "No match" msgstr "" @@ -1008,15 +1429,15 @@ msgstr "" msgid "No message of desired type" msgstr "" -#: nis/ypclnt.c:704 +#: nis/ypclnt.c:707 msgid "No more records in map database" msgstr "" -#: posix/regex.c:5204 +#: posix/regex.c:5324 msgid "No previous regular expression" msgstr "" -#: sunrpc/rpcinfo.c:515 +#: sunrpc/rpcinfo.c:573 msgid "No remote programs registered.\n" msgstr "" @@ -1038,11 +1459,11 @@ msgstr "" msgid "No such file or directory" msgstr "" -#: nis/ypclnt.c:698 +#: nis/ypclnt.c:701 msgid "No such key in map" msgstr "" -#: nis/ypclnt.c:696 +#: nis/ypclnt.c:699 msgid "No such map in server's domain" msgstr "" @@ -1051,6 +1472,26 @@ msgstr "" msgid "No such process" msgstr "" +#: argp/argp-parse.c:163 +msgid "No version known!?" +msgstr "" + +#: nis/nis_error.c:60 +msgid "Non NIS+ namespace encountered" +msgstr "" + +#: posix/../sysdeps/posix/gai_strerror.c:33 +msgid "Non-recoverable failure in name resolution" +msgstr "" + +#: nis/nis_print.c:120 +msgid "None.\n" +msgstr "" + +#: nis/nis_error.c:48 +msgid "Not Found, no such name" +msgstr "" + #: stdio-common/../sysdeps/gnu/errlist.c:786 msgid "Not a XENIX named type file" msgstr "" @@ -1060,6 +1501,28 @@ msgstr "" msgid "Not a directory" msgstr "" +#: nis/nis_error.c:30 +msgid "Not found" +msgstr "" + +#: nis/nis_error.c:43 +msgid "Not master server for this domain" +msgstr "" + +#: nis/nis_error.c:39 +msgid "Not owner" +msgstr "" + +#: nis/nis_print.c:200 +#, c-format +msgid "Number of Columns : %d\n" +msgstr "" + +#: nis/nis_print.c:301 +#, c-format +msgid "Number of objects : %u\n" +msgstr "" + #. TRANS Domain error; used by mathematical functions when an argument value does #. TRANS not fall into the domain over which the function is defined. #: stdio-common/../sysdeps/gnu/errlist.c:228 @@ -1072,6 +1535,20 @@ msgstr "" msgid "Numerical result out of range" msgstr "" +#: nis/nis_print.c:305 +#, c-format +msgid "Object #%d:\n" +msgstr "" + +#: nis/nis_print.c:246 +#, c-format +msgid "Object Name : %s\n" +msgstr "" + +#: nis/nis_print.c:255 +msgid "Object Type : " +msgstr "" + #. TRANS An attempt was made to NFS-mount a remote file system with a file name that #. TRANS already specifies an NFS-mounted file. #. TRANS (This is an error on some operating systems, but we expect it to work @@ -1080,7 +1557,11 @@ msgstr "" msgid "Object is remote" msgstr "" -#: time/zic.c:1954 +#: nis/nis_error.c:42 +msgid "Object with same name exists" +msgstr "" + +#: time/zic.c:1966 msgid "Odd number of quotation marks" msgstr "" @@ -1137,12 +1618,34 @@ msgstr "" msgid "Out of streams resources" msgstr "" +#: locale/programs/localedef.c:106 +msgid "Output control:" +msgstr "" + +#: nis/nis_print.c:248 +#, c-format +msgid "Owner : %s\n" +msgstr "" + +#: nis/nis_print.c:285 +msgid "PRIVATE\n" +msgstr "" + #: stdio-common/../sysdeps/gnu/errlist.c:726 msgid "Package not installed" msgstr "" +#: nis/nis_error.c:54 +msgid "Partial Success" +msgstr "" + +#: nis/nis_error.c:62 +msgid "Passed object is not the same object on server" +msgstr "" + #. TRANS Permission denied; the file permissions do not allow the attempted operation. -#: nis/ypclnt.c:718 stdio-common/../sysdeps/gnu/errlist.c:96 +#: nis/nis_error.c:38 nis/ypclnt.c:721 +#: stdio-common/../sysdeps/gnu/errlist.c:96 msgid "Permission denied" msgstr "" @@ -1150,10 +1653,26 @@ msgstr "" msgid "Power failure" msgstr "" -#: posix/regex.c:954 +#: posix/regex.c:968 msgid "Premature end of regular expression" msgstr "" +#: db/makedb.c:62 +msgid "Print content of database file, one entry a line" +msgstr "" + +#: locale/programs/localedef.c:112 +msgid "Print more messages" +msgstr "" + +#: nis/nis_error.c:29 +msgid "Probable success" +msgstr "" + +#: nis/nis_error.c:31 +msgid "Probably not found" +msgstr "" + #: stdio-common/../sysdeps/unix/siglist.c:56 #: sysdeps/unix/sysv/linux/siglist.h:46 msgid "Profiling timer expired" @@ -1190,6 +1709,10 @@ msgstr "" msgid "Protocol wrong type for socket" msgstr "" +#: nis/nis_error.c:64 +msgid "Query illegal for named table" +msgstr "" + #: stdio-common/../sysdeps/unix/siglist.c:32 #: sysdeps/unix/sysv/linux/siglist.h:24 msgid "Quit" @@ -1204,7 +1727,7 @@ msgstr "" msgid "RPC bad procedure for program" msgstr "" -#: nis/ypclnt.c:692 +#: nis/ypclnt.c:695 msgid "RPC failure on NIS operation" msgstr "" @@ -1228,83 +1751,87 @@ msgstr "" msgid "RPC version wrong" msgstr "" -#: sunrpc/clnt_perr.c:217 +#: sunrpc/clnt_perr.c:209 msgid "RPC: (unknown error code)" msgstr "" -#: sunrpc/clnt_perr.c:179 +#: sunrpc/clnt_perr.c:170 msgid "RPC: Authentication error" msgstr "" -#: sunrpc/clnt_perr.c:169 +#: sunrpc/clnt_perr.c:160 msgid "RPC: Can't decode result" msgstr "" -#: sunrpc/clnt_perr.c:167 +#: sunrpc/clnt_perr.c:158 msgid "RPC: Can't encode arguments" msgstr "" -#: sunrpc/clnt_perr.c:199 +#: sunrpc/clnt_perr.c:190 msgid "RPC: Failed (unspecified error)" msgstr "" -#: sunrpc/clnt_perr.c:177 +#: sunrpc/clnt_perr.c:168 msgid "RPC: Incompatible versions of RPC" msgstr "" -#: sunrpc/clnt_perr.c:195 +#: sunrpc/clnt_perr.c:186 msgid "RPC: Port mapper failure" msgstr "" -#: sunrpc/clnt_perr.c:185 +#: sunrpc/clnt_perr.c:176 msgid "RPC: Procedure unavailable" msgstr "" -#: sunrpc/clnt_perr.c:197 +#: sunrpc/clnt_perr.c:188 msgid "RPC: Program not registered" msgstr "" -#: sunrpc/clnt_perr.c:181 +#: sunrpc/clnt_perr.c:172 msgid "RPC: Program unavailable" msgstr "" -#: sunrpc/clnt_perr.c:183 +#: sunrpc/clnt_perr.c:174 msgid "RPC: Program/version mismatch" msgstr "" -#: sunrpc/clnt_perr.c:189 +#: sunrpc/clnt_perr.c:180 msgid "RPC: Remote system error" msgstr "" -#: sunrpc/clnt_perr.c:187 +#: sunrpc/clnt_perr.c:178 msgid "RPC: Server can't decode arguments" msgstr "" -#: sunrpc/clnt_perr.c:165 +#: sunrpc/clnt_perr.c:156 msgid "RPC: Success" msgstr "" -#: sunrpc/clnt_perr.c:175 +#: sunrpc/clnt_perr.c:166 msgid "RPC: Timed out" msgstr "" -#: sunrpc/clnt_perr.c:173 +#: sunrpc/clnt_perr.c:164 msgid "RPC: Unable to receive" msgstr "" -#: sunrpc/clnt_perr.c:171 +#: sunrpc/clnt_perr.c:162 msgid "RPC: Unable to send" msgstr "" -#: sunrpc/clnt_perr.c:191 +#: sunrpc/clnt_perr.c:182 msgid "RPC: Unknown host" msgstr "" -#: sunrpc/clnt_perr.c:193 +#: sunrpc/clnt_perr.c:184 msgid "RPC: Unknown protocol" msgstr "" -#: elf/dlsym.c:49 +#: nis/nis_print.c:126 +msgid "RSA.\n" +msgstr "" + +#: elf/dlsym.c:49 elf/dlvsym.c:52 msgid "RTLD_NEXT used in code not dynamically loaded" msgstr "" @@ -1313,7 +1840,7 @@ msgstr "" msgid "Read-only file system" msgstr "" -#: posix/regex.c:955 +#: posix/regex.c:969 msgid "Regular expression too big" msgstr "" @@ -1329,12 +1856,21 @@ msgstr "" msgid "Remove password or make file unreadable by others." msgstr "" -#: catgets/gencat.c:224 db/makedb.c:227 locale/programs/locale.c:257 -#: locale/programs/localedef.c:408 +#: nis/nis_print.c:114 +msgid "Replicate :\n" +msgstr "" + +#: argp/argp-help.c:1565 +#, c-format +msgid "Report bugs to %s.\n" +msgstr "" + +#: catgets/gencat.c:222 db/makedb.c:217 locale/programs/locale.c:254 +#: locale/programs/localedef.c:378 msgid "Report bugs using the `glibcbug' script to <bugs@gnu.ai.mit.edu>.\n" msgstr "" -#: nis/ypclnt.c:690 +#: nis/ypclnt.c:693 msgid "Request arguments bad" msgstr "" @@ -1391,19 +1927,44 @@ msgstr "" msgid "Resource temporarily unavailable" msgstr "" +#: nis/nis_error.c:47 +msgid "Results Sent to callback proc" +msgstr "" + +#: nis/nis_print.c:32 +msgid "SUNYP" +msgstr "" + +#: nis/nis_print.c:202 +#, c-format +msgid "Search Path : %s\n" +msgstr "" + #: stdio-common/../sysdeps/unix/siglist.c:40 #: sysdeps/unix/sysv/linux/siglist.h:31 msgid "Segmentation fault" msgstr "" -#: sunrpc/clnt_perr.c:280 +#: nis/nis_error.c:35 +msgid "Server busy, try again" +msgstr "" + +#: nis/nis_error.c:41 +msgid "Server out of memory" +msgstr "" + +#: sunrpc/clnt_perr.c:277 msgid "Server rejected credential" msgstr "" -#: sunrpc/clnt_perr.c:284 +#: sunrpc/clnt_perr.c:281 msgid "Server rejected verifier" msgstr "" +#: posix/../sysdeps/posix/gai_strerror.c:38 +msgid "Servname not supported for ai_socktype" +msgstr "" + #: stdio-common/../sysdeps/unix/siglist.c:29 msgid "Signal 0" msgstr "" @@ -1423,6 +1984,14 @@ msgstr "" msgid "Software caused connection abort" msgstr "" +#: locale/programs/localedef.c:102 +msgid "Source definitions are found in FILE" +msgstr "" + +#: locale/programs/localedef.c:104 +msgid "Specify code set for mapping ISO 10646 elements" +msgstr "" + #: stdio-common/../sysdeps/gnu/errlist.c:734 msgid "Srmount error" msgstr "" @@ -1439,6 +2008,11 @@ msgstr "" msgid "Stale NFS file handle" msgstr "" +#: nis/nis_print.c:300 +#, c-format +msgid "Status : %s\n" +msgstr "" + #: stdio-common/../sysdeps/unix/siglist.c:47 #: sysdeps/unix/sysv/linux/siglist.h:37 msgid "Stopped" @@ -1467,15 +2041,52 @@ msgstr "" msgid "Structure needs cleaning" msgstr "" -#: nis/ypclnt.c:688 nis/ypclnt.c:762 posix/regex.c:940 +#: nis/nis_error.c:28 nis/ypclnt.c:691 nis/ypclnt.c:765 posix/regex.c:954 #: stdio-common/../sysdeps/gnu/errlist.c:7 msgid "Success" msgstr "" -#: nis/ypclnt.c:768 +#: locale/programs/localedef.c:111 +msgid "Suppress warnings and information messages" +msgstr "" + +#: locale/programs/localedef.c:101 +msgid "Symbolic character names defined in FILE" +msgstr "" + +#: posix/../sysdeps/posix/gai_strerror.c:40 +msgid "System error" +msgstr "" + +#: locale/programs/locale.c:63 +msgid "System information:" +msgstr "" + +#: nis/ypclnt.c:771 msgid "System resource allocation failure" msgstr "" +#: locale/programs/localedef.c:374 +#, c-format +msgid "" +"System's directory for character maps: %s\n" +" locale files : %s\n" +"%s" +msgstr "" + +#: nis/nis_print.c:273 +msgid "TABLE\n" +msgstr "" + +#: nis/nis_print.c:199 +#, c-format +msgid "Table Type : %s\n" +msgstr "" + +#: posix/../sysdeps/posix/gai_strerror.c:31 +msgid "Temporary failure in name resolution" +msgstr "" + #: stdio-common/../sysdeps/unix/siglist.c:44 #: sysdeps/unix/sysv/linux/siglist.h:34 msgid "Terminated" @@ -1490,10 +2101,19 @@ msgstr "" msgid "Text file busy" msgstr "" +#: nis/nis_print.c:164 +#, c-format +msgid "Time to live : %s\n" +msgstr "" + #: stdio-common/../sysdeps/gnu/errlist.c:650 msgid "Timer expired" msgstr "" +#: nis/nis_error.c:55 +msgid "Too Many Attributes" +msgstr "" + #. TRANS Too many levels of symbolic links were encountered in looking up a file name. #. TRANS This often indicates a cycle of symbolic links. #: stdio-common/../sysdeps/gnu/errlist.c:445 @@ -1551,7 +2171,7 @@ msgstr "" msgid "Trace/breakpoint trap" msgstr "" -#: posix/regex.c:945 +#: posix/regex.c:959 msgid "Trailing backslash" msgstr "" @@ -1576,10 +2196,9 @@ msgstr "" msgid "Transport endpoint is not connected" msgstr "" -#: catgets/gencat.c:208 db/makedb.c:209 locale/programs/locale.c:241 -#: locale/programs/localedef.c:389 +#: argp/argp-help.c:1538 #, c-format -msgid "Try `%s --help' for more information.\n" +msgid "Try `%s --help' or `%s --usage' for more information.\n" msgstr "" #: inet/rcmd.c:137 @@ -1587,15 +2206,49 @@ msgstr "" msgid "Trying %s...\n" msgstr "" +#: nis/nis_print.c:219 +#, c-format +msgid "Type : %d\n" +msgstr "" + +#: nis/nis_print.c:107 +#, c-format +msgid "Type : %s\n" +msgstr "" + +#: nis/nis_print.c:46 +msgid "UNKNOWN" +msgstr "" + +#: nis/nis_error.c:72 +msgid "Unable to authenticate NIS+ client" +msgstr "" + +#: nis/nis_error.c:71 +msgid "Unable to authenticate NIS+ server" +msgstr "" + +#: nis/nis_error.c:46 +msgid "Unable to create callback" +msgstr "" + +#: nis/nis_error.c:74 +msgid "Unable to create process on server" +msgstr "" + #: inet/ruserpass.c:246 #, c-format msgid "Unknown .netrc keyword %s" msgstr "" -#: nis/ypclnt.c:722 +#: nis/ypclnt.c:725 msgid "Unknown NIS error code" msgstr "" +#: posix/../sysdeps/posix/gai_strerror.c:51 +msgid "Unknown error" +msgstr "" + #: string/../sysdeps/generic/_strerror.c:44 #: string/../sysdeps/mach/_strerror.c:67 msgid "Unknown error " @@ -1605,6 +2258,10 @@ msgstr "" msgid "Unknown host" msgstr "" +#: nis/nis_error.c:34 +msgid "Unknown object" +msgstr "" + #: resolv/herror.c:120 msgid "Unknown resolver error" msgstr "" @@ -1618,27 +2275,31 @@ msgstr "" msgid "Unknown signal %d" msgstr "" -#: misc/error.c:95 +#: misc/error.c:100 msgid "Unknown system error" msgstr "" -#: nis/ypclnt.c:770 +#: nis/ypclnt.c:773 msgid "Unknown ypbind error" msgstr "" -#: posix/regex.c:948 +#: nis/nis_print.c:132 +msgid "Unknown.\n" +msgstr "" + +#: posix/regex.c:962 msgid "Unmatched ( or \\(" msgstr "" -#: posix/regex.c:956 +#: posix/regex.c:970 msgid "Unmatched ) or \\)" msgstr "" -#: posix/regex.c:947 +#: posix/regex.c:961 msgid "Unmatched [ or [^" msgstr "" -#: posix/regex.c:949 +#: posix/regex.c:963 msgid "Unmatched \\{" msgstr "" @@ -1652,77 +2313,12 @@ msgstr "" msgid "Urgent I/O condition" msgstr "" -#: catgets/gencat.c:212 -#, c-format -msgid "" -"Usage: %s [OPTION]... -o OUTPUT-FILE [INPUT-FILE]...\n" -" %s [OPTION]... [OUTPUT-FILE [INPUT-FILE]...]\n" -"Mandatory arguments to long options are mandatory for short options too.\n" -" -H, --header create C header file containing symbol definitions\n" -" -h, --help display this help and exit\n" -" --new do not use existing catalog, force new output file\n" -" -o, --output=NAME write output to file NAME\n" -" -V, --version output version information and exit\n" -"If INPUT-FILE is -, input is read from standard input. If OUTPUT-FILE\n" -"is -, output is written to standard output.\n" -msgstr "" - -#: db/makedb.c:213 -#, c-format -msgid "" -"Usage: %s [OPTION]... INPUT-FILE OUTPUT-FILE\n" -" %s [OPTION]... -o OUTPUT-FILE INPUT-FILE\n" -" %s [OPTION]... -u INPUT-FILE\n" -"Mandatory arguments to long options are mandatory for short options too.\n" -" -f, --fold-case convert key to lower case\n" -" -h, --help display this help and exit\n" -" -o, --output=NAME write output to file NAME\n" -" --quiet don't print messages while building database\n" -" -u, --undo print content of database file, one entry a line\n" -" -V, --version output version information and exit\n" -"If INPUT-FILE is -, input is read from standard input.\n" -msgstr "" - -#: locale/programs/localedef.c:393 -#, c-format -msgid "" -"Usage: %s [OPTION]... name\n" -"Mandatory arguments to long options are mandatory for short options too.\n" -" -c, --force create output even if warning messages were " -"issued\n" -" -h, --help display this help and exit\n" -" -f, --charmap=FILE symbolic character names defined in FILE\n" -" -i, --inputfile=FILE source definitions are found in FILE\n" -" -u, --code-set-name=NAME specify code set for mapping ISO 10646 elements\n" -" -v, --verbose print more messages\n" -" -V, --version output version information and exit\n" -" --posix be strictly POSIX conform\n" -"\n" -"System's directory for character maps: %s\n" -" locale files : %s\n" -msgstr "" - -#: locale/programs/locale.c:245 -#, c-format -msgid "" -"Usage: %s [OPTION]... name\n" -"Mandatory arguments to long options are mandatory for short options too.\n" -" -h, --help display this help and exit\n" -" -V, --version output version information and exit\n" -"\n" -" -a, --all-locales write names of available locales\n" -" -m, --charmaps write names of available charmaps\n" -"\n" -" -c, --category-name write names of selected categories\n" -" -k, --keyword-name write names of selected keywords\n" -msgstr "" - #: posix/getconf.c:200 #, c-format msgid "Usage: %s variable_name [pathname]\n" msgstr "" -#: sunrpc/rpcinfo.c:609 +#: sunrpc/rpcinfo.c:677 msgid "Usage: rpcinfo [ -n portnum ] -u host prognum [ versnum ]\n" msgstr "" @@ -1745,7 +2341,7 @@ msgstr "" msgid "Virtual timer expired" msgstr "" -#: time/zic.c:1859 +#: time/zic.c:1871 msgid "Wild result from command execution" msgstr "" @@ -1754,12 +2350,40 @@ msgstr "" msgid "Window changed" msgstr "" -#: catgets/gencat.c:174 db/makedb.c:125 locale/programs/locale.c:192 -#: locale/programs/localedef.c:182 +#: locale/programs/locale.c:67 +msgid "Write names of available charmaps" +msgstr "" + +#: locale/programs/locale.c:65 +msgid "Write names of available locales" +msgstr "" + +#: locale/programs/locale.c:69 +msgid "Write names of selected categories" +msgstr "" + +#: locale/programs/locale.c:70 +msgid "Write names of selected keywords" +msgstr "" + +#: catgets/gencat.c:110 db/makedb.c:58 +msgid "Write output to file NAME" +msgstr "" + +#: catgets/gencat.c:240 db/makedb.c:235 locale/programs/locale.c:272 +#: locale/programs/localedef.c:397 #, c-format msgid "Written by %s.\n" msgstr "" +#: nis/nis_print.c:38 +msgid "X500" +msgstr "" + +#: nis/nis_print.c:42 +msgid "XCHS" +msgstr "" + #: nis/ypclnt.c:142 msgid "YPBINDPROC_DOMAIN: Internal error\n" msgstr "" @@ -1777,44 +2401,62 @@ msgstr "" msgid "YPBINDPROC_DOMAIN: Unknown error\n" msgstr "" +#: nis/nis_error.c:70 +msgid "Yes, 42 is the meaning of life" +msgstr "" + #. TRANS You did @strong{what}? #: stdio-common/../sysdeps/gnu/errlist.c:596 msgid "You really blew it this time" msgstr "" -#: time/zic.c:1054 +#: time/zic.c:1048 msgid "Zone continuation line end time is not after end time of previous line" msgstr "" -#: locale/programs/charmap.c:397 locale/programs/locfile.c:341 +#: nis/nis_server.c:36 nis/nis_server.c:48 nis/nis_server.c:68 +#: nis/nis_server.c:80 +#, c-format +msgid "__do_niscall: Error #%d\n" +msgstr "" + +#: locale/programs/charmap.c:397 locale/programs/locfile.c:363 #, c-format msgid "`%1$s' definition does not end with `END %1$s'" msgstr "" -#: locale/programs/ld-monetary.c:358 locale/programs/ld-numeric.c:190 +#: locale/programs/ld-monetary.c:359 locale/programs/ld-numeric.c:190 #, c-format msgid "`-1' must be last entry in `%s' field in `%s' category" msgstr "" -#: locale/programs/ld-collate.c:1652 +#: locale/programs/ld-collate.c:1655 msgid "`...' must only be used in `...' and `UNDEFINED' entries" msgstr "" -#: locale/programs/locfile.c:538 +#: locale/programs/locfile.c:560 msgid "`from' expected after first argument to `collating-element'" msgstr "" -#: locale/programs/ld-collate.c:1109 +#: locale/programs/ld-collate.c:1112 msgid "" "`from' string in collation element declaration contains unknown character" msgstr "" +#: posix/../sysdeps/posix/gai_strerror.c:34 +msgid "ai_family not supported" +msgstr "" + +#: posix/../sysdeps/posix/gai_strerror.c:39 +msgid "ai_socktype not supported" +msgstr "" + #: locale/programs/charmap.c:267 #, c-format msgid "argument to <%s> must be a single character" msgstr "" -#: locale/programs/locfile.c:215 +#: locale/programs/locfile.c:237 #, c-format msgid "argument to `%s' must be a single character" msgstr "" @@ -1823,19 +2465,23 @@ msgstr "" msgid "auth_none.c - Fatal marshalling problem" msgstr "" -#: inet/rcmd.c:361 +#: sunrpc/auth_unix.c:118 sunrpc/auth_unix.c:124 sunrpc/auth_unix.c:153 +msgid "authunix_create: out of memory\n" +msgstr "" + +#: inet/rcmd.c:365 msgid "bad .rhosts owner" msgstr "" -#: locale/programs/charmap.c:212 locale/programs/locfile.c:209 +#: locale/programs/charmap.c:212 locale/programs/locfile.c:231 msgid "bad argument" msgstr "" -#: time/zic.c:1176 +#: time/zic.c:1170 msgid "blank FROM field on Link line" msgstr "" -#: time/zic.c:1180 +#: time/zic.c:1174 msgid "blank TO field on Link line" msgstr "" @@ -1847,129 +2493,137 @@ msgstr "" msgid "bogus mcheck_status, library is buggy" msgstr "" -#: sunrpc/pmap_rmt.c:179 +#: sunrpc/pmap_rmt.c:183 msgid "broadcast: ioctl (get interface configuration)" msgstr "" -#: sunrpc/pmap_rmt.c:186 +#: sunrpc/pmap_rmt.c:192 msgid "broadcast: ioctl (get interface flags)" msgstr "" -#: sunrpc/svc_udp.c:402 +#: sunrpc/svc_udp.c:439 +msgid "cache_set: could not allocate new rpc_buffer" +msgstr "" + +#: sunrpc/svc_udp.c:433 +msgid "cache_set: victim alloc failed" +msgstr "" + +#: sunrpc/svc_udp.c:422 msgid "cache_set: victim not found" msgstr "" -#: time/zic.c:1700 +#: time/zic.c:1698 msgid "can't determine time zone abbreviation to use just after until time" msgstr "" -#: sunrpc/svc_simple.c:64 +#: sunrpc/svc_simple.c:70 #, c-format msgid "can't reassign procedure number %d\n" msgstr "" -#: locale/programs/localedef.c:287 +#: locale/programs/localedef.c:271 #, c-format msgid "cannot `stat' locale file `%s'" msgstr "" -#: locale/programs/ld-collate.c:1314 +#: locale/programs/ld-collate.c:1317 #, c-format msgid "cannot insert collation element `%.*s'" msgstr "" -#: locale/programs/ld-collate.c:1493 locale/programs/ld-collate.c:1498 +#: locale/programs/ld-collate.c:1496 locale/programs/ld-collate.c:1501 msgid "cannot insert into result table" msgstr "" -#: locale/programs/ld-collate.c:1166 locale/programs/ld-collate.c:1208 +#: locale/programs/ld-collate.c:1169 locale/programs/ld-collate.c:1211 #, c-format msgid "cannot insert new collating symbol definition: %s" msgstr "" -#: db/makedb.c:161 +#: db/makedb.c:142 #, c-format msgid "cannot open database file `%s': %s" msgstr "" -#: catgets/gencat.c:260 db/makedb.c:180 +#: catgets/gencat.c:271 db/makedb.c:161 #, c-format msgid "cannot open input file `%s'" msgstr "" -#: locale/programs/localedef.c:221 +#: locale/programs/localedef.c:203 #, c-format msgid "cannot open locale definition file `%s'" msgstr "" -#: catgets/gencat.c:765 catgets/gencat.c:806 db/makedb.c:189 +#: catgets/gencat.c:776 catgets/gencat.c:817 db/makedb.c:170 #, c-format msgid "cannot open output file `%s'" msgstr "" -#: locale/programs/locfile.c:986 +#: locale/programs/locfile.c:1008 #, c-format msgid "cannot open output file `%s' for category `%s'" msgstr "" -#: locale/programs/ld-collate.c:1360 +#: locale/programs/ld-collate.c:1363 msgid "cannot process order specification" msgstr "" -#: locale/programs/locale.c:304 +#: locale/programs/locale.c:449 #, c-format msgid "cannot read character map directory `%s'" msgstr "" -#: locale/programs/locale.c:279 +#: locale/programs/locale.c:306 #, c-format msgid "cannot read locale directory `%s'" msgstr "" -#: locale/programs/localedef.c:309 +#: locale/programs/localedef.c:293 #, c-format msgid "cannot read locale file `%s'" msgstr "" -#: locale/programs/localedef.c:334 +#: locale/programs/localedef.c:318 #, c-format msgid "cannot write output files to `%s'" msgstr "" -#: locale/programs/localedef.c:377 +#: locale/programs/localedef.c:431 msgid "category data requested more than once: should not happen" msgstr "" -#: locale/programs/ld-ctype.c:265 +#: locale/programs/ld-ctype.c:266 #, c-format msgid "character %s'%s' in class `%s' must be in class `%s'" msgstr "" -#: locale/programs/ld-ctype.c:289 +#: locale/programs/ld-ctype.c:291 #, c-format msgid "character %s'%s' in class `%s' must not be in class `%s'" msgstr "" -#: locale/programs/ld-ctype.c:310 +#: locale/programs/ld-ctype.c:313 msgid "character <SP> not defined in character map" msgstr "" -#: locale/programs/ld-ctype.c:939 locale/programs/ld-ctype.c:1002 -#: locale/programs/ld-ctype.c:1010 locale/programs/ld-ctype.c:1018 -#: locale/programs/ld-ctype.c:1026 locale/programs/ld-ctype.c:1034 -#: locale/programs/ld-ctype.c:1042 locale/programs/ld-ctype.c:1068 -#: locale/programs/ld-ctype.c:1076 locale/programs/ld-ctype.c:1114 -#: locale/programs/ld-ctype.c:1141 locale/programs/ld-ctype.c:1152 +#: locale/programs/ld-ctype.c:944 locale/programs/ld-ctype.c:1007 +#: locale/programs/ld-ctype.c:1015 locale/programs/ld-ctype.c:1023 +#: locale/programs/ld-ctype.c:1031 locale/programs/ld-ctype.c:1039 +#: locale/programs/ld-ctype.c:1047 locale/programs/ld-ctype.c:1073 +#: locale/programs/ld-ctype.c:1081 locale/programs/ld-ctype.c:1119 +#: locale/programs/ld-ctype.c:1146 locale/programs/ld-ctype.c:1157 #, c-format msgid "character `%s' not defined while needed as default value" msgstr "" -#: locale/programs/ld-ctype.c:801 +#: locale/programs/ld-ctype.c:806 #, c-format msgid "character class `%s' already defined" msgstr "" -#: locale/programs/ld-ctype.c:833 +#: locale/programs/ld-ctype.c:838 #, c-format msgid "character map `%s' already defined" msgstr "" @@ -1979,21 +2633,29 @@ msgstr "" msgid "character map file `%s' not found" msgstr "" -#: sunrpc/clnt_raw.c:106 +#: sunrpc/clnt_raw.c:112 msgid "clnt_raw.c - Fatal header serialization error." msgstr "" -#: locale/programs/ld-collate.c:1329 +#: sunrpc/clnt_tcp.c:125 sunrpc/clnt_tcp.c:133 +msgid "clnttcp_create: out of memory\n" +msgstr "" + +#: sunrpc/clnt_udp.c:128 sunrpc/clnt_udp.c:138 +msgid "clntudp_create: out of memory\n" +msgstr "" + +#: locale/programs/ld-collate.c:1332 #, c-format msgid "collation element `%.*s' appears more than once: ignore line" msgstr "" -#: locale/programs/ld-collate.c:1347 +#: locale/programs/ld-collate.c:1350 #, c-format msgid "collation symbol `%.*s' appears more than once: ignore line" msgstr "" -#: locale/programs/locfile.c:522 +#: locale/programs/locfile.c:544 #, c-format msgid "collation symbol expected after `%s'" msgstr "" @@ -2003,11 +2665,11 @@ msgstr "" msgid "connect to address %s: " msgstr "" -#: sunrpc/svc_simple.c:70 +#: sunrpc/svc_simple.c:78 msgid "couldn't create an rpc server\n" msgstr "" -#: sunrpc/svc_simple.c:77 +#: sunrpc/svc_simple.c:86 #, c-format msgid "couldn't register prog %d vers %d\n" msgstr "" @@ -2017,14 +2679,14 @@ msgstr "" msgid "default character map file `%s' not found" msgstr "" -#: locale/programs/ld-time.c:154 +#: locale/programs/ld-time.c:159 #, c-format msgid "" "direction flag in string %d in `era' field in category `%s' is not '+' nor " "'-'" msgstr "" -#: locale/programs/ld-time.c:164 +#: locale/programs/ld-time.c:169 #, c-format msgid "" "direction flag in string %d in `era' field in category `%s' is not a single " @@ -2036,86 +2698,90 @@ msgstr "" msgid "duplicate character name `%s'" msgstr "" -#: locale/programs/ld-collate.c:1141 +#: locale/programs/ld-collate.c:1144 msgid "duplicate collating element definition" msgstr "" -#: locale/programs/ld-collate.c:1287 +#: locale/programs/ld-collate.c:1290 #, c-format msgid "duplicate definition for character `%.*s'" msgstr "" -#: db/makedb.c:311 +#: db/makedb.c:314 msgid "duplicate key" msgstr "" -#: catgets/gencat.c:379 +#: catgets/gencat.c:390 msgid "duplicate set definition" msgstr "" -#: time/zic.c:969 +#: time/zic.c:963 #, c-format msgid "duplicate zone name %s (file \"%s\", line %d)" msgstr "" -#: catgets/gencat.c:542 +#: catgets/gencat.c:553 msgid "duplicated message identifier" msgstr "" -#: catgets/gencat.c:515 +#: catgets/gencat.c:526 msgid "duplicated message number" msgstr "" -#: locale/programs/ld-collate.c:1696 +#: sunrpc/rpc_scan.c:384 +msgid "empty char string" +msgstr "" + +#: locale/programs/ld-collate.c:1699 msgid "empty weight name: line ignored" msgstr "" -#: sunrpc/svc_udp.c:348 +#: sunrpc/svc_udp.c:365 msgid "enablecache: cache already enabled" msgstr "" -#: sunrpc/svc_udp.c:353 +#: sunrpc/svc_udp.c:371 msgid "enablecache: could not allocate cache" msgstr "" -#: sunrpc/svc_udp.c:360 +#: sunrpc/svc_udp.c:379 msgid "enablecache: could not allocate cache data" msgstr "" -#: sunrpc/svc_udp.c:366 +#: sunrpc/svc_udp.c:386 msgid "enablecache: could not allocate cache fifo" msgstr "" -#: locale/programs/ld-collate.c:1419 +#: locale/programs/ld-collate.c:1422 msgid "end point of ellipsis range is bigger then start" msgstr "" -#: locale/programs/ld-collate.c:1149 +#: locale/programs/ld-collate.c:1152 msgid "error while inserting collation element into hash table" msgstr "" -#: locale/programs/ld-collate.c:1161 +#: locale/programs/ld-collate.c:1164 msgid "error while inserting to hash table" msgstr "" -#: locale/programs/locfile.c:465 +#: locale/programs/locfile.c:487 msgid "expect string argument for `copy'" msgstr "" -#: time/zic.c:860 +#: time/zic.c:854 msgid "expected continuation line not found" msgstr "" -#: locale/programs/locfile.c:1010 +#: locale/programs/locfile.c:1032 #, c-format msgid "failure while writing data for category `%s'" msgstr "" -#: nis/ypclnt.c:186 +#: nis/ypclnt.c:187 msgid "fcntl: F_SETFD" msgstr "" -#: locale/programs/ld-monetary.c:154 locale/programs/ld-numeric.c:95 +#: locale/programs/ld-monetary.c:155 locale/programs/ld-numeric.c:95 #, c-format msgid "field `%s' in category `%s' not defined" msgstr "" @@ -2125,53 +2791,57 @@ msgstr "" msgid "field `%s' in category `%s' undefined" msgstr "" -#: locale/programs/locfile.c:547 +#: locale/programs/locfile.c:569 msgid "from-value of `collating-element' must be a string" msgstr "" -#: locale/programs/linereader.c:328 +#: locale/programs/linereader.c:327 msgid "garbage at end of character code specification" msgstr "" -#: locale/programs/linereader.c:214 +#: locale/programs/linereader.c:213 msgid "garbage at end of number" msgstr "" -#: locale/programs/ld-time.c:183 +#: locale/programs/ld-time.c:188 #, c-format msgid "" "garbage at end of offset value in string %d in `era' field in category `%s'" msgstr "" -#: locale/programs/ld-time.c:238 +#: locale/programs/ld-time.c:243 #, c-format msgid "" "garbage at end of starting date in string %d in `era' field in category `%s'" msgstr "" -#: locale/programs/ld-time.c:310 +#: locale/programs/ld-time.c:316 #, c-format msgid "" "garbage at end of stopping date in string %d in `era' field in category `%s'" msgstr "" -#: sunrpc/get_myaddr.c:73 +#: sunrpc/get_myaddr.c:75 msgid "get_myaddress: ioctl (get interface configuration)" msgstr "" -#: time/zic.c:1153 +#: time/zic.c:1147 msgid "illegal CORRECTION field on Leap line" msgstr "" -#: time/zic.c:1157 +#: time/zic.c:1151 msgid "illegal Rolling/Stationary field on Leap line" msgstr "" -#: locale/programs/ld-collate.c:1767 +#: locale/programs/ld-collate.c:1770 msgid "illegal character constant in string" msgstr "" -#: locale/programs/ld-collate.c:1116 +#: sunrpc/rpc_scan.c:313 +msgid "illegal character in file: " +msgstr "" + +#: locale/programs/ld-collate.c:1119 msgid "illegal collation element" msgstr "" @@ -2183,7 +2853,7 @@ msgstr "" msgid "illegal encoding given" msgstr "" -#: locale/programs/linereader.c:546 +#: locale/programs/linereader.c:545 msgid "illegal escape sequence at end of string" msgstr "" @@ -2191,118 +2861,118 @@ msgstr "" msgid "illegal names for character range" msgstr "" -#: locale/programs/ld-time.c:176 +#: locale/programs/ld-time.c:181 #, c-format msgid "illegal number for offset in string %d in `era' field in category `%s'" msgstr "" -#: catgets/gencat.c:352 catgets/gencat.c:429 +#: catgets/gencat.c:363 catgets/gencat.c:440 msgid "illegal set number" msgstr "" -#: locale/programs/ld-time.c:230 +#: locale/programs/ld-time.c:235 #, c-format msgid "illegal starting date in string %d in `era' field in category `%s'" msgstr "" -#: locale/programs/ld-time.c:302 +#: locale/programs/ld-time.c:308 #, c-format msgid "illegal stopping date in string %d in `era' field in category `%s'" msgstr "" -#: locale/programs/ld-ctype.c:807 +#: locale/programs/ld-ctype.c:812 #, c-format msgid "implementation limit: no more than %d character classes allowed" msgstr "" -#: locale/programs/ld-ctype.c:839 +#: locale/programs/ld-ctype.c:844 #, c-format msgid "implementation limit: no more than %d character maps allowed" msgstr "" -#: db/makedb.c:163 +#: db/makedb.c:144 msgid "incorrectly formatted file" msgstr "" -#: time/zic.c:817 +#: time/zic.c:811 msgid "input line of unknown type" msgstr "" -#: time/zic.c:1748 +#: time/zic.c:1760 msgid "internal error - addtype called with bad isdst" msgstr "" -#: time/zic.c:1756 +#: time/zic.c:1768 msgid "internal error - addtype called with bad ttisgmt" msgstr "" -#: time/zic.c:1752 +#: time/zic.c:1764 msgid "internal error - addtype called with bad ttisstd" msgstr "" -#: locale/programs/ld-ctype.c:301 +#: locale/programs/ld-ctype.c:304 #, c-format msgid "internal error in %s, line %u" msgstr "" -#: time/zic.c:1025 +#: time/zic.c:1019 msgid "invalid GMT offset" msgstr "" -#: time/zic.c:1028 +#: time/zic.c:1022 msgid "invalid abbreviation format" msgstr "" -#: time/zic.c:1118 time/zic.c:1317 time/zic.c:1331 +#: time/zic.c:1112 time/zic.c:1313 time/zic.c:1327 msgid "invalid day of month" msgstr "" -#: time/zic.c:1276 +#: time/zic.c:1270 msgid "invalid ending year" msgstr "" -#: time/zic.c:1090 +#: time/zic.c:1084 msgid "invalid leaping year" msgstr "" -#: time/zic.c:1105 time/zic.c:1208 +#: time/zic.c:1099 time/zic.c:1202 msgid "invalid month name" msgstr "" -#: time/zic.c:924 +#: time/zic.c:918 msgid "invalid saved time" msgstr "" -#: time/zic.c:1256 +#: time/zic.c:1250 msgid "invalid starting year" msgstr "" -#: time/zic.c:1134 time/zic.c:1236 +#: time/zic.c:1128 time/zic.c:1230 msgid "invalid time of day" msgstr "" -#: time/zic.c:1322 +#: time/zic.c:1318 msgid "invalid weekday name" msgstr "" -#: locale/programs/ld-collate.c:1412 +#: locale/programs/ld-collate.c:1415 msgid "line after ellipsis must contain character definition" msgstr "" -#: locale/programs/ld-collate.c:1391 +#: locale/programs/ld-collate.c:1394 msgid "line before ellipsis does not contain definition for character constant" msgstr "" -#: time/zic.c:797 +#: time/zic.c:791 msgid "line too long" msgstr "" -#: locale/programs/localedef.c:281 +#: locale/programs/localedef.c:265 #, c-format msgid "locale file `%s', used in `copy' statement, not found" msgstr "" -#: catgets/gencat.c:610 +#: catgets/gencat.c:621 msgid "malformed line ignored" msgstr "" @@ -2315,8 +2985,8 @@ msgid "memory clobbered past end of allocated block" msgstr "" #: locale/programs/ld-collate.c:167 locale/programs/ld-collate.c:173 -#: locale/programs/ld-collate.c:177 locale/programs/ld-collate.c:1439 -#: locale/programs/ld-collate.c:1468 locale/programs/locfile.c:940 +#: locale/programs/ld-collate.c:177 locale/programs/ld-collate.c:1442 +#: locale/programs/ld-collate.c:1471 locale/programs/locfile.c:962 #: locale/programs/xmalloc.c:68 posix/getconf.c:250 msgid "memory exhausted" msgstr "" @@ -2329,21 +2999,25 @@ msgstr "" msgid "memory is consistent, library is buggy" msgstr "" -#: locale/programs/ld-time.c:348 +#: locale/programs/ld-time.c:355 #, c-format msgid "missing era format in string %d in `era' field in category `%s'" msgstr "" -#: locale/programs/ld-time.c:337 +#: locale/programs/ld-time.c:344 #, c-format msgid "missing era name in string %d in `era' field in category `%s'" msgstr "" -#: time/zic.c:919 +#: gmon/gmon.c:128 +msgid "monstartup: out of memory\n" +msgstr "" + +#: time/zic.c:913 msgid "nameless rule" msgstr "" -#: sunrpc/svc_simple.c:140 +#: sunrpc/svc_simple.c:153 #, c-format msgid "never registered prog %d\n" msgstr "" @@ -2353,19 +3027,19 @@ msgstr "" msgid "no correct regular expression for field `%s' in category `%s': %s" msgstr "" -#: time/zic.c:2074 +#: time/zic.c:2086 msgid "no day in month matches rule" msgstr "" -#: locale/programs/ld-collate.c:259 +#: locale/programs/ld-collate.c:260 msgid "no definition of `UNDEFINED'" msgstr "" -#: locale/programs/locfile.c:479 +#: locale/programs/locfile.c:501 msgid "no other keyword shall be specified when `copy' is used" msgstr "" -#: locale/programs/localedef.c:340 +#: locale/programs/localedef.c:324 msgid "no output file produced because warning were issued" msgstr "" @@ -2388,23 +3062,31 @@ msgstr "" msgid "only WIDTH definitions are allowed to follow the CHARMAP definition" msgstr "" -#: db/makedb.c:327 +#: sunrpc/pm_getmaps.c:73 +msgid "pmap_getmaps rpc problem" +msgstr "" + +#: sunrpc/rpc_scan.c:525 sunrpc/rpc_scan.c:535 +msgid "preprocessor error" +msgstr "" + +#: db/makedb.c:330 #, c-format msgid "problems while reading `%s'" msgstr "" -#: sunrpc/rpcinfo.c:222 sunrpc/rpcinfo.c:350 +#: sunrpc/rpcinfo.c:237 sunrpc/rpcinfo.c:384 #, c-format msgid "program %lu is not available\n" msgstr "" -#: sunrpc/rpcinfo.c:245 sunrpc/rpcinfo.c:282 sunrpc/rpcinfo.c:371 -#: sunrpc/rpcinfo.c:408 sunrpc/rpcinfo.c:429 sunrpc/rpcinfo.c:462 +#: sunrpc/rpcinfo.c:265 sunrpc/rpcinfo.c:311 sunrpc/rpcinfo.c:409 +#: sunrpc/rpcinfo.c:455 sunrpc/rpcinfo.c:478 sunrpc/rpcinfo.c:512 #, c-format msgid "program %lu version %lu is not available\n" msgstr "" -#: sunrpc/rpcinfo.c:466 +#: sunrpc/rpcinfo.c:518 #, c-format msgid "program %lu version %lu ready and waiting\n" msgstr "" @@ -2423,43 +3105,43 @@ msgstr "" msgid "rcmd: write (setting up stderr): %m\n" msgstr "" -#: sunrpc/svc_simple.c:83 +#: sunrpc/svc_simple.c:93 msgid "registerrpc: out of memory\n" msgstr "" -#: time/zic.c:1809 +#: time/zic.c:1821 msgid "repeated leap second moment" msgstr "" -#: sunrpc/rpcinfo.c:659 +#: sunrpc/rpcinfo.c:733 #, c-format msgid "rpcinfo: %s is unknown host\n" msgstr "" -#: sunrpc/rpcinfo.c:626 +#: sunrpc/rpcinfo.c:696 #, c-format msgid "rpcinfo: %s is unknown service\n" msgstr "" -#: sunrpc/rpcinfo.c:600 +#: sunrpc/rpcinfo.c:668 #, c-format msgid "rpcinfo: Could not delete registration for prog %s version %s\n" msgstr "" -#: sunrpc/rpcinfo.c:576 +#: sunrpc/rpcinfo.c:640 #, c-format msgid "rpcinfo: broadcast failed: %s\n" msgstr "" -#: sunrpc/rpcinfo.c:505 +#: sunrpc/rpcinfo.c:560 msgid "rpcinfo: can't contact portmapper" msgstr "" -#: sunrpc/rpcinfo.c:510 +#: sunrpc/rpcinfo.c:567 msgid "rpcinfo: can't contact portmapper: " msgstr "" -#: time/zic.c:710 time/zic.c:712 +#: time/zic.c:704 time/zic.c:706 msgid "same rule name in multiple files" msgstr "" @@ -2471,90 +3153,98 @@ msgstr "" msgid "socket: protocol failure in circuit setup\n" msgstr "" -#: locale/programs/locfile.c:600 +#: locale/programs/locfile.c:622 msgid "sorting order `forward' and `backward' are mutually exclusive" msgstr "" -#: locale/programs/ld-collate.c:1568 locale/programs/ld-collate.c:1614 +#: locale/programs/ld-collate.c:1571 locale/programs/ld-collate.c:1617 msgid "" "specification of sorting weight for collation symbol does not make sense" msgstr "" -#: time/zic.c:781 +#: time/zic.c:775 msgid "standard input" msgstr "" -#: time/zdump.c:260 +#: time/zdump.c:268 msgid "standard output" msgstr "" -#: locale/programs/ld-time.c:256 +#: locale/programs/ld-time.c:262 #, c-format msgid "starting date is illegal in string %d in `era' field in category `%s'" msgstr "" -#: time/zic.c:1280 +#: time/zic.c:1274 msgid "starting year greater than ending year" msgstr "" -#: locale/programs/ld-time.c:328 +#: locale/programs/ld-time.c:335 #, c-format msgid "stopping date is illegal in string %d in `era' field in category `%s'" msgstr "" -#: sunrpc/svc_tcp.c:201 sunrpc/svc_tcp.c:206 +#: sunrpc/svc_run.c:66 +msgid "svc_run: - select failed" +msgstr "" + +#: sunrpc/svc_tcp.c:202 sunrpc/svc_tcp.c:208 msgid "svc_tcp: makefd_xprt: out of memory\n" msgstr "" -#: sunrpc/svc_tcp.c:149 +#: sunrpc/svc_tcp.c:154 msgid "svctcp_.c - cannot getsockname or listen" msgstr "" -#: sunrpc/svc_tcp.c:136 +#: sunrpc/svc_tcp.c:139 msgid "svctcp_.c - udp socket creation problem" msgstr "" -#: sunrpc/svc_tcp.c:156 sunrpc/svc_tcp.c:163 +#: sunrpc/svc_tcp.c:162 sunrpc/svc_tcp.c:170 msgid "svctcp_create: out of memory\n" msgstr "" -#: sunrpc/svc_udp.c:123 +#: sunrpc/svc_udp.c:131 msgid "svcudp_create - cannot getsockname" msgstr "" -#: sunrpc/svc_udp.c:111 +#: sunrpc/svc_udp.c:139 sunrpc/svc_udp.c:145 sunrpc/svc_udp.c:151 +msgid "svcudp_create: out of memory\n" +msgstr "" + +#: sunrpc/svc_udp.c:117 msgid "svcudp_create: socket creation problem" msgstr "" -#: locale/programs/ld-collate.c:1191 +#: locale/programs/ld-collate.c:1194 #, c-format msgid "" "symbol for multicharacter collating element `%.*s' duplicates element " "definition" msgstr "" -#: locale/programs/ld-collate.c:1064 +#: locale/programs/ld-collate.c:1067 #, c-format msgid "" "symbol for multicharacter collating element `%.*s' duplicates other element " "definition" msgstr "" -#: locale/programs/ld-collate.c:1200 +#: locale/programs/ld-collate.c:1203 #, c-format msgid "" "symbol for multicharacter collating element `%.*s' duplicates other symbol " "definition" msgstr "" -#: locale/programs/ld-collate.c:1073 +#: locale/programs/ld-collate.c:1076 #, c-format msgid "" "symbol for multicharacter collating element `%.*s' duplicates symbol " "definition" msgstr "" -#: locale/programs/ld-collate.c:1055 locale/programs/ld-collate.c:1182 +#: locale/programs/ld-collate.c:1058 locale/programs/ld-collate.c:1185 #, c-format msgid "" "symbol for multicharacter collating element `%.*s' duplicates symbolic name " @@ -2569,51 +3259,51 @@ msgstr "" msgid "syntax error in %s definition: %s" msgstr "" -#: locale/programs/locfile.c:620 +#: locale/programs/locfile.c:642 msgid "syntax error in `order_start' directive" msgstr "" -#: locale/programs/locfile.c:362 +#: locale/programs/locfile.c:384 msgid "syntax error in character class definition" msgstr "" -#: locale/programs/locfile.c:420 +#: locale/programs/locfile.c:442 msgid "syntax error in character conversion definition" msgstr "" -#: locale/programs/locfile.c:662 +#: locale/programs/locfile.c:684 msgid "syntax error in collating order definition" msgstr "" -#: locale/programs/locfile.c:512 +#: locale/programs/locfile.c:534 msgid "syntax error in collation definition" msgstr "" -#: locale/programs/locfile.c:335 +#: locale/programs/locfile.c:357 msgid "syntax error in definition of LC_CTYPE category" msgstr "" -#: locale/programs/locfile.c:278 +#: locale/programs/locfile.c:300 msgid "syntax error in definition of new character class" msgstr "" -#: locale/programs/locfile.c:288 +#: locale/programs/locfile.c:310 msgid "syntax error in definition of new character map" msgstr "" -#: locale/programs/locfile.c:873 +#: locale/programs/locfile.c:895 msgid "syntax error in message locale definition" msgstr "" -#: locale/programs/locfile.c:784 +#: locale/programs/locfile.c:806 msgid "syntax error in monetary locale definition" msgstr "" -#: locale/programs/locfile.c:811 +#: locale/programs/locfile.c:833 msgid "syntax error in numeric locale definition" msgstr "" -#: locale/programs/locfile.c:722 +#: locale/programs/locfile.c:744 msgid "syntax error in order specification" msgstr "" @@ -2622,23 +3312,23 @@ msgstr "" msgid "syntax error in prolog: %s" msgstr "" -#: locale/programs/locfile.c:849 +#: locale/programs/locfile.c:871 msgid "syntax error in time locale definition" msgstr "" -#: locale/programs/locfile.c:255 +#: locale/programs/locfile.c:277 msgid "syntax error: not inside a locale definition section" msgstr "" -#: catgets/gencat.c:381 catgets/gencat.c:517 catgets/gencat.c:544 +#: catgets/gencat.c:392 catgets/gencat.c:528 catgets/gencat.c:555 msgid "this is the first definition" msgstr "" -#: time/zic.c:1123 +#: time/zic.c:1117 msgid "time before zero" msgstr "" -#: time/zic.c:1131 time/zic.c:1974 time/zic.c:1993 +#: time/zic.c:1125 time/zic.c:1986 time/zic.c:2005 msgid "time overflow" msgstr "" @@ -2654,23 +3344,23 @@ msgstr "" msgid "too many character classes defined" msgstr "" -#: time/zic.c:1803 +#: time/zic.c:1815 msgid "too many leap seconds" msgstr "" -#: time/zic.c:1775 +#: time/zic.c:1787 msgid "too many local time types" msgstr "" -#: time/zic.c:1729 +#: time/zic.c:1741 msgid "too many transitions?!" msgstr "" -#: locale/programs/ld-collate.c:1623 +#: locale/programs/ld-collate.c:1626 msgid "too many weights" msgstr "" -#: time/zic.c:2097 +#: time/zic.c:2109 msgid "too many, or too long, time zone abbreviations" msgstr "" @@ -2678,16 +3368,16 @@ msgstr "" msgid "trailing garbage at end of line" msgstr "" -#: sunrpc/svc_simple.c:132 +#: sunrpc/svc_simple.c:145 #, c-format msgid "trouble replying to prog %d\n" msgstr "" -#: locale/programs/ld-collate.c:1383 +#: locale/programs/ld-collate.c:1386 msgid "two lines in a row containing `...' are not allowed" msgstr "" -#: time/zic.c:1287 +#: time/zic.c:1281 msgid "typed single year" msgstr "" @@ -2702,48 +3392,52 @@ msgstr "" #: locale/programs/ld-messages.c:193 locale/programs/ld-messages.c:204 #: locale/programs/ld-messages.c:215 locale/programs/ld-messages.c:226 -#: locale/programs/ld-time.c:696 +#: locale/programs/ld-time.c:703 #, c-format msgid "unknown character in field `%s' of category `%s'" msgstr "" -#: locale/programs/locfile.c:585 +#: locale/programs/locfile.c:607 msgid "unknown collation directive" msgstr "" -#: catgets/gencat.c:478 +#: catgets/gencat.c:489 #, c-format msgid "unknown directive `%s': line ignored" msgstr "" -#: catgets/gencat.c:457 +#: catgets/gencat.c:468 #, c-format msgid "unknown set `%s'" msgstr "" -#: locale/programs/ld-collate.c:1367 locale/programs/ld-collate.c:1558 -#: locale/programs/ld-collate.c:1732 +#: locale/programs/ld-collate.c:1370 locale/programs/ld-collate.c:1561 +#: locale/programs/ld-collate.c:1735 #, c-format msgid "unknown symbol `%.*s': line ignored" msgstr "" -#: time/zic.c:753 +#: time/zic.c:747 msgid "unruly zone" msgstr "" -#: catgets/gencat.c:962 +#: catgets/gencat.c:973 msgid "unterminated message" msgstr "" -#: locale/programs/linereader.c:515 locale/programs/linereader.c:550 +#: locale/programs/linereader.c:514 locale/programs/linereader.c:549 msgid "unterminated string" msgstr "" -#: locale/programs/linereader.c:385 +#: sunrpc/rpc_scan.c:352 sunrpc/rpc_scan.c:378 +msgid "unterminated string constant" +msgstr "" + +#: locale/programs/linereader.c:384 msgid "unterminated symbolic name" msgstr "" -#: locale/programs/ld-collate.c:1685 +#: locale/programs/ld-collate.c:1688 msgid "unterminated weight name" msgstr "" @@ -2751,7 +3445,7 @@ msgstr "" msgid "upper limit in range is not smaller then lower limit" msgstr "" -#: time/zic.c:2040 +#: time/zic.c:2052 msgid "use of 2/29 in non leap-year" msgstr "" @@ -2765,7 +3459,7 @@ msgstr "" msgid "value for <%s> must lie between 1 and 4" msgstr "" -#: locale/programs/ld-monetary.c:148 locale/programs/ld-numeric.c:89 +#: locale/programs/ld-monetary.c:149 locale/programs/ld-numeric.c:89 #, c-format msgid "value for field `%s' in category `%s' must not be the empty string" msgstr "" @@ -2774,7 +3468,7 @@ msgstr "" msgid "value of <mb_cur_max> must be greater than the value of <mb_cur_min>" msgstr "" -#: locale/programs/ld-monetary.c:138 +#: locale/programs/ld-monetary.c:139 msgid "" "value of field `int_curr_symbol' in category `LC_MONETARY' does not " "correspond to a valid name in ISO 4217" @@ -2785,60 +3479,67 @@ msgid "" "value of field `int_curr_symbol' in category `LC_MONETARY' has wrong length" msgstr "" -#: locale/programs/ld-monetary.c:370 locale/programs/ld-numeric.c:199 +#: locale/programs/ld-monetary.c:373 locale/programs/ld-numeric.c:204 #, c-format msgid "values for field `%s' in category `%s' must be smaller than 127" msgstr "" -#: locale/programs/ld-monetary.c:366 -#, c-format -msgid "values for field `%s' in category `%s' must not be zero" -msgstr "" - #: login/utmp_file.c:84 msgid "while opening UTMP file" msgstr "" -#: catgets/gencat.c:989 +#: catgets/gencat.c:1000 msgid "while opening old catalog file" msgstr "" -#: db/makedb.c:354 +#: locale/programs/locale.c:346 +msgid "while preparing output" +msgstr "" + +#: db/makedb.c:357 msgid "while reading database" msgstr "" -#: db/makedb.c:316 +#: db/makedb.c:319 msgid "while writing data base file" msgstr "" -#: db/makedb.c:142 +#: db/makedb.c:122 msgid "wrong number of arguments" msgstr "" -#: time/zic.c:1081 +#: time/zic.c:1075 msgid "wrong number of fields on Leap line" msgstr "" -#: time/zic.c:1172 +#: time/zic.c:1166 msgid "wrong number of fields on Link line" msgstr "" -#: time/zic.c:915 +#: time/zic.c:909 msgid "wrong number of fields on Rule line" msgstr "" -#: time/zic.c:985 +#: time/zic.c:979 msgid "wrong number of fields on Zone continuation line" msgstr "" -#: time/zic.c:943 +#: time/zic.c:937 msgid "wrong number of fields on Zone line" msgstr "" -#: nis/ypclnt.c:810 +#: sunrpc/xdr_ref.c:79 +msgid "xdr_reference: out of memory\n" +msgstr "" + +#: sunrpc/xdr_rec.c:146 sunrpc/xdr_rec.c:161 +msgid "xdrrec_create: out of memory\n" +msgstr "" + +#: nis/ypclnt.c:813 msgid "yp_update: cannot convert host to netname\n" msgstr "" -#: nis/ypclnt.c:822 +#: nis/ypclnt.c:825 msgid "yp_update: cannot get server address\n" msgstr "" diff --git a/stdio-common/bug5.c b/stdio-common/bug5.c index 59fb6bb9d9..8c3d0e3bc7 100644 --- a/stdio-common/bug5.c +++ b/stdio-common/bug5.c @@ -56,6 +56,10 @@ main (void) puts ("There should be no further output from this test."); fflush (stdout); + /* We must remove this entry to assure the `cmp' binary does not use + the perhaps incompatible new shared libraries. */ + unsetenv ("LD_LIBRARY_PATH"); + asprintf (&printbuf, "cmp %s %s", inname, outname); result = system (printbuf); remove (inname); diff --git a/stdio-common/test-popen.c b/stdio-common/test-popen.c index a17606e503..426da4a24c 100644 --- a/stdio-common/test-popen.c +++ b/stdio-common/test-popen.c @@ -1,9 +1,27 @@ -#include <ansidecl.h> +/* 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 <stdio.h> #include <stdlib.h> void -DEFUN(write_data, (stream), FILE *stream) +write_data (FILE *stream) { int i; for (i=0; i<100; i++) @@ -15,7 +33,7 @@ DEFUN(write_data, (stream), FILE *stream) } void -DEFUN(read_data, (stream), FILE *stream) +read_data (FILE *stream) { int i, j; @@ -32,11 +50,15 @@ DEFUN(read_data, (stream), FILE *stream) } int -DEFUN_VOID(main) +main (void) { FILE *output, *input; int wstatus, rstatus; + /* We must remove this entry to assure the `cat' binary does not use + the perhaps incompatible new shared libraries. */ + unsetenv ("LD_LIBRARY_PATH"); + output = popen ("/bin/cat >/tmp/tstpopen.tmp", "w"); if (output == NULL) { diff --git a/sysdeps/libm-i387/s_cexp.S b/sysdeps/libm-i387/s_cexp.S new file mode 100644 index 0000000000..48e002b2f6 --- /dev/null +++ b/sysdeps/libm-i387/s_cexp.S @@ -0,0 +1,248 @@ +/* ix87 specific implementation of complex exponential function for double. + Copyright (C) 1997 Free Software Foundation, Inc. + This file is part of the GNU C Library. + Contributed by Ulrich Drepper <drepper@cygnus.com>, 1997. + + 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 <sysdep.h> + +#ifdef __ELF__ + .section .rodata +#else + .text +#endif + .align ALIGNARG(4) + ASM_TYPE_DIRECTIVE(huge_nan_null_null,@object) +huge_nan_null_null: + .byte 0, 0, 0, 0, 0, 0, 0xf0, 0x7f + .byte 0, 0, 0, 0, 0, 0, 0xff, 0x7f + .double 0.0 + .double 0.0 + .byte 0, 0, 0, 0, 0, 0, 0xf0, 0x7f + .byte 0, 0, 0, 0, 0, 0, 0xff, 0x7f + .double 0.0 + .byte 0, 0, 0, 0, 0, 0, 0, 0x80 + ASM_SIZE_DIRECTIVE(huge_nan_null_null) + + ASM_TYPE_DIRECTIVE(twopi,@object) +twopi: + .byte 0x35, 0xc2, 0x68, 0x21, 0xa2, 0xda, 0xf, 0xc9, 0x1, 0x40 + .byte 0, 0, 0, 0, 0, 0 + ASM_SIZE_DIRECTIVE(twopi) + + ASM_TYPE_DIRECTIVE(l2e,@object) +l2e: + .byte 0xbc, 0xf0, 0x17, 0x5c, 0x29, 0x3b, 0xaa, 0xb8, 0xff, 0x3f + .byte 0, 0, 0, 0, 0, 0 + ASM_SIZE_DIRECTIVE(l2e) + + ASM_TYPE_DIRECTIVE(one,@object) +one: .double 1.0 + ASM_SIZE_DIRECTIVE(one) + + +#ifdef PIC +#define MO(op) op##@GOTOFF(%ecx) +#define MOX(op,x,f) op##@GOTOFF(%ecx,x,f) +#else +#define MO(op) op +#define MOX(op,x,f) op(,x,f) +#endif + + .text +ENTRY(__cexp) + fldl 8(%esp) /* x */ + fxam + fnstsw + fldl 16(%esp) /* y : x */ +#ifdef PIC + call 1f +1: popl %ecx + addl $_GLOBAL_OFFSET_TABLE_+[.-1b], %ecx +#endif + movb %ah, %dh + andb $0x45, %ah + cmpb $0x05, %ah + je 1f /* Jump if real part is +-Inf */ + cmpb $0x01, %ah + je 2f /* Jump if real part is NaN */ + + fxam /* y : x */ + fnstsw + /* If the imaginary part is not finite we return NaN+i NaN, as + for the case when the real part is NaN. A test for +-Inf and + NaN would be necessary. But since we know the stack register + we applied `fxam' to is not empty we can simply use one test. + Check your FPU manual for more information. */ + andb $0x01, %ah + cmpb $0x01, %ah + je 2f + + /* We have finite numbers in the real and imaginary part. Do + the real work now. */ + fxch /* x : y */ + fldt MO(l2e) /* log2(e) : x : y */ + fmulp /* x * log2(e) : y */ + fld %st /* x * log2(e) : x * log2(e) : y */ + frndint /* int(x * log2(e)) : x * log2(e) : y */ + fsubr %st, %st(1) /* int(x * log2(e)) : frac(x * log2(e)) : y */ + fxch /* frac(x * log2(e)) : int(x * log2(e)) : y */ + f2xm1 /* 2^frac(x * log2(e))-1 : int(x * log2(e)) : y */ + faddl MO(one) /* 2^frac(x * log2(e)) : int(x * log2(e)) : y */ + fscale /* e^x : int(x * log2(e)) : y */ + fst %st(1) /* e^x : e^x : y */ + fxch %st(2) /* y : e^x : e^x */ + fsincos /* cos(y) : sin(y) : e^x : e^x */ + fnstsw + testl $0x400, %eax + jnz 7f + fmulp %st, %st(3) /* sin(y) : e^x : e^x * cos(y) */ + fmulp %st, %st(1) /* e^x * sin(y) : e^x * cos(y) */ + movl 4(%esp), %eax /* Pointer to memory for result. */ + fstpl 8(%eax) + fstpl (%eax) + ret $4 + + /* We have to reduce the argument to fsincos. */ + .align ALIGNARG(4) +7: fldt MO(twopi) /* 2*pi : y : e^x : e^x */ + fxch /* y : 2*pi : e^x : e^x */ +8: fprem1 /* y%(2*pi) : 2*pi : e^x : e^x */ + fnstsw + testl $0x400, %eax + jnz 8b + fstp %st(1) /* y%(2*pi) : e^x : e^x */ + fsincos /* cos(y) : sin(y) : e^x : e^x */ + fmulp %st, %st(3) + fmulp %st, %st(1) + movl 4(%esp), %eax /* Pointer to memory for result. */ + fstpl 8(%eax) + fstpl (%eax) + ret $4 + + /* The real part is +-inf. We must make further differences. */ + .align ALIGNARG(4) +1: fxam /* y : x */ + fnstsw + movb %ah, %dl + andb $0x01, %ah /* See above why 0x01 is usable here. */ + cmpb $0x01, %ah + je 3f + + + /* The real part is +-Inf and the imaginary part is finite. */ + andl $0x245, %edx + cmpb $0x40, %dl /* Imaginary part == 0? */ + je 4f /* Yes -> */ + + fxch /* x : y */ + shrl $5, %edx + fstp %st(0) /* y */ /* Drop the real part. */ + andl $16, %edx /* This puts the sign bit of the real part + in bit 4. So we can use it to index a + small array to select 0 or Inf. */ + fsincos /* cos(y) : sin(y) */ + fnstsw + testl $0x0400, %eax + jnz 5f + fldl MOX(huge_nan_null_null,%edx,1) + movl 4(%esp), %edx /* Pointer to memory for result. */ + fstl 8(%edx) + fstpl (%edx) + ftst + fnstsw + shll $23, %eax + andl $0x80000000, %eax + orl %eax, 4(%edx) + fstp %st(0) + ftst + fnstsw + shll $23, %eax + andl $0x80000000, %eax + orl %eax, 12(%edx) + fstp %st(0) + ret $4 + /* We must reduce the argument to fsincos. */ + .align ALIGNARG(4) +5: fldt MO(twopi) + fxch +6: fprem1 + fnstsw + testl $0x400, %eax + jnz 6b + fstp %st(1) + fsincos + fldl MOX(huge_nan_null_null,%edx,1) + movl 4(%esp), %edx /* Pointer to memory for result. */ + fstl 8(%edx) + fstpl (%edx) + ftst + fnstsw + shll $23, %eax + andl $0x80000000, %eax + orl %eax, 4(%edx) + fstp %st(0) + ftst + fnstsw + shll $23, %eax + andl $0x80000000, %eax + orl %eax, 12(%edx) + fstp %st(0) + ret $4 + + /* The real part is +-Inf and the imaginary part is +-0. So return + +-Inf+-0i. */ + .align ALIGNARG(4) +4: movl 4(%esp), %eax /* Pointer to memory for result. */ + fstpl 8(%eax) + shrl $5, %edx + fstp %st(0) + andl $16, %edx + fldl MOX(huge_nan_null_null,%edx,1) + fstpl (%eax) + ret $4 + + /* The real part is +-Inf, the imaginary is also is not finite. */ + .align ALIGNARG(4) +3: fstp %st(0) + fstp %st(0) /* <empty> */ + movl %edx, %eax + shrl $5, %edx + shll $4, %eax + andl $16, %edx + andl $32, %eax + orl %eax, %edx + movl 4(%esp), %eax /* Pointer to memory for result. */ + + fldl MOX(huge_nan_null_null,%edx,1) + fldl MOX(huge_nan_null_null+8,%edx,1) + fstpl 8(%eax) + fstpl (%eax) + ret $4 + + /* The real part is NaN. */ + .align ALIGNARG(4) +2: fstp %st(0) + fstp %st(0) + movl 4(%esp), %eax /* Pointer to memory for result. */ + fldl MO(huge_nan_null_null+8) + fstl (%eax) + fstpl 8(%eax) + ret $4 + +END(__cexp) +weak_alias (__cexp, cexp) diff --git a/sysdeps/libm-i387/s_cexpf.S b/sysdeps/libm-i387/s_cexpf.S new file mode 100644 index 0000000000..6fd414b045 --- /dev/null +++ b/sysdeps/libm-i387/s_cexpf.S @@ -0,0 +1,245 @@ +/* ix87 specific implementation of complex exponential function for double. + Copyright (C) 1997 Free Software Foundation, Inc. + This file is part of the GNU C Library. + Contributed by Ulrich Drepper <drepper@cygnus.com>, 1997. + + 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 <sysdep.h> + +#ifdef __ELF__ + .section .rodata +#else + .text +#endif + .align ALIGNARG(4) + ASM_TYPE_DIRECTIVE(huge_nan_null_null,@object) +huge_nan_null_null: + .byte 0, 0, 0x80, 0x7f + .byte 0, 0, 0xc0, 0x7f + .float 0.0 + .float 0.0 + .byte 0, 0, 0x80, 0x7f + .byte 0, 0, 0xc0, 0x7f + .float 0.0 + .byte 0, 0, 0, 0x80 + ASM_SIZE_DIRECTIVE(huge_nan_null_null) + + ASM_TYPE_DIRECTIVE(twopi,@object) +twopi: + .byte 0x35, 0xc2, 0x68, 0x21, 0xa2, 0xda, 0xf, 0xc9, 0x1, 0x40 + .byte 0, 0, 0, 0, 0, 0 + ASM_SIZE_DIRECTIVE(twopi) + + ASM_TYPE_DIRECTIVE(l2e,@object) +l2e: + .byte 0xbc, 0xf0, 0x17, 0x5c, 0x29, 0x3b, 0xaa, 0xb8, 0xff, 0x3f + .byte 0, 0, 0, 0, 0, 0 + ASM_SIZE_DIRECTIVE(l2e) + + ASM_TYPE_DIRECTIVE(one,@object) +one: .double 1.0 + ASM_SIZE_DIRECTIVE(one) + + +#ifdef PIC +#define MO(op) op##@GOTOFF(%ecx) +#define MOX(op,x,f) op##@GOTOFF(%ecx,x,f) +#else +#define MO(op) op +#define MOX(op,x,f) op(,x,f) +#endif + + .text +ENTRY(__cexpf) + flds 4(%esp) /* x */ + fxam + fnstsw + flds 8(%esp) /* y : x */ +#ifdef PIC + call 1f +1: popl %ecx + addl $_GLOBAL_OFFSET_TABLE_+[.-1b], %ecx +#endif + movb %ah, %dh + andb $0x45, %ah + cmpb $0x05, %ah + je 1f /* Jump if real part is +-Inf */ + cmpb $0x01, %ah + je 2f /* Jump if real part is NaN */ + + fxam /* y : x */ + fnstsw + /* If the imaginary part is not finite we return NaN+i NaN, as + for the case when the real part is NaN. A test for +-Inf and + NaN would be necessary. But since we know the stack register + we applied `fxam' to is not empty we can simply use one test. + Check your FPU manual for more information. */ + andb $0x01, %ah + cmpb $0x01, %ah + je 2f + + /* We have finite numbers in the real and imaginary part. Do + the real work now. */ + fxch /* x : y */ + fldt MO(l2e) /* log2(e) : x : y */ + fmulp /* x * log2(e) : y */ + fld %st /* x * log2(e) : x * log2(e) : y */ + frndint /* int(x * log2(e)) : x * log2(e) : y */ + fsubr %st, %st(1) /* int(x * log2(e)) : frac(x * log2(e)) : y */ + fxch /* frac(x * log2(e)) : int(x * log2(e)) : y */ + f2xm1 /* 2^frac(x * log2(e))-1 : int(x * log2(e)) : y */ + faddl MO(one) /* 2^frac(x * log2(e)) : int(x * log2(e)) : y */ + fscale /* e^x : int(x * log2(e)) : y */ + fst %st(1) /* e^x : e^x : y */ + fxch %st(2) /* y : e^x : e^x */ + fsincos /* cos(y) : sin(y) : e^x : e^x */ + fnstsw + testl $0x400, %eax + jnz 7f + fmulp %st, %st(3) /* sin(y) : e^x : e^x * cos(y) */ + fmulp %st, %st(1) /* e^x * sin(y) : e^x * cos(y) */ + subl $8, %esp + fstps 4(%esp) + fstps (%esp) + popl %eax + popl %edx + ret + + /* We have to reduce the argument to fsincos. */ + .align ALIGNARG(4) +7: fldt MO(twopi) /* 2*pi : y : e^x : e^x */ + fxch /* y : 2*pi : e^x : e^x */ +8: fprem1 /* y%(2*pi) : 2*pi : e^x : e^x */ + fnstsw + testl $0x400, %eax + jnz 8b + fstp %st(1) /* y%(2*pi) : e^x : e^x */ + fsincos /* cos(y) : sin(y) : e^x : e^x */ + fmulp %st, %st(3) + fmulp %st, %st(1) + subl $8, %esp + fstps 4(%esp) + fstps (%esp) + popl %eax + popl %edx + ret + + /* The real part is +-inf. We must make further differences. */ + .align ALIGNARG(4) +1: fxam /* y : x */ + fnstsw + movb %ah, %dl + andb $0x01, %ah /* See above why 0x01 is usable here. */ + cmpb $0x01, %ah + je 3f + + + /* The real part is +-Inf and the imaginary part is finite. */ + andl $0x245, %edx + cmpb $0x40, %dl /* Imaginary part == 0? */ + je 4f /* Yes -> */ + + fxch /* x : y */ + shrl $6, %edx + fstp %st(0) /* y */ /* Drop the real part. */ + andl $8, %edx /* This puts the sign bit of the real part + in bit 3. So we can use it to index a + small array to select 0 or Inf. */ + fsincos /* cos(y) : sin(y) */ + fnstsw + testl $0x0400, %eax + jnz 5f + fxch + ftst + fnstsw + fstp %st(0) + shll $23, %eax + andl $0x80000000, %eax + orl MOX(huge_nan_null_null,%edx,1), %eax + movl MOX(huge_nan_null_null,%edx,1), %ecx + movl %eax, %edx + ftst + fnstsw + fstp %st(0) + shll $23, %eax + andl $0x80000000, %eax + orl %ecx, %eax + ret + /* We must reduce the argument to fsincos. */ + .align ALIGNARG(4) +5: fldt MO(twopi) + fxch +6: fprem1 + fnstsw + testl $0x400, %eax + jnz 6b + fstp %st(1) + fsincos + fxch + ftst + fnstsw + fstp %st(0) + shll $23, %eax + andl $0x80000000, %eax + orl MOX(huge_nan_null_null,%edx,1), %eax + movl MOX(huge_nan_null_null,%edx,1), %ecx + movl %eax, %edx + ftst + fnstsw + fstp %st(0) + shll $23, %eax + andl $0x80000000, %eax + orl %ecx, %eax + ret + + /* The real part is +-Inf and the imaginary part is +-0. So return + +-Inf+-0i. */ + .align ALIGNARG(4) +4: subl $4, %esp + fstps (%esp) + shrl $6, %edx + fstp %st(0) + andl $8, %edx + movl MOX(huge_nan_null_null,%edx,1), %eax + popl %edx + ret + + /* The real part is +-Inf, the imaginary is also is not finite. */ + .align ALIGNARG(4) +3: fstp %st(0) + fstp %st(0) /* <empty> */ + movl %edx, %eax + shrl $6, %edx + shll $3, %eax + andl $8, %edx + andl $16, %eax + orl %eax, %edx + + movl MOX(huge_nan_null_null,%edx,1), %eax + movl MOX(huge_nan_null_null+4,%edx,1), %edx + ret + + /* The real part is NaN. */ + .align ALIGNARG(4) +2: fstp %st(0) + fstp %st(0) + movl MO(huge_nan_null_null+4), %eax + movl %eax, %edx + ret + +END(__cexpf) +weak_alias (__cexpf, cexpf) diff --git a/sysdeps/libm-i387/s_cexpl.S b/sysdeps/libm-i387/s_cexpl.S new file mode 100644 index 0000000000..fa31e74162 --- /dev/null +++ b/sysdeps/libm-i387/s_cexpl.S @@ -0,0 +1,249 @@ +/* ix87 specific implementation of complex exponential function for double. + Copyright (C) 1997 Free Software Foundation, Inc. + This file is part of the GNU C Library. + Contributed by Ulrich Drepper <drepper@cygnus.com>, 1997. + + 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 <sysdep.h> + +#ifdef __ELF__ + .section .rodata +#else + .text +#endif + .align ALIGNARG(4) + ASM_TYPE_DIRECTIVE(huge_nan_null_null,@object) +huge_nan_null_null: + .byte 0, 0, 0, 0, 0, 0, 0xf0, 0x7f + .byte 0, 0, 0, 0, 0, 0, 0xff, 0x7f + .double 0.0 + .double 0.0 + .byte 0, 0, 0, 0, 0, 0, 0xf0, 0x7f + .byte 0, 0, 0, 0, 0, 0, 0xff, 0x7f + .double 0.0 + .byte 0, 0, 0, 0, 0, 0, 0, 0x80 + ASM_SIZE_DIRECTIVE(huge_nan_null_null) + + ASM_TYPE_DIRECTIVE(twopi,@object) +twopi: + .byte 0x35, 0xc2, 0x68, 0x21, 0xa2, 0xda, 0xf, 0xc9, 0x1, 0x40 + .byte 0, 0, 0, 0, 0, 0 + ASM_SIZE_DIRECTIVE(twopi) + + ASM_TYPE_DIRECTIVE(l2e,@object) +l2e: + .byte 0xbc, 0xf0, 0x17, 0x5c, 0x29, 0x3b, 0xaa, 0xb8, 0xff, 0x3f + .byte 0, 0, 0, 0, 0, 0 + ASM_SIZE_DIRECTIVE(l2e) + + ASM_TYPE_DIRECTIVE(one,@object) +one: .double 1.0 + ASM_SIZE_DIRECTIVE(one) + + +#ifdef PIC +#define MO(op) op##@GOTOFF(%ecx) +#define MOX(op,x,f) op##@GOTOFF(%ecx,x,f) +#else +#define MO(op) op +#define MOX(op,x,f) op(,x,f) +#endif + + .text +ENTRY(__cexpl) + fldt 8(%esp) /* x */ + fxam + fnstsw + fldt 20(%esp) /* y : x */ +#ifdef PIC + call 1f +1: popl %ecx + addl $_GLOBAL_OFFSET_TABLE_+[.-1b], %ecx +#endif + movb %ah, %dh + andb $0x45, %ah + cmpb $0x05, %ah + je 1f /* Jump if real part is +-Inf */ + cmpb $0x01, %ah + je 2f /* Jump if real part is NaN */ + + fxam /* y : x */ + fnstsw + /* If the imaginary part is not finite we return NaN+i NaN, as + for the case when the real part is NaN. A test for +-Inf and + NaN would be necessary. But since we know the stack register + we applied `fxam' to is not empty we can simply use one test. + Check your FPU manual for more information. */ + andb $0x01, %ah + cmpb $0x01, %ah + je 2f + + /* We have finite numbers in the real and imaginary part. Do + the real work now. */ + fxch /* x : y */ + fldt MO(l2e) /* log2(e) : x : y */ + fmulp /* x * log2(e) : y */ + fld %st /* x * log2(e) : x * log2(e) : y */ + frndint /* int(x * log2(e)) : x * log2(e) : y */ + fsubr %st, %st(1) /* int(x * log2(e)) : frac(x * log2(e)) : y */ + fxch /* frac(x * log2(e)) : int(x * log2(e)) : y */ + f2xm1 /* 2^frac(x * log2(e))-1 : int(x * log2(e)) : y */ + faddl MO(one) /* 2^frac(x * log2(e)) : int(x * log2(e)) : y */ + fscale /* e^x : int(x * log2(e)) : y */ + fst %st(1) /* e^x : e^x : y */ + fxch %st(2) /* y : e^x : e^x */ + fsincos /* cos(y) : sin(y) : e^x : e^x */ + fnstsw + testl $0x400, %eax + jnz 7f + fmulp %st, %st(3) /* sin(y) : e^x : e^x * cos(y) */ + fmulp %st, %st(1) /* e^x * sin(y) : e^x * cos(y) */ + movl 4(%esp), %eax /* Pointer to memory for result. */ + fstpt 12(%eax) + fstpt (%eax) + ret $4 + + /* We have to reduce the argument to fsincos. */ + .align ALIGNARG(4) +7: fldt MO(twopi) /* 2*pi : y : e^x : e^x */ + fxch /* y : 2*pi : e^x : e^x */ +8: fprem1 /* y%(2*pi) : 2*pi : e^x : e^x */ + fnstsw + testl $0x400, %eax + jnz 8b + fstp %st(1) /* y%(2*pi) : e^x : e^x */ + fsincos /* cos(y) : sin(y) : e^x : e^x */ + fmulp %st, %st(3) + fmulp %st, %st(1) + movl 4(%esp), %eax /* Pointer to memory for result. */ + fstpt 12(%eax) + fstpt (%eax) + ret $4 + + /* The real part is +-inf. We must make further differences. */ + .align ALIGNARG(4) +1: fxam /* y : x */ + fnstsw + movb %ah, %dl + andb $0x01, %ah /* See above why 0x01 is usable here. */ + cmpb $0x01, %ah + je 3f + + + /* The real part is +-Inf and the imaginary part is finite. */ + andl $0x245, %edx + cmpb $0x40, %dl /* Imaginary part == 0? */ + je 4f /* Yes -> */ + + fxch /* x : y */ + shrl $5, %edx + fstp %st(0) /* y */ /* Drop the real part. */ + andl $16, %edx /* This puts the sign bit of the real part + in bit 4. So we can use it to index a + small array to select 0 or Inf. */ + fsincos /* cos(y) : sin(y) */ + fnstsw + testl $0x0400, %eax + jnz 5f + fldl MOX(huge_nan_null_null,%edx,1) + movl 4(%esp), %edx /* Pointer to memory for result. */ + fstl 8(%edx) + fstpl (%edx) + ftst + fnstsw + shll $7, %eax + andl $0x8000, %eax + orl %eax, 8(%edx) + fstp %st(0) + ftst + fnstsw + shll $7, %eax + andl $0x8000, %eax + orl %eax, 20(%edx) + fstp %st(0) + ret $4 + /* We must reduce the argument to fsincos. */ + .align ALIGNARG(4) +5: fldt MO(twopi) + fxch +6: fprem1 + fnstsw + testl $0x400, %eax + jnz 6b + fstp %st(1) + fsincos + fldl MOX(huge_nan_null_null,%edx,1) + movl 4(%esp), %edx /* Pointer to memory for result. */ + fstl 8(%edx) + fstpl (%edx) + ftst + fnstsw + shll $7, %eax + andl $0x8000, %eax + orl %eax, 8(%edx) + fstp %st(0) + ftst + fnstsw + shll $7, %eax + andl $0x8000, %eax + orl %eax, 20(%edx) + fstp %st(0) + ret $4 + + /* The real part is +-Inf and the imaginary part is +-0. So return + +-Inf+-0i. */ + .align ALIGNARG(4) +4: movl 4(%esp), %eax /* Pointer to memory for result. */ + fstpt 12(%eax) + shrl $5, %edx + fstp %st(0) + andl $16, %edx + fldl MOX(huge_nan_null_null,%edx,1) + fstpt (%eax) + ret $4 + + /* The real part is +-Inf, the imaginary is also is not finite. */ + .align ALIGNARG(4) +3: fstp %st(0) + fstp %st(0) /* <empty> */ + movl %edx, %eax + shrl $5, %edx + shll $4, %eax + andl $16, %edx + andl $32, %eax + orl %eax, %edx + movl 4(%esp), %eax /* Pointer to memory for result. */ + + fldl MOX(huge_nan_null_null,%edx,1) + fldl MOX(huge_nan_null_null+8,%edx,1) + fstpt 12(%eax) + fstpt (%eax) + ret $4 + + /* The real part is NaN. */ + .align ALIGNARG(4) +2: fstp %st(0) + fstp %st(0) + movl 4(%esp), %eax /* Pointer to memory for result. */ + fldl MO(huge_nan_null_null+8) + fld %st(0) + fstpt (%eax) + fstpt 12(%eax) + ret $4 + +END(__cexpl) +weak_alias (__cexpl, cexpl) diff --git a/sysdeps/libm-ieee754/s_ccosh.c b/sysdeps/libm-ieee754/s_ccosh.c new file mode 100644 index 0000000000..f01b245e77 --- /dev/null +++ b/sysdeps/libm-ieee754/s_ccosh.c @@ -0,0 +1,95 @@ +/* Complex cosine hyperbole function for double. + Copyright (C) 1997 Free Software Foundation, Inc. + This file is part of the GNU C Library. + Contributed by Ulrich Drepper <drepper@cygnus.com>, 1997. + + 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 <complex.h> +#include <math.h> + + +__complex__ double +__ccosh (__complex__ double x) +{ + __complex__ double retval; + + __real__ x = fabs (__real__ x); + + if (isfinite (__real__ x)) + { + if (isfinite (__imag__ x)) + { + double exp_val = __exp (__real__ x); + double rec_exp_val = 1.0 / exp_val; + + __real__ retval = 0.5 * (exp_val + rec_exp_val) * __cos (__imag__ x); + __imag__ retval = 0.5 * (exp_val + rec_exp_val) * __sin (__imag__ x); + } + else + { + if (__real__ x == 0) + { + __imag__ retval = 0.0; + __real__ retval = __nan ("") + __nan (""); + } + else + { + __real__ retval = __nan (""); + __imag__ retval = __nan ("") + __nan (""); + } + } + } + else if (__isinf (__real__ x)) + { + if (__imag__ x == 0.0) + { + __real__ retval = HUGE_VAL; + __imag__ retval = __imag__ x; + } + else if (isfinite (__imag__ x)) + { + __real__ retval = __copysign (HUGE_VAL, __cos (__imag__ x)); + __imag__ retval = __copysign (HUGE_VAL, __sin (__imag__ x)); + } + else + { + /* The addition raises the invalid exception. */ + __real__ retval = HUGE_VAL; + __imag__ retval = __nan ("") + __nan (""); + } + } + else + { + if (__imag__ x == 0.0) + { + __real__ retval = __nan (""); + __imag__ retval = __imag__ x; + } + else + { + __real__ retval = __nan (""); + __imag__ retval = __nan (""); + } + } + + return retval; +} +weak_alias (__ccosh, ccosh) +#ifdef NO_LONG_DOUBLE +strong_alias (__ccosh, __ccoshl) +weak_alias (__ccosh, ccoshl) +#endif diff --git a/sysdeps/libm-ieee754/s_ccoshf.c b/sysdeps/libm-ieee754/s_ccoshf.c new file mode 100644 index 0000000000..9f2774b6c7 --- /dev/null +++ b/sysdeps/libm-ieee754/s_ccoshf.c @@ -0,0 +1,93 @@ +/* Complex cosine hyperbole function for float. + Copyright (C) 1997 Free Software Foundation, Inc. + This file is part of the GNU C Library. + Contributed by Ulrich Drepper <drepper@cygnus.com>, 1997. + + 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 <complex.h> +#include <math.h> + + +__complex__ float +__ccoshf (__complex__ float x) +{ + __complex__ float retval; + + __real__ x = fabsf (__real__ x); + + if (isfinite (__real__ x)) + { + if (isfinite (__imag__ x)) + { + float exp_val = __expf (__real__ x); + float rec_exp_val = 1.0 / exp_val; + + __real__ retval = (0.5 * (exp_val + rec_exp_val) + * __cosf (__imag__ x)); + __imag__ retval = (0.5 * (exp_val + rec_exp_val) + * __sinf (__imag__ x)); + } + else + { + if (__real__ x == 0) + { + __imag__ retval = 0.0; + __real__ retval = __nanf ("") + __nanf (""); + } + else + { + __real__ retval = __nanf (""); + __imag__ retval = __nanf ("") + __nanf (""); + } + } + } + else if (__isinff (__real__ x)) + { + if (__imag__ x == 0.0) + { + __real__ retval = HUGE_VALF; + __imag__ retval = __imag__ x; + } + else if (isfinite (__imag__ x)) + { + __real__ retval = __copysignf (HUGE_VALF, __cosf (__imag__ x)); + __imag__ retval = __copysignf (HUGE_VALF, __sinf (__imag__ x)); + } + else + { + /* The addition raises the invalid exception. */ + __real__ retval = HUGE_VALF; + __imag__ retval = __nanf ("") + __nanf (""); + } + } + else + { + if (__imag__ x == 0.0) + { + __real__ retval = __nanf (""); + __imag__ retval = __imag__ x; + } + else + { + __real__ retval = __nanf (""); + __imag__ retval = __nanf (""); + } + } + + return retval; +} +weak_alias (__ccoshf, ccoshf) diff --git a/sysdeps/libm-ieee754/s_ccoshl.c b/sysdeps/libm-ieee754/s_ccoshl.c new file mode 100644 index 0000000000..fd553418b4 --- /dev/null +++ b/sysdeps/libm-ieee754/s_ccoshl.c @@ -0,0 +1,93 @@ +/* Complex cosine hyperbole function for long double. + Copyright (C) 1997 Free Software Foundation, Inc. + This file is part of the GNU C Library. + Contributed by Ulrich Drepper <drepper@cygnus.com>, 1997. + + 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 <complex.h> +#include <math.h> + + +__complex__ long double +__ccoshl (__complex__ long double x) +{ + __complex__ long double retval; + + __real__ x = fabsl (__real__ x); + + if (isfinite (__real__ x)) + { + if (isfinite (__imag__ x)) + { + long double exp_val = __expl (__real__ x); + long double rec_exp_val = 1.0 / exp_val; + + __real__ retval = (0.5 * (exp_val + rec_exp_val) + * __cosl (__imag__ x)); + __imag__ retval = (0.5 * (exp_val + rec_exp_val) + * __sinl (__imag__ x)); + } + else + { + if (__real__ x == 0) + { + __imag__ retval = 0.0; + __real__ retval = __nanl ("") + __nanl (""); + } + else + { + __real__ retval = __nanl (""); + __imag__ retval = __nanl ("") + __nanl (""); + } + } + } + else if (__isinfl (__real__ x)) + { + if (__imag__ x == 0.0) + { + __real__ retval = HUGE_VALL; + __imag__ retval = __imag__ x; + } + else if (isfinite (__imag__ x)) + { + __real__ retval = __copysignl (HUGE_VALL, __cosl (__imag__ x)); + __imag__ retval = __copysignl (HUGE_VALL, __sinl (__imag__ x)); + } + else + { + /* The addition raises the invalid exception. */ + __real__ retval = HUGE_VALL; + __imag__ retval = __nanl ("") + __nanl (""); + } + } + else + { + if (__imag__ x == 0.0) + { + __real__ retval = __nanl (""); + __imag__ retval = __imag__ x; + } + else + { + __real__ retval = __nanl (""); + __imag__ retval = __nanl (""); + } + } + + return retval; +} +weak_alias (__ccoshl, ccoshl) diff --git a/sysdeps/libm-ieee754/s_cexp.c b/sysdeps/libm-ieee754/s_cexp.c index 46f9f612eb..233a40014f 100644 --- a/sysdeps/libm-ieee754/s_cexp.c +++ b/sysdeps/libm-ieee754/s_cexp.c @@ -1,4 +1,4 @@ -/* Return value of complex exponential function for double complex value. +/* Return value of complex exponential function for float complex value. Copyright (C) 1997 Free Software Foundation, Inc. This file is part of the GNU C Library. Contributed by Ulrich Drepper <drepper@cygnus.com>, 1997. @@ -31,33 +31,52 @@ __cexp (__complex__ double x) { if (isfinite (__imag__ x)) { - retval = __exp (__real__ x) * (__cos (__imag__ x) - + 1i * __sin (__imag__ x)); + double exp_val = __exp (__real__ x); + + __real__ retval = exp_val * __cos (__imag__ x); + __imag__ retval = exp_val * __sin (__imag__ x); } else - /* If the imaginary part is +-inf or NaN and the real part is - not +-inf the result is NaN + iNan. */ - retval = __nan ("") + 1.0i * __nan (""); + { + /* If the imaginary part is +-inf or NaN and the real part + is not +-inf the result is NaN + iNaN. */ + __real__ retval = __nan (""); + __imag__ retval = __nan (""); + } } else if (__isinf (__real__ x)) { - if (isfinite (__imag x)) + if (isfinite (__imag__ x)) { if (signbit (__real__ x) == 0 && __imag__ x == 0.0) retval = HUGE_VAL; else - retval = ((signbit (__real__ x) ? 0.0 : HUGE_VAL) - * (__cos (__imag__ x) + 1i * __sin (__imag__ x))); + { + double value = signbit (__real__ x) ? 0.0 : HUGE_VAL; + + __real__ retval = value * __cos (__imag__ x); + __imag__ retval = value * __sin (__imag__ x); + } + } + else if (signbit (__real__ x) == 0) + { + __real__ retval = HUGE_VAL; + __imag__ retval = __nan (""); } - else if (signbit (__real__ x)) - retval = HUGE_VAL + 1.0i * __nan (""); else retval = 0.0; } else - /* If the real part is NaN the result is NaN + iNan. */ - retval = __nan ("") + 1.0i * __nan (""); + { + /* If the real part is NaN the result is NaN + iNaN. */ + __real__ retval = __nan (""); + __imag__ retval = __nan (""); + } return retval; } weak_alias (__cexp, cexp) +#ifdef NO_LONG_DOUBLE +string_alias (__cexp, __cexpl) +weak_alias (__cexp, cexpl) +#endif diff --git a/sysdeps/libm-ieee754/s_cexpf.c b/sysdeps/libm-ieee754/s_cexpf.c index 261b18cb3a..c5d8f0cc07 100644 --- a/sysdeps/libm-ieee754/s_cexpf.c +++ b/sysdeps/libm-ieee754/s_cexpf.c @@ -33,8 +33,16 @@ __cexpf (__complex__ float x) { float exp_val = __expf (__real__ x); - __real__ retval = exp_val * __cosf (__imag__ x); - __imag__ retval = exp_val * __sinf (__imag__ x); + if (isfinite (exp_val)) + { + __real__ retval = exp_val * __cosf (__imag__ x); + __imag__ retval = exp_val * __sinf (__imag__ x); + } + else + { + __real__ retval = __copysignf (exp_val, __cosf (__imag__ x)); + __imag__ retval = __copysignf (exp_val, __sinf (__imag__ x)); + } } else { @@ -48,14 +56,17 @@ __cexpf (__complex__ float x) { if (isfinite (__imag__ x)) { - if (signbit (__real__ x) == 0 && __imag__ x == 0.0) - retval = HUGE_VALF; + float value = signbit (__real__ x) ? 0.0 : HUGE_VALF; + + if (__imag__ x == 0.0) + { + __real__ retval = value; + __imag__ retval = __imag__ x; + } else { - float value = signbit (__real__ x) ? 0.0 : HUGE_VALF; - - __real__ retval = value * __cosf (__imag__ x); - __imag__ retval = value * __sinf (__imag__ x); + __real__ retval = __copysignf (value, __cosf (__imag__ x)); + __imag__ retval = __copysignf (value, __sinf (__imag__ x)); } } else if (signbit (__real__ x) == 0) @@ -64,7 +75,10 @@ __cexpf (__complex__ float x) __imag__ retval = __nanf (""); } else - retval = 0.0; + { + __real__ retval = 0.0; + __imag__ retval = __copysignf (0.0, __imag__ x); + } } else { diff --git a/sysdeps/libm-ieee754/s_cexpl.c b/sysdeps/libm-ieee754/s_cexpl.c index 779286f6b3..f1cdf43ec8 100644 --- a/sysdeps/libm-ieee754/s_cexpl.c +++ b/sysdeps/libm-ieee754/s_cexpl.c @@ -33,8 +33,16 @@ __cexpl (__complex__ long double x) { long double exp_val = __expl (__real__ x); - __real__ retval = exp_val * __cosl (__imag__ x); - __imag__ retval = exp_val * __sinl (__imag__ x); + if (isfinite (exp_val)) + { + __real__ retval = exp_val * __cosl (__imag__ x); + __imag__ retval = exp_val * __sinl (__imag__ x); + } + else + { + __real__ retval = __copysignl (exp_val, __cosl (__imag__ x)); + __imag__ retval = __copysignl (exp_val, __sinl (__imag__ x)); + } } else { @@ -48,14 +56,17 @@ __cexpl (__complex__ long double x) { if (isfinite (__imag__ x)) { - if (signbit (__real__ x) == 0 && __imag__ x == 0.0) - retval = HUGE_VAL; + long double value = signbit (__real__ x) ? 0.0 : HUGE_VALL; + + if (__imag__ x == 0.0) + { + __real__ retval = value; + __imag__ retval = __imag__ x; + } else { - long double value = signbit (__real__ x) ? 0.0 : HUGE_VALL; - - __real__ retval = value * __cosl (__imag__ x); - __imag__ retval = value * __sinl (__imag__ x); + __real__ retval = __copysignl (value, __cosl (__imag__ x)); + __imag__ retval = __copysignl (value, __sinl (__imag__ x)); } } else if (signbit (__real__ x) == 0) @@ -64,7 +75,10 @@ __cexpl (__complex__ long double x) __imag__ retval = __nanl (""); } else - retval = 0.0; + { + __real__ retval = 0.0; + __imag__ retval = __copysignl (0.0, __imag__ x); + } } else { diff --git a/sysdeps/libm-ieee754/s_csinh.c b/sysdeps/libm-ieee754/s_csinh.c new file mode 100644 index 0000000000..aab041bdf9 --- /dev/null +++ b/sysdeps/libm-ieee754/s_csinh.c @@ -0,0 +1,102 @@ +/* Complex sine hyperbole function for double. + Copyright (C) 1997 Free Software Foundation, Inc. + This file is part of the GNU C Library. + Contributed by Ulrich Drepper <drepper@cygnus.com>, 1997. + + 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 <complex.h> +#include <math.h> + + +__complex__ double +__csinh (__complex__ double x) +{ + __complex__ double retval; + int negate = signbit (__real__ x); + + __real__ x = fabs (__real__ x); + + if (isfinite (__real__ x)) + { + if (isfinite (__imag__ x)) + { + double exp_val = __exp (__real__ x); + double rec_exp_val = 1.0 / exp_val; + + __real__ retval = 0.5 * (exp_val - rec_exp_val) * __cos (__imag__ x); + __imag__ retval = 0.5 * (exp_val - rec_exp_val) * __sin (__imag__ x); + + if (negate) + __real__ retval = -__real__ retval; + } + else + { + if (__real__ x == 0) + { + __real__ retval = __copysign (0.0, negate ? -1.0 : 1.0); + __imag__ retval = __nan ("") + __nan (""); + } + else + { + __real__ retval = __nan (""); + __imag__ retval = __nan (""); + } + } + } + else if (__isinf (__real__ x)) + { + if (__imag__ x == 0.0) + { + __real__ retval = negate ? -HUGE_VAL : HUGE_VAL; + __imag__ retval = __imag__ x; + } + else if (isfinite (__imag__ x)) + { + __real__ retval = __copysign (HUGE_VAL, __cos (__imag__ x)); + __imag__ retval = __copysign (HUGE_VAL, __sin (__imag__ x)); + + if (negate) + __real__ retval = -__real__ retval; + } + else + { + /* The addition raises the invalid exception. */ + __real__ retval = HUGE_VAL; + __imag__ retval = __nan ("") + __nan (""); + } + } + else + { + if (__imag__ x == 0.0) + { + __real__ retval = __nan (""); + __imag__ retval = __imag__ x; + } + else + { + __real__ retval = __nan (""); + __imag__ retval = __nan (""); + } + } + + return retval; +} +weak_alias (__csinh, csinh) +#ifdef NO_LONG_DOUBLE +strong_alias (__csinh, __csinhl) +weak_alias (__csinh, csinhl) +#endif diff --git a/sysdeps/libm-ieee754/s_csinhf.c b/sysdeps/libm-ieee754/s_csinhf.c new file mode 100644 index 0000000000..204bbfebb9 --- /dev/null +++ b/sysdeps/libm-ieee754/s_csinhf.c @@ -0,0 +1,100 @@ +/* Complex sine hyperbole function for float. + Copyright (C) 1997 Free Software Foundation, Inc. + This file is part of the GNU C Library. + Contributed by Ulrich Drepper <drepper@cygnus.com>, 1997. + + 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 <complex.h> +#include <math.h> + + +__complex__ float +__csinhf (__complex__ float x) +{ + __complex__ float retval; + int negate = signbit (__real__ x); + + __real__ x = fabsf (__real__ x); + + if (isfinite (__real__ x)) + { + if (isfinite (__imag__ x)) + { + float exp_val = __expf (__real__ x); + float rec_exp_val = 1.0 / exp_val; + + __real__ retval = (0.5 * (exp_val - rec_exp_val) + * __cosf (__imag__ x)); + __imag__ retval = (0.5 * (exp_val - rec_exp_val) + * __sinf (__imag__ x)); + + if (negate) + __real__ retval = -__real__ retval; + } + else + { + if (__real__ x == 0) + { + __real__ retval = __copysignf (0.0, negate ? -1.0 : 1.0); + __imag__ retval = __nanf ("") + __nanf (""); + } + else + { + __real__ retval = __nanf (""); + __imag__ retval = __nanf (""); + } + } + } + else if (__isinff (__real__ x)) + { + if (__imag__ x == 0.0) + { + __real__ retval = negate ? -HUGE_VALF : HUGE_VALF; + __imag__ retval = __imag__ x; + } + else if (isfinite (__imag__ x)) + { + __real__ retval = __copysignf (HUGE_VALF, __cosf (__imag__ x)); + __imag__ retval = __copysignf (HUGE_VALF, __sinf (__imag__ x)); + + if (negate) + __real__ retval = -__real__ retval; + } + else + { + /* The addition raises the invalid exception. */ + __real__ retval = HUGE_VALF; + __imag__ retval = __nanf ("") + __nanf (""); + } + } + else + { + if (__imag__ x == 0.0) + { + __real__ retval = __nanf (""); + __imag__ retval = __imag__ x; + } + else + { + __real__ retval = __nanf (""); + __imag__ retval = __nanf (""); + } + } + + return retval; +} +weak_alias (__csinhf, csinhf) diff --git a/sysdeps/libm-ieee754/s_csinhl.c b/sysdeps/libm-ieee754/s_csinhl.c new file mode 100644 index 0000000000..e403dd4796 --- /dev/null +++ b/sysdeps/libm-ieee754/s_csinhl.c @@ -0,0 +1,100 @@ +/* Complex sine hyperbole function for long double. + Copyright (C) 1997 Free Software Foundation, Inc. + This file is part of the GNU C Library. + Contributed by Ulrich Drepper <drepper@cygnus.com>, 1997. + + 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 <complex.h> +#include <math.h> + + +__complex__ long double +__csinhl (__complex__ long double x) +{ + __complex__ long double retval; + int negate = signbit (__real__ x); + + __real__ x = fabs (__real__ x); + + if (isfinite (__real__ x)) + { + if (isfinite (__imag__ x)) + { + long double exp_val = __expl (__real__ x); + long double rec_exp_val = 1.0 / exp_val; + + __real__ retval = (0.5 * (exp_val - rec_exp_val) + * __cosl (__imag__ x)); + __imag__ retval = (0.5 * (exp_val - rec_exp_val) + * __sinl (__imag__ x)); + + if (negate) + __real__ retval = -__real__ retval; + } + else + { + if (__real__ x == 0) + { + __real__ retval = __copysignl (0.0, negate ? -1.0 : 1.0); + __imag__ retval = __nanl ("") + __nanl (""); + } + else + { + __real__ retval = __nanl (""); + __imag__ retval = __nanl (""); + } + } + } + else if (__isinfl (__real__ x)) + { + if (__imag__ x == 0.0) + { + __real__ retval = negate ? -HUGE_VALL : HUGE_VALL; + __imag__ retval = __imag__ x; + } + else if (isfinite (__imag__ x)) + { + __real__ retval = __copysignl (HUGE_VALL, __cosl (__imag__ x)); + __imag__ retval = __copysignl (HUGE_VALL, __sinl (__imag__ x)); + + if (negate) + __real__ retval = -__real__ retval; + } + else + { + /* The addition raises the invalid exception. */ + __real__ retval = HUGE_VALL; + __imag__ retval = __nanl ("") + __nanl (""); + } + } + else + { + if (__imag__ x == 0.0) + { + __real__ retval = __nanl (""); + __imag__ retval = __imag__ x; + } + else + { + __real__ retval = __nanl (""); + __imag__ retval = __nanl (""); + } + } + + return retval; +} +weak_alias (__csinhl, csinhl) diff --git a/sysdeps/posix/getaddrinfo.c b/sysdeps/posix/getaddrinfo.c index 4d32ee02ac..f819bb4c0c 100644 --- a/sysdeps/posix/getaddrinfo.c +++ b/sysdeps/posix/getaddrinfo.c @@ -45,7 +45,7 @@ SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. /* getaddrinfo() v1.13 */ /* To do what POSIX says, even when it's broken: */ -/* #define BROKEN_LIKE_POSIX 1 */ +#define BROKEN_LIKE_POSIX 1 #define LOCAL 1 #define INET6 1 #define HOSTTABLE 0 @@ -168,21 +168,34 @@ static int gaih_local(const char *name, const struct gaih_service *service, }; #endif /* LOCAL */ -static struct gaih_typeproto gaih_inet_typeproto[] = { +static struct gaih_typeproto gaih_inet_typeproto[] = +{ { 0, 0, NULL }, - { SOCK_STREAM, IPPROTO_TCP, (char *)"tcp" }, - { SOCK_DGRAM, IPPROTO_UDP, (char *)"udp" }, + { SOCK_STREAM, IPPROTO_TCP, (char *) "tcp" }, + { SOCK_DGRAM, IPPROTO_UDP, (char *) "udp" }, { 0, 0, NULL } }; static int gaih_inet_serv(char *servicename, struct gaih_typeproto *tp, struct gaih_servtuple **st) { struct servent *s; + int tmpbuflen = 1024; + struct servent ts; + char *tmpbuf = __alloca (tmpbuflen); + while (__getservbyname_r (servicename, tp->name, &ts, tmpbuf, tmpbuflen, &s)) + { + if (errno == ERANGE) + { + tmpbuflen *= 2; + tmpbuf = __alloca (tmpbuflen); + } + else + { + return GAIH_OKIFUNSPEC | -EAI_SERVICE; + } + } - if (!(s = getservbyname(servicename, tp->name))) - return (GAIH_OKIFUNSPEC | -EAI_SERVICE); - - if (!(*st = malloc(sizeof(struct gaih_servtuple)))) + if (!(*st = malloc (sizeof (struct gaih_servtuple)))) return -EAI_MEMORY; (*st)->next = NULL; diff --git a/sysdeps/posix/system.c b/sysdeps/posix/system.c index b1a685c29a..2b8f9cb590 100644 --- a/sysdeps/posix/system.c +++ b/sysdeps/posix/system.c @@ -1,20 +1,20 @@ -/* Copyright (C) 1991, 92, 94, 95, 96 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., 675 Mass Ave, -Cambridge, MA 02139, USA. */ +/* Copyright (C) 1991, 92, 94, 95, 96, 97 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 <stddef.h> #include <stdlib.h> diff --git a/sysdeps/sparc/dl-machine.h b/sysdeps/sparc/dl-machine.h index cadf353878..ceaf9eedce 100644 --- a/sysdeps/sparc/dl-machine.h +++ b/sysdeps/sparc/dl-machine.h @@ -105,7 +105,12 @@ elf_machine_rela (struct link_map *map, const Elf32_Rela *reloc, Elf32_Addr loadbase; if (ELF32_R_TYPE (reloc->r_info) == R_SPARC_RELATIVE) - *reloc_addr += map->l_addr + reloc->r_addend; + { +#ifndef RTLD_BOOTSTRAP + if (map != &_dl_rtld_map) /* Already done in rtld itself. */ +#endif + *reloc_addr += map->l_addr + reloc->r_addend; + } else { Elf32_Addr value; diff --git a/sysdeps/sparc/udiv_qrnnd.S b/sysdeps/sparc/udiv_qrnnd.S index 4cd4f051b3..e5d30679e1 100644 --- a/sysdeps/sparc/udiv_qrnnd.S +++ b/sysdeps/sparc/udiv_qrnnd.S @@ -1,6 +1,6 @@ ! SPARC __udiv_qrnnd division support, used from longlong.h. -! Copyright (C) 1993, 1994 Free Software Foundation, Inc. +! Copyright (C) 1993, 1994, 1997 Free Software Foundation, Inc. ! This file is part of the GNU MP Library. @@ -18,6 +18,8 @@ ! along with the GNU MP Library; see the file COPYING.LIB. If not, write to ! the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. +! +! Added PIC support - May/96, Miguel de Icaza ! INPUT PARAMETERS ! rem_ptr i0 @@ -25,6 +27,7 @@ ! n0 i2 ! d i3 +#include "DEFS.h" #include "sysdep.h" #undef ret /* Kludge for glibc */ @@ -34,16 +37,25 @@ LC0: .double 0r4294967296 LC1: .double 0r2147483648 .align 4 - .global C_SYMBOL_NAME(__udiv_qrnnd) -C_SYMBOL_NAME(__udiv_qrnnd): + .global __udiv_qrnnd +FUNC(__udiv_qrnnd) !#PROLOGUE# 0 save %sp,-104,%sp !#PROLOGUE# 1 st %i1,[%fp-8] ld [%fp-8],%f10 +#ifdef __PIC__ +._XL11: + call ._XL1 + fitod %f10,%f4 +._XL1: + sub %o7,(._XL11-LC0),%o7 + ldd [%o7],%f8 +#else sethi %hi(LC0),%o7 fitod %f10,%f4 ldd [%o7+%lo(LC0)],%f8 +#endif cmp %i1,0 bge L248 mov %i0,%i5 @@ -66,8 +78,17 @@ L249: faddd %f4,%f8,%f4 L250: fdivd %f2,%f4,%f2 +#ifdef __PIC__ +._XL22: + call ._XL2 + nop +._XL2: + sub %o7,(._XL22-LC1),%o7 + ldd [%o7],%f4 +#else sethi %hi(LC1),%o7 ldd [%o7+%lo(LC1)],%f4 +#endif fcmped %f2,%f4 nop fbge,a L251 diff --git a/sysdeps/unix/sysv/linux/sparc/Dist b/sysdeps/unix/sysv/linux/sparc/Dist index b50a46fb68..ab22392c04 100644 --- a/sysdeps/unix/sysv/linux/sparc/Dist +++ b/sysdeps/unix/sysv/linux/sparc/Dist @@ -3,3 +3,5 @@ clone.S start.c pipe.S fork.S +kernel_stat.h +kernel_sigaction.h diff --git a/sysdeps/unix/sysv/linux/sparc/fcntlbits.h b/sysdeps/unix/sysv/linux/sparc/fcntlbits.h new file mode 100644 index 0000000000..3fc7240a66 --- /dev/null +++ b/sysdeps/unix/sysv/linux/sparc/fcntlbits.h @@ -0,0 +1,96 @@ +/* O_*, F_*, FD_* bit values for Linux/SPARC. + Copyright (C) 1995, 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 + 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 _FCNTLBITS_H +#define _FCNTLBITS_H 1 + +#include <sys/types.h> + +/* In GNU, read and write are bits (unlike BSD). */ +#ifdef __USE_GNU +#define O_READ O_RDONLY /* Open for reading. */ +#define O_WRITE O_WRONLY /* Open for writing. */ +#endif + +/* open/fcntl - O_SYNC is only implemented on blocks devices and on files + located on an ext2 file system */ +#define O_RDONLY 0x0000 +#define O_WRONLY 0x0001 +#define O_RDWR 0x0002 +#define O_ACCMODE 0x0003 +#define O_APPEND 0x0008 +#define O_CREAT 0x0200 /* not fcntl */ +#define O_TRUNC 0x0400 /* not fcntl */ +#define O_EXCL 0x0800 /* not fcntl */ +#define O_SYNC 0x2000 +#define O_NONBLOCK 0x4000 +#define O_NDELAY (0x0004 | O_NONBLOCK) +#define O_NOCTTY 0x8000 /* not fcntl */ + +#define F_DUPFD 0 /* dup */ +#define F_GETFD 1 /* get f_flags */ +#define F_SETFD 2 /* set f_flags */ +#define F_GETFL 3 /* more flags (cloexec) */ +#define F_SETFL 4 +#define F_GETOWN 5 /* for sockets. */ +#define F_SETOWN 6 /* for sockets. */ +#define F_GETLK 7 +#define F_SETLK 8 +#define F_SETLKW 9 + +/* for F_[GET|SET]FL */ +#define FD_CLOEXEC 1 /* actually anything with low bit set goes */ + +/* for posix fcntl() and lockf() */ +#define F_RDLCK 1 +#define F_WRLCK 2 +#define F_UNLCK 3 + +/* for old implementation of bsd flock () */ +#define F_EXLCK 4 /* or 3 */ +#define F_SHLCK 8 /* or 4 */ + +/* operations for bsd flock(), also used by the kernel implementation */ +#define LOCK_SH 1 /* shared lock */ +#define LOCK_EX 2 /* exclusive lock */ +#define LOCK_NB 4 /* or'd with one of the above to prevent + blocking */ +#define LOCK_UN 8 /* remove lock */ + +struct flock + { + short int l_type; + short int l_whence; + __off_t l_start; + __off_t l_len; + __pid_t l_pid; + short int __unused; + }; + +/* Define some more compatibility macros to be backward compatible with + BSD systems which did not managed to hide these kernel macros. */ +#ifdef __USE_BSD +#define FAPPEND O_APPEND +#define FFSYNC O_FSYNC +#define FASYNC O_ASYNC +#define FNONBLOCK O_NONBLOCK +#define FNDELAY O_NDELAY +#endif /* Use BSD. */ + +#endif diff --git a/sysdeps/unix/sysv/linux/sparc/ioctls.h b/sysdeps/unix/sysv/linux/sparc/ioctls.h new file mode 100644 index 0000000000..80b2e62e77 --- /dev/null +++ b/sysdeps/unix/sysv/linux/sparc/ioctls.h @@ -0,0 +1,39 @@ +/* Copyright (C) 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 + 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 _IOCTLS_H +#define _IOCTLS_H 1 + +/* Use the definitions from the kernel header files. */ +#include <asm/ioctls.h> +#include <sys/kernel_termios.h> + +/* Oh well, this is necessary since the kernel data structure is + different from the user-level version. */ +#undef TCGETS +#undef TCSETS +#undef TCSETSW +#undef TCSETSF +#define TCGETS _IOR ('t', 19, struct __kernel_termios) +#define TCSETS _IOW ('t', 20, struct __kernel_termios) +#define TCSETSW _IOW ('t', 21, struct __kernel_termios) +#define TCSETSF _IOW ('t', 22, struct __kernel_termios) + +#include <linux/sockios.h> + +#endif /* ioctls.h */ diff --git a/sysdeps/unix/sysv/linux/sparc/kernel_sigaction.h b/sysdeps/unix/sysv/linux/sparc/kernel_sigaction.h new file mode 100644 index 0000000000..f870d15082 --- /dev/null +++ b/sysdeps/unix/sysv/linux/sparc/kernel_sigaction.h @@ -0,0 +1,12 @@ +/* Linux/SPARC version. This is the sigaction struction from the Linux + 2.1.20 kernel. */ + +struct sigaction + { + __sighandler_t sa_handler; + sigset_t sa_mask; + unsigned long int sa_flags; + void (*sa_restorer) (void); /* not used by Linux/SPARC yet */ + }; + +#define HAVE_SA_RESTORER diff --git a/sysdeps/unix/sysv/linux/sparc/kernel_stat.h b/sysdeps/unix/sysv/linux/sparc/kernel_stat.h new file mode 100644 index 0000000000..993a8664dc --- /dev/null +++ b/sysdeps/unix/sysv/linux/sparc/kernel_stat.h @@ -0,0 +1,21 @@ +/* Definition of `struct stat' used in the kernel */ +struct kernel_stat + { + unsigned short int st_dev; + unsigned long int st_ino; + unsigned short int st_mode; + short int st_nlink; + unsigned short int st_uid; + unsigned short int st_gid; + unsigned short int st_rdev; + long int st_size; + long int st_atime; + unsigned long int __unused1; + long int st_mtime; + unsigned long int __unused2; + long int st_ctime; + unsigned long int __unused3; + long int st_blksize; + long int st_blocks; + unsigned long int __unused4[2]; + }; diff --git a/sysdeps/unix/sysv/linux/sparc/sigaction.h b/sysdeps/unix/sysv/linux/sparc/sigaction.h new file mode 100644 index 0000000000..19aa7e39cb --- /dev/null +++ b/sysdeps/unix/sysv/linux/sparc/sigaction.h @@ -0,0 +1,52 @@ +/* The proper definitions for Linux/SPARC sigaction. + Copyright (C) 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 + 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. */ + +/* Structure describing the action to be taken when a signal arrives. */ +struct sigaction + { + /* Signal handler. */ + __sighandler_t sa_handler; + + /* Additional set of signals to be blocked. */ + __sigset_t sa_mask; + + /* Special flags. */ + unsigned int sa_flags; + }; + + +/* Bits in `sa_flags'. */ +#define SA_NOCLDSTOP 0x00000008 /* Don't send SIGCHLD when children stop. */ +#ifdef __USE_MISC +#define SA_STACK 0x00000001 /* Use signal stack by using `sa_restorer'. */ +#define SA_RESTART 0x00000002 /* Don't restart syscall on signal return. */ +#define SA_INTERRUPT 0x00000010 /* Historical no-op. */ +#define SA_NOMASK 0x00000020 /* Don't automatically block the signal when + its handler is being executed. */ +#define SA_ONESHOT 0x00000004 /* Reset to SIG_DFL on entry to handler. */ + +/* Some aliases for the SA_ constants. */ +#define SA_NODEFER SA_NOMASK +#define SA_RESETHAND SA_ONESHOT +#endif + +/* Values for the HOW argument to `sigprocmask'. */ +#define SIG_BLOCK 1 /* Block signals. */ +#define SIG_UNBLOCK 2 /* Unblock signals. */ +#define SIG_SETMASK 4 /* Set the set of blocked signals. */ diff --git a/sysdeps/unix/sysv/linux/sparc/signum.h b/sysdeps/unix/sysv/linux/sparc/signum.h new file mode 100644 index 0000000000..d50a636bc3 --- /dev/null +++ b/sysdeps/unix/sysv/linux/sparc/signum.h @@ -0,0 +1,72 @@ +/* Signal number definitions. Linux/SPARC version. + Copyright (C) 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 + 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. */ + +#ifdef _SIGNAL_H + +/* Fake signal functions. */ +#define SIG_ERR ((__sighandler_t) -1) /* Error return. */ +#define SIG_DFL ((__sighandler_t) 0) /* Default action. */ +#define SIG_IGN ((__sighandler_t) 1) /* Ignore signal. */ + +/* + * Linux/SPARC has different signal numbers that Linux/i386: I'm trying + * to make it OSF/1 binary compatible, at least for normal binaries. + */ +#define _NSIG 32 /* Biggest signal number + 1. */ +#define NSIG _NSIG + +#define SIGHUP 1 +#define SIGINT 2 +#define SIGQUIT 3 +#define SIGILL 4 +#define SIGTRAP 5 +#define SIGABRT 6 +#define SIGIOT 6 +#define SIGEMT 7 +#define SIGFPE 8 +#define SIGKILL 9 +#define SIGBUS 10 +#define SIGSEGV 11 +#define SIGSYS 12 +#define SIGPIPE 13 +#define SIGALRM 14 +#define SIGTERM 15 +#define SIGURG 16 + +/* SunOS values which deviate from the Linux/i386 ones */ +#define SIGSTOP 17 +#define SIGTSTP 18 +#define SIGCONT 19 +#define SIGCHLD 20 +#define SIGTTIN 21 +#define SIGTTOU 22 +#define SIGIO 23 +#define SIGPOLL SIGIO /* SysV name for SIGIO */ +#define SIGXCPU 24 +#define SIGXFSZ 25 +#define SIGVTALRM 26 +#define SIGPROF 27 +#define SIGWINCH 28 +#define SIGLOST 29 +#define SIGUSR1 30 +#define SIGUSR2 31 + +/* Linux/SPARC does not have SIGPWR */ +#define SIGIOT SIGABRT +#endif /* <signal.h> included. */ diff --git a/sysdeps/unix/sysv/linux/sparc/termbits.h b/sysdeps/unix/sysv/linux/sparc/termbits.h new file mode 100644 index 0000000000..bf7aa1480f --- /dev/null +++ b/sysdeps/unix/sysv/linux/sparc/termbits.h @@ -0,0 +1,217 @@ +/* termios type and macro definitions. Linux/SPARC version. + Copyright (C) 1993, 1994, 1995, 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 + 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 _SPARC_TERMBITS_H +#define _SPARC_TERMBITS_H 1 + +typedef unsigned char cc_t; +typedef unsigned int speed_t; +typedef unsigned long tcflag_t; + +#define NCCS 17 +struct termios + { + tcflag_t c_iflag; /* input mode flags */ + tcflag_t c_oflag; /* output mode flags */ + tcflag_t c_cflag; /* control mode flags */ + tcflag_t c_lflag; /* local mode flags */ + cc_t c_line; /* line discipline */ + cc_t c_cc[NCCS]; /* control characters */ +#ifdef __KERNEL__ +#define SIZEOF_USER_TERMIOS sizeof (struct termios) - (2*sizeof (cc_t)) + cc_t _x_cc[2]; /* We need them to hold vmin/vtime */ +#endif + }; + +/* c_cc characters */ +#define VINTR 0 +#define VQUIT 1 +#define VERASE 2 +#define VKILL 3 +#define VEOF 4 +#define VEOL 5 +#define VEOL2 6 +#define VSWTC 7 +#define VSTART 8 +#define VSTOP 9 + + + +#define VSUSP 10 +#define VDSUSP 11 /* SunOS POSIX nicety I do believe... */ +#define VREPRINT 12 +#define VDISCARD 13 +#define VWERASE 14 +#define VLNEXT 15 + +/* Kernel keeps vmin/vtime separated, user apps assume vmin/vtime is + * shared with eof/eol + */ +#ifdef __KERNEL__ +#define VMIN 16 +#define VTIME 17 +#else +#define VMIN VEOF +#define VTIME VEOL +#endif + +/* c_iflag bits */ +#define IGNBRK 0x00000001 +#define BRKINT 0x00000002 +#define IGNPAR 0x00000004 +#define PARMRK 0x00000008 +#define INPCK 0x00000010 +#define ISTRIP 0x00000020 +#define INLCR 0x00000040 +#define IGNCR 0x00000080 +#define ICRNL 0x00000100 +#define IUCLC 0x00000200 +#define IXON 0x00000400 +#define IXANY 0x00000800 +#define IXOFF 0x00001000 +#define IMAXBEL 0x00002000 + +/* c_oflag bits */ +#define OPOST 0x00000001 +#define OLCUC 0x00000002 +#define ONLCR 0x00000004 +#define OCRNL 0x00000008 +#define ONOCR 0x00000010 +#define ONLRET 0x00000020 +#define OFILL 0x00000040 +#define OFDEL 0x00000080 +#define NLDLY 0x00000100 +#define NL0 0x00000000 +#define NL1 0x00000100 +#define CRDLY 0x00000600 +#define CR0 0x00000000 +#define CR1 0x00000200 +#define CR2 0x00000400 +#define CR3 0x00000600 +#define TABDLY 0x00001800 +#define TAB0 0x00000000 +#define TAB1 0x00000800 +#define TAB2 0x00001000 +#define TAB3 0x00001800 +#define XTABS 0x00001800 +#define BSDLY 0x00002000 +#define BS0 0x00000000 +#define BS1 0x00002000 +#define VTDLY 0x00004000 +#define VT0 0x00000000 +#define VT1 0x00004000 +#define FFDLY 0x00008000 +#define FF0 0x00000000 +#define FF1 0x00008000 +#define PAGEOUT 0x00010000 /* SUNOS specific */ +#define WRAP 0x00020000 /* SUNOS specific */ + +/* c_cflag bit meaning */ +#define CBAUD 0x0000000f +#define B0 0x00000000 /* hang up */ +#define B50 0x00000001 +#define B75 0x00000002 +#define B110 0x00000003 +#define B134 0x00000004 +#define B150 0x00000005 +#define B200 0x00000006 +#define B300 0x00000007 +#define B600 0x00000008 +#define B1200 0x00000009 +#define B1800 0x0000000a +#define B2400 0x0000000b +#define B4800 0x0000000c +#define B9600 0x0000000d +#define B19200 0x0000000e +#define B38400 0x0000000f +#define EXTA B19200 +#define EXTB B38400 +#define CSIZE 0x00000030 +#define CS5 0x00000000 +#define CS6 0x00000010 +#define CS7 0x00000020 +#define CS8 0x00000030 +#define CSTOPB 0x00000040 +#define CREAD 0x00000080 +#define PARENB 0x00000100 +#define PARODD 0x00000200 +#define HUPCL 0x00000400 +#define CLOCAL 0x00000800 +/* We'll never see these speeds with the Zilogs' but for completeness... */ +#define CBAUDEX 0x00010000 +#define B57600 0x00010001 +#define B115200 0x00010002 +#define B230400 0x00010003 +#define B460800 0x00010004 +#define CIBAUD 0x000f0000 /* input baud rate (not used) */ +#define CMSPAR 010000000000 /* mark or space (stick) parity */ +#define CRTSCTS 0x80000000 /* flow control */ + +/* c_lflag bits */ +#define ISIG 0x00000001 +#define ICANON 0x00000002 +#define XCASE 0x00000004 +#define ECHO 0x00000008 +#define ECHOE 0x00000010 +#define ECHOK 0x00000020 +#define ECHONL 0x00000040 +#define NOFLSH 0x00000080 +#define TOSTOP 0x00000100 +#define ECHOCTL 0x00000200 +#define ECHOPRT 0x00000400 +#define ECHOKE 0x00000800 +#define DEFECHO 0x00001000 /* SUNOS thing, what is it? */ +#define FLUSHO 0x00002000 +#define PENDIN 0x00004000 +#define IEXTEN 0x00008000 + +/* modem lines */ +#define TIOCM_LE 0x001 +#define TIOCM_DTR 0x002 +#define TIOCM_RTS 0x004 +#define TIOCM_ST 0x008 +#define TIOCM_SR 0x010 +#define TIOCM_CTS 0x020 +#define TIOCM_CAR 0x040 +#define TIOCM_RNG 0x080 +#define TIOCM_DSR 0x100 +#define TIOCM_CD TIOCM_CAR +#define TIOCM_RI TIOCM_RNG + +/* ioctl (fd, TIOCSERGETLSR, &result) where result may be as below */ +#define TIOCSER_TEMT 0x01 /* Transmitter physically empty */ + + +/* tcflow() and TCXONC use these */ +#define TCOOFF 0 +#define TCOON 1 +#define TCIOFF 2 +#define TCION 3 + +/* tcflush() and TCFLSH use these */ +#define TCIFLUSH 0 +#define TCOFLUSH 1 +#define TCIOFLUSH 2 + +/* tcsetattr uses these */ +#define TCSANOW 0 +#define TCSADRAIN 1 +#define TCSAFLUSH 2 + +#endif /* !(_SPARC_TERMBITS_H) */ |