X-Git-Url: https://pintos-os.org/cgi-bin/gitweb.cgi?a=blobdiff_plain;f=src%2Fdata-in.c;h=aac47680ff6731e791b807af483a3577eff9ab7e;hb=5382abe75bbd1689aca8c922fbf084af9f6bd723;hp=dc2e707d8723217f6780fee14c3f8ac3e0cefed7;hpb=cb4033020c8a24d573814e6ac9192046bffdccac;p=pspp-builds.git

diff --git a/src/data-in.c b/src/data-in.c
index dc2e707d..aac47680 100644
--- a/src/data-in.c
+++ b/src/data-in.c
@@ -18,6 +18,7 @@
    02111-1307, USA. */
 
 #include <config.h>
+#include "data-in.h"
 #include <assert.h>
 #include <math.h>
 #include <ctype.h>
@@ -25,7 +26,6 @@
 #include <stddef.h>
 #include <stdio.h>
 #include <stdlib.h>
-#include "data-in.h"
 #include "error.h"
 #include "getline.h"
 #include "julcal/julcal.h"
@@ -36,8 +36,6 @@
 #include "str.h"
 #include "var.h"
 
-#undef DEBUGGING
-/*#define DEBUGGING 1 */
 #include "debug-print.h"
 
 
@@ -288,6 +286,7 @@ parse_N (struct data_in *i)
 {
   const unsigned char *cp;
 
+  i->v->f = 0;
   for (cp = i->s; cp < i->e; cp++)
     {
       if (!isdigit (*cp))
@@ -382,9 +381,10 @@ parse_Z (struct data_in *i)
 
     if (!warned)
       {
-	msg (MW, _("Quality of zoned decimal (Z) input format code is "
-		   "suspect.  Check your results three times, report bugs "
-		   "to author."));
+	msg (MW, 
+	     _("Quality of zoned decimal (Z) input format code is "
+	       "suspect.  Check your results three times. Report bugs "
+		"to %s."),PACKAGE_BUGREPORT);
 	warned = 1;
       }
   }