d0p1/ack
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

removed one goto

Browse source
This commit is contained in:
ceriel 1989-04-19 15:00:07 +00:00
parent b7a6b75155
commit e967e920be
1 changed files with 10 additions and 10 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

14
lang/m2/comp/LLlex.c
View file

@ -548,17 +548,18 @@ lexwarning(W_ORDINARY, "overflow in constant");
LoadChar(ch); LoadChar(ch);
} }
if (ch == 'E' || ch == 'D') {
/* Scale factor
*/
if (ch == 'D') { if (ch == 'D') {
toktype = longreal_type; toktype = longreal_type;
LoadChar(ch); LoadChar(ch);
if (!(ch == '+' || ch == '-' || is_dig(ch))) if (ch == '+' || ch == '-' || is_dig(ch)) {
goto noscale; ch = 'E';
PushBack(); PushBack();
} }
if (np < &buf[NUMSIZE]) *np++ = 'E'; }
if (ch == 'E') {
/* Scale factor
*/
if (np < &buf[NUMSIZE]) *np++ = ch;
LoadChar(ch); LoadChar(ch);
if (ch == '+' || ch == '-') { if (ch == '+' || ch == '-') {
/* Signed scalefactor /* Signed scalefactor
@ -577,7 +578,6 @@ lexwarning(W_ORDINARY, "overflow in constant");
} }
} }
noscale:
*np++ = '\0'; *np++ = '\0';
PushBack(); PushBack();