mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-01-26 06:22:33 -08:00
Code Issues Projects Releases Packages Wiki Activity

complex-float: detect floating point exceptions

Browse source
This commit is contained in:
Marius Gerbershagen 2019-05-20 18:28:19 +02:00
parent d70f0317ec
commit a420a378ac
1 changed files with 9 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

9
src/c/number.d
View file

@ -622,18 +622,27 @@ ecl_make_complex_float(cl_object r, cl_object i)
}
cl_object ecl_make_csfloat(float _Complex x) {
DO_DETECT_FPE(crealf(x));
DO_DETECT_FPE(cimagf(x));
cl_object c = ecl_alloc_object(t_csfloat);
ecl_csfloat(c) = x;
return c;
}
cl_object ecl_make_cdfloat(double _Complex x) {
DO_DETECT_FPE(creal(x));
DO_DETECT_FPE(cimag(x));
cl_object c = ecl_alloc_object(t_cdfloat);
ecl_cdfloat(c) = x;
return c;
}
cl_object ecl_make_clfloat(long double _Complex x) {
DO_DETECT_FPE(creall(x));
DO_DETECT_FPE(cimagl(x));
cl_object c = ecl_alloc_object(t_clfloat);
ecl_clfloat(c) = x;
return c;