pike.git / src / lex.c

version» Context lines:

pike.git/src/lex.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: lex.c,v 1.50 1998/04/10 22:24:20 hubbe Exp $"); + RCSID("$Id: lex.c,v 1.51 1998/04/10 23:29:21 grubba Exp $");   #include "language.h"   #include "array.h"   #include "lex.h"   #include "stralloc.h"   #include "dynamic_buffer.h"   #include "constants.h"   #include "hashtable.h"   #include "stuff.h"   #include "pike_memory.h"   #include "interpret.h"
pike.git/src/lex.c:598:    char *p1, *p2;    double f;    long l;    lex.pos--;    f=my_strtod(lex.pos, &p1);    l=STRTOL(lex.pos, &p2, 0);       if(p1>p2)    {    lex.pos=p1; -  yylval->fnum=(float)f; +  yylval->fnum=(FLOAT_TYPE)f;    return F_FLOAT;    }else{    lex.pos=p2;    yylval->number=l;    return F_NUMBER;    }       case '-':    if(GOBBLE('=')) return F_SUB_EQ;    if(GOBBLE('>')) return F_ARROW;