CVSROOT: /sources/m4
Module name: m4
Branch: branch-1_4
Changes by: Eric Blake <ericb> 06/08/18 03:39:11
Index: src/builtin.c
===================================================================
RCS file: /sources/m4/m4/src/Attic/builtin.c,v
retrieving revision 1.1.1.1.2.33
retrieving revision 1.1.1.1.2.34
diff -u -b -r1.1.1.1.2.33 -r1.1.1.1.2.34
--- src/builtin.c 16 Aug 2006 14:30:10 -0000 1.1.1.1.2.33
+++ src/builtin.c 18 Aug 2006 03:39:11 -0000 1.1.1.1.2.34
@@ -1683,12 +1683,12 @@
case '1': case '2': case '3': case '4': case '5': case '6':
case '7': case '8': case '9':
ch -= '0';
- if (regs->end[ch] > 0)
- obstack_grow (obs, victim + regs->start[ch],
- regs->end[ch] - regs->start[ch]);
- else
+ if (regs->num_regs - 1 <= ch)
M4ERROR ((warning_status, 0, "\
Warning: sub-expression %d not present", ch));
+ else if (regs->end[ch] > 0)
+ obstack_grow (obs, victim + regs->start[ch],
+ regs->end[ch] - regs->start[ch]);
break;
case '\0':
