From e407d02f990c703f6f1d296673d0a52cac8c7142 Mon Sep 17 00:00:00 2001
From: dgp <dgp@users.sourceforge.net>
Date: Tue, 6 Apr 2004 22:37:22 +0000
Subject: 	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):
---
 generic/tclMath.h  | 20 --------------------
 win/tclWinMtherr.c | 53 -----------------------------------------------------
 2 files changed, 73 deletions(-)
 delete mode 100644 generic/tclMath.h
 delete mode 100644 win/tclWinMtherr.c

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;
-}
-- 
cgit v0.12