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.120 2000/01/27 23:18:25 hubbe Exp $"); + RCSID("$Id: pike_types.c,v 1.121 2000/02/03 19:09:13 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:401:       case 'i':    if(!strcmp(buf,"int"))    {    while(ISSPACE(**s)) ++*s;    if(**s=='(')    {    INT32 min,max;    ++*s;    while(ISSPACE(**s)) ++*s; -  min=STRTOL(*s,(char **)s,0); +  min=STRTOL((char *)*s,(char **)s,0);    while(ISSPACE(**s)) ++*s;    if(s[0][0]=='.' && s[0][1]=='.')    s[0]+=2;    else    error("Missing .. in integer type.\n");       while(ISSPACE(**s)) ++*s; -  max=STRTOL(*s,(char **)s,0); +  max=STRTOL((char *)*s,(char **)s,0);    while(ISSPACE(**s)) ++*s;       if(**s != ')') error("Missing ')' in integer range.\n");    ++*s;    push_type_int(max);    push_type_int(min);    }else{    push_type_int(MAX_INT32);    push_type_int(MIN_INT32);    }