diff options
author | dgp <dgp@users.sourceforge.net> | 2004-04-06 22:37:22 (GMT) |
---|---|---|
committer | dgp <dgp@users.sourceforge.net> | 2004-04-06 22:37:22 (GMT) |
commit | e407d02f990c703f6f1d296673d0a52cac8c7142 (patch) | |
tree | c6e36cb4f56ea8a5cd586d33c6d3c2dca34ff6aa /win | |
parent | da705965dccc8a0dd3cb919814226e0c4ec0385c (diff) | |
download | tcl-e407d02f990c703f6f1d296673d0a52cac8c7142.zip tcl-e407d02f990c703f6f1d296673d0a52cac8c7142.tar.gz tcl-e407d02f990c703f6f1d296673d0a52cac8c7142.tar.bz2 |
Patch 922727 committed. Implements three changes:
* generic/tclInt.h: Reworked the Tcl header files into a clean
* unix/tclUnixPort.h: hierarchy where tcl.h < tclPort.h < tclInt.h
* win/tclWinInt.h: and every C source file should #include
* win/tclWinPort.h: at most one of those files to satisfy its
declaration needs. tclWinInt.h and tclWinPort.h also better organized
so that tclWinPort.h includes the Windows implementation of
cross-platform declarations, while tclWinInt.h makes declarations that
are available on Windows only.
* generic/tclBinary.c (TCL_NO_MATH): Deleted the generic/tclMath.h
* generic/tclMath.h (removed): header file. The internal Tcl
* macosx/Makefile (PRIVATE_HEADERS): header, tclInt.h, has a
* win/tcl.dsp: #include <math.h> directly,
and file external to Tcl needing libm should do the same.
* win/Makefile.in (WIN_OBJS): Deleted the win/tclWinMtherr.c file.
* win/makefile.bc (TCLOBJS): It's a vestige from matherr() days
* win/makefile.vc (TCLOBJS): gone by.
* win/tcl.dsp:
* win/tclWinMtherr.c (removed):
Diffstat (limited to 'win')
-rw-r--r-- | win/tclWinMtherr.c | 53 |
1 files changed, 0 insertions, 53 deletions
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; -} |