freem/src/operator.c - diff

Return to operator.c CVS log

Up to [Coherent Logic Development] / freem / src

version 1.8, 2025/05/05 19:34:46	version 1.9, 2025/05/05 22:52:32
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.9 2025/05/05 22:52:32 snw
	* Make E notation error message more appropriate
	*
* Revision 1.8 2025/05/05 19:34:46 snw	* Revision 1.8 2025/05/05 19:34:46 snw
* Fix E notation code to disallow more than one minus sign after the E	* Fix E notation code to disallow more than one minus sign after the E
*	*
Line 1979 int numlit (char *str)	Line 1982 int numlit (char *str)
if (expflg) {	if (expflg) {
if (ch == MINUS) {	if (ch == MINUS) {
if (str[i + 1] == '-') {	if (str[i + 1] == '-') {
merr_raise (ILLOP);	merr_raise (INVEXPR);
return (0);	return (0);
}	}
expflg = (-expflg);	expflg = (-expflg);