pike.git/
src/
interpret.h
Branch:
Tag:
Non-build tags
All tags
No tags
2004-12-18
2004-12-18 17:09:05 by Henrik Grubbström (Grubba) <grubba@grubba.org>
f69fe51c7cf776da6dc3cf43a288e124a2c38749 (
25
lines) (+
24
/-
1
)
[
Show
|
Annotate
]
Branch:
7.9
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++; \