pike.git / src / interpret.c

version» Context lines:

pike.git/src/interpret.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: interpret.c,v 1.272 2002/10/16 15:08:15 marcus Exp $ + || $Id: interpret.c,v 1.273 2002/10/28 13:02:02 nilsson Exp $   */      #include "global.h" - RCSID("$Id: interpret.c,v 1.272 2002/10/16 15:08:15 marcus Exp $"); + RCSID("$Id: interpret.c,v 1.273 2002/10/28 13:02:02 nilsson Exp $");   #include "interpret.h"   #include "object.h"   #include "program.h"   #include "svalue.h"   #include "array.h"   #include "mapping.h"   #include "pike_error.h"   #include "language.h"   #include "stralloc.h"   #include "constants.h"
pike.git/src/interpret.c:1663:    }   }      PMOD_EXPORT int safe_apply_handler(const char *fun,    struct object *handler,    struct object *compat,    INT32 args,    TYPE_FIELD rettypes)   {    JMP_BUF recovery; -  int i, ret; +  int ret;   #if 0    fprintf(stderr, "safe_apply_handler(\"%s\", 0x%08p, 0x%08p, %d)\n",    fun, handler, compat, args);   #endif /* 0 */       Pike_sp-=args;    free_svalue(& throw_value);    throw_value.type=T_INT;       if (SETJMP(recovery))