diff options
| -rw-r--r-- | ChangeLog | 6 | ||||
| -rw-r--r-- | Src/builtin.c | 7 | ||||
| -rw-r--r-- | Src/exec.c | 7 |
3 files changed, 14 insertions, 6 deletions
@@ -1,3 +1,9 @@ +2002-12-18 Peter Stephenson <pws@csr.com> + + * 18013: Src/builtin.c, Src/exec.c: let and (( ... )) should + return zero status on floating point only if the value compares + equal to 0 as a floating point number. + 2002-12-11 Peter Stephenson <pws@csr.com> * 17996: Src/builtin.c: Improve formatting with `print -C' by diff --git a/Src/builtin.c b/Src/builtin.c index f9f65e961..530bba8c8 100644 --- a/Src/builtin.c +++ b/Src/builtin.c @@ -4759,13 +4759,14 @@ bin_ttyctl(char *name, char **argv, Options ops, int func) int bin_let(char *name, char **argv, Options ops, int func) { - zlong val = 0; + mnumber val = zero_mnumber; while (*argv) - val = mathevali(*argv++); + val = matheval(*argv++); /* Errors in math evaluation in let are non-fatal. */ errflag = 0; - return !val; + /* should test for fabs(val.u.d) < epsilon? */ + return (val.type == MN_INTEGER) ? val.u.l == 0 : val.u.d == 0.0; } /* umask command. umask may be specified as octal digits, or in the * diff --git a/Src/exec.c b/Src/exec.c index 76ca437f4..978470251 100644 --- a/Src/exec.c +++ b/Src/exec.c @@ -3087,7 +3087,7 @@ static int execarith(Estate state, int do_exec) { char *e; - zlong val = 0; + mnumber val = zero_mnumber; int htok = 0; if (isset(XTRACE)) { @@ -3101,7 +3101,7 @@ execarith(Estate state, int do_exec) if (isset(XTRACE)) fprintf(xtrerr, " %s", e); - val = mathevali(e); + val = matheval(e); cmdpop(); @@ -3110,7 +3110,8 @@ execarith(Estate state, int do_exec) fflush(xtrerr); } errflag = 0; - return !val; + /* should test for fabs(val.u.d) < epsilon? */ + return (val.type == MN_INTEGER) ? val.u.l == 0 : val.u.d == 0.0; } /* perform time ... command */ |