andrius
/
mes
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

core: Avoid Floating point exception dividing negative numbers. 

This fixes

    kaem --verbose --strict
    bin/mes-m2 -c '(display (/ -1 1))'

* src/math.c (divide): Use signed division.
This commit is contained in:
Jan (janneke) Nieuwenhuizen 2020-12-29 22:39:31 +01:00
parent d0a5e4fcad
commit 92ac8a73d2
No known key found for this signature in database
GPG Key ID: F3C1A0D9C1D65273
1 changed files with 15 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
src/math.c
View File

@ -155,18 +155,31 @@ divide (struct scm *x) /*:((name . "/") (arity . n)) */
n = v;
x = cdr (x);
}
int sign_p = 0;
size_t u = n;
if (n < 0)
{
sign_p = 1;
u = -n;
}
size_t w;
while (x != cell_nil)
{
i = car (x);
assert_number ("divide", i);
v = i->value;
sign_p = sign_p && v > 0 || !sign_p && v < 0;
w = v;
if (v == 0)
error (cstring_to_symbol ("divide-by-zero"), x);
if (n == 0)
if (u == 0)
break;
n = n / v;
u = u / w;
x = cdr (x);
}
n = u;
if (sign_p)
n = -n;
return make_number (n);
}