pike.git/ src/ docode.c

2001-02-05

2001-02-05 21:13:11 by Henrik Grubbström (Grubba) <grubba@grubba.org>

• 286afb28c52e1d3bdd0155d8983219a1bc4b1efd (11 lines) (+8/-3) ^{[ Show | Annotate ]}
  Branch: 7.9

New opcode ->lfun.

Rev: src/docode.c:1.103
Rev: src/interpret_functions.h:1.44
Rev: src/program.c:1.292
Rev: src/program.h:1.115

5:   \*/   /**/   #include "global.h" - RCSID("$Id: docode.c,v 1.102 2001/01/31 22:02:12 mast Exp $"); + RCSID("$Id: docode.c,v 1.103 2001/02/05 21:13:10 grubba Exp $");   #include "las.h"   #include "program.h"   #include "pike_types.h"
1515:    emit1(F_ARROW_STRING, store_prog_string(CDR(n)->u.sval.u.string));    return 2;    }else{ -  tmp1=do_docode(CAR(n), DO_NOT_COPY); +  tmp1 = do_docode(CAR(n), DO_NOT_COPY); +  if ((tmp2 = lfun_lookup_id(CDR(n)->u.sval.u.string)) != -1) { +  emit1(F_LOOKUP_LFUN, tmp2); +  } else {    emit1(F_ARROW, store_prog_string(CDR(n)->u.sval.u.string)); -  +  }    if(!(flags & DO_NOT_COPY))    {    while(n && (n->token==F_INDEX || n->token==F_ARROW)) n=CAR(n);