pike.git/ src/ interpret.h

1996-08-03

1996-08-03 13:45:56 by Fredrik Hübinette (Hubbe) <hubbe@hubbe.net>

• b208c1c6735234238b6af89df4dafe39b5f83dd0 (8 lines) (+5/-3) ^{[ Show | Annotate ]}
  Branch: branches/E-12

--local and pop bugfixed, optimizations added

Rev: src/interpret.c:1.11
Rev: src/interpret.h:1.4

41:   #define push_object(O) sp->u.object=(O),sp++->type=T_OBJECT   #define push_float(F) sp->u.float_number=(F),sp++->type=T_FLOAT   #define push_text(T) sp->u.string=make_shared_string(T),sp++->type=T_STRING + #define push_svalue(S) (assign_svalue_no_free(sp,(S)),sp++)      #define APPLY_MASTER(FUN,ARGS) \   do{ \
77:   void print_return_value();   void pop_n_elems(INT32 x);   void reset_evaluator(); - void f_catch(unsigned char *pc); +    struct backlog;   void dump_backlog(void);   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);   void safe_apply(struct object *o, char *fun ,INT32 args); -  + void apply_lfun(struct object *o, int fun, int args);   void apply_shared(struct object *o,    struct lpc_string *fun,    int args);
96:      extern struct svalue *sp;   extern struct svalue **mark_sp; - extern struct svalue evaluator_stack[EVALUATOR_STACK_SIZE]; - extern struct svalue *mark_stack[EVALUATOR_STACK_SIZE]; + extern struct svalue *evaluator_stack; + extern struct svalue **mark_stack;   extern struct frame *fp; /* frame pointer */   #endif