pike.git/
src/
builtin_functions.c
Branch:
Tag:
Non-build tags
All tags
No tags
2001-02-25
2001-02-25 14:00:20 by Henrik Grubbström (Grubba) <grubba@grubba.org>
6d5925752a69edf2229f3a5b0e2173671703e198 (
19
lines) (+
16
/-
3
)
[
Show
|
Annotate
]
Branch:
7.9
Improved support for USE_PIKE_TYPE.
Rev: src/builtin_functions.c:1.346
5:
\*/ /**/ #include "global.h"
-
RCSID("$Id: builtin_functions.c,v 1.
345
2001/02/
23
14:
29
:
01
grubba Exp $");
+
RCSID("$Id: builtin_functions.c,v 1.
346
2001/02/
25
14:
00
:
20
grubba Exp $");
#include "interpret.h" #include "svalue.h" #include "pike_macros.h"
2396:
t=first_arg[0]->type; if(!t || match_types(t, object_type_string)) {
-
if(t && (t->str[0] == T_OBJECT))
+
if(t && (
+
#ifdef USE_PIKE_TYPE
+
t->
type
+
#else /* !USE_PIKE_TYPE */
+
t->
str[0]
+
#endif
/* USE_PIKE_TYPE */
+
== T_OBJECT))
{
-
struct program *p = id_to_program(extract_type_int(t->str+2));
+
struct program *p = id_to_program(
+
#ifdef USE_PIKE_TYPE
+
(ptrdiff_t)t->cdr
+
#else /* !USE_PIKE_TYPE */
+
extract_type_int(t->str+2)
+
#endif /* USE_PIKE_TYPE */
+
);
if(p) { int fun=FIND_LFUN(p, lfun);