summaryrefslogtreecommitdiff
path: root/Build/source
diff options
context:
space:
mode:
Diffstat (limited to 'Build/source')
-rw-r--r--Build/source/texk/bibtex8/ChangeLog7
-rw-r--r--Build/source/texk/bibtex8/Makefile.am10
-rw-r--r--Build/source/texk/bibtex8/Makefile.in6
-rw-r--r--Build/source/texk/bibtex8/bibtex-1.c9
-rwxr-xr-xBuild/source/texk/bibtex8/tests/bibtex-mem.test64
-rwxr-xr-xBuild/source/texk/bibtex8/tests/sort.test2
-rw-r--r--Build/source/texk/bibtexu/ChangeLog4
-rw-r--r--Build/source/texk/bibtexu/Makefile.am6
-rw-r--r--Build/source/texk/bibtexu/Makefile.in2
-rw-r--r--Build/source/texk/bibtexu/bibtex-1.c9
-rw-r--r--Build/source/texk/web2c/ChangeLog4
-rw-r--r--Build/source/texk/web2c/Makefile.in37
-rw-r--r--Build/source/texk/web2c/am/web.am4
-rwxr-xr-xBuild/source/texk/web2c/tests/bibtex-mem.test64
-rw-r--r--Build/source/texk/web2c/tests/memdata1.bst84
-rw-r--r--Build/source/texk/web2c/tests/memdata2.bst234
-rw-r--r--Build/source/texk/web2c/tests/memdata3.bst654
17 files changed, 1163 insertions, 37 deletions
diff --git a/Build/source/texk/bibtex8/ChangeLog b/Build/source/texk/bibtex8/ChangeLog
index 3dd0081f05a..8f68a88ca3d 100644
--- a/Build/source/texk/bibtex8/ChangeLog
+++ b/Build/source/texk/bibtex8/ChangeLog
@@ -6,6 +6,13 @@
* gblvars.h (M_cites): Removed.
* utils.c (parse_cmd_line, usage): Ignore/remove --mcites.
+ * bibtex-1.c (add_database_cite): Fix bug, from bibtex.ch.
+
+ * Makefile.am (AM_CPPFLAGS): Remove obsolete -funsigned-char.
+
+ * tests/bibtex-mem.test: New shell script for dynamic arrays.
+ * Makefile.am: Adapted.
+
2010-03-16 Peter Breitenlohner <peb@mppmu.mpg.de>
* bibtex-1.c, utils.c: Delay allocation of entry_ints and
diff --git a/Build/source/texk/bibtex8/Makefile.am b/Build/source/texk/bibtex8/Makefile.am
index fded8d43632..5a02c0d3ba7 100644
--- a/Build/source/texk/bibtex8/Makefile.am
+++ b/Build/source/texk/bibtex8/Makefile.am
@@ -9,12 +9,6 @@ INCLUDES = $(KPATHSEA_INCLUDES)
AM_CPPFLAGS = -DUNIX -DKPATHSEA -DSUPPORT_8BIT
AM_CFLAGS = $(WARNING_CFLAGS)
-## FIXME: (1) this should go away once the code has been carefully
-## FIXME: analyzed and uses 'unsigned char' where necessary.
-## FIXME: (2) this should go to AM_CFLAGS, but AIX xlc only
-## FIXME: accepts this flag when compiling, not when linking.
-AM_CPPFLAGS += -funsigned-char
-
bin_PROGRAMS = bibtex8
bibtex8_SOURCES = \
@@ -61,7 +55,7 @@ dist_btdoc_DATA = \
## Tests.
##
-TESTS = tests/bibtex.test tests/sort.test
+TESTS = tests/bibtex.test tests/sort.test tests/bibtex-mem.test
EXTRA_DIST = $(TESTS)
DISTCLEANFILES =
## tests/bibtex.test
@@ -72,6 +66,8 @@ EXTRA_DIST += tests/sort.aux \
tests/sort1.csf tests/sort2.csf tests/sort3.csf \
tests/testdata.bib tests/teststyle.bst
DISTCLEANFILES += tests/xsort.aux tests/xsort.bbl tests/xsort.blg
+## tests/bibtex-mem.test
+DISTCLEANFILES += tests/memtest*
## Not used
##
diff --git a/Build/source/texk/bibtex8/Makefile.in b/Build/source/texk/bibtex8/Makefile.in
index c79f929da25..dc64b5c6da4 100644
--- a/Build/source/texk/bibtex8/Makefile.in
+++ b/Build/source/texk/bibtex8/Makefile.in
@@ -250,7 +250,7 @@ top_builddir = @top_builddir@
top_srcdir = @top_srcdir@
ACLOCAL_AMFLAGS = -I ../../m4
INCLUDES = $(KPATHSEA_INCLUDES)
-AM_CPPFLAGS = -DUNIX -DKPATHSEA -DSUPPORT_8BIT -funsigned-char
+AM_CPPFLAGS = -DUNIX -DKPATHSEA -DSUPPORT_8BIT
AM_CFLAGS = $(WARNING_CFLAGS)
bibtex8_SOURCES = \
bibtex-1.c \
@@ -286,14 +286,14 @@ dist_btdoc_DATA = \
csfile.txt \
file_id.diz
-TESTS = tests/bibtex.test tests/sort.test
+TESTS = tests/bibtex.test tests/sort.test tests/bibtex-mem.test
EXTRA_DIST = $(TESTS) tests/sort.aux tests/sort1.bbl tests/sort2.bbl \
tests/sort3.bbl tests/sort1.csf tests/sort2.csf \
tests/sort3.csf tests/testdata.bib tests/teststyle.bst \
bt371csf.zip dos-dj.mak dos-emx.mak os2.mak unix.mak \
csf/00readme.txt csf/COPYING csf/HISTORY csf/file_id.diz
DISTCLEANFILES = tests/xexampl.aux tests/xexampl.bbl tests/xexampl.blg \
- tests/xsort.aux tests/xsort.bbl tests/xsort.blg
+ tests/xsort.aux tests/xsort.bbl tests/xsort.blg tests/memtest*
all: config.h
$(MAKE) $(AM_MAKEFLAGS) all-am
diff --git a/Build/source/texk/bibtex8/bibtex-1.c b/Build/source/texk/bibtex8/bibtex-1.c
index f2a1b8e6680..a288a313527 100644
--- a/Build/source/texk/bibtex8/bibtex-1.c
+++ b/Build/source/texk/bibtex8/bibtex-1.c
@@ -231,7 +231,7 @@ END
void add_database_cite (CiteNumber_T *new_cite)
BEGIN
check_cite_overflow (*new_cite);
- check_field_overflow (num_fields * (*new_cite));
+ check_field_overflow (num_fields * (*new_cite + 1));
cite_list[*new_cite] = hash_text[cite_loc];
ilk_info[cite_loc] = *new_cite;
ilk_info[lc_cite_loc] = cite_loc;
@@ -2806,8 +2806,15 @@ void check_field_overflow (Integer_T total_fields)
BEGIN
if (total_fields > Max_Fields)
BEGIN
+ field_ptr = Max_Fields;
BIB_XRETALLOC ("field_info", field_info, StrNumber_T,
Max_Fields, Max_Fields + MAX_FIELDS);
+ /* Initialize to |missing|. */
+ while (field_ptr < Max_Fields)
+ BEGIN
+ field_info[field_ptr] = MISSING;
+ INCR (field_ptr);
+ END
END
END
/*^^^^^^^^^^^^^^^^^^^^^^^^^^ END OF SECTION 226 ^^^^^^^^^^^^^^^^^^^^^^^^^^^*/
diff --git a/Build/source/texk/bibtex8/tests/bibtex-mem.test b/Build/source/texk/bibtex8/tests/bibtex-mem.test
new file mode 100755
index 00000000000..4a6bea5c0b6
--- /dev/null
+++ b/Build/source/texk/bibtex8/tests/bibtex-mem.test
@@ -0,0 +1,64 @@
+#! /bin/sh
+
+# Copyright (C) 2010 Peter Breitenlohner <tex-live@tug.org>
+# You may freely use, modify and/or distribute this file.
+
+# Using test data from Philipp Lehman <lehman@gmx.net>
+
+test -d tests || mkdir -p tests
+
+# Create bib data
+mk_bib () {
+ for i
+ do
+ for j in 0 1 2 3 4 5 6 7 8 9; do
+ for k in 0 1 2 3 4 5 6 7 8 9; do
+ for l in 0 1 2 3 4 5 6 7 8 9; do
+ cat <<EOF
+@Type{key$i$j$k$l,
+ field001 = {Value 001},
+ field002 = {Value 002},
+ field003 = {Value 003},
+ field004 = {Value 004},
+ field005 = {Value 005},
+ field006 = {Value 006},
+ field007 = {Value 007},
+ field008 = {Value 008},
+ field009 = {Value 009},
+ field010 = {Value 010}
+}
+
+EOF
+ done
+ done
+ done
+ done
+}
+
+# Create aux data
+mk_aux () {
+ echo '\relax'
+ echo '\citation{*}'
+ echo '\bibstyle{'$1'}'
+ echo '\bibdata{memtest}'
+}
+
+for t in 1 2 3; do
+
+ mk_aux memdata$t >tests/memtest$t.aux
+
+ case $t in
+ 1) mk_bib 0 >tests/memtest.bib;;
+ 2) mk_bib 1 >>tests/memtest.bib;;
+ 3) exit 0;; # requires larger constatnts
+ esac
+
+ echo "Running memtest$t ..."
+
+ TEXMFCNF=$srcdir/../kpathsea \
+ BSTINPUTS=$srcdir/../web2c/tests \
+ BIBINPUTS=./tests \
+ ./bibtex8 -c $srcdir/csf/88591lat.csf tests/memtest$t || exit 1
+
+done
+
diff --git a/Build/source/texk/bibtex8/tests/sort.test b/Build/source/texk/bibtex8/tests/sort.test
index e8afa6a720b..2c4828c7f48 100755
--- a/Build/source/texk/bibtex8/tests/sort.test
+++ b/Build/source/texk/bibtex8/tests/sort.test
@@ -3,6 +3,8 @@
# Copyright (C) 2010 Peter Breitenlohner <tex-live@tug.org>
# You may freely use, modify and/or distribute this file.
+# Using test data from Philipp Lehman <lehman@gmx.net>
+
test -d tests || mkdir -p tests
cp $srcdir/tests/sort.aux tests/xsort.aux
diff --git a/Build/source/texk/bibtexu/ChangeLog b/Build/source/texk/bibtexu/ChangeLog
index 58776f6f766..b004e57bc90 100644
--- a/Build/source/texk/bibtexu/ChangeLog
+++ b/Build/source/texk/bibtexu/ChangeLog
@@ -6,6 +6,10 @@
* gblvars.h (M_cites): Removed.
* utils.c (parse_cmd_line, usage): Ignore/remove --mcites.
+ * bibtex-1.c (add_database_cite): Fix bug, from bibtex.ch.
+
+ * Makefile.am (AM_CPPFLAGS): Remove obsolete -funsigned-char.
+
2010-03-16 Peter Breitenlohner <peb@mppmu.mpg.de>
* bibtex-1.c, utils.c: Delay allocation of entry_ints and
diff --git a/Build/source/texk/bibtexu/Makefile.am b/Build/source/texk/bibtexu/Makefile.am
index cc535b4c766..7a622a4fd39 100644
--- a/Build/source/texk/bibtexu/Makefile.am
+++ b/Build/source/texk/bibtexu/Makefile.am
@@ -9,12 +9,6 @@ INCLUDES = $(KPATHSEA_INCLUDES) $(ICU_INCLUDES)
AM_CPPFLAGS = -DUNIX -DKPATHSEA -DSUPPORT_8BIT
AM_CFLAGS = $(WARNING_CFLAGS)
-## FIXME: (1) this should go away once the code has been carefully
-## FIXME: analyzed and uses 'unsigned char' where necessary.
-## FIXME: (2) this should go to AM_CFLAGS, but AIX xlc only
-## FIXME: accepts this flag when compiling, not when linking.
-AM_CPPFLAGS += -funsigned-char
-
bin_PROGRAMS = bibtexu
# Force Automake to use CXXLD for linking
diff --git a/Build/source/texk/bibtexu/Makefile.in b/Build/source/texk/bibtexu/Makefile.in
index ab32d8502fa..dd8ab119dba 100644
--- a/Build/source/texk/bibtexu/Makefile.in
+++ b/Build/source/texk/bibtexu/Makefile.in
@@ -271,7 +271,7 @@ top_builddir = @top_builddir@
top_srcdir = @top_srcdir@
ACLOCAL_AMFLAGS = -I ../../m4
INCLUDES = $(KPATHSEA_INCLUDES) $(ICU_INCLUDES)
-AM_CPPFLAGS = -DUNIX -DKPATHSEA -DSUPPORT_8BIT -funsigned-char
+AM_CPPFLAGS = -DUNIX -DKPATHSEA -DSUPPORT_8BIT
AM_CFLAGS = $(WARNING_CFLAGS)
# Force Automake to use CXXLD for linking
diff --git a/Build/source/texk/bibtexu/bibtex-1.c b/Build/source/texk/bibtexu/bibtex-1.c
index 66067bd3371..07c0391f2bd 100644
--- a/Build/source/texk/bibtexu/bibtex-1.c
+++ b/Build/source/texk/bibtexu/bibtex-1.c
@@ -236,7 +236,7 @@ END
void add_database_cite (CiteNumber_T *new_cite)
BEGIN
check_cite_overflow (*new_cite);
- check_field_overflow (num_fields * (*new_cite));
+ check_field_overflow (num_fields * (*new_cite + 1));
cite_list[*new_cite] = hash_text[cite_loc];
ilk_info[cite_loc] = *new_cite;
ilk_info[lc_cite_loc] = cite_loc;
@@ -2817,8 +2817,15 @@ void check_field_overflow (Integer_T total_fields)
BEGIN
if (total_fields > Max_Fields)
BEGIN
+ field_ptr = Max_Fields;
BIB_XRETALLOC ("field_info", field_info, StrNumber_T,
Max_Fields, Max_Fields + MAX_FIELDS);
+ /* Initialize to |missing|. */
+ while (field_ptr < Max_Fields)
+ BEGIN
+ field_info[field_ptr] = MISSING;
+ INCR (field_ptr);
+ END
END
END
/*^^^^^^^^^^^^^^^^^^^^^^^^^^ END OF SECTION 226 ^^^^^^^^^^^^^^^^^^^^^^^^^^^*/
diff --git a/Build/source/texk/web2c/ChangeLog b/Build/source/texk/web2c/ChangeLog
index f009c76dd2a..1d000ce83b8 100644
--- a/Build/source/texk/web2c/ChangeLog
+++ b/Build/source/texk/web2c/ChangeLog
@@ -3,6 +3,10 @@
* bibtex.ch (max_cites): Dynamically resize the cite_list,
type_list, entry_exists, and cite_info arrays.
+ * tests/bibtex-mem.test: New shell script for dynamic arrays.
+ * tests/memdata[123].bst: Test data from Philipp Lehman.
+ * am/web.am: Adapted.
+
2010-03-16 Peter Breitenlohner <peb@mppmu.mpg.de>
* bibtex.ch (entry_ints, entry_strs): Delay allocation until
diff --git a/Build/source/texk/web2c/Makefile.in b/Build/source/texk/web2c/Makefile.in
index 00d36794da7..4088baafdc8 100644
--- a/Build/source/texk/web2c/Makefile.in
+++ b/Build/source/texk/web2c/Makefile.in
@@ -856,7 +856,7 @@ am__EXEEXT_22 = bibtex.test dvicopy.test dvitype.test gftodvi.test \
pktype.test pltotf.test pooltype.test tftopl.test vftovp.test \
vptovf.test weave.test
am__EXEEXT_23 = $(am__EXEEXT_22) tests/bibtex-openout-test.pl \
- tests/bibtex-longline-test.pl
+ tests/bibtex-longline-test.pl tests/bibtex-mem.test
@WEB_TRUE@am__EXEEXT_24 = $(am__EXEEXT_23)
DIST_SUBDIRS = $(SUBDIRS)
DISTFILES = $(DIST_COMMON) $(DIST_SOURCES) $(TEXINFOS) $(EXTRA_DIST)
@@ -1101,7 +1101,8 @@ EXTRA_LIBRARIES = libmf.a libmplib.a libpdftex.a liblua51.a \
EXTRA_DIST = PROJECTS cftests config.h cpascal.h help.h triptrap-sh \
tangle.web tangle.ch tangleboot.pin cwebdir ctangleboot.cin \
cwebboot.cin cwebboot.hin tangle.test $(web_programs:=.web) \
- $(web_programs:=.ch) $(web_tests) tests/allbib.aux \
+ $(web_programs:=.ch) $(web_tests) tests/memdata1.bst \
+ tests/memdata2.bst tests/memdata3.bst tests/allbib.aux \
tests/allbib.tex tests/apalike.bst tests/batch.tex \
tests/check.log tests/cmr10.600gf tests/cmr10.pk \
tests/cmr10.pl tests/cmr10.tfm tests/cmr7.tfm tests/cmr8.tfm \
@@ -1310,21 +1311,21 @@ DISTCLEANFILES = $(EXTRA_LIBRARIES) tangle.c tangle.h tangle.p \
common-ctangle ctangleboot.c cwebboot.c cwebboot.h cftest.p \
$(web_programs:=.c) $(web_programs:=.h) $(web_programs:=.p) \
$(web_programs:=-web2c) tests/xexampl.aux tests/xexampl.bbl \
- tests/xexampl.blg tests/xstory.dvi tests/xpplr.dvi \
- tests/xstory.dvityp tests/xpagenum.typ cmr10.dvi \
- tests/xcmr10.dvi cmr10.pk tests/xcmr10.pk tests/xcmr10.gft1 \
- tests/xcmr10.gft2 io.tex tests/io.tex tests/xpatout pattmp.4 \
- cmr10.gf tests/xcmr10.600gf tests/xcmr10.pktyp \
- tests/xcmr10.tfm tests/xtexpool.typ tests/xcmr10.pl \
- tests/xptmr.vpl tests/xptmr.tfm tests/xptmr.vf pooltype.tex \
- ctie.c cweave.c tie.c ctie.outc ctie.outm common.tex \
- common.scn common.idx tie.outc tie.outm $(nodist_tex_SOURCES) \
- tex-final.ch tex-web2c tex.p tex.pool tex-tangle trip.diffs \
- mftrap.diffs $(nodist_libmf_a_SOURCES) mfextra.c mf-final.ch \
- mf-web2c mf.p mf.pool mf-tangle $(nodist_mpost_SOURCES) \
- mpxout-tangle mptrap.diffs ptmr.mpx tests/xptmr.mpx \
- tests/xstory.mpx $(nodist_libmplib_a_SOURCES) memio-tangle \
- mp-tangle psout-tangle svgout-tangle tfmin-tangle \
+ tests/xexampl.blg tests/memtest* tests/xstory.dvi \
+ tests/xpplr.dvi tests/xstory.dvityp tests/xpagenum.typ \
+ cmr10.dvi tests/xcmr10.dvi cmr10.pk tests/xcmr10.pk \
+ tests/xcmr10.gft1 tests/xcmr10.gft2 io.tex tests/io.tex \
+ tests/xpatout pattmp.4 cmr10.gf tests/xcmr10.600gf \
+ tests/xcmr10.pktyp tests/xcmr10.tfm tests/xtexpool.typ \
+ tests/xcmr10.pl tests/xptmr.vpl tests/xptmr.tfm tests/xptmr.vf \
+ pooltype.tex ctie.c cweave.c tie.c ctie.outc ctie.outm \
+ common.tex common.scn common.idx tie.outc tie.outm \
+ $(nodist_tex_SOURCES) tex-final.ch tex-web2c tex.p tex.pool \
+ tex-tangle trip.diffs mftrap.diffs $(nodist_libmf_a_SOURCES) \
+ mfextra.c mf-final.ch mf-web2c mf.p mf.pool mf-tangle \
+ $(nodist_mpost_SOURCES) mpxout-tangle mptrap.diffs ptmr.mpx \
+ tests/xptmr.mpx tests/xstory.mpx $(nodist_libmplib_a_SOURCES) \
+ memio-tangle mp-tangle psout-tangle svgout-tangle tfmin-tangle \
$(nodist_etex_SOURCES) etex.web etex.ch etex-web2c etex.p \
etex.pool etex-tangle etexdir/etex.version etrip.diffs \
$(nodist_pdftex_SOURCES) pdftex.ch pdftex-web2c pdftex.p \
@@ -1406,7 +1407,7 @@ web_programs = bibtex dvicopy dvitype gftodvi gftopk gftype mft \
patgen pktogf pktype pltotf pooltype tftopl vftovp vptovf weave
web_tests = $(web_programs:=.test) tests/bibtex-openout-test.pl \
- tests/bibtex-longline-test.pl
+ tests/bibtex-longline-test.pl tests/bibtex-mem.test
nodist_bibtex_SOURCES = bibtex.c bibtex.h
nodist_dvicopy_SOURCES = dvicopy.c dvicopy.h
nodist_dvitype_SOURCES = dvitype.c dvitype.h
diff --git a/Build/source/texk/web2c/am/web.am b/Build/source/texk/web2c/am/web.am
index 462c681d327..e6dc123bed8 100644
--- a/Build/source/texk/web2c/am/web.am
+++ b/Build/source/texk/web2c/am/web.am
@@ -27,6 +27,7 @@ bibtex-web2c: bibtex.p $(web2c_depend) web2c/cvtbib.sed
bibtex.p: tangle$(EXEEXT) bibtex.web bibtex.ch
$(tangle) bibtex bibtex
web_tests += tests/bibtex-openout-test.pl tests/bibtex-longline-test.pl
+web_tests += tests/bibtex-mem.test
nodist_dvicopy_SOURCES = dvicopy.c dvicopy.h
dvicopy.c dvicopy.h: dvicopy-web2c
@@ -158,6 +159,9 @@ EXTRA_DIST += $(web_tests)
## bibtex.test
DISTCLEANFILES += tests/xexampl.aux tests/xexampl.bbl tests/xexampl.blg
+## tests/bibtex-mem.test
+EXTRA_DIST += tests/memdata1.bst tests/memdata2.bst tests/memdata3.bst
+DISTCLEANFILES += tests/memtest*
## dvicopy.test
DISTCLEANFILES += tests/xstory.dvi tests/xpplr.dvi
## dvitype.test
diff --git a/Build/source/texk/web2c/tests/bibtex-mem.test b/Build/source/texk/web2c/tests/bibtex-mem.test
new file mode 100755
index 00000000000..044b1c5888a
--- /dev/null
+++ b/Build/source/texk/web2c/tests/bibtex-mem.test
@@ -0,0 +1,64 @@
+#! /bin/sh
+
+# Copyright (C) 2010 Peter Breitenlohner <tex-live@tug.org>
+# You may freely use, modify and/or distribute this file.
+
+# Using test data from Philipp Lehman <lehman@gmx.net>
+
+test -d tests || mkdir -p tests
+
+# Create bib data
+mk_bib () {
+ for i
+ do
+ for j in 0 1 2 3 4 5 6 7 8 9; do
+ for k in 0 1 2 3 4 5 6 7 8 9; do
+ for l in 0 1 2 3 4 5 6 7 8 9; do
+ cat <<EOF
+@Type{key$i$j$k$l,
+ field001 = {Value 001},
+ field002 = {Value 002},
+ field003 = {Value 003},
+ field004 = {Value 004},
+ field005 = {Value 005},
+ field006 = {Value 006},
+ field007 = {Value 007},
+ field008 = {Value 008},
+ field009 = {Value 009},
+ field010 = {Value 010}
+}
+
+EOF
+ done
+ done
+ done
+ done
+}
+
+# Create aux data
+mk_aux () {
+ echo '\relax'
+ echo '\citation{*}'
+ echo '\bibstyle{'$1'}'
+ echo '\bibdata{memtest}'
+}
+
+for t in 1 2 3; do
+
+ mk_aux memdata$t >tests/memtest$t.aux
+
+ case $t in
+ 1) mk_bib 0 >tests/memtest.bib;;
+ 2) mk_bib 1 >>tests/memtest.bib;;
+ 3) exit 0;; # requires larger constatnts
+ esac
+
+ echo "Running memtest$t ..."
+
+ TEXMFCNF=$srcdir/../kpathsea \
+ BSTINPUTS=$srcdir/tests \
+ BIBINPUTS=./tests \
+ ./bibtex tests/memtest$t || exit 1
+
+done
+
diff --git a/Build/source/texk/web2c/tests/memdata1.bst b/Build/source/texk/web2c/tests/memdata1.bst
new file mode 100644
index 00000000000..dae063cf2ef
--- /dev/null
+++ b/Build/source/texk/web2c/tests/memdata1.bst
@@ -0,0 +1,84 @@
+ENTRY {
+ field001
+ field002
+ field003
+ field004
+ field005
+ field006
+ field007
+ field008
+ field009
+ field010
+ field011
+ field012
+ field013
+ field014
+ field015
+ field016
+ field017
+ field018
+ field019
+ field020
+ field021
+ field022
+ field023
+ field024
+ field025
+ field026
+ field027
+ field028
+ field029
+ field030
+ field031
+ field032
+ field033
+ field034
+ field035
+ field036
+ field037
+ field038
+ field039
+ field040
+ field041
+ field042
+ field043
+ field044
+ field045
+ field046
+ field047
+ field048
+ field049
+ field050
+}{}{}
+
+FUNCTION {output_entry} {
+ cite$ " " * write$
+}
+
+FUNCTION {type} {output_entry}
+
+READ
+
+FUNCTION {set_sortkey} {
+ cite$ 'sort.key$ :=
+}
+
+ITERATE {set_sortkey}
+
+SORT
+
+FUNCTION {output_beg} {
+ "\section*{Test result}" write$ newline$
+ "Processing... " write$
+}
+
+FUNCTION {output_end} {
+ newline$
+ "\endinput" write$ newline$
+}
+
+EXECUTE {output_beg}
+
+ITERATE {call.type$}
+
+EXECUTE {output_end}
diff --git a/Build/source/texk/web2c/tests/memdata2.bst b/Build/source/texk/web2c/tests/memdata2.bst
new file mode 100644
index 00000000000..98dd2df3f1a
--- /dev/null
+++ b/Build/source/texk/web2c/tests/memdata2.bst
@@ -0,0 +1,234 @@
+ENTRY {
+ field001
+ field002
+ field003
+ field004
+ field005
+ field006
+ field007
+ field008
+ field009
+ field010
+ field011
+ field012
+ field013
+ field014
+ field015
+ field016
+ field017
+ field018
+ field019
+ field020
+ field021
+ field022
+ field023
+ field024
+ field025
+ field026
+ field027
+ field028
+ field029
+ field030
+ field031
+ field032
+ field033
+ field034
+ field035
+ field036
+ field037
+ field038
+ field039
+ field040
+ field041
+ field042
+ field043
+ field044
+ field045
+ field046
+ field047
+ field048
+ field049
+ field050
+ field051
+ field052
+ field053
+ field054
+ field055
+ field056
+ field057
+ field058
+ field059
+ field060
+ field061
+ field062
+ field063
+ field064
+ field065
+ field066
+ field067
+ field068
+ field069
+ field070
+ field071
+ field072
+ field073
+ field074
+ field075
+ field076
+ field077
+ field078
+ field079
+ field080
+ field081
+ field082
+ field083
+ field084
+ field085
+ field086
+ field087
+ field088
+ field089
+ field090
+ field091
+ field092
+ field093
+ field094
+ field095
+ field096
+ field097
+ field098
+ field099
+ field100
+ field101
+ field102
+ field103
+ field104
+ field105
+ field106
+ field107
+ field108
+ field109
+ field110
+ field111
+ field112
+ field113
+ field114
+ field115
+ field116
+ field117
+ field118
+ field119
+ field120
+ field121
+ field122
+ field123
+ field124
+ field125
+ field126
+ field127
+ field128
+ field129
+ field130
+ field131
+ field132
+ field133
+ field134
+ field135
+ field136
+ field137
+ field138
+ field139
+ field140
+ field141
+ field142
+ field143
+ field144
+ field145
+ field146
+ field147
+ field148
+ field149
+ field150
+ field151
+ field152
+ field153
+ field154
+ field155
+ field156
+ field157
+ field158
+ field159
+ field160
+ field161
+ field162
+ field163
+ field164
+ field165
+ field166
+ field167
+ field168
+ field169
+ field170
+ field171
+ field172
+ field173
+ field174
+ field175
+ field176
+ field177
+ field178
+ field179
+ field180
+ field181
+ field182
+ field183
+ field184
+ field185
+ field186
+ field187
+ field188
+ field189
+ field190
+ field191
+ field192
+ field193
+ field194
+ field195
+ field196
+ field197
+ field198
+ field199
+ field200
+}{}{}
+
+FUNCTION {output_entry} {
+ cite$ " " * write$
+}
+
+FUNCTION {type} {output_entry}
+
+READ
+
+FUNCTION {set_sortkey} {
+ cite$ 'sort.key$ :=
+}
+
+ITERATE {set_sortkey}
+
+SORT
+
+FUNCTION {output_beg} {
+ "\section*{Test result}" write$ newline$
+ "Processing... " write$
+}
+
+FUNCTION {output_end} {
+ newline$
+ "\endinput" write$ newline$
+}
+
+EXECUTE {output_beg}
+
+ITERATE {call.type$}
+
+EXECUTE {output_end}
diff --git a/Build/source/texk/web2c/tests/memdata3.bst b/Build/source/texk/web2c/tests/memdata3.bst
new file mode 100644
index 00000000000..0f0205f4bba
--- /dev/null
+++ b/Build/source/texk/web2c/tests/memdata3.bst
@@ -0,0 +1,654 @@
+ENTRY {
+ field001
+ field002
+ field003
+ field004
+ field005
+ field006
+ field007
+ field008
+ field009
+ field010
+ field011
+ field012
+ field013
+ field014
+ field015
+ field016
+ field017
+ field018
+ field019
+ field020
+ field021
+ field022
+ field023
+ field024
+ field025
+ field026
+ field027
+ field028
+ field029
+ field030
+ field031
+ field032
+ field033
+ field034
+ field035
+ field036
+ field037
+ field038
+ field039
+ field040
+ field041
+ field042
+ field043
+ field044
+ field045
+ field046
+ field047
+ field048
+ field049
+ field050
+ field051
+ field052
+ field053
+ field054
+ field055
+ field056
+ field057
+ field058
+ field059
+ field060
+ field061
+ field062
+ field063
+ field064
+ field065
+ field066
+ field067
+ field068
+ field069
+ field070
+ field071
+ field072
+ field073
+ field074
+ field075
+ field076
+ field077
+ field078
+ field079
+ field080
+ field081
+ field082
+ field083
+ field084
+ field085
+ field086
+ field087
+ field088
+ field089
+ field090
+ field091
+ field092
+ field093
+ field094
+ field095
+ field096
+ field097
+ field098
+ field099
+ field100
+ field101
+ field102
+ field103
+ field104
+ field105
+ field106
+ field107
+ field108
+ field109
+ field110
+ field111
+ field112
+ field113
+ field114
+ field115
+ field116
+ field117
+ field118
+ field119
+ field120
+ field121
+ field122
+ field123
+ field124
+ field125
+ field126
+ field127
+ field128
+ field129
+ field130
+ field131
+ field132
+ field133
+ field134
+ field135
+ field136
+ field137
+ field138
+ field139
+ field140
+ field141
+ field142
+ field143
+ field144
+ field145
+ field146
+ field147
+ field148
+ field149
+ field150
+ field151
+ field152
+ field153
+ field154
+ field155
+ field156
+ field157
+ field158
+ field159
+ field160
+ field161
+ field162
+ field163
+ field164
+ field165
+ field166
+ field167
+ field168
+ field169
+ field170
+ field171
+ field172
+ field173
+ field174
+ field175
+ field176
+ field177
+ field178
+ field179
+ field180
+ field181
+ field182
+ field183
+ field184
+ field185
+ field186
+ field187
+ field188
+ field189
+ field190
+ field191
+ field192
+ field193
+ field194
+ field195
+ field196
+ field197
+ field198
+ field199
+ field200
+}
+{
+ int001
+ int002
+ int003
+ int004
+ int005
+ int006
+ int007
+ int008
+ int009
+ int010
+ int011
+ int012
+ int013
+ int014
+ int015
+ int016
+ int017
+ int018
+ int019
+ int020
+ int021
+ int022
+ int023
+ int024
+ int025
+ int026
+ int027
+ int028
+ int029
+ int030
+ int031
+ int032
+ int033
+ int034
+ int035
+ int036
+ int037
+ int038
+ int039
+ int040
+ int041
+ int042
+ int043
+ int044
+ int045
+ int046
+ int047
+ int048
+ int049
+ int050
+ int051
+ int052
+ int053
+ int054
+ int055
+ int056
+ int057
+ int058
+ int059
+ int060
+ int061
+ int062
+ int063
+ int064
+ int065
+ int066
+ int067
+ int068
+ int069
+ int070
+ int071
+ int072
+ int073
+ int074
+ int075
+ int076
+ int077
+ int078
+ int079
+ int080
+ int081
+ int082
+ int083
+ int084
+ int085
+ int086
+ int087
+ int088
+ int089
+ int090
+ int091
+ int092
+ int093
+ int094
+ int095
+ int096
+ int097
+ int098
+ int099
+ int100
+}
+{
+ str001
+ str002
+ str003
+ str004
+ str005
+ str006
+ str007
+ str008
+ str009
+ str010
+ str011
+ str012
+ str013
+ str014
+ str015
+ str016
+ str017
+ str018
+ str019
+ str020
+ str021
+ str022
+ str023
+ str024
+ str025
+ str026
+ str027
+ str028
+ str029
+ str030
+ str031
+ str032
+ str033
+ str034
+ str035
+ str036
+ str037
+ str038
+ str039
+ str040
+ str041
+ str042
+ str043
+ str044
+ str045
+ str046
+ str047
+ str048
+ str049
+ str050
+ str051
+ str052
+ str053
+ str054
+ str055
+ str056
+ str057
+ str058
+ str059
+ str060
+ str061
+ str062
+ str063
+ str064
+ str065
+ str066
+ str067
+ str068
+ str069
+ str070
+ str071
+ str072
+ str073
+ str074
+ str075
+ str076
+ str077
+ str078
+ str079
+ str080
+ str081
+ str082
+ str083
+ str084
+ str085
+ str086
+ str087
+ str088
+ str089
+ str090
+ str091
+ str092
+ str093
+ str094
+ str095
+ str096
+ str097
+ str098
+ str099
+ str100
+}
+
+INTEGERS {
+ g_int001
+ g_int002
+ g_int003
+ g_int004
+ g_int005
+ g_int006
+ g_int007
+ g_int008
+ g_int009
+ g_int010
+ g_int011
+ g_int012
+ g_int013
+ g_int014
+ g_int015
+ g_int016
+ g_int017
+ g_int018
+ g_int019
+ g_int020
+ g_int021
+ g_int022
+ g_int023
+ g_int024
+ g_int025
+ g_int026
+ g_int027
+ g_int028
+ g_int029
+ g_int030
+ g_int031
+ g_int032
+ g_int033
+ g_int034
+ g_int035
+ g_int036
+ g_int037
+ g_int038
+ g_int039
+ g_int040
+ g_int041
+ g_int042
+ g_int043
+ g_int044
+ g_int045
+ g_int046
+ g_int047
+ g_int048
+ g_int049
+ g_int050
+}
+
+STRINGS {
+ g_str001
+ g_str002
+ g_str003
+ g_str004
+ g_str005
+ g_str006
+ g_str007
+ g_str008
+ g_str009
+ g_str010
+ g_str011
+ g_str012
+ g_str013
+ g_str014
+ g_str015
+ g_str016
+ g_str017
+ g_str018
+ g_str019
+ g_str020
+ g_str021
+ g_str022
+ g_str023
+ g_str024
+ g_str025
+ g_str026
+ g_str027
+ g_str028
+ g_str029
+ g_str030
+ g_str031
+ g_str032
+ g_str033
+ g_str034
+ g_str035
+ g_str036
+ g_str037
+ g_str038
+ g_str039
+ g_str040
+ g_str041
+ g_str042
+ g_str043
+ g_str044
+ g_str045
+ g_str046
+ g_str047
+ g_str048
+ g_str049
+ g_str050
+}
+
+FUNCTION {single_fn_space} {
+ "text"
+ duplicate$ pop$
+ duplicate$ pop$
+ duplicate$ pop$
+ duplicate$ pop$
+ duplicate$ pop$
+ duplicate$ pop$
+ duplicate$ pop$
+ duplicate$ pop$
+ duplicate$ pop$
+ duplicate$ pop$
+ duplicate$ pop$
+ duplicate$ pop$
+ duplicate$ pop$
+ duplicate$ pop$
+ duplicate$ pop$
+ duplicate$ pop$
+ duplicate$ pop$
+ duplicate$ pop$
+ duplicate$ pop$
+ duplicate$ pop$
+ duplicate$ pop$
+ duplicate$ pop$
+ duplicate$ pop$
+ duplicate$ pop$
+ duplicate$ pop$
+ duplicate$ pop$
+ duplicate$ pop$
+ duplicate$ pop$
+ duplicate$ pop$
+ duplicate$ pop$
+ duplicate$ pop$
+ duplicate$ pop$
+ duplicate$ pop$
+ duplicate$ pop$
+ duplicate$ pop$
+ duplicate$ pop$
+ duplicate$ pop$
+ duplicate$ pop$
+ duplicate$ pop$
+ duplicate$ pop$
+ duplicate$ pop$
+ duplicate$ pop$
+ duplicate$ pop$
+ duplicate$ pop$
+ duplicate$ pop$
+ duplicate$ pop$
+ duplicate$ pop$
+ duplicate$ pop$
+ duplicate$ pop$
+ duplicate$ pop$
+ duplicate$ pop$
+ duplicate$ pop$
+ duplicate$ pop$
+ pop$
+}
+
+FUNCTION {output_entry} {
+ cite$ " " * write$
+}
+
+FUNCTION {type} {output_entry}
+
+FUNCTION {default.type} {type}
+
+READ
+
+FUNCTION {set_sortkey} {
+ cite$ 'sort.key$ :=
+}
+
+ITERATE {set_sortkey}
+
+SORT
+
+FUNCTION {pool_size} {
+ "abcdefghijklmnopqrstuvwxy"
+ duplicate$ *
+ duplicate$ *
+ duplicate$ *
+ duplicate$ *
+ duplicate$ *
+ duplicate$ *
+ duplicate$ *
+ duplicate$ *
+ duplicate$ *
+ duplicate$ *
+ duplicate$ *
+ duplicate$ *
+ duplicate$ *
+ duplicate$ *
+ duplicate$ *
+ duplicate$ *
+ duplicate$ *
+ pop$
+}
+
+EXECUTE {pool_size}
+
+FUNCTION {glob_str_size} {
+ "abcdefghijklmnopqrstuvwxy"
+ duplicate$ *
+ duplicate$ *
+ duplicate$ *
+ duplicate$ *
+ duplicate$ *
+ duplicate$ *
+ 'g_str001 :=
+}
+
+EXECUTE {glob_str_size}
+
+FUNCTION {ent_str_size} {
+ "abcdefghijklmnopqrstuvwxy"
+ duplicate$ *
+ duplicate$ *
+ duplicate$ *
+ duplicate$ *
+ duplicate$ *
+ duplicate$ *
+ 'str001 :=
+}
+
+ITERATE {ent_str_size}
+
+FUNCTION {output_beg} {
+ "\section*{Test result}" write$ newline$
+ "Processing... " write$
+}
+
+FUNCTION {output_end} {
+ newline$
+ "\endinput" write$ newline$
+}
+
+EXECUTE {output_beg}
+
+ITERATE {call.type$}
+
+EXECUTE {output_end}