-<1997-06-12 21:22 Ulrich Drepper <drepper@cygnus.com>
+1997-06-14 00:39 Ulrich Drepper <drepper@cygnus.com>
+
+ * libc.map: Add more libio functions which are used in libio.h.
+
+ * login/Makefile (libutil-routines): Move updwtmp to ...
+ (routines): ...here.
+ Suggested by Mark Kettenis <kettenis@phys.uva.nl>.
+
+ * sysdeps/stub/s_erfl.c: Add stub definition of erfcl.
+ Reported by Andreas Jaeger <aj@arthur.rhein-neckar.de>.
+
+1997-06-13 21:10 Thorsten Kukuk <kukuk@vt.uni-paderborn.de>
+
+ * nis/nis_add.c (nis_add): Create object name only if not set.
+
+ * nis/nis_clone.c: Use calloc instead of malloc to prevent
+ RPC encode errors.
+
+ * nis/nis_modify.c (nis_modify): Create default object entrys if
+ given are NULL.
+ * nis/nis/nis_table.c (nis_add_entry, nis_modify_entry): Likewise.
+
+1997-06-13 14:17 Andreas Jaeger <aj@arthur.rhein-neckar.de>
+
+
+ * sysdeps/i386/addmul_1.S: Replace size with sizeP, otherwise the
+ define might also replace the expanded macro ASM_SIZE_DIRECTIVE.
+ * sysdeps/i386/submul_1.S: Likewise.
+
+1997-06-13 12:19 Ulrich Drepper <drepper@cygnus.com>
+
+ * elf/rtld.c: Print version information if LD_TRACE_LOADED_OBJECT
+ and LD_VERBOSE are given.
+
+ * elf/ldd.sh.in: Add -v|--verbose option. Add author information
+ as per Coding Standard.
+ * elf/ldd.bash.in: Likewise.
+
+1997-06-12 21:22 Ulrich Drepper <drepper@cygnus.com>
* Makefile (libc-map): Define before including Makerules.
* Makerules (lib%.so): Depend on $(lib%-map).
local:
*;
-};
\ No newline at end of file
+};
RTLD=@RTLD@
warn=
bind_now=
+verbose=
while test $# -gt 0; do
case "$1" in
- --v | --ve | --ver | --vers | --versi | --versio | --version)
+ --vers | --versi | --versio | --version)
echo 'ldd (GNU libc) @VERSION@'
echo $"Copyright (C) 1996, 1997 Free Software Foundation, Inc.
This is free software; see the source for copying conditions. There is NO
-warranty; not even for MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE."
+warranty; not even for MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
+Written by Roland McGrath and Ulrich Drepper."
exit 0 ;;
--h | --he | --hel | --help)
echo $"ldd [OPTION]... FILE...
--version print version information and exit
-d, --data-relocs process data relocations
-r, --function-relocs process data and function relocations
+ -v, --verbose print all information
Report bugs using the \`glibcbug' script to <bugs@gnu.ai.mit.edu>."
exit 0 ;;
-d | --d | --da | --dat | --data | --data- | --data-r | --data-re | \
warn=yes
bind_now=yes
shift ;;
+ -v | --verb | --verbo | --verbos | --verbose)
+ verbose=yes
+ shift ;;
+ --v | --ve | --ver)
+ echo >&2 $"ldd: option \`" $1 $"' is ambiguous"
+ exit 1 ;;
--) # Stop option processing.
shift; break ;;
-*)
done
add_env="LD_TRACE_LOADED_OBJECTS=1 LD_WARN=$warn LD_BIND_NOW=$bind_now"
+add_env="$add_env LD_VERBOSE=$verbose"
case $# in
0)
echo >&2 'ldd:' $"missing file arguments"
while test $# -gt 0; do
case "$1" in
- --v | --ve | --ver | --vers | --versi | --versio | --version)
+ --vers | --versi | --versio | --version)
echo 'ldd (GNU libc) @VERSION@
Copyright (C) 1996, 1997 Free Software Foundation, Inc.
This is free software; see the source for copying conditions. There is NO
-warranty; not even for MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.'
+warranty; not even for MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
+Written by Roland McGrath and Ulrich Drepper.'
exit 0 ;;
--h | --he | --hel | --help)
echo "ldd [OPTION]... FILE...
--version print version information and exit
-d, --data-relocs process data relocations
-r, --function-relocs process data and function relocations
+ -v, --verbose print all information
Report bugs using the \`glibcbug' script to <bugs@gnu.ai.mit.edu>."
exit 0 ;;
-d | --d | --da | --dat | --data | --data- | --data-r | --data-re | \
warn=yes
bind_now=yes
shift ;;
+ -v | --verb | --verbo | --verbos | --verbose)
+ verbose=yes
+ shift ;;
+ --v | --ve | --ver)
+ echo >&2 "ldd: option \`$1' is ambiguous"
+ exit 1 ;;
--) # Stop option processing.
shift; break ;;
-*)
done
add_env="LD_TRACE_LOADED_OBJECTS=1 LD_WARN=$warn LD_BIND_NOW=$bind_now"
+add_env="$add_env LD_VERBOSE=$verbose"
case $# in
0)
echo >&2 "\
local:
*;
-};
\ No newline at end of file
+};
#include <string.h>
#include <unistd.h>
#include <sys/mman.h> /* Check if MAP_ANON is defined. */
-#include "../stdio-common/_itoa.h"
+#include <stdio-common/_itoa.h>
#include <assert.h>
#include "dynamic-link.h"
_exit (1);
}
+
+static inline struct link_map *
+find_needed (const char *name)
+{
+ unsigned int n;
+
+ for (n = 0; n < _dl_loaded->l_nsearchlist; ++n)
+ if (_dl_name_match_p (name, _dl_loaded->l_searchlist[n]))
+ return _dl_loaded->l_searchlist[n];
+
+ /* Should never happen. */
+ return NULL;
+}
+
+static int
+match_version (const char *string, struct link_map *map)
+{
+ const char *strtab = (const char *) (map->l_addr
+ + map->l_info[DT_STRTAB]->d_un.d_ptr);
+ ElfW(Verdef) *def;
+
+#define VERDEFTAG (DT_NUM + DT_PROCNUM + DT_VERSIONTAGIDX (DT_VERDEF))
+ if (map->l_info[VERDEFTAG] == NULL)
+ /* The file has no symbol versioning. */
+ return 0;
+
+ def = (ElfW(Verdef) *) ((char *) map->l_addr
+ + map->l_info[VERDEFTAG]->d_un.d_ptr);
+ while (1)
+ {
+ ElfW(Verdaux) *aux = (ElfW(Verdaux) *) ((char *) def + def->vd_aux);
+
+ /* Compare the version strings. */
+ if (strcmp (string, strtab + aux->vda_name) == 0)
+ /* Bingo! */
+ return 1;
+
+ /* If no more definitions we failed to find what we want. */
+ if (def->vd_next == 0)
+ break;
+
+ /* Next definition. */
+ def = (ElfW(Verdef) *) ((char *) def + def->vd_next);
+ }
+
+ return 0;
+}
+
unsigned int _dl_skip_args; /* Nonzero if we were run directly. */
static void
*--bp = '0';
_dl_sysdep_message (" in object at 0x", bp, "\n", NULL);
}
- else if (lazy >= 0)
+ else
{
- /* We have to do symbol dependency testing. */
- struct relocate_args args;
- struct link_map *l;
+ if (lazy >= 0)
+ {
+ /* We have to do symbol dependency testing. */
+ struct relocate_args args;
+ struct link_map *l;
- args.lazy = lazy;
+ args.lazy = lazy;
- l = _dl_loaded;
- while (l->l_next)
- l = l->l_next;
- do
+ l = _dl_loaded;
+ while (l->l_next)
+ l = l->l_next;
+ do
+ {
+ if (l != &_dl_rtld_map && l->l_opencount > 0)
+ {
+ args.l = l;
+ _dl_receive_error (print_unresolved, relocate_doit,
+ &args);
+ *_dl_global_scope_end = NULL;
+ }
+ l = l->l_prev;
+ } while (l);
+ }
+
+#define VERNEEDTAG (DT_NUM + DT_PROCNUM + DT_VERSIONTAGIDX (DT_VERNEED))
+ if (*(getenv ("LD_VERBOSE") ?: "") != '\0')
{
- if (l != &_dl_rtld_map && l->l_opencount > 0)
+ /* Print more information. This means here, print information
+ about the versions needed. */
+ int first = 1;
+ struct link_map *map = _dl_loaded;
+
+ for (map = _dl_loaded; map != NULL; map = map->l_next)
{
- args.l = l;
- _dl_receive_error (print_unresolved, relocate_doit, &args);
- *_dl_global_scope_end = NULL;
+ const char *strtab =
+ (const char *) (map->l_addr
+ + map->l_info[DT_STRTAB]->d_un.d_ptr);
+ ElfW(Dyn) *dyn = map->l_info[VERNEEDTAG];
+
+ if (dyn != NULL)
+ {
+ ElfW(Verneed) *ent =
+ (ElfW(Verneed) *) (map->l_addr + dyn->d_un.d_ptr);
+
+ if (first)
+ {
+ _dl_sysdep_message ("\n\tVersion information:\n",
+ NULL);
+ first = 0;
+ }
+
+ _dl_sysdep_message ("\t", (map->l_name[0]
+ ? map->l_name
+ : _dl_argv[0]), ":\n",
+ NULL);
+
+ while (1)
+ {
+ ElfW(Vernaux) *aux;
+ struct link_map *needed;
+
+ needed = find_needed (strtab + ent->vn_file);
+ aux = (ElfW(Vernaux) *) ((char *) ent + ent->vn_aux);
+
+ while (1)
+ {
+ const char *fname = NULL;
+
+ _dl_sysdep_message ("\t\t",
+ strtab + ent->vn_file,
+ " (", strtab + aux->vna_name,
+ ") ",
+ (aux->vna_flags
+ & VER_FLG_WEAK
+ ? "[WEAK] " : ""),
+ "=> ", NULL);
+
+ if (needed != NULL
+ && match_version (strtab + aux->vna_name,
+ needed))
+ fname = needed->l_name;
+
+ _dl_sysdep_message (fname ?: "not found", "\n",
+ NULL);
+
+ if (aux->vna_next == 0)
+ /* No more symbols. */
+ break;
+
+ /* Next symbol. */
+ aux = (ElfW(Vernaux) *) ((char *) aux
+ + aux->vna_next);
+ }
+
+ if (ent->vn_next == 0)
+ /* No more dependencies. */
+ break;
+
+ /* Next dependency. */
+ ent = (ElfW(Verneed) *) ((char *) ent
+ + ent->vn_next);
+ }
+ }
}
- l = l->l_prev;
- } while (l);
+ }
}
_exit (0);
_IO_stderr_; _IO_stdin_; _IO_stdout_;
_nl_msg_cat_cntr; __environ; _environ;
-# __libc_multiple_libcs; __libc_argc; __libc_argv; _dl_starting_up; __exit_funcs;
-
# helper functions
__errno_location; __libc_init_first;
_obstack_allocated_p; _obstack_begin; _obstack_begin_1;
_obstack_free; _obstack_memory_used; _obstack_newchunk;
__assert_fail; __assert_perror_fail;
+ _IO_getc; _IO_peekc_unlocked; _IO_putc; _IO_feof; _IO_ferror;
# functions used in other libraries
__printf_fp;
local:
*;
-};
\ No newline at end of file
+};
headers := utmp.h utmpbits.h lastlog.h pty.h
routines := getutent getutent_r getutid getutline getutid_r getutline_r \
- utmp_file utmp_daemon utmpname
+ utmp_file utmp_daemon utmpname updwtmp
others = utmpd
install-sbin = utmpd
extra-libs := libutil
extra-libs-others := $(extra-libs)
-libutil-routines:= login login_tty logout logwtmp pty updwtmp
+libutil-routines:= login login_tty logout logwtmp pty
libutil-map := libutil.map
include ../Rules
GLIBC_2.0 {
global:
- forkpty; login; login_tty; logout; logwtmp; openpty; updwtmp;
+ forkpty; login; login_tty; logout; logwtmp; openpty;
local:
*;
-};
\ No newline at end of file
+};
%% TeX macros to handle Texinfo files.
-%% $Id: texinfo.tex,v 2.202 1997/06/12 20:07:10 drepper Exp $
+%% $Id: texinfo.tex,v 2.203 1997/06/13 22:43:07 drepper Exp $
% Copyright (C) 1985, 86, 88, 90, 91, 92, 93,
% 94, 95, 96, 97 Free Software Foundation, Inc.
% This automatically updates the version number based on RCS.
\def\deftexinfoversion$#1: #2 ${\def\texinfoversion{#2}}
-\deftexinfoversion$Revision: 2.202 $
+\deftexinfoversion$Revision: 2.203 $
\message{Loading texinfo package [Version \texinfoversion]:}
% If in a .fmt file, print the version number
% For @cropmarks command.
% Do @cropmarks to get crop marks.
-%
+%
\newif\ifcropmarks
\let\cropmarks = \cropmarkstrue
%
% @uref (abbreviation for `urlref') takes an optional second argument
% specifying the text to display. First (mandatory) arg is the url.
-%
+%
\def\uref#1{\urefxxx #1,,\finish}
\def\urefxxx#1,#2,#3\finish{%
\setbox0 = \hbox{\ignorespaces #2}%
\global\colcount=0\relax}}
}
-\def\setultitablespacing{% test to see if user has set \multitablelinespace.
+\def\setmultitablespacing{% test to see if user has set \multitablelinespace.
% If so, do nothing. If not, give it an appropriate dimension based on
% current baselineskip.
\ifdim\multitablelinespace=0pt
\def\begindoublecolumns{\begingroup % ended by \enddoublecolumns
% Grab any single-column material above us.
\output = {\global\setbox\partialpage = \vbox{%
- %
+ %
% Here is a possibility not foreseen in manmac: if we accumulate a
% whole lot of material, we might end up calling this \output
% routine twice in a row (see the doublecol-lose test, which is
local:
*;
-};
\ No newline at end of file
+};
+ * nis_addmember: Where checks for duplicate group members ? nisgrpadm or
+ nis_addmember ?
+
* nss_nisplus: When using parser form nss_files, rewrite parser
* nis_table.c: nis_list():
local:
*;
-};
\ No newline at end of file
+};
local:
*;
-};
\ No newline at end of file
+};
req.ns_object.ns_object_val = nis_clone_object (obj, NULL);
p1 = req.ns_object.ns_object_val[0].zo_name;
- req.ns_object.ns_object_val[0].zo_name =
- nis_leaf_of_r (name, buf1, sizeof (buf1));
+ if (p1 == NULL || strlen (p1) == 0)
+ req.ns_object.ns_object_val[0].zo_name =
+ nis_leaf_of_r (name, buf1, sizeof (buf1));
p2 = req.ns_object.ns_object_val[0].zo_owner;
if (p2 == NULL || strlen (p2) == 0)
{
if (res->gr_members.gr_members_val == NULL)
{
- res->gr_members.gr_members_val =
- malloc (res->gr_members.gr_members_len * sizeof (nis_name));
- if (res->gr_members.gr_members_val == NULL)
+ if ((res->gr_members.gr_members_val =
+ malloc (res->gr_members.gr_members_len * sizeof (nis_name))) == NULL)
return NULL;
}
for (i = 0; i < res->gr_members.gr_members_len; ++i)
res->ta_cols.ta_cols_len = src->ta_cols.ta_cols_len;
if (res->ta_cols.ta_cols_val == NULL)
{
- res->ta_cols.ta_cols_val =
- malloc (src->ta_cols.ta_cols_len * sizeof (table_col));
- if (res->ta_cols.ta_cols_val == NULL)
+ if ((res->ta_cols.ta_cols_val =
+ calloc (1, src->ta_cols.ta_cols_len * sizeof (table_col))) == NULL)
return NULL;
}
for (i = 0; i < res->ta_cols.ta_cols_len; i++)
res->zattr_ndx = NULL;
res->zattr_val.zattr_val_len = src->zattr_val.zattr_val_len;
- if (res->zattr_val.zattr_val_val == NULL)
+ if (res->zattr_val.zattr_val_len > 0)
{
- res->zattr_val.zattr_val_val =
- malloc (src->zattr_val.zattr_val_len);
if (res->zattr_val.zattr_val_val == NULL)
- return NULL;
+ {
+ if ((res->zattr_val.zattr_val_val =
+ calloc (1, src->zattr_val.zattr_val_len)) == NULL)
+ return NULL;
+ }
+ memcpy (res->zattr_val.zattr_val_val, src->zattr_val.zattr_val_val,
+ src->zattr_val.zattr_val_len);
}
- memcpy (res->zattr_val.zattr_val_val, src->zattr_val.zattr_val_val,
- src->zattr_val.zattr_val_len);
-
+ else
+ res->zattr_val.zattr_val_val = NULL;
return res;
}
src->objdata_u.po_data.po_data_len;
if (src->objdata_u.po_data.po_data_val)
{
- res->objdata_u.po_data.po_data_val =
- malloc (res->objdata_u.po_data.po_data_len);
- if (res->objdata_u.po_data.po_data_val == NULL)
+ if ((res->objdata_u.po_data.po_data_val =
+ malloc (res->objdata_u.po_data.po_data_len)) == NULL)
return NULL;
memcpy (res->objdata_u.po_data.po_data_val,
src->objdata_u.po_data.po_data_val,
src->objdata_u.po_data.po_data_len);
- if (res->objdata_u.po_data.po_data_val == NULL)
- return NULL;
}
else
{
nis_result *res;
nis_error status;
struct ns_request req;
+ char *p1, *p2, *p3, *p4;
+ char buf1 [strlen (name) + 20];
+ char buf4 [strlen (name) + 20];
res = calloc (1, sizeof (nis_result));
req.ns_object.ns_object_len = 1;
req.ns_object.ns_object_val = nis_clone_object (obj, NULL);
+ p1 = req.ns_object.ns_object_val[0].zo_name;
+ if (p1 == NULL || strlen (p1) == 0)
+ req.ns_object.ns_object_val[0].zo_name =
+ nis_leaf_of_r (name, buf1, sizeof (buf1));
+
+ p2 = req.ns_object.ns_object_val[0].zo_owner;
+ if (p2 == NULL || strlen (p2) == 0)
+ req.ns_object.ns_object_val[0].zo_owner = nis_local_principal ();
+
+ p3 = req.ns_object.ns_object_val[0].zo_group;
+ if (p3 == NULL || strlen (p3) == 0)
+ req.ns_object.ns_object_val[0].zo_group = nis_local_group ();
+
+ p4 = req.ns_object.ns_object_val[0].zo_domain;
+ req.ns_object.ns_object_val[0].zo_domain =
+ nis_domain_of_r (name, buf4, sizeof (buf4));
+
if ((status = __do_niscall (name, NIS_MODIFY, (xdrproc_t) xdr_ns_request,
(caddr_t) & req, (xdrproc_t) xdr_nis_result,
(caddr_t) res, MASTER_ONLY)) != RPC_SUCCESS)
res->status = status;
+ req.ns_object.ns_object_val[0].zo_name = p1;
+ req.ns_object.ns_object_val[0].zo_owner = p2;
+ req.ns_object.ns_object_val[0].zo_group = p3;
+ req.ns_object.ns_object_val[0].zo_domain = p4;
+
nis_destroy_object (req.ns_object.ns_object_val);
return res;
u_long flags)
{
nis_result *res;
- struct ib_request ibreq;
nis_error status;
+ struct ib_request ibreq;
+ char *p1, *p2, *p3, *p4;
+ char buf1 [strlen (name) + 20];
+ char buf4 [strlen (name) + 20];
res = calloc (1, sizeof (nis_result));
ibreq.ibr_obj.ibr_obj_val = nis_clone_object (obj, NULL);
ibreq.ibr_obj.ibr_obj_len = 1;
+ p1 = ibreq.ibr_obj.ibr_obj_val[0].zo_name;
+ if (p1 == NULL || strlen (p1) == 0)
+ ibreq.ibr_obj.ibr_obj_val[0].zo_name =
+ nis_leaf_of_r (name, buf1, sizeof (buf1));
+
+ p2 = ibreq.ibr_obj.ibr_obj_val[0].zo_owner;
+ if (p2 == NULL || strlen (p2) == 0)
+ ibreq.ibr_obj.ibr_obj_val[0].zo_owner = nis_local_principal ();
+
+ p3 = ibreq.ibr_obj.ibr_obj_val[0].zo_group;
+ if (p3 == NULL || strlen (p3) == 0)
+ ibreq.ibr_obj.ibr_obj_val[0].zo_group = nis_local_group ();
+
+ p4 = ibreq.ibr_obj.ibr_obj_val[0].zo_domain;
+ ibreq.ibr_obj.ibr_obj_val[0].zo_domain =
+ nis_domain_of_r (name, buf4, sizeof (buf4));
+
if ((status = __do_niscall (ibreq.ibr_name, NIS_IBADD,
(xdrproc_t) xdr_ib_request,
(caddr_t) &ibreq,
(caddr_t) res, 0)) != RPC_SUCCESS)
res->status = status;
+ ibreq.ibr_obj.ibr_obj_val[0].zo_name = p1;
+ ibreq.ibr_obj.ibr_obj_val[0].zo_owner = p2;
+ ibreq.ibr_obj.ibr_obj_val[0].zo_group = p3;
+ ibreq.ibr_obj.ibr_obj_val[0].zo_domain = p4;
+
nis_free_request (&ibreq);
return res;
u_long flags)
{
nis_result *res;
- struct ib_request ibreq;
nis_error status;
+ struct ib_request ibreq;
+ char *p1, *p2, *p3, *p4;
+ char buf1 [strlen (name) + 20];
+ char buf4 [strlen (name) + 20];
res = calloc (1, sizeof (nis_result));
ibreq.ibr_obj.ibr_obj_val = nis_clone_object (obj, NULL);
ibreq.ibr_obj.ibr_obj_len = 1;
+ p1 = ibreq.ibr_obj.ibr_obj_val[0].zo_name;
+ if (p1 == NULL || strlen (p1) == 0)
+ ibreq.ibr_obj.ibr_obj_val[0].zo_name =
+ nis_leaf_of_r (name, buf1, sizeof (buf1));
+
+ p2 = ibreq.ibr_obj.ibr_obj_val[0].zo_owner;
+ if (p2 == NULL || strlen (p2) == 0)
+ ibreq.ibr_obj.ibr_obj_val[0].zo_owner = nis_local_principal ();
+
+ p3 = ibreq.ibr_obj.ibr_obj_val[0].zo_group;
+ if (p3 == NULL || strlen (p3) == 0)
+ ibreq.ibr_obj.ibr_obj_val[0].zo_group = nis_local_group ();
+
+ p4 = ibreq.ibr_obj.ibr_obj_val[0].zo_domain;
+ ibreq.ibr_obj.ibr_obj_val[0].zo_domain =
+ nis_domain_of_r (name, buf4, sizeof (buf4));
+
if ((status = __do_niscall (ibreq.ibr_name, NIS_IBMODIFY,
(xdrproc_t) xdr_ib_request,
(caddr_t) & ibreq, (xdrproc_t) xdr_nis_result,
(caddr_t) res, 0)) != RPC_SUCCESS)
res->status = status;
+ ibreq.ibr_obj.ibr_obj_val[0].zo_name = p1;
+ ibreq.ibr_obj.ibr_obj_val[0].zo_owner = p2;
+ ibreq.ibr_obj.ibr_obj_val[0].zo_group = p3;
+ ibreq.ibr_obj.ibr_obj_val[0].zo_domain = p4;
+
nis_free_request (&ibreq);
return res;
local:
*;
-};
\ No newline at end of file
+};
local:
*;
-};
\ No newline at end of file
+};
local:
*;
-};
\ No newline at end of file
+};
local:
*;
-};
\ No newline at end of file
+};
popl %edi
ret
- ASM_SIZE_DIRECTIVE(C_SYMBOL_NAME(__mpn_add_n))
\ No newline at end of file
+ ASM_SIZE_DIRECTIVE(C_SYMBOL_NAME(__mpn_add_n))
INPUT PARAMETERS
res_ptr (sp + 4)
s1_ptr (sp + 8)
- size (sp + 12)
+ sizeP (sp + 12)
s2_limb (sp + 16)
*/
#define res_ptr edi
#define s1_ptr esi
-#define size ecx
+#define sizeP ecx
#define s2_limb ebp
TEXT
INSN2(mov,l ,R(res_ptr),MEM_DISP(esp,20))
INSN2(mov,l ,R(s1_ptr),MEM_DISP(esp,24))
- INSN2(mov,l ,R(size),MEM_DISP(esp,28))
+ INSN2(mov,l ,R(sizeP),MEM_DISP(esp,28))
INSN2(mov,l ,R(s2_limb),MEM_DISP(esp,32))
- INSN2(lea,l ,R(res_ptr),MEM_INDEX(res_ptr,size,4))
- INSN2(lea,l ,R(s1_ptr),MEM_INDEX(s1_ptr,size,4))
- INSN1(neg,l ,R(size))
+ INSN2(lea,l ,R(res_ptr),MEM_INDEX(res_ptr,sizeP,4))
+ INSN2(lea,l ,R(s1_ptr),MEM_INDEX(s1_ptr,sizeP,4))
+ INSN1(neg,l ,R(sizeP))
INSN2(xor,l ,R(ebx),R(ebx))
ALIGN (3)
L(oop):
- INSN2(mov,l ,R(eax),MEM_INDEX(s1_ptr,size,4))
+ INSN2(mov,l ,R(eax),MEM_INDEX(s1_ptr,sizeP,4))
INSN1(mul,l ,R(s2_limb))
INSN2(add,l ,R(eax),R(ebx))
INSN2(adc,l ,R(edx),$0)
- INSN2(add,l ,MEM_INDEX(res_ptr,size,4),R(eax))
+ INSN2(add,l ,MEM_INDEX(res_ptr,sizeP,4),R(eax))
INSN2(adc,l ,R(edx),$0)
INSN2(mov,l ,R(ebx),R(edx))
- INSN1(inc,l ,R(size))
+ INSN1(inc,l ,R(sizeP))
INSN1(jnz, ,L(oop))
INSN2(mov,l ,R(eax),R(ebx))
popl %edi
ret
- ASM_SIZE_DIRECTIVE(C_SYMBOL_NAME(__mpn_lshift))
\ No newline at end of file
+ ASM_SIZE_DIRECTIVE(C_SYMBOL_NAME(__mpn_lshift))
popl %edi
ret
- ASM_SIZE_DIRECTIVE(C_SYMBOL_NAME(__mpn_rshift))
\ No newline at end of file
+ ASM_SIZE_DIRECTIVE(C_SYMBOL_NAME(__mpn_rshift))
popl %edi
ret
- ASM_SIZE_DIRECTIVE(C_SYMBOL_NAME(__mpn_sub_n))
\ No newline at end of file
+ ASM_SIZE_DIRECTIVE(C_SYMBOL_NAME(__mpn_sub_n))
INPUT PARAMETERS
res_ptr (sp + 4)
s1_ptr (sp + 8)
- size (sp + 12)
+ sizeP (sp + 12)
s2_limb (sp + 16)
*/
#define res_ptr edi
#define s1_ptr esi
-#define size ecx
+#define sizeP ecx
#define s2_limb ebp
TEXT
INSN2(mov,l ,R(res_ptr),MEM_DISP(esp,20))
INSN2(mov,l ,R(s1_ptr),MEM_DISP(esp,24))
- INSN2(mov,l ,R(size),MEM_DISP(esp,28))
+ INSN2(mov,l ,R(sizeP),MEM_DISP(esp,28))
INSN2(mov,l ,R(s2_limb),MEM_DISP(esp,32))
- INSN2(lea,l ,R(res_ptr),MEM_INDEX(res_ptr,size,4))
- INSN2(lea,l ,R(s1_ptr),MEM_INDEX(s1_ptr,size,4))
- INSN1(neg,l ,R(size))
+ INSN2(lea,l ,R(res_ptr),MEM_INDEX(res_ptr,sizeP,4))
+ INSN2(lea,l ,R(s1_ptr),MEM_INDEX(s1_ptr,sizeP,4))
+ INSN1(neg,l ,R(sizeP))
INSN2(xor,l ,R(ebx),R(ebx))
ALIGN (3)
L(oop):
- INSN2(mov,l ,R(eax),MEM_INDEX(s1_ptr,size,4))
+ INSN2(mov,l ,R(eax),MEM_INDEX(s1_ptr,sizeP,4))
INSN1(mul,l ,R(s2_limb))
INSN2(add,l ,R(eax),R(ebx))
INSN2(adc,l ,R(edx),$0)
- INSN2(sub,l ,MEM_INDEX(res_ptr,size,4),R(eax))
+ INSN2(sub,l ,MEM_INDEX(res_ptr,sizeP,4),R(eax))
INSN2(adc,l ,R(edx),$0)
INSN2(mov,l ,R(ebx),R(edx))
- INSN1(inc,l ,R(size))
+ INSN1(inc,l ,R(sizeP))
INSN1(jnz, ,L(oop))
INSN2(mov,l ,R(eax),R(ebx))
weak_alias (__erfl, erfl)
stub_warning (erfl)
+
+long double
+__erfcl (long double x)
+{
+ fputs ("__erfcl not implemented\n", stderr);
+ return 0.0;
+}
+weak_alias (__erfcl, erfcl)
+
+stub_warning (erfcl)
-inttypes.h
\ No newline at end of file
+inttypes.h
ifeq ($(subdir),stdlib)
sysdep_headers += inttypes.h
-endif
\ No newline at end of file
+endif
-inttypes.h
\ No newline at end of file
+inttypes.h
ifeq ($(subdir),stdlib)
sysdep_headers += inttypes.h
-endif
\ No newline at end of file
+endif
projects / platform / upstream / glibc.git / commitdiff