pike.git/ src/ docode.c

2001-08-16

2001-08-16 03:27:35 by Fredrik Hübinette (Hubbe) <hubbe@hubbe.net>

• a8aed2f95d9368a7b2ca298d1b491c11029e6c92 (13 lines) (+12/-1) ^{[ Show | Annotate ]}
  Branch: 7.9

new opcodes: F_CALL_OTHER{,_AND_{RETURN,POP}}

Rev: src/docode.c:1.130
Rev: src/interpret_functions.h:1.88
Rev: src/peep.in:1.60

5:   \*/   /**/   #include "global.h" - RCSID("$Id: docode.c,v 1.129 2001/08/15 03:31:55 hubbe Exp $"); + RCSID("$Id: docode.c,v 1.130 2001/08/16 03:27:35 hubbe Exp $");   #include "las.h"   #include "program.h"   #include "pike_types.h"
1219:    {    return do_lfun_call(CAR(n)->u.integer.b,CDR(n));    } +  else if(CAR(n)->token == F_ARROW) +  { +  emit0(F_MARK); +  PUSH_CLEANUP_FRAME(do_pop_mark, 0); +  do_docode(CAAR(n),0); /* object */ +  do_docode(CDR(n),0); /* args */ +  emit1(F_CALL_OTHER, store_prog_string(CDAR(n)->u.sval.u.string)); +  POP_AND_DONT_CLEANUP; +  return 1; +  }    else    {    struct pike_string *tmp;