Branch: Tag:

2001-02-25

2001-02-25 14:00:20 by Henrik Grubbström (Grubba) <grubba@grubba.org>

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);