X-Git-Url: https://pintos-os.org/cgi-bin/gitweb.cgi?a=blobdiff_plain;f=src%2Flanguage%2Fdata-io%2Flist.q;h=8e8bba9b69a281ae707cd021d2bd777e0176bf6f;hb=ad1c79cd51b7ca9d0ad51d80ff916fa48ee5e893;hp=1df9411163a5d81b82dc0da670aa702601ac4fa4;hpb=43b1296aafe7582e7dbe6c2b6a8b478d7d9b0fcf;p=pspp-builds.git diff --git a/src/language/data-io/list.q b/src/language/data-io/list.q index 1df94111..8e8bba9b 100644 --- a/src/language/data-io/list.q +++ b/src/language/data-io/list.q @@ -16,24 +16,25 @@ #include +#include #include #include #include "intprops.h" -#include "size_max.h" +#include "xmalloca.h" + #include #include #include #include #include #include +#include #include #include #include #include -#include #include -#include #include #include #include @@ -43,6 +44,7 @@ #include #include "minmax.h" +#include "xalloc.h" #include "gettext.h" #define _(msgid) gettext (msgid) @@ -141,15 +143,15 @@ cmd_list (struct lexer *lexer, struct dataset *ds) return CMD_FAILURE; /* Fill in defaults. */ - if (cmd.step == NOT_LONG) + if (cmd.step == LONG_MIN) cmd.step = 1; - if (cmd.first == NOT_LONG) + if (cmd.first == LONG_MIN) cmd.first = 1; - if (cmd.last == NOT_LONG) + if (cmd.last == LONG_MIN) cmd.last = LONG_MAX; if (!cmd.sbc_variables) dict_get_vars (dict, &cmd.v_variables, &cmd.n_variables, - (1u << DC_SYSTEM) | (1u << DC_SCRATCH)); + DC_SYSTEM | DC_SCRATCH); if (cmd.n_variables == 0) { msg (SE, _("No variables specified.")); @@ -463,8 +465,8 @@ write_fallback_headers (struct outp_driver *d) int line_number = 0; const char *Line = _("Line"); - char *leader = local_alloc (strlen (Line) - + INT_STRLEN_BOUND (line_number) + 1 + 1); + char *leader = xmalloca (strlen (Line) + + INT_STRLEN_BOUND (line_number) + 1 + 1); while (index < cmd.n_variables) { @@ -506,7 +508,7 @@ write_fallback_headers (struct outp_driver *d) } { - char varname[LONG_NAME_LEN + 2]; + char varname[VAR_NAME_LEN + 2]; snprintf (varname, sizeof varname, " %s", var_get_name (cmd.v_variables[index])); write_varname (d, varname, leader_width); @@ -518,7 +520,7 @@ write_fallback_headers (struct outp_driver *d) d->cp_x = 0; d->cp_y += d->font_height; - local_free (leader); + freea (leader); } /* There are three possible layouts for the LIST procedure: