/[pspp]/pspp/src/expressions/parse.c
ViewVC logotype

Diff of /pspp/src/expressions/parse.c

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.8 by jmd, Fri Apr 29 01:29:31 2005 UTC revision 1.9 by blp, Fri Apr 29 01:58:28 2005 UTC
# Line 1204  parse_function (struct expression *e) Line 1204  parse_function (struct expression *e)
1204    n = expr_allocate_composite (e, f - operations, args, arg_cnt);    n = expr_allocate_composite (e, f - operations, args, arg_cnt);
1205    n->composite.min_valid = min_valid != -1 ? min_valid : f->array_min_elems;    n->composite.min_valid = min_valid != -1 ? min_valid : f->array_min_elems;
1206    
1207    if (n->type == OP_LAG_Vn || n->type == OP_LAG_Vs)    if (n->type == OP_LAG_Vn || n->type == OP_LAG_Vs)
1208        n_lag = 1;      {
1209          if (n_lag < 1)
1210            n_lag = 1;
1211        }
1212    else if (n->type == OP_LAG_Vnn || n->type == OP_LAG_Vsn)    else if (n->type == OP_LAG_Vnn || n->type == OP_LAG_Vsn)
1213      {      {
1214        int n_before;        int n_before;
1215        assert (n->composite.arg_cnt == 2);        assert (n->composite.arg_cnt == 2);
1216        assert (n->composite.args[1]->type == OP_pos_int);        assert (n->composite.args[1]->type == OP_pos_int);
1217        n_before = n->composite.args[1]->integer.i;        n_before = n->composite.args[1]->integer.i;
1218        if (n_before > n_lag)        if (n_lag < n_before)
1219          n_lag = n_before;          n_lag = n_before;
1220      }      }
1221        

Legend:
Removed from v.1.8  
changed lines
  Added in v.1.9

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26