Minor changes.

This commit is contained in:
Guido van Rossum 1991-12-31 13:13:35 +00:00
parent 6cf1273faa
commit a9df32ab2a

View file

@ -329,7 +329,7 @@ com_backpatch(c, anchor)
} }
} }
/* Handle constants and names uniformly */ /* Handle literals and names uniformly */
static int static int
com_add(c, list, v) com_add(c, list, v)
@ -423,7 +423,7 @@ parsenumber(s)
if (*end == '\0') { if (*end == '\0') {
if (errno != 0) { if (errno != 0) {
err_setstr(OverflowError, err_setstr(OverflowError,
"integer constant too large"); "integer literal too large");
return NULL; return NULL;
} }
return newintobject(x); return newintobject(x);
@ -431,10 +431,15 @@ parsenumber(s)
errno = 0; errno = 0;
xx = strtod(s, &end); xx = strtod(s, &end);
if (*end == '\0') { if (*end == '\0') {
#ifndef BROKEN_STRTOD
/* Some strtod() versions (e.g., in older SunOS systems)
set errno incorrectly; better to ignore overflows
than not to be able to use float literals at all! */
if (errno != 0) { if (errno != 0) {
err_setstr(OverflowError, "float constant too large"); err_setstr(OverflowError, "float literal too large");
return NULL; return NULL;
} }
#endif
return newfloatobject(xx); return newfloatobject(xx);
} }
err_setstr(SystemError, "bad number syntax?!?!"); err_setstr(SystemError, "bad number syntax?!?!");
@ -1258,7 +1263,7 @@ com_assign(c, n, assigning)
return; return;
default: default:
err_setstr(TypeError, err_setstr(TypeError,
"can't assign to constant"); "can't assign to literal");
c->c_errors++; c->c_errors++;
return; return;
} }
@ -1938,7 +1943,7 @@ com_fplist(c, n)
struct compiling *c; struct compiling *c;
node *n; node *n;
{ {
REQ(n, fplist); /* fplist: fpdef (',' fpdef)* */ REQ(n, fplist); /* fplist: fpdef (',' fpdef)* [','] */
if (NCH(n) == 1) { if (NCH(n) == 1) {
com_fpdef(c, CHILD(n, 0)); com_fpdef(c, CHILD(n, 0));
} }