pike.git/
src/
interpret.h
Branch:
Tag:
Non-build tags
All tags
No tags
2000-08-03
2000-08-03 16:21:59 by Henrik Grubbström (Grubba) <grubba@grubba.org>
ff8e4696ea56bbf3f83e448af1e13f8f73a9c8f0 (
5
lines) (+
3
/-
2
)
[
Show
|
Annotate
]
Branch:
7.9
Fixed typo in push_float().
Rev: src/interpret.h:1.57
5:
\*/ /*
-
* $Id: interpret.h,v 1.
56
2000/08/03
12
:
46
:
29
grubba Exp $
+
* $Id: interpret.h,v 1.
57
2000/08/03
16
:
21
:
59
grubba Exp $
*/ #ifndef INTERPRET_H #define INTERPRET_H
119:
#define push_multiset(L) do{ struct multiset *_=(L); debug_malloc_touch(_); Pike_sp->u.multiset=_; Pike_sp++->type=PIKE_T_MULTISET; }while(0) #define push_string(S) do{ struct pike_string *_=(S); debug_malloc_touch(_); Pike_sp->subtype=0; Pike_sp->u.string=_; Pike_sp++->type=PIKE_T_STRING; }while(0) #define push_object(O) do{ struct object *_=(O); debug_malloc_touch(_); Pike_sp->u.object=_; Pike_sp++->type=PIKE_T_OBJECT; }while(0)
-
#define push_float(F) do{
float
_=(F); Pike_sp->u.float_number=_; Pike_sp++->type=PIKE_T_FLOAT; }while(0)
+
#define push_float(F) do{
FLOAT_TYPE
_=(F); Pike_sp->u.float_number=_; Pike_sp++->type=PIKE_T_FLOAT; }while(0)
#define push_text(T) push_string(make_shared_string((T))) #define push_constant_text(T) do{ Pike_sp->subtype=0; MAKE_CONSTANT_SHARED_STRING(Pike_sp->u.string,T); Pike_sp++->type=PIKE_T_STRING; }while(0)