Changes to m4/src/freeze.c,v [branch-1_4]

[Eric Blake]

CVSROOT:        /sources/m4
Module name:    m4
Branch:         branch-1_4
Changes by:     Eric Blake <ericb>      06/07/19 14:55:53

Index: src/freeze.c
===================================================================
RCS file: /sources/m4/m4/src/freeze.c,v
retrieving revision 1.1.1.1.2.9
retrieving revision 1.1.1.1.2.10
diff -u -b -r1.1.1.1.2.9 -r1.1.1.1.2.10
--- src/freeze.c        7 Jul 2006 03:37:26 -0000       1.1.1.1.2.9
+++ src/freeze.c        19 Jul 2006 14:55:53 -0000      1.1.1.1.2.10
@@ -234,8 +234,14 @@
   GET_DIRECTIVE;
   VALIDATE ('V');
   GET_CHARACTER;
-  VALIDATE ('1');
-  GET_CHARACTER;
+  GET_NUMBER (number[0]);
+  if (number[0] > 1)
+    M4ERROR ((EXIT_MISMATCH, 0,
+              "frozen file version %d greater than max supported of 1",
+             number[0]));
+  else if (number[0] < 1)
+    M4ERROR ((EXIT_FAILURE, 0,
+              "ill-formed frozen file, version directive expected"));
   VALIDATE ('\n');
 
   GET_DIRECTIVE;