From 55e2d5c7c4f5fdc23c8d0b2bf057c1559f862eec Mon Sep 17 00:00:00 2001 From: Ulrich Drepper Date: Thu, 31 Aug 2000 21:05:59 +0000 Subject: Update. * intl/Makefile (tests): Depend in mtrace-tst-gettext. Make this a new rule depending on tst-gettext.out and run mtrace. * intl/tst-gettext.c: Call mtrace. * intl/tst-gettext.sh: Put MALLOC_TRACE in environment of tst-gettext. * elf/dl-reloc.c: Add a few more __builtin_expect. * configure.in: Remove --with-gettext option. * intl/dcigettext.c (free_mem): Correct freeing of _nl_domain_bindings list. --- intl/Makefile | 31 +++++-------------------------- intl/dcigettext.c | 14 ++++++++------ intl/tst-gettext.c | 4 ++++ intl/tst-gettext.sh | 2 ++ 4 files changed, 19 insertions(+), 32 deletions(-) (limited to 'intl') diff --git a/intl/Makefile b/intl/Makefile index 966dad3e82..e6fa79643f 100644 --- a/intl/Makefile +++ b/intl/Makefile @@ -50,10 +50,13 @@ ifeq (no,$(cross-compiling)) ifeq (yes,$(build-shared)) ifneq ($(strip $(MSGFMT)),:) .PHONY: do-gettext-test do-translit-test -tests: do-gettext-test do-translit-test +tests: $(objpfx)mtrace-tst-gettext do-translit-test +$(objpfx)mtrace-tst-gettext: do-gettext-test + $(common-objpfx)malloc/mtrace $(objpfx)tst-gettext.mtrace > $@ do-gettext-test: $(objpfx)tst-gettext.out $(objpfx)tst-gettext.out: tst-gettext.sh $(objpfx)tst-gettext - $(SHELL) -e $< $(common-objpfx) $(common-objpfx)intl/ + $(SHELL) -e $< $(common-objpfx) $(common-objpfx)intl/ \ + $(objpfx)tst-gettext.mtrace do-translit-test: $(objpfx)tst-translit.out $(objpfx)tst-translit.out: tst-translit.sh $(objpfx)tst-translit $(SHELL) -e $< $(common-objpfx) $(common-objpfx)intl/ @@ -76,27 +79,3 @@ YFLAGS = --name-prefix=__gettext --output $(inst_msgcatdir)/locale.alias: locale.alias $(+force) $(do-install) - -ifdef gettext-srcdir - -%.h:: ../gpl2lgpl.sed $(gettext-srcdir)/intl/%.glibc; $(copysrc) -%.c:: ../gpl2lgpl.sed $(gettext-srcdir)/intl/%.c; $(copysrc) -%.h:: ../gpl2lgpl.sed $(gettext-srcdir)/intl/%.h; $(copysrc) -locale.alias:: ../gpl2lgpl.sed $(gettext-srcdir)/misc/locale.alias; $(copysrc) - -ifeq ($(with-cvs),yes) -define copysrc -sed -f $^ > $@.new -chmod a-w $@.new -mv -f $@.new $@ -test ! -d CVS || cvs $(CVSOPTS) commit -m'Updated from $<' $@ -endef -else -define copysrc -sed -f $^ > $@.new -chmod a-w $@.new -mv -f $@.new $@ -endef -endif - -endif diff --git a/intl/dcigettext.c b/intl/dcigettext.c index da6d88a492..e431e4260f 100644 --- a/intl/dcigettext.c +++ b/intl/dcigettext.c @@ -1129,16 +1129,17 @@ mempcpy (dest, src, n) static void __attribute__ ((unused)) free_mem (void) { - struct binding *runp; void *old; - for (runp = _nl_domain_bindings; runp != NULL; runp = runp->next) + while (_nl_domain_bindings != NULL) { - if (runp->dirname != _nl_default_dirname) + struct binding *oldp = _nl_domain_bindings; + _nl_domain_bindings = _nl_domain_bindings->next; + if (oldp->dirname != _nl_default_dirname) /* Yes, this is a pointer comparison. */ - free (runp->dirname); - if (runp->codeset != NULL) - free (runp->codeset); + free (oldp->dirname); + free (oldp->codeset); + free (oldp); } if (_nl_current_default_domain != _nl_default_default_domain) @@ -1147,6 +1148,7 @@ free_mem (void) /* Remove the search tree with the known translations. */ __tdestroy (root, free); + root = NULL; while (transmem_list != NULL) { diff --git a/intl/tst-gettext.c b/intl/tst-gettext.c index 688acbf85a..cfd2d5fc53 100644 --- a/intl/tst-gettext.c +++ b/intl/tst-gettext.c @@ -19,6 +19,7 @@ #include #include +#include #include #include #include @@ -55,6 +56,9 @@ main (int argc, char *argv[]) { int result = 0; + /* For debugging. */ + mtrace (); + /* This is the place where the .mo files are placed. */ if (argc > 1) { diff --git a/intl/tst-gettext.sh b/intl/tst-gettext.sh index 12094a7baf..42436fe5bf 100755 --- a/intl/tst-gettext.sh +++ b/intl/tst-gettext.sh @@ -20,6 +20,7 @@ common_objpfx=$1 objpfx=$2 +malloc_trace=$3 GCONV_PATH=${common_objpfx}iconvdata export GCONV_PATH @@ -42,6 +43,7 @@ msgfmt -o ${objpfx}domaindir/existing-locale/LC_TIME/existing-time-domain.mo \ ../po/de.po # Now run the test. +MALLOC_TRACE=$malloc_trace \ ${common_objpfx}elf/ld.so --library-path $common_objpfx \ ${objpfx}tst-gettext > ${objpfx}tst-gettext.out ${objpfx}domaindir -- cgit v1.2.1