diff options
author | dgp <dgp@users.sourceforge.net> | 2005-05-13 17:11:53 (GMT) |
---|---|---|
committer | dgp <dgp@users.sourceforge.net> | 2005-05-13 17:11:53 (GMT) |
commit | 78f7312e8ca860aba948e29dd9c454285ffdae7c (patch) | |
tree | ae8da2367e5f5cfc4f51017e1248fdb9d95b0525 /generic | |
parent | 440ee6251d8d7ba01d8bc5f4b013d9488baebe58 (diff) | |
download | tcl-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.c | 14 | ||||
-rw-r--r-- | generic/tclBinary.c | 6 | ||||
-rw-r--r-- | generic/tclExecute.c | 6 |
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> /* |