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.289 2007/04/17 10:47:14 grubba Exp $ + || $Id: pike_types.c,v 1.290 2007/04/17 13:07:26 grubba 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:643:   struct pike_type *debug_peek_type_stack(void)   {    return *(Pike_compiler->type_stackp);   }      void debug_push_int_type(INT_TYPE min, INT_TYPE max)   {   #if SIZEOF_INT_TYPE > 4   /* a bit kludgy: should maybe really allow 64 bit INT_TYPE */   /* see also extract_type_int */ +     if (min<MIN_INT32) min=MIN_INT32;    else if (min>MAX_INT32) min=MAX_INT32;    if (max<MIN_INT32) max=MIN_INT32;    else if (max>MAX_INT32) max=MAX_INT32;      #if 0    if (min!=(INT32)min ||    max!=(INT32)max)    Pike_fatal("push_int_type(): int outside INT32 range (sorry)"    " (%"PRINTPIKEINT"d..%"PRINTPIKEINT"d)\n",
pike.git/src/pike_types.c:6653:    break;       case PIKE_T_NSTRING:    *cont = type_string + 2; /* 1 + 1 */    /* FIXME: Add check for valid bitwidth (0..32). */    push_string_type(type_string[1]);    break;       case T_INT:    { -  int min = extract_type_int((char *)type_string+1); -  int max = extract_type_int((char *)type_string+5); +  INT32 min = extract_type_int((char *)type_string+1); +  INT32 max = extract_type_int((char *)type_string+5);       *cont = type_string + 9; /* 2*sizeof(INT32) + 1 */    push_int_type(min, max);    break;    }       case PIKE_T_INT_UNTYPED:    *cont = type_string + 1; -  push_int_type(0x80000000, 0x7fffffff); +  push_int_type((INT32)-0x80000000, 0x7fffffff);    break;       case T_OBJECT:    *cont = type_string + 6; /* 1 + sizeof(INT32) + 1 */    push_object_type(type_string[1], extract_type_int((char *)type_string+2));    break;       case PIKE_T_NAME:    {    int size_shift = type_string[1] & 0x3;