pike.git/ src/ interpret.c

2002-11-11

2002-11-11 13:13:09 by Henrik Grubbström (Grubba) <grubba@grubba.org>

• 6d8e74bc46844bde8db16268ac542e1fbd389baf (19 lines) (+12/-7) ^{[ Show | Annotate ]}
  Branch: 7.9

Added some STACK_LEVEL_DEBUG to safe_apply_handler().

Rev: src/interpret.c:1.279

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: interpret.c,v 1.278 2002/11/10 20:19:18 grubba Exp $ + || $Id: interpret.c,v 1.279 2002/11/11 13:13:09 grubba Exp $   */      #include "global.h" - RCSID("$Id: interpret.c,v 1.278 2002/11/10 20:19:18 grubba Exp $"); + RCSID("$Id: interpret.c,v 1.279 2002/11/11 13:13:09 grubba Exp $");   #include "interpret.h"   #include "object.h"   #include "program.h"
1761:    }   }    + /* NOTE: Returns 1 if result on stack, 0 otherwise. */   PMOD_EXPORT int safe_apply_handler(const char *fun,    struct object *handler,    struct object *compat,
1769:   {    JMP_BUF recovery;    int ret; +  +  STACK_LEVEL_START(args); +    #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)) +  if (SETJMP(recovery)) {    ret = 0; -  else { -  Pike_sp += args; -  +  } else {    if (low_unsafe_apply_handler (fun, handler, compat, args) &&    rettypes && !((1 << Pike_sp[-1].type) & rettypes)) {    if ((rettypes & BIT_ZERO) && SAFE_IS_ZERO (Pike_sp - 1)) {
1805:    }       UNSETJMP(recovery); +  +  STACK_LEVEL_DONE(ret); +     return ret;   }