| cb2256 | 1995-10-11 | Fredrik Hübinette (Hubbe) | | |
| 06983f | 1996-09-22 | Fredrik Hübinette (Hubbe) | | ||| This file a part of Pike, and is copyright by Fredrik Hubinette
||| Pike is distributed as GPL (General Public License)
|
| cb2256 | 1995-10-11 | Fredrik Hübinette (Hubbe) | | ||| See the files COPYING and DISCLAIMER for more information.
\*/
|
| 5267b7 | 1995-08-09 | Fredrik Hübinette (Hubbe) | | #ifndef INTERPRET_H
#define INTERPRET_H
#include "program.h"
#include "config.h"
struct frame
{
unsigned char *pc;
struct frame *parent_frame;
struct svalue *locals;
INT32 args;
struct object *current_object;
struct inherit context;
char *current_storage;
INT32 fun;
#ifdef DEBUG
INT16 num_locals;
INT16 num_args;
#endif
};
#ifdef DEBUG
|
| fa382f | 1996-06-21 | Fredrik Hübinette (Hubbe) | | #define debug_check_stack() do{if(sp<evaluator_stack)fatal("Stack error.\n");}while(0)
|
| 5267b7 | 1995-08-09 | Fredrik Hübinette (Hubbe) | | #else
|
| fa382f | 1996-06-21 | Fredrik Hübinette (Hubbe) | | #define debug_check_stack()
|
| 5267b7 | 1995-08-09 | Fredrik Hübinette (Hubbe) | | #endif
|
| fa382f | 1996-06-21 | Fredrik Hübinette (Hubbe) | |
#define pop_stack() do{ free_svalue(--sp); debug_check_stack(); }while(0)
|
| 04925b | 1996-09-29 | Fredrik Hübinette (Hubbe) | | #define push_program(P) do{ struct program *_=(P); sp->u.program=_; sp++->type=T_PROGRAM; }while(0)
#define push_int(I) do{ INT32 _=(I); sp->u.integer=_;sp->type=T_INT;sp++->subtype=NUMBER_NUMBER; }while(0)
#define push_mapping(M) do{ struct mapping *_=(M); sp->u.mapping=_; sp++->type=T_MAPPING; }while(0)
#define push_array(A) do{ struct array *_=(A); sp->u.array=_ ;sp++->type=T_ARRAY; }while(0)
#define push_multiset(L) do{ struct multiset *_=(L); sp->u.multiset=_; sp++->type=T_MULTISET; }while(0)
#define push_string(S) do{ struct pike_string *_=(S); sp->u.string=_; sp++->type=T_STRING; }while(0)
#define push_object(O) do{ struct object *_=(O); sp->u.object=_; sp++->type=T_OBJECT; }while(0)
#define push_float(F) do{ float _=(F); sp->u.float_number=_; sp++->type=T_FLOAT; }while(0)
#define push_text(T) push_string(make_shared_string((T)))
#define push_svalue(S) do { struct svalue *_=(S); assign_svalue_no_free(sp,_); sp++; }while(0)
|
| 5267b7 | 1995-08-09 | Fredrik Hübinette (Hubbe) | |
#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; \
} \
apply_low(master_ob, fun_, ARGS); \
}while(0)
#define SAFE_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; \
} \
safe_apply_low(master_ob, fun_, ARGS); \
}while(0)
|
| fa382f | 1996-06-21 | Fredrik Hübinette (Hubbe) | | void init_interpreter();
void check_stack(INT32 size);
void check_mark_stack(INT32 size);
|
| 5267b7 | 1995-08-09 | Fredrik Hübinette (Hubbe) | | void lvalue_to_svalue_no_free(struct svalue *to,struct svalue *lval);
void assign_lvalue(struct svalue *lval,struct svalue *from);
union anything *get_pointer_if_this_type(struct svalue *lval, TYPE_T t);
|
| fa382f | 1996-06-21 | Fredrik Hübinette (Hubbe) | | void print_return_value();
|
| 5267b7 | 1995-08-09 | Fredrik Hübinette (Hubbe) | | void pop_n_elems(INT32 x);
|
| 06983f | 1996-09-22 | Fredrik Hübinette (Hubbe) | | void check_threads_etc();
|
| 5267b7 | 1995-08-09 | Fredrik Hübinette (Hubbe) | | void reset_evaluator();
struct backlog;
|
| 5683de | 1995-11-06 | Fredrik Hübinette (Hubbe) | | void dump_backlog(void);
|
| 5267b7 | 1995-08-09 | Fredrik Hübinette (Hubbe) | | int apply_low_safe_and_stupid(struct object *o, INT32 offset);
void apply_low(struct object *o, int fun, int args);
void safe_apply_low(struct object *o,int fun,int args);
|
| 5683de | 1995-11-06 | Fredrik Hübinette (Hubbe) | | void safe_apply(struct object *o, char *fun ,INT32 args);
|
| b208c1 | 1996-08-03 | Fredrik Hübinette (Hubbe) | | void apply_lfun(struct object *o, int fun, int args);
|
| 5267b7 | 1995-08-09 | Fredrik Hübinette (Hubbe) | | void apply_shared(struct object *o,
|
| 06983f | 1996-09-22 | Fredrik Hübinette (Hubbe) | | struct pike_string *fun,
|
| 5267b7 | 1995-08-09 | Fredrik Hübinette (Hubbe) | | int args);
void apply(struct object *o, char *fun, int args);
void strict_apply_svalue(struct svalue *s, INT32 args);
void apply_svalue(struct svalue *s, INT32 args);
void slow_check_stack();
void cleanup_interpret();
extern struct svalue *sp;
extern struct svalue **mark_sp;
|
| b208c1 | 1996-08-03 | Fredrik Hübinette (Hubbe) | | extern struct svalue *evaluator_stack;
extern struct svalue **mark_stack;
|
| 5267b7 | 1995-08-09 | Fredrik Hübinette (Hubbe) | | extern struct frame *fp;
|
| 0f887e | 1996-08-12 | Fredrik Hübinette (Hubbe) | | extern int stack_size;
|
| 07513e | 1996-10-04 | Fredrik Hübinette (Hubbe) | | extern int evaluator_stack_malloced, mark_stack_malloced;
|
| 5267b7 | 1995-08-09 | Fredrik Hübinette (Hubbe) | | #endif
|