X-Git-Url: https://pintos-os.org/cgi-bin/gitweb.cgi?a=blobdiff_plain;f=src%2Fcompute.c;h=aed443853d9a0d65800be651c7ebc80e2d368630;hb=b70dc1a6b7b15967ceb111f80dff65c44f0fac57;hp=ff127e359f7e984f51075e9117700ddad54bf3c9;hpb=18febf84744dc7ab4248542c2f88d91c01ef3fa1;p=pspp diff --git a/src/compute.c b/src/compute.c index ff127e359f..aed443853d 100644 --- a/src/compute.c +++ b/src/compute.c @@ -21,11 +21,11 @@ #include #include #include "alloc.h" -#include "approx.h" #include "command.h" #include "error.h" #include "expr.h" #include "lexer.h" +#include "misc.h" #include "str.h" #include "var.h" @@ -397,11 +397,14 @@ lvalue_finalize (struct lvalue *lvalue, { compute->variable = dict_lookup_var (default_dict, lvalue->var_name); if (compute->variable == NULL) - compute->variable = dict_create_var_assert (default_dict, - lvalue->var_name, 0); + compute->variable = dict_create_var_assert (default_dict, + lvalue->var_name, 0); + compute->fv = compute->variable->fv; compute->width = compute->variable->width; + + /* Goofy behavior, but compatible: Turn off LEAVE. */ if (dict_class_from_id (compute->variable->name) != DC_SCRATCH) compute->variable->reinit = 1;