X-Git-Url: https://pintos-os.org/cgi-bin/gitweb.cgi?a=blobdiff_plain;f=src%2Ffile-type.c;h=1e647ecbabbc8c9102475a83194442c87c832e6c;hb=d4d9866bb2ec1797b8fb103e7144d0e9ffd1abff;hp=b0ed4607f06625071ff2941f30dee15ad6939e79;hpb=cb4033020c8a24d573814e6ac9192046bffdccac;p=pspp

diff --git a/src/file-type.c b/src/file-type.c
index b0ed4607f0..1e647ecbab 100644
--- a/src/file-type.c
+++ b/src/file-type.c
@@ -21,7 +21,6 @@
 #include <assert.h>
 #include <stdlib.h>
 #include "alloc.h"
-#include "approx.h"
 #include "command.h"
 #include "data-in.h"
 #include "dfm.h"
@@ -284,15 +283,13 @@ cmd_file_type (void)
 static void
 create_col_var (struct col_spec *c)
 {
-  int type;
   int width;
 
-  type = (formats[c->fmt].cat & FCAT_STRING) ? ALPHA : NUMERIC;
-  if (type == ALPHA)
+  if (formats[c->fmt].cat & FCAT_STRING)
     width = c->nc;
   else
     width = 0;
-  c->v = force_create_variable (&default_dict, c->name, type, width);
+  c->v = dict_create_var (default_dict, c->name, width);
 }
 
 /* Parses variable, column, type specifications for a variable. */
@@ -612,7 +609,8 @@ cmd_end_file_type (void)
 /* Reads any number of cases into temp_case and calls write_case() for
    each one.  Compare data-list.c:read_from_data_list. */
 static void
-file_type_source_read (void)
+file_type_source_read (write_case_func *write_case UNUSED,
+                       write_case_data wc_data UNUSED)
 {
   char *line;
   int len;
@@ -673,7 +671,7 @@ file_type_source_read (void)
 	      if (iter->flags & RCT_OTHER)
 		goto found;
 	      for (i = 0; i < iter->nv; i++)
-		if (approx_eq (iter->v[i].f, v.f))
+		if (iter->v[i].f == v.f)
 		  goto found;
 	    }
 	  if (fty.wild)