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.138 2003/04/27 12:25:34 mast Exp $ + || $Id: interpret.h,v 1.139 2003/04/27 12:54:37 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:200:    debug_check_stack(); \    free_mixed_svalues(_sp_, x_); \    } \    } 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) { \ +  ptrdiff_t x_ = (X); \ +  if (x_) { \    struct svalue *_sp_ = --Pike_sp; \ -  free_svalue(_sp_-(X)); \ -  _sp_[-(X)] = _sp_[0]; \ -  pop_n_elems(X-1); \ +  free_svalue(_sp_-x_); \ +  _sp_[-x_] = _sp_[0]; \ +  pop_n_elems(x_-1); \    } \    }while(0)      #define stack_pop_n_elems_keep_top(X) stack_unlink(X)      #define stack_pop_keep_top() do { \    struct svalue *_sp_ = --Pike_sp; \    free_svalue (_sp_ - 1); \    _sp_[-1] = _sp_[0]; \    debug_check_stack(); \