--- sf_code/esrgpcpj/shared/tcl_base/tclwinmtherr.c	2016/10/08 06:43:03	25
+++ projs/trunk/shared_source/c_tcl_base_7_5_w_mods/tclwinmtherr.c	2016/11/05 11:07:06	71
@@ -1,65 +1,55 @@
-/* $Header: /cvsroot/esrg/sfesrg/esrgpcpj/shared/tcl_base/tclwinmtherr.c,v 1.1.1.1 2001/06/13 04:49:20 dtashley Exp $ */
-
-/* 
- * 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.1.1.1 2001/06/13 04:49:20 dtashley 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 (!TclMathInProgress()) {
-	return 0;
-    }
-    if ((xPtr->type == DOMAIN) || (xPtr->type == SING)) {
-	errno = EDOM;
-    } else {
-	errno = ERANGE;
-    }
-    return 1;
-}
-
-
-/* $History: tclwinmtherr.c $
- * 
- * *****************  Version 1  *****************
- * User: Dtashley     Date: 1/02/01    Time: 12:28a
- * Created in $/IjuScripter, IjuConsole/Source/Tcl Base
- * Initial check-in.
- */ 
-
-/* End of TCLWINMTHERR.C */
\ No newline at end of file
+/* $Header$ */
+/* 
+ * 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.1.1.1 2001/06/13 04:49:20 dtashley 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 (!TclMathInProgress()) {
+	return 0;
+    }
+    if ((xPtr->type == DOMAIN) || (xPtr->type == SING)) {
+	errno = EDOM;
+    } else {
+	errno = ERANGE;
+    }
+    return 1;
+}
+
+/* End of tclwinmtherr.c */