pike.git / src / pike_types.c

version» Context lines:

pike.git/src/pike_types.c:1:   /*   || This file is part of Pike. For copyright information see COPYRIGHT.   || Pike is distributed under GPL, LGPL and MPL. See the file COPYING   || for more information. - || $Id: pike_types.c,v 1.251 2005/11/17 18:21:15 grubba Exp $ + || $Id: pike_types.c,v 1.252 2005/12/04 19:23:54 nilsson Exp $   */      #include "global.h"   #include <ctype.h>   #include "svalue.h"   #include "pike_types.h"   #include "stralloc.h"   #include "stuff.h"   #include "array.h"   #include "program.h"
pike.git/src/pike_types.c:4772:    case PIKE_T_UNKNOWN:    /* Leaf type */    *cont = type_string+1;    return mk_type(type, NULL, NULL, 0);       case T_INT:    *cont = type_string + 9; /* 2*sizeof(INT32) + 1 */    return mk_type(T_INT,    (void *)(ptrdiff_t)extract_type_int(type_string+1),    (void *)(ptrdiff_t)extract_type_int(type_string+5), 0); +  +  case PIKE_T_INT_UNTYPED: +  *cont = type_string + 1; +  return mk_type(T_INT, +  (void *)(ptrdiff_t)0x80000000, +  (void *)(ptrdiff_t)0x7fffffff, 0); +     case T_OBJECT:    *cont = type_string + 6; /* 1 + sizeof(INT32) + 1 */    return mk_type(T_OBJECT, (void *)(ptrdiff_t)(type_string[1]),    (void *)(ptrdiff_t)extract_type_int(type_string+2), 0);    case PIKE_T_NAME:    {    int size_shift = type_string[1] & 0x3;    struct pike_string *str;    INT32 bytes;    /* bit 0 & 1: size_shift