pike.git/ src/ interpret_functions.h

2001-07-08

2001-07-08 19:35:38 by Henrik Grubbström (Grubba) <grubba@grubba.org>

• dc8f725a151531edbb81757942349c654016153a (77 lines) (+31/-46) ^{[ Show | Annotate ]}
  Branch: 7.9

Even more preparations...

Rev: src/interpret_functions.h:1.71
Rev: src/lex.c:1.94
Rev: src/opcodes.h:1.20

1:   /* -  * $Id: interpret_functions.h,v 1.70 2001/07/06 22:56:56 grubba Exp $ +  * $Id: interpret_functions.h,v 1.71 2001/07/08 19:35:37 grubba Exp $    *    * Opcode definitions for the interpreter.    */
1111:    }   });    -  CASE(F_FOREACH) /* array, lvalue, X, i */ -  { + OPCODE0_JUMP(F_FOREACH, "foreach", { /* array, lvalue, X, i */    if(Pike_sp[-4].type != PIKE_T_ARRAY)    PIKE_ERROR("foreach", "Bad argument 1.\n", Pike_sp-3, 1);    if(Pike_sp[-1].u.integer < Pike_sp[-4].u.array->size)    {    fast_check_threads_etc(10); - #if 0 -  index_no_free(Pike_sp,Pike_sp-4,Pike_sp-1); -  Pike_sp++; -  assign_lvalue(Pike_sp-4, Pike_sp-1); -  free_svalue(Pike_sp-1); -  Pike_sp--; - #else +     if(Pike_sp[-1].u.integer < 0)    Pike_error("Foreach loop variable is negative!\n");    assign_lvalue(Pike_sp-3, Pike_sp[-4].u.array->item + Pike_sp[-1].u.integer); - #endif -  pc+=GET_JUMP(); +  pc += GET_JUMP();    Pike_sp[-1].u.integer++;    }else{ - #if 0 -  pop_n_elems(4); - #endif +     SKIPJUMP();    } -  break; -  } + });      OPCODE0(F_MAKE_ITERATOR, "Iterator", {    extern void f_Iterator(INT32);    f_Iterator(1);   });    -  -  CASE(F_NEW_FOREACH) /* iterator, lvalue, lvalue */ -  { + OPCODE0_JUMP(F_NEW_FOREACH, "foreach++", { /* iterator, lvalue, lvalue */    extern int foreach_iterate(struct object *o);       if(Pike_sp[-5].type != PIKE_T_OBJECT)
1159:    }else{    SKIPJUMP();    } -  break; -  } + });          CASE(F_RETURN_LOCAL);
1215:    if(f & PIKE_FRAME_RETURN_POP)    pop_stack();    pc=Pike_fp->pc; -  break; +  DONE;    }    return -1;   
1485:    Pike_sp++;    }    print_return_value(); -  break; +  DONE;      OPCODE2(F_MAGIC_INDEX, "::`[]", {    push_magic_index(magic_index_program, arg2, arg1);