Branch: Tag:

2004-12-18

2004-12-18 17:09:05 by Henrik Grubbström (Grubba) <grubba@grubba.org>

Preparations for supporting access to inherits.

Rev: src/interpret.h:1.156

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.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
315:    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++; \
408:    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++; \