version 1.7, 2025/04/10 01:24:38
|
version 1.8, 2025/05/05 19:34:46
|
Line 24
|
Line 24
|
* along with FreeM. If not, see <https://www.gnu.org/licenses/>. |
* along with FreeM. If not, see <https://www.gnu.org/licenses/>. |
* |
* |
* $Log$ |
* $Log$ |
|
* Revision 1.8 2025/05/05 19:34:46 snw |
|
* Fix E notation code to disallow more than one minus sign after the E |
|
* |
* Revision 1.7 2025/04/10 01:24:38 snw |
* Revision 1.7 2025/04/10 01:24:38 snw |
* Remove C++ style comments |
* Remove C++ style comments |
* |
* |
Line 1975 int numlit (char *str)
|
Line 1978 int numlit (char *str)
|
} |
} |
if (expflg) { |
if (expflg) { |
if (ch == MINUS) { |
if (ch == MINUS) { |
|
if (str[i + 1] == '-') { |
|
merr_raise (ILLOP); |
|
return (0); |
|
} |
expflg = (-expflg); |
expflg = (-expflg); |
continue; |
continue; |
} |
} |