pike.git/ src/ interpret.c

1995-10-16

1995-10-16 17:06:26 by Fredrik Hübinette (Hubbe) <hubbe@hubbe.net>

• f6f02d6e7d0c6d3e56ed1181e0d484d2cfd31128 (25 lines) (+13/-12) ^{[ Show | Annotate ]}
  Branch: branches/E-12

committing

Rev: src/Makefile.in:1.8
Rev: src/alloca.c:1.2
Rev: src/builtin_efuns.c:1.3
Rev: src/call_out.c:1.6
Rev: src/config.h:1.7
Rev: src/configure.in:1.11
Rev: src/interpret.c:1.6
Rev: src/language.y:1.4
Rev: src/lpc_types.c:1.4
Rev: src/lpc_types.h:1.3
Rev: src/modules/files/Makefile.in:1.5
Rev: src/modules/files/file.c:1.6
Rev: src/modules/regexp/Makefile.in:1.5
Rev: src/modules/sprintf/Makefile.in:1.5
Rev: src/program.c:1.4

1155:    case T_FUNCTION:    if(s->subtype == -1)    { -  struct svalue *expected_sp=sp-args+1; +     (*(s->u.efun->function))(args); -  if(sp > expected_sp) -  { -  pop_n_elems(sp-expected_sp); -  } -  else if(sp < expected_sp) -  { -  push_int(0); -  } - #ifdef DEBUG -  if(sp < expected_sp) fatal("Stack underflow!\n"); - #endif +     }else{    apply_low(s->u.object, s->subtype, args);    }
1216:    pop_n_elems(args);    push_int(0);    }else{ +  struct svalue *expected_sp=sp-args+1;    strict_apply_svalue(s,args); -  +  if(sp > expected_sp) +  { +  pop_n_elems(sp-expected_sp);    } -  +  else if(sp < expected_sp) +  { +  push_int(0);    } -  + #ifdef DEBUG +  if(sp < expected_sp) fatal("Stack underflow!\n"); + #endif +  } + }      #ifdef DEBUG   void slow_check_stack()