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.58 2000/08/03 17:55:50 grubba Exp $ +  * $Id: interpret.h,v 1.59 2000/08/07 16:02:47 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:167:    }while(0)         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 */   };    + #ifdef __ECL + static inline void apply_low(struct object *o, ptrdiff_t fun, INT32 args) + { +  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))      #define strict_apply_svalue(SVAL,ARGS) \    mega_apply(APPLY_SVALUE, (ARGS), (void*)(SVAL),0) -  + #endif /* __ECL */      #define APPLY_MASTER(FUN,ARGS) \   do{ \    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; \    } \