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.145 2003/12/05 13:35:10 grubba Exp $ + || $Id: interpret.h,v 1.146 2003/12/09 06:44:52 nilsson 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:313:    _sp_->type=PIKE_T_OBJECT; \    }while(0)      #define push_float(F) do{ \    FLOAT_TYPE _=(F); \    struct svalue *_sp_ = Pike_sp++; \    _sp_->u.float_number=_; \    _sp_->type=PIKE_T_FLOAT; \    }while(0)    - #define push_text(T) push_string(make_shared_string((T))) + #define push_text(T) do { \ +  const char *_ = (T); \ +  struct svalue *_sp_ = Pike_sp++; \ +  _sp_->subtype=0; \ +  _sp_->u.string=make_shared_binary_string(_,strlen(_)); \ +  debug_malloc_touch(_sp_->u.string); \ +  _sp_->type=PIKE_T_STRING; \ +  }while(0)      #define push_constant_text(T) do{ \    struct svalue *_sp_ = Pike_sp++; \    _sp_->subtype=0; \    REF_MAKE_CONST_STRING(_sp_->u.string,T); \    _sp_->type=PIKE_T_STRING; \    }while(0)      #define push_function(OBJ, FUN) do { \    struct object *_=(OBJ); \