pike.git/
src/
interpret.h
Branch:
Tag:
Non-build tags
All tags
No tags
2003-12-09
2003-12-09 06:44:52 by Martin Nilsson <mani@lysator.liu.se>
b1775dfe7ebd60beee18b3ee833027457c2bdd12 (
12
lines) (+
10
/-
2
)
[
Show
|
Annotate
]
Branch:
7.9
Hopefully better push_text.
Rev: src/interpret.h:1.146
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.
145
2003/12/
05
13
:
35
:
10
grubba
Exp $
+
|| $Id: interpret.h,v 1.
146
2003/12/
09
06
:
44
:
52
nilsson
Exp $
*/ #ifndef INTERPRET_H
320:
_sp_->type=PIKE_T_FLOAT; \ }while(0)
-
#define push_text(T)
push
_
string
(make_shared_string((
T
)))
+
#define push_text(T)
do { \
+
const char *
_
= (T); \
+
struct svalue *_sp_ = Pike_sp++; \
+
_sp_->subtype=0; \
+
_sp_->u.
string
=
make_shared_
binary_
string(
_,strlen
(
_
))
; \
+
debug_malloc_touch(_sp_->u.string
)
; \
+
_sp_->type=PIKE_T_STRING; \
+
}while(0)
#define push_constant_text(T) do{ \ struct svalue *_sp_ = Pike_sp++; \