1
0
Fork 0
mirror of git://git.code.sf.net/p/cdesktopenv/code synced 2025-03-09 15:50:02 +00:00

Revert "dtcalc: Change the prototype of matherr() to reflect actual usage and remove warnings."

This reverts commit a9175c896d.

This is the wrong fix for matherr() troubles.
This commit is contained in:
Jon Trulson 2021-12-17 15:19:07 -07:00
parent 65d17786a1
commit 35360f9900
2 changed files with 31 additions and 4 deletions

View file

@ -1201,11 +1201,38 @@ make_number(int *MPnumber, BOOLEAN mkFix)
}
/*ARGSUSED*/
/* Default math library exception handling routine. */
void
matherr(void)
int
matherr(struct exception *exc)
{
#if 0
char msg[100];
if (exc) {
strcpy(msg, exc->name);
strcat(msg, ": ");
if(exc->type == DOMAIN)
strcat(msg, "DOMAIN ");
else if(exc->type == SING)
strcat(msg, "SING ");
else if(exc->type == OVERFLOW)
strcat(msg, "OVERFLOW ");
else if(exc->type == UNDERFLOW)
strcat(msg, "UNDERFLOW ");
else if(exc->type == TLOSS)
strcat(msg, "TLOSS ");
else if(exc->type == PLOSS)
strcat(msg, "PLOSS ");
strcat(msg, vstrs[(int) V_ERROR]);
_DtSimpleError (v->appname, DtWarning, NULL, msg);
}
#endif
doerr(vstrs[(int) V_ERROR]) ;
return(1) ; /* Value ignored. */
}
/* Convert string into an MP number. */

View file

@ -677,7 +677,7 @@ do_factorial(int *MPval, int *MPres) /* Calculate the factorial of MPval. */
}
mpcim(&i, MPa) ;
mpcmi(MP1, &i) ;
if (!i) matherr() ;
if (!i) matherr((struct exception *) NULL) ;
else
while (i > 0)
{
@ -687,7 +687,7 @@ do_factorial(int *MPval, int *MPres) /* Calculate the factorial of MPval. */
i-- ;
}
}
else matherr() ;
else matherr((struct exception *) NULL) ;
mpstr(MPa, MPres) ;
}