summaryrefslogtreecommitdiffstats
path: root/generic/tclBinary.c
diff options
context:
space:
mode:
authordgp <dgp@users.sourceforge.net>2004-04-06 22:25:46 (GMT)
committerdgp <dgp@users.sourceforge.net>2004-04-06 22:25:46 (GMT)
commitda705965dccc8a0dd3cb919814226e0c4ec0385c (patch)
treef364fcb944511bb8790be7882532203c0195be6b /generic/tclBinary.c
parent7bf9dfccb2afbac70ebc42a88d57741b4a2df416 (diff)
downloadtcl-da705965dccc8a0dd3cb919814226e0c4ec0385c.zip
tcl-da705965dccc8a0dd3cb919814226e0c4ec0385c.tar.gz
tcl-da705965dccc8a0dd3cb919814226e0c4ec0385c.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 'generic/tclBinary.c')
-rw-r--r--generic/tclBinary.c8
1 files changed, 6 insertions, 2 deletions
diff --git a/generic/tclBinary.c b/generic/tclBinary.c
index 9d352c0..a99519a 100644
--- a/generic/tclBinary.c
+++ b/generic/tclBinary.c
@@ -10,12 +10,16 @@
* See the file "license.terms" for information on usage and redistribution
* of this file, and for a DISCLAIMER OF ALL WARRANTIES.
*
- * RCS: @(#) $Id: tclBinary.c,v 1.16 2003/12/24 04:18:18 davygrvy Exp $
+ * RCS: @(#) $Id: tclBinary.c,v 1.17 2004/04/06 22:25:48 dgp Exp $
*/
#include "tclInt.h"
-#include "tclPort.h"
+
+#ifdef TCL_NO_MATH
+#define fabs(x) (x<0 ? -x : x)
+#else
#include <math.h>
+#endif
/*
* The following constants are used by GetFormatSpec to indicate various