pike.git / src / interpret.h

version» Context lines:

pike.git/src/interpret.h:1:   /*   || This file is part of Pike. For copyright information see COPYRIGHT.   || Pike is distributed under GPL, LGPL and MPL. See the file COPYING   || for more information. - || $Id: interpret.h,v 1.119 2002/11/23 20:25:49 mast Exp $ + || $Id: interpret.h,v 1.120 2002/11/23 20:48:09 mast Exp $   */      #ifndef INTERPRET_H   #define INTERPRET_H      #include "global.h"   #include "program.h"   #include "pike_error.h"   #include "bignum.h"   
pike.git/src/interpret.h:246:    ptrdiff_t num_= (N); \    for(;num_-- > 0;s_++) \    { \    s_->type=PIKE_T_INT; \    s_->subtype=NUMBER_UNDEFINED; \    s_->u.integer=0; \    } \    Pike_sp=s_; \   }while(0)    - #define stack_pop_to_no_free(X) do { \ -  *(X)=*--Pike_sp; \ -  DO_IF_DMALLOC(Pike_sp->type=PIKE_T_UNKNOWN; Pike_sp->u.refs=(void *)-1); \ -  PIKE_MEM_WO(*Pike_sp); \ -  } while(0) + #define stack_pop_to_no_free(X) move_svalue(X, --Pike_sp)   #define stack_pop_to(X) do { struct svalue *_=(X); free_svalue(_); stack_pop_to_no_free(_); }while(0)      /* This pops a number of arguments from the stack but keeps the top    * element on top. Used for popping the arguments while keeping the    * return value.    */   #define stack_unlink(X) do { if(X) { free_svalue(Pike_sp-(X)-1); Pike_sp[-(X)-1]=Pike_sp[-1]; Pike_sp--; pop_n_elems(X-1); } }while(0)      #define free_pike_frame(F) do{ struct pike_frame *f_=(F); debug_malloc_touch(f_); if(!--f_->refs) really_free_pike_frame(f_); }while(0)