pike.git / src / interpret.h

version» Context lines:

pike.git/src/interpret.h: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.   \*/      /* -  * $Id: interpret.h,v 1.64 2000/08/17 18:20:44 grubba Exp $ +  * $Id: interpret.h,v 1.65 2000/08/23 18:46:36 grubba Exp $    */   #ifndef INTERPRET_H   #define INTERPRET_H      #include "global.h"   #include "program.h"   #include "error.h"      struct Pike_interpreter {    /* Swapped variables */
pike.git/src/interpret.h:171:      enum apply_type   {    APPLY_STACK, /* The function is the first argument */    APPLY_SVALUE, /* arg1 points to an svalue containing the function */    APPLY_LOW /* arg1 is the object pointer,(int)arg2 the function */   };      #define APPLY_MASTER(FUN,ARGS) \   do{ \ -  static int fun_,master_cnt=0; \ +  static int fun_, master_cnt=0; \    struct object *master_ob=master(); \    if(master_cnt != master_ob->prog->id) \    { \    fun_=find_identifier(FUN,master_ob->prog); \    master_cnt = master_ob->prog->id; \    } \    apply_low(master_ob, fun_, ARGS); \   }while(0)      #define SAFE_APPLY_MASTER(FUN,ARGS) \   do{ \ -  static int fun_,master_cnt=0; \ +  static int fun_, master_cnt=0; \    struct object *master_ob=master(); \    if(master_cnt != master_ob->prog->id) \    { \    fun_=find_identifier(FUN,master_ob->prog); \    master_cnt = master_ob->prog->id; \    } \    safe_apply_low(master_ob, fun_, ARGS); \   }while(0)      #define check_threads_etc() \
pike.git/src/interpret.h:250: Inside #if defined(__ECL)
  {    mega_apply(APPLY_LOW, args, (void*)o, (void*)fun);   }      static inline void strict_apply_svalue(struct svalue *sval, INT32 args)   {    mega_apply(APPLY_SVALUE, args, (void*)sval, 0);   }   #else /* !__ECL */   #define apply_low(O,FUN,ARGS) \ -  mega_apply(APPLY_LOW, (ARGS), (void*)(O),(void*)(FUN)) +  mega_apply(APPLY_LOW, (ARGS), (void*)(O),(void*)(ptrdiff_t)(FUN))      #define strict_apply_svalue(SVAL,ARGS) \    mega_apply(APPLY_SVALUE, (ARGS), (void*)(SVAL),0)   #endif /* __ECL */      PMOD_EXPORT extern int d_flag; /* really in main.c */      PMOD_EXPORT extern int Pike_stack_size;   PMOD_EXPORT struct callback;   PMOD_EXPORT extern struct callback_list evaluator_callbacks;