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.173 2001/03/31 01:12:47 grubba Exp $"); + RCSID("$Id: pike_types.c,v 1.174 2001/03/31 01:22:20 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:2731: Inside #if defined(PIKE_TYPE_DEBUG)
   fprintf(stderr,"%s",(s=simple_free_buf()));    free(s);    }   #endif    }    return ret;       case '0': case '1': case '2': case '3': case '4':    case '5': case '6': case '7': case '8': case '9':    { -  int m = ((ptrdiff_t)a->car)-'0'; +  int m = a->type - '0';    if(a_markers[m]) {    a = a_markers[m];    } else {    a = mixed_type_string;    }    goto recurse;    }    }       switch(b->type)
pike.git/src/pike_types.c:2815: Inside #if defined(PIKE_TYPE_DEBUG)
   fprintf(stderr,"%s",(s=simple_free_buf()));    free(s);    }   #endif    }    return ret;       case '0': case '1': case '2': case '3': case '4':    case '5': case '6': case '7': case '8': case '9':    { -  int m=((ptrdiff_t)b->car)-'0'; +  int m = b->type - '0';    if(b_markers[m]) {    b = b_markers[m];    } else {    b = mixed_type_string;    }    goto recurse;    }    }       if ((array_cnt < 0) && (b->type == T_ARRAY)) {