(postopen) Cast `char' to `unsigned char' before passing to isspace().

[pspp-builds.git] / src / file-type.c

diff --git a/src/file-type.c b/src/file-type.c
index 87bd874f102dddec1b84a5757bc48500225dfe98..b90ae1840dbc1b7a462086ea85fcdb4ee76c5326 100644 (file)
--- a/src/file-type.c
+++ b/src/file-type.c
@@ -94,6 +94,8 @@ struct file_type_pgm
 static int parse_col_spec (struct col_spec *, const char *);
 static void create_col_var (struct col_spec *c);
 
+int cmd_file_type (void);
+
 /* Parses FILE TYPE command. */
 int
 cmd_file_type (void)
@@ -448,8 +450,8 @@ cmd_record_type (void)
              if (!lex_force_string ())
                goto error;
              rct->v[rct->nv].c = xmalloc (fty->record.nc + 1);
-             st_bare_pad_copy (rct->v[rct->nv].c, ds_c_str (&tokstr),
-                               fty->record.nc + 1);
+             buf_copy_str_rpad (rct->v[rct->nv].c, fty->record.nc + 1,
+                                 ds_c_str (&tokstr));
            }
          else
            {
@@ -569,6 +571,7 @@ cmd_record_type (void)
 \f
 /* END FILE TYPE. */
 
+int cmd_end_file_type (void);
 int
 cmd_end_file_type (void)
 {