summaryrefslogtreecommitdiffstats
path: root/win/tclWinMtherr.c
diff options
context:
space:
mode:
Diffstat (limited to 'win/tclWinMtherr.c')
-rw-r--r--win/tclWinMtherr.c55
1 files changed, 0 insertions, 55 deletions
diff --git a/win/tclWinMtherr.c b/win/tclWinMtherr.c
deleted file mode 100644
index 269a363..0000000
--- a/win/tclWinMtherr.c
+++ /dev/null
@@ -1,55 +0,0 @@
-/*
- * tclWinMtherr.c --
- *
- * This function provides a default implementation of the
- * _matherr function for Borland C++.
- *
- * Copyright (c) 1995 Sun Microsystems, Inc.
- *
- * See the file "license.terms" for information on usage and redistribution
- * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
- */
-
-#include "tclWinInt.h"
-#include <math.h>
-
-
-#ifndef __MINGW32__
-/*
- *----------------------------------------------------------------------
- *
- * _matherr --
- *
- * This procedure is invoked by Borland C++ when certain
- * errors occur in mathematical functions. This procedure
- * replaces the default implementation which generates pop-up
- * warnings.
- *
- * Results:
- * Returns 1 to indicate that we've handled the error
- * locally.
- *
- * Side effects:
- * Sets errno based on what's in xPtr.
- *
- *----------------------------------------------------------------------
- */
-
-int
-_matherr(xPtr)
- struct exception *xPtr; /* Describes error that occurred. */
-{
- if ((xPtr->type == DOMAIN)
-#ifdef __BORLANDC__
- || (xPtr->type == TLOSS)
-#endif
- || (xPtr->type == SING)) {
- errno = EDOM;
- } else {
- errno = ERANGE;
- }
- return 1;
-}
-
-#endif /* !__MINGW__ */
-