blob: ee4fd33ae8753608f5e1cdb32c5bbde2caa93f19 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
|
From: Markus Koschany <apo@debian.org>
Date: Tue, 13 Mar 2018 20:25:31 +0100
Subject: glibc 2.27
Remove SVID error handling to fix FTBFS with glibc 2.27.
Forwarded: no
Bug-Debian: https://bugs.debian.org/891338
---
src/tclx/src/tclxfmat.c | 21 +--------------------
1 file changed, 1 insertion(+), 20 deletions(-)
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;
|
GitWeb
