pike.git/ src/ interpret_functions.h

2001-05-24

2001-05-24 22:39:01 by Fredrik Hübinette (Hubbe) <hubbe@hubbe.net>

• 24c37f4ed09a9d7fc9ed1394a2db6dff6b34b601 (17 lines) (+9/-8) ^{[ Show | Annotate ]}
  Branch: 7.9

bugfix for stack errors

Rev: src/interpret.c:1.200
Rev: src/interpret.h:1.85
Rev: src/interpret_functions.h:1.55
Rev: src/testsuite.in:1.416

1:   /* -  * $Id: interpret_functions.h,v 1.54 2001/05/14 03:26:21 hubbe Exp $ +  * $Id: interpret_functions.h,v 1.55 2001/05/24 22:39:00 hubbe Exp $    *    * Opcode definitions for the interpreter.    */
645:   BREAK;      OPCODE2(F_APPLY_ASSIGN_LOCAL_AND_POP,"apply, assign local and pop") -  strict_apply_svalue(&((Pike_fp->context.prog->constants + arg1)->sval), +  apply_svalue(&((Pike_fp->context.prog->constants + arg1)->sval),    DO_NOT_WARN(Pike_sp - *--Pike_mark_sp));    free_svalue(Pike_fp->locals+arg2);    Pike_fp->locals[arg2]=Pike_sp[-1];
653:   BREAK;      OPCODE2(F_APPLY_ASSIGN_LOCAL,"apply, assign local") -  strict_apply_svalue(&((Pike_fp->context.prog->constants + arg1)->sval), +  apply_svalue(&((Pike_fp->context.prog->constants + arg1)->sval),    DO_NOT_WARN(Pike_sp - *--Pike_mark_sp));    assign_svalue(Pike_fp->locals+arg2, Pike_sp-1);   BREAK;
1536:   BREAK;      OPCODE1(F_MARK_APPLY,"mark apply") -  if(low_mega_apply(APPLY_SVALUE, +  if(low_mega_apply(APPLY_SVALUE_STRICT,    0,    &((Pike_fp->context.prog->constants + arg1)->sval),0))    {
1560:   BREAK;      OPCODE1(F_APPLY,"apply") -  if(low_mega_apply(APPLY_SVALUE, +  if(low_mega_apply(APPLY_SVALUE_STRICT,    DO_NOT_WARN(Pike_sp - *--Pike_mark_sp ),    &((Pike_fp->context.prog->constants + arg1)->sval),0))    {
1572:         OPCODE1(F_APPLY_AND_POP,"apply") -  if(low_mega_apply(APPLY_SVALUE, +  if(low_mega_apply(APPLY_SVALUE_STRICT,    DO_NOT_WARN(Pike_sp - *--Pike_mark_sp ),    &((Pike_fp->context.prog->constants + arg1)->sval),0))    {