Branch: Tag:

2002-11-23

2002-11-23 20:48:09 by Martin Stjernholm <mast@lysator.liu.se>

Abstracted the operation to move an svalue.

Rev: src/interpret.h:1.120
Rev: src/multiset.c:1.58
Rev: src/svalue.h:1.112

2:   || 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
253:    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