pike.git / src / builtin_functions.c

version» Context lines:

pike.git/src/builtin_functions.c:1:   /*   || 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.544 2004/10/11 17:04:08 mast Exp $ + || $Id: builtin_functions.c,v 1.545 2004/10/11 17:08:43 mast Exp $   */      #include "global.h" - RCSID("$Id: builtin_functions.c,v 1.544 2004/10/11 17:04:08 mast Exp $"); + RCSID("$Id: builtin_functions.c,v 1.545 2004/10/11 17:08:43 mast Exp $");   #include "interpret.h"   #include "svalue.h"   #include "pike_macros.h"   #include "object.h"   #include "program.h"   #include "array.h"   #include "pike_error.h"   #include "constants.h"   #include "mapping.h"   #include "stralloc.h"
pike.git/src/builtin_functions.c:3258:    struct svalue *save_sp = Pike_sp;    JMP_BUF tmp;    if (SETJMP(tmp)) {    struct svalue thrown = throw_value;    struct pike_string *s;    throw_value.type = T_INT;    pop_n_elems(Pike_sp - save_sp);    yywarning("Optimizer failure in replace().");    s = format_exception_for_error_msg (&thrown);    if (s) { -  yywarning ("%S", s); +  if (!s->size_shift) yywarning ("%s", s->str);    free_string (s);    }    free_svalue(&thrown);    } else {    extern struct program *multi_string_replace_program;    INT16 lfun;    struct object *replace_obj;    node *ret = NULL;    INT32 args = eval_low(*arg1,1); /* NOTE: Addition splitted to ensure */    args += eval_low(*arg2,1); /* correct evaluation order. */