X-Git-Url: https://pintos-os.org/cgi-bin/gitweb.cgi?a=blobdiff_plain;f=src%2Fdata-in.c;h=3931067daabe0f002dc9365c8873af2a72c13b89;hb=bc2466a1677cc97a837a75439b3d4c3b49a8125a;hp=eca83d0b44a96764d18b69171a15644284ad4bee;hpb=3a7fba81ceae5b049d0f7d671e9e3c3c43bbf703;p=pspp-builds.git

diff --git a/src/data-in.c b/src/data-in.c
index eca83d0b..3931067d 100644
--- a/src/data-in.c
+++ b/src/data-in.c
@@ -19,7 +19,7 @@
 
 #include <config.h>
 #include "data-in.h"
-#include <assert.h>
+#include "error.h"
 #include <math.h>
 #include <ctype.h>
 #include <stdarg.h>
@@ -42,7 +42,7 @@
 /* Specialized error routine. */
 
 static void dls_error (const struct data_in *, const char *format, ...)
-     __attribute__ ((format (printf, 2, 3)));
+     PRINTF_FORMAT (2, 3);
 
 static void
 dls_error (const struct data_in *i, const char *format, ...)
@@ -140,16 +140,18 @@ parse_numeric (struct data_in *i)
       if (*i->s == '-' || *i->s == '+')
 	i->s++;
     }
+  else
+    sign = 1;
   
   if (type != FMT_DOT)
     {
-      decimal = set_decimal;
-      grouping = set_grouping;
+      decimal = get_decimal();
+      grouping = get_grouping();
     }
   else
     {
-      decimal = set_grouping;
-      grouping = set_decimal;
+      decimal = get_grouping();
+      grouping = get_decimal();
     }
 
   i->v->f = SYSMIS;
@@ -381,9 +383,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;
       }
   }
@@ -1488,7 +1491,7 @@ default_result (struct data_in *i)
   if (fmt->cat & FCAT_STRING)
     memset (i->v->s, ' ', i->format.w);
   else
-    i->v->f = set_blanks;
+    i->v->f = get_blanks();
 }
 
 int
@@ -1526,7 +1529,7 @@ data_in (struct data_in *i)
 
 	  if (++cp == i->e)
 	    {
-	      i->v->f = set_blanks;
+	      i->v->f = get_blanks();
 	      return 1;
 	    }
 	}