Branch: Tag:

2003-03-28

2003-03-28 14:23:23 by Marcus Comstedt <marcus@mc.pp.se>

Copy OPT_EXTERNAL_DEPEND from mapped function in f_map().

Rev: src/builtin_functions.c:1.457

2:   || This file is part of Pike. For copyright information see COPYRIGHT.   || Pike is distributed under GPL, LGPL and MPL. See the file COPYING   || for more information. - || $Id: builtin_functions.c,v 1.456 2003/02/04 17:32:19 mast Exp $ + || $Id: builtin_functions.c,v 1.457 2003/03/28 14:23:23 marcus Exp $   */      #include "global.h" - RCSID("$Id: builtin_functions.c,v 1.456 2003/02/04 17:32:19 mast Exp $"); + RCSID("$Id: builtin_functions.c,v 1.457 2003/03/28 14:23:23 marcus Exp $");   #include "interpret.h"   #include "svalue.h"   #include "pike_macros.h"
7227:   {    int argno;    node **cb_; -  int node_info = OPT_SIDE_EFFECT; /* Assume worst case. */ +  /* Assume worst case. */ +  int node_info = OPT_SIDE_EFFECT | OPT_EXTERNAL_DEPEND;       /* Note: argument 2 has argno 1. */    for (argno = 1; (cb_ = my_get_arg(&_CDR(n), argno)); argno++) {
7240:    /* map(), map_array() or filter(). */    continue;    } -  node_info = cb->u.sval.u.efun->flags & OPT_SIDE_EFFECT; +  node_info &= cb->u.sval.u.efun->flags;    }    /* FIXME: Type-checking? */    break;