freem/src/operator.c - diff

Return to operator.c CVS log

Up to [Coherent Logic Development] / freem / src

version 1.6, 2025/04/09 19:52:02	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
	* Remove C++ style comments
	*
* Revision 1.6 2025/04/09 19:52:02 snw	* Revision 1.6 2025/04/09 19:52:02 snw
* Eliminate as many warnings as possible while building with -Wall	* Eliminate as many warnings as possible while building with -Wall
*	*
Line 1126 void mdiv (char uu, char v, short typ)	Line 1132 void mdiv (char uu, char v, short typ)

case '#':	case '#':
snprintf (uu, STRLEN - 1, "%ld\201", (((long) fp_uu) % ((long) fp_v)));	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;	break;
}	}

Line 1972 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;
}	}