summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authordgp <dgp@users.sourceforge.net>2004-04-06 22:37:22 (GMT)
committerdgp <dgp@users.sourceforge.net>2004-04-06 22:37:22 (GMT)
commite407d02f990c703f6f1d296673d0a52cac8c7142 (patch)
treec6e36cb4f56ea8a5cd586d33c6d3c2dca34ff6aa
parentda705965dccc8a0dd3cb919814226e0c4ec0385c (diff)
downloadtcl-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):
-rw-r--r--generic/tclMath.h20
-rw-r--r--win/tclWinMtherr.c53
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;
-}