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.155 2004/10/22 23:23:51 nilsson Exp $ + || $Id: interpret.h,v 1.156 2004/12/18 17:09:05 grubba 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:308:    _sp_->u.type=_; \    _sp_->type=PIKE_T_TYPE; \    }while(0)      #define push_object(O) do { \    struct object *_=(O); \    struct svalue *_sp_ = Pike_sp++; \    debug_malloc_touch(_); \    _sp_->u.object=_; \    _sp_->type=PIKE_T_OBJECT; \ +  _sp_->subtype = 0; \    }while(0)    -  + #define push_object_inherit(O, INH_NUM) do { \ +  struct object *_ = (O); \ +  struct svalue *_sp_ = Pike_sp++; \ +  int _inh_ = (INH_NUM); \ +  debug_malloc_touch(_); \ +  _sp_->u.object = _; \ +  _sp_->type = PIKE_T_OBJECT; \ +  _sp_->subtype = _inh_; \ +  }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) do { \    const char *_ = (T); \    struct svalue *_sp_ = Pike_sp++; \
pike.git/src/interpret.h:401:    _sp_->u.type=_; \    _sp_->type=PIKE_T_TYPE; \    }while(0)      #define ref_push_object(O) do{ \    struct object *_=(O); \    struct svalue *_sp_ = Pike_sp++; \    add_ref(_); \    _sp_->u.object=_; \    _sp_->type=PIKE_T_OBJECT; \ +  _sp_->subtype = 0; \    }while(0)    -  + #define ref_push_object_inherit(O, INH_NUM) do{ \ +  struct object *_ = (O); \ +  struct svalue *_sp_ = Pike_sp++; \ +  int _inh_ = (INH_NUM); \ +  add_ref(_); \ +  _sp_->u.object = _; \ +  _sp_->type = PIKE_T_OBJECT; \ +  _sp_->subtype = _inh_; \ +  }while(0) +    #define ref_push_function(OBJ, FUN) do { \    struct object *_=(OBJ); \    struct svalue *_sp_ = Pike_sp++; \    add_ref(_); \    _sp_->u.object=_; \    _sp_->subtype=(FUN); \    _sp_->type=PIKE_T_FUNCTION; \    } while (0)      #define push_svalue(S) do { \