From: Markus Koschany Date: Tue, 13 Mar 2018 19:25:31 +0000 (+0100) Subject: glibc 2.27 X-Git-Url: https://git.zerfleddert.de/cgi-bin/gitweb.cgi/micropolis/commitdiff_plain/59dd70c3b1f545e2239a63474c595b5061c559e2 glibc 2.27 Remove SVID error handling to fix FTBFS with glibc 2.27. Forwarded: no Bug-Debian: https://bugs.debian.org/891338 --- diff --git a/src/tclx/src/tclxfmat.c b/src/tclx/src/tclxfmat.c index 19d42c3..2146566 100644 --- a/src/tclx/src/tclxfmat.c +++ b/src/tclx/src/tclxfmat.c @@ -119,27 +119,8 @@ static int ReturnFPMathError (interp) Tcl_Interp *interp; { - char *errorMsg; - switch (G_errorType) { - case DOMAIN: - errorMsg = "domain"; - break; - case SING: - errorMsg = "singularity"; - break; - case OVERFLOW: - errorMsg = "overflow"; - break; - case UNDERFLOW: - errorMsg = "underflow"; - break; - case TLOSS: - case PLOSS: - errorMsg = "loss of significance"; - break; - } - Tcl_AppendResult (interp, "floating point ", errorMsg, " error", + Tcl_AppendResult (interp, "floating point error", (char *) NULL); G_gotTclFPMathErr = FALSE; /* Clear the flag. */ return TCL_ERROR;