CROSSTABS: Always cite all the dimensions if there are too many.

[pspp] / src / language / commands / crosstabs.c

diff --git a/src/language/commands/crosstabs.c b/src/language/commands/crosstabs.c
index 0762d0efb68316187d95d931967246cb5fc50723..72579b0b972a17b7be971b8e92e943dd1daccfdc 100644 (file)
--- a/src/language/commands/crosstabs.c
+++ b/src/language/commands/crosstabs.c
@@ -601,6 +601,7 @@ parse_crosstabs_tables (struct lexer *lexer, struct dataset *ds,
   size_t nx = 1;
   size_t n_by = 0;
   int vars_start = lex_ofs (lexer);
+  bool overflow = false;
   do
     {
       by = xnrealloc (by, n_by + 1, sizeof *by);
@@ -610,15 +611,16 @@ parse_crosstabs_tables (struct lexer *lexer, struct dataset *ds,
        goto done;
       size_t n = by_nvar[n_by++];
       if (xalloc_oversized (nx, n))
-        {
-          lex_ofs_error (
-            lexer, vars_start, lex_ofs (lexer) - 1,
-            _("Too many cross-tabulation variables or dimensions."));
-          goto done;
-        }
+        overflow = true;
       nx *= n;
     }
   while (lex_match (lexer, T_BY));
+  if (overflow)
+    {
+      lex_ofs_error (lexer, vars_start, lex_ofs (lexer) - 1,
+                     _("Too many cross-tabulation variables or dimensions."));
+      goto done;
+    }
   if (n_by < 2)
     {
       bool unused UNUSED = lex_force_match (lexer, T_BY);