diff options
-rw-r--r-- | generic/tclMath.h | 20 | ||||
-rw-r--r-- | win/tclWinMtherr.c | 53 |
2 files changed, 0 insertions, 73 deletions
diff --git a/generic/tclMath.h b/generic/tclMath.h deleted file mode 100644 index 69c0f9f..0000000 --- a/generic/tclMath.h +++ /dev/null @@ -1,20 +0,0 @@ -/* - * tclMath.h -- - * - * This file used to be necessary on the Macintosh. - * It is only kept for backward compatibility purposes. - * - * Copyright (c) 1997 Sun Microsystems, Inc. - * - * See the file "license.terms" for information on usage and redistribution - * of this file, and for a DISCLAIMER OF ALL WARRANTIES. - * - * RCS: @(#) $Id: tclMath.h,v 1.3 2004/03/17 18:14:14 das Exp $ - */ - -#ifndef _TCLMATH -#define _TCLMATH - -#include <math.h> - -#endif /* _TCLMATH */ diff --git a/win/tclWinMtherr.c b/win/tclWinMtherr.c deleted file mode 100644 index b90c0f2..0000000 --- a/win/tclWinMtherr.c +++ /dev/null @@ -1,53 +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. - * - * RCS: @(#) $Id: tclWinMtherr.c,v 1.5 2002/05/31 22:20:22 dgp Exp $ - */ - -#include "tclWinInt.h" -#include <math.h> - - -/* - *---------------------------------------------------------------------- - * - * _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; -} |