From 02038d66dafd00121c3939615a1ef032ba1d7846 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Daniel=20Kochma=C5=84ski?= Date: Wed, 4 Dec 2019 18:03:53 +0100 Subject: [PATCH] complex-float: move functions to externa.h si_complex_float_p and si_complex_float are referenced in tests, to allow clean compilation put them in externa.h. --- src/h/external.h | 2 ++ src/h/internal.h | 4 ---- 2 files changed, 2 insertions(+), 4 deletions(-) diff --git a/src/h/external.h b/src/h/external.h index 011cdf8a5..ef94d26cd 100755 --- a/src/h/external.h +++ b/src/h/external.h @@ -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); diff --git a/src/h/internal.h b/src/h/internal.h index cd31ff1cf..38872bffb 100755 --- a/src/h/internal.h +++ b/src/h/internal.h @@ -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 */