Make value_set_missing(), etc. tolerate values of width -1.

[pspp-builds.git] / src / language / lexer / range-parser.c

diff --git a/src/language/lexer/range-parser.c b/src/language/lexer/range-parser.c
index 4239518440e22bf82ce5db044d74d18eba6d9446..4cf21cf044ae2619bb395a2012748e5ba62a1647 100644 (file)
--- a/src/language/lexer/range-parser.c
+++ b/src/language/lexer/range-parser.c
@@ -22,6 +22,7 @@
 #include "lexer.h"
 #include <libpspp/str.h>
 #include <data/value.h>
+#include <data/format.h>
 
 #include "gettext.h"
 #define _(msgid) gettext (msgid)
@@ -98,7 +99,8 @@ parse_number (struct lexer *lexer, double *x, const enum fmt_type *format)
   else if (lex_token (lexer) == T_STRING && format != NULL)
     {
       union value v;
-      data_in (ds_ss (lex_tokstr (lexer)), *format, 0, 0, &v, 0);
+      data_in (ds_ss (lex_tokstr (lexer)), LEGACY_NATIVE,
+               *format, 0, 0, 0, &v, 0);
       lex_get (lexer);
       *x = v.f;
       if (*x == SYSMIS)