From 6dce405b2ab2c9e0c366d81883165b3fdc77f5eb Mon Sep 17 00:00:00 2001 From: Marius Gerbershagen Date: Wed, 26 Feb 2020 19:51:01 +0100 Subject: [PATCH] tests: stop compilers from complaining about division by zero in emb.0003.with-lisp-fpe --- src/tests/normal-tests/embedding.lsp | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/src/tests/normal-tests/embedding.lsp b/src/tests/normal-tests/embedding.lsp index 8b5e9ea0a..e79e60b77 100644 --- a/src/tests/normal-tests/embedding.lsp +++ b/src/tests/normal-tests/embedding.lsp @@ -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 */