pike.git / src / interpret_functions.h

version» Context lines:

pike.git/src/interpret_functions.h:1:   /* -  * $Id: interpret_functions.h,v 1.52 2001/05/10 22:14:37 hubbe Exp $ +  * $Id: interpret_functions.h,v 1.53 2001/05/11 12:21:10 grubba Exp $    *    * Opcode definitions for the interpreter.    */      OPCODE0(F_UNDEFINED,"push UNDEFINED")    push_int(0);    Pike_sp[-1].subtype=NUMBER_UNDEFINED;   BREAK;      OPCODE0(F_CONST0, "push 0")
pike.git/src/interpret_functions.h:1698:   }   /* FALL THROUGH */      /* Assume that the number of arguments is correct */   /* FIXME: Use new recursion stuff */   OPCODE0_TAILJUMP(F_RECUR,"recur")   OPCODE0_TAILJUMP(F_RECUR_AND_POP,"recur & pop")   {   #if 1    int opcode = instr; -  char *addr; +  unsigned char *addr;    struct pike_frame *new_frame;       fast_check_threads_etc(6);    check_c_stack(8192);    check_stack(256);       new_frame=alloc_pike_frame();    new_frame[0]=Pike_fp[0];       new_frame->refs=1;
pike.git/src/interpret_functions.h:1807:   #endif /* 0 */   }   BREAK      /* Assume that the number of arguments is correct */   /* FIXME: adjust Pike_mark_sp */   OPCODE0_JUMP(F_TAIL_RECUR,"tail recursion")   {    int x;    INT32 num_locals; -  char *addr; +  unsigned char *addr;    int args = DO_NOT_WARN(Pike_sp - *--Pike_mark_sp);       fast_check_threads_etc(6);       addr=pc+GET_JUMP();    num_locals=EXTRACT_UCHAR(addr-2);         #ifdef PIKE_DEBUG    if(args != EXTRACT_UCHAR(addr-1))