pike.git/
src/
builtin.cmod
Branch:
Tag:
Non-build tags
All tags
No tags
2014-08-18
2014-08-18 17:17:14 by Martin Nilsson <nilsson@opera.com>
6a932b9300234b195c9f2804c7af5e240e3ffa92 (
23
lines) (+
12
/-
11
)
[
Show
|
Annotate
]
Branch:
8.0
Reuse the new type pike strings where possible and easy.
711:
return; } else if (UNSAFE_IS_ZERO(Pike_sp-1)) { pop_n_elems(2);
-
push_
constant_text
(
"
object
"
);
+
ref_
push_
string(literal
_object
_string
);
return; } else { Pike_error("Non-string returned from _sprintf()\n");
721:
pop_stack(); switch(t) {
-
case T_ARRAY: push_
constant_text
(
"
array
"
); break;
-
case T_FLOAT: push_
constant_text
(
"
float
"
); break;
-
case T_FUNCTION: push_
constant_text
(
"
function
"
); break;
-
case T_INT: push_
constant_text
(
"
int
"
); break;
-
case T_MAPPING: push_
constant_text
(
"
mapping
"
); break;
-
case T_MULTISET: push_
constant_text
(
"
multiset
"
); break;
-
case T_OBJECT: push_
constant_text
(
"
object
"
); break;
-
case T_PROGRAM: push_
constant_text
(
"
program
"
); break;
-
case T_STRING: push_
constant_text
(
"
string
"
); break;
-
case T_TYPE: push_
constant_text
(
"
type
"
); break;
+
case T_ARRAY:
ref_
push_
string(literal
_array
_string
); break;
+
case T_FLOAT:
ref_
push_
string(literal
_float
_string
); break;
+
case T_FUNCTION:
ref_
push_
string(literal
_function
_string
); break;
+
case T_INT:
ref_
push_
string(literal
_int
_string
); break;
+
case T_MAPPING:
ref_
push_
string(literal
_mapping
_string
); break;
+
case T_MULTISET:
ref_
push_
string(literal
_multiset
_string
); break;
+
case T_OBJECT:
ref_
push_
string(literal
_object
_string
); break;
+
case T_PROGRAM:
ref_
push_
string(literal
_program
_string
); break;
+
case T_STRING:
ref_
push_
string(literal
_string
_string
); break;
+
case T_TYPE:
ref_
push_
string(literal
_type
_string
); break;
case T_ZERO: push_constant_text("zero"); break; case T_VOID: push_constant_text("void"); break; /* The following are internal and shouldn't be applicable in normal use. */