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.160 2005/05/05 20:42:56 nilsson Exp $ + || $Id: interpret.h,v 1.161 2005/05/27 18:33:20 mast Exp $   */      #ifndef INTERPRET_H   #define INTERPRET_H      #include "global.h"   #include "program.h"   #include "pike_error.h"   #include "object.h"   #include "pike_rusage.h"
pike.git/src/interpret.h:348:    _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_constant_string_code(STR, CODE) do{ \ +  struct pike_string *STR; \ +  REF_MAKE_CONST_STRING_CODE (STR, CODE); \ +  push_string (STR); \ +  }while(0) +    #define push_function(OBJ, FUN) do { \    struct object *_=(OBJ); \    struct svalue *_sp_ = Pike_sp++; \    debug_malloc_touch(_); \    _sp_->u.object=_; \    _sp_->subtype=(FUN); \    _sp_->type=PIKE_T_FUNCTION; \    } while (0)      #define ref_push_program(P) do{ \