sfos/ecl
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

tests: stop compilers from complaining about division by zero in emb.0003.with-lisp-fpe

Browse source
This commit is contained in:
Marius Gerbershagen 2020-02-26 19:51:01 +01:00
parent a3eebf1ba3
commit 6dce405b2a
1 changed files with 3 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
src/tests/normal-tests/embedding.lsp
View file

@ -141,7 +141,8 @@ int main(int argc, char **argv) {
env = ecl_process_env();
conditions = ecl_list1(ecl_make_symbol(\"ARITHMETIC-ERROR\", \"CL\"));
ECL_HANDLER_CASE_BEGIN(env, conditions) {
a = 1.0 / 0.0;
a = 1.0 / (double) (argc - 1); /* equivalent of 1.0/0.0 but without
compilers complaining about it */
} ECL_HANDLER_CASE(1, condition) {
ret = 2;
goto out;
@ -161,7 +162,7 @@ int main(int argc, char **argv) {
ECL_WITH_LISP_FPE_BEGIN {
ECL_HANDLER_CASE_BEGIN(env, conditions) {
b = ecl_to_double(cl_N(2, ecl_make_double_float(1.0), ecl_make_double_float(0.0)));
b = ecl_to_double(cl_N(2, ecl_make_double_float(1.0), ecl_make_double_float((double) (argc - 1))));
} ECL_HANDLER_CASE(1, condition) {
b = 0.0; /* ... but dividing by a zero float should definitely do so
*/