pike.git / src / pike_types.c

version» Context lines:

pike.git/src/pike_types.c:1:   /*\   ||| This file a part of Pike, and is copyright by Fredrik Hubinette   ||| Pike is distributed as GPL (General Public License)   ||| See the files COPYING and DISCLAIMER for more information.   \*/   #include "global.h" - RCSID("$Id: pike_types.c,v 1.44 1998/06/06 03:19:53 hubbe Exp $"); + RCSID("$Id: pike_types.c,v 1.45 1998/08/19 07:37:59 hubbe Exp $");   #include <ctype.h>   #include "svalue.h"   #include "pike_types.h"   #include "stralloc.h"   #include "stuff.h"   #include "array.h"   #include "program.h"   #include "constants.h"   #include "object.h"   #include "multiset.h"
pike.git/src/pike_types.c:1294:    reference_shared_string(mixed_type_string);    return mixed_type_string;    }    }    if(CDR(n)->token == F_CONSTANT && CDR(n)->u.sval.type==T_STRING)    {    INT32 i;    i=find_shared_string_identifier(CDR(n)->u.sval.u.string, p);    if(i==-1)    { -  reference_shared_string(int_type_string); -  return int_type_string; +  reference_shared_string(mixed_type_string); +  return mixed_type_string;    }else{    if(EXTRACT_UCHAR(t) ||    (p->identifier_references[i].id_flags & ID_NOMASK) ||    (ID_FROM_INT(p, i)->identifier_flags & IDENTIFIER_PROTOTYPED))    {    reference_shared_string(ID_FROM_INT(p, i)->type);    return ID_FROM_INT(p, i)->type;    }else{    reference_shared_string(mixed_type_string);    return mixed_type_string;