summaryrefslogtreecommitdiffstats
path: root/generic
diff options
context:
space:
mode:
authordgp <dgp@users.sourceforge.net>2005-05-13 17:11:53 (GMT)
committerdgp <dgp@users.sourceforge.net>2005-05-13 17:11:53 (GMT)
commit78f7312e8ca860aba948e29dd9c454285ffdae7c (patch)
treeae8da2367e5f5cfc4f51017e1248fdb9d95b0525 /generic
parent440ee6251d8d7ba01d8bc5f4b013d9488baebe58 (diff)
downloadtcl-78f7312e8ca860aba948e29dd9c454285ffdae7c.zip
tcl-78f7312e8ca860aba948e29dd9c454285ffdae7c.tar.gz
tcl-78f7312e8ca860aba948e29dd9c454285ffdae7c.tar.bz2
* generic/tclBasic.c: Dropped the TCL_NO_MATH configuration.
* generic/tclBinary.c: It's believed this has not been working * generic/tclExecute.c: in a long time. Tcl needs math.h. * unix/Makefile.in: [RFE 1200680].
Diffstat (limited to 'generic')
-rw-r--r--generic/tclBasic.c14
-rw-r--r--generic/tclBinary.c6
-rw-r--r--generic/tclExecute.c6
3 files changed, 4 insertions, 22 deletions
diff --git a/generic/tclBasic.c b/generic/tclBasic.c
index 2ec1776..e2ea44b 100644
--- a/generic/tclBasic.c
+++ b/generic/tclBasic.c
@@ -13,15 +13,13 @@
* See the file "license.terms" for information on usage and redistribution
* of this file, and for a DISCLAIMER OF ALL WARRANTIES.
*
- * RCS: @(#) $Id: tclBasic.c,v 1.151 2005/05/10 18:34:06 kennykb Exp $
+ * RCS: @(#) $Id: tclBasic.c,v 1.152 2005/05/13 17:11:58 dgp Exp $
*/
#include "tclInt.h"
#include "tclCompile.h"
#include <float.h>
-#ifndef TCL_NO_MATH
#include <math.h>
-#endif
/*
* The following structure defines the client data for a math function
@@ -271,7 +269,6 @@ typedef struct {
} BuiltinFuncDef;
BuiltinFuncDef BuiltinFuncTable[] = {
{ "::tcl::mathfunc::abs", ExprAbsFunc, NULL },
-#ifndef TCL_NO_MATH
{ "::tcl::mathfunc::acos", ExprUnaryFunc, (ClientData) acos },
{ "::tcl::mathfunc::asin", ExprUnaryFunc, (ClientData) asin },
{ "::tcl::mathfunc::atan", ExprUnaryFunc, (ClientData) atan },
@@ -279,32 +276,23 @@ BuiltinFuncDef BuiltinFuncTable[] = {
{ "::tcl::mathfunc::ceil", ExprUnaryFunc, (ClientData) ceil },
{ "::tcl::mathfunc::cos", ExprUnaryFunc, (ClientData) cos },
{ "::tcl::mathfunc::cosh", ExprUnaryFunc, (ClientData) cosh },
-#endif
{ "::tcl::mathfunc::double",ExprDoubleFunc, NULL },
-#ifndef TCL_NO_MATH
{ "::tcl::mathfunc::exp", ExprUnaryFunc, (ClientData) exp },
{ "::tcl::mathfunc::floor", ExprUnaryFunc, (ClientData) floor },
{ "::tcl::mathfunc::fmod", ExprBinaryFunc, (ClientData) fmod },
{ "::tcl::mathfunc::hypot", ExprBinaryFunc, (ClientData) hypot },
-#endif
{ "::tcl::mathfunc::int", ExprIntFunc, NULL },
-#ifndef TCL_NO_MATH
{ "::tcl::mathfunc::log", ExprUnaryFunc, (ClientData) log },
{ "::tcl::mathfunc::log10", ExprUnaryFunc, (ClientData) log10 },
{ "::tcl::mathfunc::pow", ExprBinaryFunc, (ClientData) pow },
-#endif
{ "::tcl::mathfunc::rand", ExprRandFunc, NULL },
{ "::tcl::mathfunc::round", ExprRoundFunc, NULL },
-#ifndef TCL_NO_MATH
{ "::tcl::mathfunc::sin", ExprUnaryFunc, (ClientData) sin },
{ "::tcl::mathfunc::sinh", ExprUnaryFunc, (ClientData) sinh },
{ "::tcl::mathfunc::sqrt", ExprUnaryFunc, (ClientData) sqrt },
-#endif
{ "::tcl::mathfunc::srand", ExprSrandFunc, NULL },
-#ifndef TCL_NO_MATH
{ "::tcl::mathfunc::tan", ExprUnaryFunc, (ClientData) tan },
{ "::tcl::mathfunc::tanh", ExprUnaryFunc, (ClientData) tanh },
-#endif
{ "::tcl::mathfunc::wide", ExprWideFunc, NULL },
{ NULL, NULL, NULL }
};
diff --git a/generic/tclBinary.c b/generic/tclBinary.c
index fa75841..bb370e0 100644
--- a/generic/tclBinary.c
+++ b/generic/tclBinary.c
@@ -10,16 +10,12 @@
* 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.23 2005/05/10 18:54:31 kennykb Exp $
+ * RCS: @(#) $Id: tclBinary.c,v 1.24 2005/05/13 17:11:59 dgp Exp $
*/
#include "tclInt.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
diff --git a/generic/tclExecute.c b/generic/tclExecute.c
index 3333c79..0557515 100644
--- a/generic/tclExecute.c
+++ b/generic/tclExecute.c
@@ -11,15 +11,13 @@
* See the file "license.terms" for information on usage and redistribution
* of this file, and for a DISCLAIMER OF ALL WARRANTIES.
*
- * RCS: @(#) $Id: tclExecute.c,v 1.188 2005/05/10 18:34:35 kennykb Exp $
+ * RCS: @(#) $Id: tclExecute.c,v 1.189 2005/05/13 17:12:17 dgp Exp $
*/
#include "tclInt.h"
#include "tclCompile.h"
-#ifndef TCL_NO_MATH
-# include <math.h>
-#endif
+#include <math.h>
#include <float.h>
/*