pike.git/
src/
interpret.h
Branch:
Tag:
Non-build tags
All tags
No tags
2001-08-13
2001-08-13 23:31:03 by Fredrik Hübinette (Hubbe) <hubbe@hubbe.net>
26e3fafe06dfb1c541115f32b770857971ecebc9 (
4
lines) (+
3
/-
1
)
[
Show
|
Annotate
]
Branch:
7.9
added push_undefined()
Rev: src/interpret.h:1.95
5:
\*/ /*
-
* $Id: interpret.h,v 1.
94
2001/
07
/
20
22
:
45
:
13
grubba
Exp $
+
* $Id: interpret.h,v 1.
95
2001/
08
/
13
23
:
31
:
03
hubbe
Exp $
*/ #ifndef INTERPRET_H #define INTERPRET_H
180:
#define push_program(P) do{ struct program *_=(P); debug_malloc_touch(_); Pike_sp->u.program=_; Pike_sp++->type=PIKE_T_PROGRAM; }while(0) #define push_int(I) do{ INT_TYPE _=(I); Pike_sp->u.integer=_;Pike_sp->type=PIKE_T_INT;Pike_sp++->subtype=NUMBER_NUMBER; }while(0)
+
#define push_undefined() do{ Pike_sp->u.integer=0; Pike_sp->type=PIKE_T_INT; Pike_sp++->subtype=NUMBER_UNDEFINED; }while(0)
#define push_mapping(M) do{ struct mapping *_=(M); debug_malloc_touch(_); Pike_sp->u.mapping=_; Pike_sp++->type=PIKE_T_MAPPING; }while(0) #define push_array(A) do{ struct array *_=(A); debug_malloc_touch(_); Pike_sp->u.array=_ ;Pike_sp++->type=PIKE_T_ARRAY; }while(0) #define push_multiset(L) do{ struct multiset *_=(L); debug_malloc_touch(_); Pike_sp->u.multiset=_; Pike_sp++->type=PIKE_T_MULTISET; }while(0)