mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-01-24 05:21:20 -08:00
Code Issues Projects Releases Packages Wiki Activity

complex-float: move functions to externa.h

Browse source 
si_complex_float_p and si_complex_float are referenced in tests, to
allow clean compilation put them in externa.h.
This commit is contained in:
Daniel Kochmański 2019-12-04 18:03:53 +01:00
parent 0a7056da5f
commit 02038d66da
2 changed files with 2 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

2
src/h/external.h
View file

@ -1140,6 +1140,8 @@ extern ECL_API cl_object ecl_make_long_float(long double f);
extern ECL_API cl_object ecl_make_csfloat(float _Complex x);
extern ECL_API cl_object ecl_make_cdfloat(double _Complex x);
extern ECL_API cl_object ecl_make_clfloat(long double _Complex x);
extern ECL_API cl_object si_complex_float_p(cl_object o);
extern ECL_API cl_object si_complex_float(cl_object r, cl_object i);
extern ECL_API float _Complex ecl_to_csfloat(cl_object x);
extern ECL_API double _Complex ecl_to_cdfloat(cl_object x);
extern ECL_API long double _Complex ecl_to_clfloat(cl_object x);

4
src/h/internal.h
View file

@ -312,10 +312,6 @@ extern cl_object _ecl_library_default_entry(void);
extern cl_object _ecl_double_to_integer(double d);
extern cl_object _ecl_float_to_integer(float d);
extern cl_object _ecl_long_double_to_integer(long double d);
#ifdef ECL_COMPLEX_FLOAT
extern cl_object si_complex_float_p(cl_object o);
extern cl_object si_complex_float(cl_object r, cl_object i);
#endif
/* main.d */