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.135 2000/08/16 10:30:46 grubba Exp $"); + RCSID("$Id: pike_types.c,v 1.136 2000/08/17 19:00:25 grubba 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:107: Inside #if defined(PIKE_DEBUG)
     #ifdef PIKE_DEBUG   void check_type_string(struct pike_string *s)   {    if(debug_findstring(s) != s)    fatal("Type string not shared.\n");       if(type_length(s->str) != s->len)    {    stupid_describe_type(s->str,s->len); -  fatal("Length of type is wrong. (should be %d, is %d)\n",type_length(s->str),s->len); +  fatal("Length of type is wrong. (should be %ld, is %ld)\n", +  PTRDIFF_T_TO_LONG(type_length(s->str)), +  PTRDIFF_T_TO_LONG(s->len));    }   }   #endif      void init_types(void)   {    string_type_string = CONSTTYPE(tString);    int_type_string = CONSTTYPE(tInt);    object_type_string = CONSTTYPE(tObj);    program_type_string = CONSTTYPE(tPrg);