--- freem/src/operator.c 2025/04/09 19:52:02 1.6 +++ freem/src/operator.c 2025/05/05 22:52:32 1.9 @@ -1,5 +1,5 @@ /* - * $Id: operator.c,v 1.6 2025/04/09 19:52:02 snw Exp $ + * $Id: operator.c,v 1.9 2025/05/05 22:52:32 snw Exp $ * operators pattern-match, divide, multiply, add, power * * @@ -24,6 +24,15 @@ * along with FreeM. If not, see . * * $Log: operator.c,v $ + * 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 + * Fix E notation code to disallow more than one minus sign after the E + * + * Revision 1.7 2025/04/10 01:24:38 snw + * Remove C++ style comments + * * Revision 1.6 2025/04/09 19:52:02 snw * Eliminate as many warnings as possible while building with -Wall * @@ -1126,7 +1135,7 @@ void mdiv (char *uu, char *v, short typ) case '#': snprintf (uu, STRLEN - 1, "%ld\201", (((long) fp_uu) % ((long) fp_v))); - //snprintf (uu, STRLEN - 1, "%ld\201", ((long) fp_uu < 0 ? (((long) fp_uu % (long) fp_v) + (long) fp_v) % (long) fp_v : (long) fp_uu % (long) fp_v)); + /*snprintf (uu, STRLEN - 1, "%ld\201", ((long) fp_uu < 0 ? (((long) fp_uu % (long) fp_v) + (long) fp_v) % (long) fp_v : (long) fp_uu % (long) fp_v)); */ break; } @@ -1972,6 +1981,10 @@ int numlit (char *str) } if (expflg) { if (ch == MINUS) { + if (str[i + 1] == '-') { + merr_raise (INVEXPR); + return (0); + } expflg = (-expflg); continue; }