From 87d25c40a989b50b41748dfc88040270306019b0 Mon Sep 17 00:00:00 2001 From: Peter Breitenlohner Date: Tue, 9 Mar 2010 14:46:22 +0000 Subject: minor bibtex/bibtex8/bibtexu clean up git-svn-id: svn://tug.org/texlive/trunk@17397 c570f23f-e606-0410-a88d-b1316a301751 --- Build/source/texk/web2c/cpascal.h | 7 +++++++ 1 file changed, 7 insertions(+) (limited to 'Build/source/texk/web2c/cpascal.h') diff --git a/Build/source/texk/web2c/cpascal.h b/Build/source/texk/web2c/cpascal.h index b1e96ac5473..5428f8ecb44 100644 --- a/Build/source/texk/web2c/cpascal.h +++ b/Build/source/texk/web2c/cpascal.h @@ -172,6 +172,13 @@ typedef unsigned char *pointertobyte; XRETALLOC (array_var, new_size + 1, type); \ size_var = new_size; \ } while (0) +/* Same as above, but don't increase SIZE_VAR when more arrays when + additional arrays with the same size parameter will be resized. */ +#define BIBXRETALLOCNOSET(array_name, array_var, type, size_var, new_size) do { \ + fprintf (logfile, "Reallocated %s (elt_size=%d) to %ld items from %ld.\n", \ + array_name, (int) sizeof (type), new_size, size_var); \ + XRETALLOC (array_var, new_size + 1, type); \ +} while (0) /* Need precisely int for getopt, etc. */ #define cinttype int -- cgit v1.2.3