summaryrefslogtreecommitdiffstats
path: root/generic/tclBasic.c
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/tclBasic.c
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/tclBasic.c')
-rw-r--r--generic/tclBasic.c14
1 files changed, 1 insertions, 13 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 }
};