pike.git / src / interpret_functions.h

version» Context lines:

pike.git/src/interpret_functions.h:1:   /* -  * $Id: interpret_functions.h,v 1.6 2000/04/18 20:18:38 grubba Exp $ +  * $Id: interpret_functions.h,v 1.7 2000/04/18 20:23:59 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:95:      OPCODE1(F_GLOBAL,"global")    low_object_index_no_free(Pike_sp,    Pike_fp->current_object,    arg1 + Pike_fp->context.identifier_level);    Pike_sp++;    print_return_value();   BREAK;       - OPCODE2ACK(F_EXTERNAL,"external") + OPCODE1ACC(F_EXTERNAL,"external")   {    struct inherit *inherit;    struct program *p;    struct object *o;    INT32 i;       inherit=&Pike_fp->context;       o=Pike_fp->current_object;   
pike.git/src/interpret_functions.h:123: Inside #if defined(PIKE_DEBUG)
  #ifdef PIKE_DEBUG    if(t_flag>4)    {    sprintf(trace_buffer,"- Following o->parent (accumulator+=%d)\n",inherit->parent_offset-1);    write_to_stderr(trace_buffer,strlen(trace_buffer));    }   #endif       i=o->parent_identifier;    o=o->parent; -  arg2+=inherit->parent_offset-1; +  acc+=inherit->parent_offset-1;    }else{   #ifdef PIKE_DEBUG    if(t_flag>4)    {    sprintf(trace_buffer,"- Following inherit->parent (accumulator+=%d)\n",inherit->parent_offset-1);    write_to_stderr(trace_buffer,strlen(trace_buffer));    }   #endif    i=inherit->parent_identifier;    o=inherit->parent;
pike.git/src/interpret_functions.h:176: Inside #if defined(DEBUG_MALLOC)
   fprintf(stderr, "The inherit %p has been zapped!\n", inherit);    debug_malloc_dump_references(inherit,0,2,0);    fprintf(stderr, "It was extracted from the program %p %d\n", p, i);    describe(p);    fprintf(stderr, "Which was in turn taken from the object %p\n", o);    describe(o);    fatal("Looks like the program %p has been zapped!\n", p);    }   #endif /* DEBUG_MALLOC */    -  if(!arg2) break; -  --arg2; +  if(!acc) break; +  --acc;    }       low_object_index_no_free(Pike_sp,    o,    arg1 + inherit->identifier_level);    Pike_sp++;    print_return_value();    break;   }   BREAK;
pike.git/src/interpret_functions.h:1213:    {    struct svalue s;    index_no_free(&s,Pike_sp-2,Pike_sp-1);    pop_n_elems(2);    *Pike_sp=s;    Pike_sp++;    }    print_return_value();    break;    - OPCODE1(F_MAGIC_INDEX, "::`[]") -  push_magic_index(magic_index_program, accumulator, arg1); + OPCODE1ACC(F_MAGIC_INDEX, "::`[]") +  push_magic_index(magic_index_program, acc, arg1);   BREAK;    - OPCODE1(F_MAGIC_SET_INDEX, "::`[]=") -  push_magic_index(magic_set_index_program, accumulator, arg1); + OPCODE1ACC(F_MAGIC_SET_INDEX, "::`[]=") +  push_magic_index(magic_set_index_program, acc, arg1);   BREAK;      OPCODE0(F_CAST, "cast")    f_cast();   BREAK;       CASE(F_SOFT_CAST);    /* Stack: type_string, value */   #ifdef PIKE_DEBUG    if (Pike_sp[-2].type != T_STRING) {