summaryrefslogtreecommitdiff
path: root/Build/source/texk/web2c/cpascal.h
diff options
context:
space:
mode:
Diffstat (limited to 'Build/source/texk/web2c/cpascal.h')
-rw-r--r--Build/source/texk/web2c/cpascal.h7
1 files changed, 7 insertions, 0 deletions
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