Branch: Tag:

1999-01-29

1999-01-29 12:27:45 by Fredrik Hübinette (Hubbe) <hubbe@hubbe.net>

00009 now generates an yyerror

Rev: src/lex.c:1.60

4:   ||| See the files COPYING and DISCLAIMER for more information.   \*/   #include "global.h" - RCSID("$Id: lex.c,v 1.59 1998/12/20 09:22:53 hubbe Exp $"); + RCSID("$Id: lex.c,v 1.60 1999/01/29 12:27:45 hubbe Exp $");   #include "language.h"   #include "array.h"   #include "lex.h"
612:    double f;    long l;    lex.pos--; +  if(lex.pos[0]=='0') +  for(l=1;lex.pos[l]<='9' && lex.pos[l]>='0';l++) +  if(lex.pos[l]>='8') +  yyerror("Illegal octal number."); +     f=my_strtod(lex.pos, &p1);    l=STRTOL(lex.pos, &p2, 0);