X-Git-Url: https://git.zerfleddert.de/cgi-bin/gitweb.cgi/micropolis/blobdiff_plain/3e7f5d09a6edd10098b5de6b4f11e49cc2845b43..59dd70c3b1f545e2239a63474c595b5061c559e2:/src/tclx/src/tclxfmat.c

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;