Generate error on large integer.

This commit is contained in:
Bruce Momjian 1997-10-30 01:55:49 +00:00
parent 97b1bb2281
commit d48006180c
1 changed files with 9 additions and 4 deletions

View File

@ -8,7 +8,7 @@
*
*
* IDENTIFICATION
* $Header: /cvsroot/pgsql/src/backend/parser/scan.l,v 1.24 1997/10/15 01:12:21 thomas Exp $
* $Header: /cvsroot/pgsql/src/backend/parser/scan.l,v 1.25 1997/10/30 01:55:49 momjian Exp $
*
*-------------------------------------------------------------------------
*/
@ -241,8 +241,13 @@ other .
return (FCONST);
}
{integer} {
char* endptr;
errno = 0;
ScanString = pstrdup((char*)yytext);
yylval.ival = atoi((char*)yytext);
yylval.ival = strtol((char *)yytext,&endptr,10);
if (*endptr != '\0' || errno == ERANGE)
elog(WARN,"\tBad integer input format\n");
return (ICONST);
}
{real} {
@ -250,9 +255,9 @@ other .
errno = 0;
ScanString = pstrdup((char*)yytext);
yylval.dval = strtod(((char *)yytext),&endptr);
yylval.dval = strtod((char *)yytext,&endptr);
if (*endptr != '\0' || errno == ERANGE)
elog(WARN,"\tBad float8 input format\n");
elog(WARN,"\tBad float input format\n");
CheckFloat8Val(yylval.dval);
return (FCONST);
}