diff options
| author | Steve Bennett <steveb@workware.net.au> | 2016-04-20 00:44:47 +1000 |
|---|---|---|
| committer | Steve Bennett <steveb@workware.net.au> | 2016-08-29 15:54:38 +1000 |
| commit | ebacc8e29bfb64bdeb427158a13f4978cf757a20 (patch) | |
| tree | a156892317f7a4e56545aaaf7062308bd9f50635 /jim.c | |
| parent | 2ea1bee0b875c3fb89e4e04d400ec2b23b0a026f (diff) | |
| download | jimtcl-ebacc8e29bfb64bdeb427158a13f4978cf757a20.zip jimtcl-ebacc8e29bfb64bdeb427158a13f4978cf757a20.tar.gz jimtcl-ebacc8e29bfb64bdeb427158a13f4978cf757a20.tar.bz2 | |
expr: use fabs() for double abs if --math is specified
Signed-off-by: Steve Bennett <steveb@workware.net.au>
Diffstat (limited to 'jim.c')
| -rw-r--r-- | jim.c | 4 |
1 files changed, 4 insertions, 0 deletions
@@ -7740,7 +7740,11 @@ static int JimExprOpNumUnary(Jim_Interp *interp, struct JimExprState *e) intresult = 0; break; case JIM_EXPROP_FUNC_ABS: +#ifdef JIM_MATH_FUNCTIONS + dC = fabs(dA); +#else dC = dA >= 0 ? dA : -dA; +#endif intresult = 0; break; case JIM_EXPROP_UNARYMINUS: |