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.23 1998/11/20 01:57:23 hubbe Exp $ +  * $Id: interpret.h,v 1.24 1998/11/22 11:02:54 hubbe Exp $    */   #ifndef INTERPRET_H   #define INTERPRET_H      #include "global.h"   #include "program.h"      #ifndef STRUCT_FRAME_DECLARED   #define STRUCT_FRAME_DECLARED   #endif
pike.git/src/interpret.h:24:    struct svalue *expendible;    INT32 args;    struct object *current_object;    struct inherit context;    char *current_storage;    INT32 fun;    INT16 num_locals;    INT16 num_args;   };    - #ifdef DEBUG + #ifdef PIKE_DEBUG   #define debug_check_stack() do{if(sp<evaluator_stack)fatal("Stack error.\n");}while(0)   #define check__positive(X,Y) if((X)<0) fatal(Y)   #include "error.h"   #else   #define check__positive(X,Y)   #define debug_check_stack()   #endif      #define pop_stack() do{ free_svalue(--sp); debug_check_stack(); }while(0)   
pike.git/src/interpret.h:106:    { \    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() \    call_callback(& evaluator_callbacks, (void *)0)    - #ifdef DEBUG + #ifdef PIKE_DEBUG   #define fast_check_threads_etc(X) do { \    static int div_; if(d_flag || !(div_++& ((1<<(X))-1))) check_threads_etc(); } while(0)      #else   #define fast_check_threads_etc(X) do { \    static int div_; if(!(div_++& ((1<<(X))-1))) check_threads_etc(); } while(0)   #endif      /* Prototypes begin here */   void push_sp_mark(void);