X-Git-Url: https://pintos-os.org/cgi-bin/gitweb.cgi?a=blobdiff_plain;f=src%2Flanguage%2Fexpressions%2Foptimize.c;h=129dbc30e65056f8164ba0dae78812fe4fe0f60e;hb=435b06ea1e6cefd2d540552e161a84a9b2cbef42;hp=7d683d0181f55d5dcff4355eaadc0d4548d76c5f;hpb=f7cc11e1ec082a3f38c3323cd5dbbe319b9a6229;p=pspp

diff --git a/src/language/expressions/optimize.c b/src/language/expressions/optimize.c
index 7d683d0181..129dbc30e6 100644
--- a/src/language/expressions/optimize.c
+++ b/src/language/expressions/optimize.c
@@ -163,6 +163,13 @@ get_number_args (struct expr_node *n, size_t arg_idx, size_t n_args,
   return d;
 }
 
+static int
+get_integer_arg (struct expr_node *n, size_t arg_idx)
+{
+  double number = n->args[arg_idx]->number;
+  return number == SYSMIS ? INT_MIN : number;
+}
+
 static struct substring
 get_string_arg (struct expr_node *n, size_t arg_idx)
 {