pike.git / src / interpret.c

version» Context lines:

pike.git/src/interpret.c:1:   /*\   ||| This file a part of Pike, and is copyright by Fredrik Hubinette   ||| Pike is distributed as GPL (General Public License)   ||| See the files COPYING and DISCLAIMER for more information.   \*/   /**/   #include "global.h" - RCSID("$Id: interpret.c,v 1.162 2000/08/10 08:38:20 grubba Exp $"); + RCSID("$Id: interpret.c,v 1.163 2000/08/10 19:31:03 grubba Exp $");   #include "interpret.h"   #include "object.h"   #include "program.h"   #include "svalue.h"   #include "array.h"   #include "mapping.h"   #include "error.h"   #include "language.h"   #include "stralloc.h"   #include "constants.h"
pike.git/src/interpret.c:539:    {    fprintf(stderr,"(%ld,%ld)",    (long)backlog[e].arg,    (long)backlog[e].arg2);    }    else if(instrs[backlog[e].instruction].flags & I_HASARG)    {    fprintf(stderr,"(%ld)", (long)backlog[e].arg);    }    fprintf(stderr," %ld, %ld\n", -  (long)backlog[e].stack, (long)backlog[e].mark_stack); +  DO_NOT_WARN((long)backlog[e].stack), +  DO_NOT_WARN((long)backlog[e].mark_stack));    }    }while(e!=backlogp);   }      #endif   static int o_catch(unsigned char *pc);      #ifdef PIKE_DEBUG   #define eval_instruction eval_instruction_with_debug   #include "interpreter.h"
pike.git/src/interpret.c:842:    break;    }       call_lfun:   #ifdef PIKE_DEBUG    if(fun < 0 || fun >= NUM_LFUNS)    fatal("Apply lfun on illegal value!\n");   #endif    if(!o->prog)    PIKE_ERROR("destructed object", "Apply on destructed object.\n", Pike_sp, args); -  fun=FIND_LFUN(o->prog,fun); +  fun = FIND_LFUN(o->prog, fun);    goto apply_low;          case APPLY_LOW:    o = (struct object *)arg1;    fun = (ptrdiff_t)arg2;       apply_low:    scope=0;    apply_low_with_scope:
pike.git/src/interpret.c:893: Inside #if defined(PIKE_SECURITY)
      if(!CHECK_DATA_SECURITY(o, SECURITY_BIT_NOT_SETUID))    SET_CURRENT_CREDS(o->prot);   #endif         #ifdef PIKE_DEBUG    if(fun>=(int)p->num_identifier_references)    {    fprintf(stderr, "Function index out of range. %ld >= %d\n", -  (long)fun, (int)p->num_identifier_references); +  DO_NOT_WARN((long)fun), +  (int)p->num_identifier_references);    fprintf(stderr,"########Program is:\n");    describe(p);    fprintf(stderr,"########Object is:\n");    describe(o);    fatal("Function index out of range.\n");    }   #endif       ref = p->identifier_references + fun;   #ifdef PIKE_DEBUG
pike.git/src/interpret.c:946: Inside #if defined(PIKE_DEBUG)
   {    describe(new_frame->context.prog);    }    }   #endif          new_frame->locals = Pike_sp - args;    new_frame->expendible = new_frame->locals;    new_frame->args = args; -  new_frame->fun = fun; +  new_frame->fun = DO_NOT_WARN((unsigned INT16)fun);    new_frame->current_storage = o->storage+new_frame->context.storage_offset;    new_frame->pc = 0;    new_frame->scope=scope;       add_ref(new_frame->current_object);    add_ref(new_frame->context.prog);    if(new_frame->context.parent) add_ref(new_frame->context.parent);    if(new_frame->scope) add_ref(new_frame->scope);       if(t_flag)