From 389b90826bafbb5d92d49ce03e0aa4672c649cc8 Mon Sep 17 00:00:00 2001 From: Olivier Hainque Date: Fri, 20 Feb 2015 14:22:14 +0000 Subject: [PATCH] g-allein.ads (vec_dstt): Remove. 2015-02-20 Olivier Hainque * g-allein.ads (vec_dstt): Remove. * g-alveop.ad?: Replace vec_dstt renamings by proper Inline_Always wrappers with Intrinsic convention. From-SVN: r220862 --- gcc/ada/ChangeLog | 6 + gcc/ada/g-allein.ads | 324 --------------------------------------------- gcc/ada/g-alveop.adb | 364 +++++++++++++++++++++++++++++++++++++++++++++++++++ gcc/ada/g-alveop.ads | 126 +++++++----------- 4 files changed, 416 insertions(+), 404 deletions(-) diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog index df277ac..c6a7aa9 100644 --- a/gcc/ada/ChangeLog +++ b/gcc/ada/ChangeLog @@ -1,5 +1,11 @@ 2015-02-20 Olivier Hainque + * g-allein.ads (vec_dstt): Remove. + * g-alveop.ad?: Replace vec_dstt renamings by proper Inline_Always + wrappers with Intrinsic convention. + +2015-02-20 Olivier Hainque + * g-allein.ads (vec_dst): Remove. * g-alveop.ad?: Replace vec_dst renamings by proper Inline_Always wrappers with Intrinsic convention. diff --git a/gcc/ada/g-allein.ads b/gcc/ada/g-allein.ads index ffe8de2..aa6a3b4 100644 --- a/gcc/ada/g-allein.ads +++ b/gcc/ada/g-allein.ads @@ -54,330 +54,6 @@ package GNAT.Altivec.Low_Level_Interface is use GNAT.Altivec.Vector_Types; - -- vec_dststt -- - - procedure vec_dststt_kvucp_cint_cint - (A : const_vector_unsigned_char_ptr; - B : c_int; - C : c_int); - - pragma Import - (LL_Altivec, vec_dststt_kvucp_cint_cint, "__builtin_altivec_dststt"); - - procedure vec_dststt_kvscp_cint_cint - (A : const_vector_signed_char_ptr; - B : c_int; - C : c_int); - - pragma Import - (LL_Altivec, vec_dststt_kvscp_cint_cint, "__builtin_altivec_dststt"); - - procedure vec_dststt_kvbcp_cint_cint - (A : const_vector_bool_char_ptr; - B : c_int; - C : c_int); - - pragma Import - (LL_Altivec, vec_dststt_kvbcp_cint_cint, "__builtin_altivec_dststt"); - - procedure vec_dststt_kvusp_cint_cint - (A : const_vector_unsigned_short_ptr; - B : c_int; - C : c_int); - - pragma Import - (LL_Altivec, vec_dststt_kvusp_cint_cint, "__builtin_altivec_dststt"); - - procedure vec_dststt_kvssp_cint_cint - (A : const_vector_signed_short_ptr; - B : c_int; - C : c_int); - - pragma Import - (LL_Altivec, vec_dststt_kvssp_cint_cint, "__builtin_altivec_dststt"); - - procedure vec_dststt_kvbsp_cint_cint - (A : const_vector_bool_short_ptr; - B : c_int; - C : c_int); - - pragma Import - (LL_Altivec, vec_dststt_kvbsp_cint_cint, "__builtin_altivec_dststt"); - - procedure vec_dststt_kvxp_cint_cint - (A : const_vector_pixel_ptr; - B : c_int; - C : c_int); - - pragma Import - (LL_Altivec, vec_dststt_kvxp_cint_cint, "__builtin_altivec_dststt"); - - procedure vec_dststt_kvuip_cint_cint - (A : const_vector_unsigned_int_ptr; - B : c_int; - C : c_int); - - pragma Import - (LL_Altivec, vec_dststt_kvuip_cint_cint, "__builtin_altivec_dststt"); - - procedure vec_dststt_kvsip_cint_cint - (A : const_vector_signed_int_ptr; - B : c_int; - C : c_int); - - pragma Import - (LL_Altivec, vec_dststt_kvsip_cint_cint, "__builtin_altivec_dststt"); - - procedure vec_dststt_kvbip_cint_cint - (A : const_vector_bool_int_ptr; - B : c_int; - C : c_int); - - pragma Import - (LL_Altivec, vec_dststt_kvbip_cint_cint, "__builtin_altivec_dststt"); - - procedure vec_dststt_kvfp_cint_cint - (A : const_vector_float_ptr; - B : c_int; - C : c_int); - - pragma Import - (LL_Altivec, vec_dststt_kvfp_cint_cint, "__builtin_altivec_dststt"); - - procedure vec_dststt_kucp_cint_cint - (A : const_unsigned_char_ptr; - B : c_int; - C : c_int); - - pragma Import - (LL_Altivec, vec_dststt_kucp_cint_cint, "__builtin_altivec_dststt"); - - procedure vec_dststt_kscp_cint_cint - (A : const_signed_char_ptr; - B : c_int; - C : c_int); - - pragma Import - (LL_Altivec, vec_dststt_kscp_cint_cint, "__builtin_altivec_dststt"); - - procedure vec_dststt_kusp_cint_cint - (A : const_unsigned_short_ptr; - B : c_int; - C : c_int); - - pragma Import - (LL_Altivec, vec_dststt_kusp_cint_cint, "__builtin_altivec_dststt"); - - procedure vec_dststt_ksp_cint_cint - (A : const_short_ptr; - B : c_int; - C : c_int); - - pragma Import - (LL_Altivec, vec_dststt_ksp_cint_cint, "__builtin_altivec_dststt"); - - procedure vec_dststt_kuip_cint_cint - (A : const_unsigned_int_ptr; - B : c_int; - C : c_int); - - pragma Import - (LL_Altivec, vec_dststt_kuip_cint_cint, "__builtin_altivec_dststt"); - - procedure vec_dststt_kip_cint_cint - (A : const_int_ptr; - B : c_int; - C : c_int); - - pragma Import - (LL_Altivec, vec_dststt_kip_cint_cint, "__builtin_altivec_dststt"); - - procedure vec_dststt_kulongp_cint_cint - (A : const_unsigned_long_ptr; - B : c_int; - C : c_int); - - pragma Import - (LL_Altivec, vec_dststt_kulongp_cint_cint, "__builtin_altivec_dststt"); - - procedure vec_dststt_klongp_cint_cint - (A : const_long_ptr; - B : c_int; - C : c_int); - - pragma Import - (LL_Altivec, vec_dststt_klongp_cint_cint, "__builtin_altivec_dststt"); - - procedure vec_dststt_kfp_cint_cint - (A : const_float_ptr; - B : c_int; - C : c_int); - - pragma Import - (LL_Altivec, vec_dststt_kfp_cint_cint, "__builtin_altivec_dststt"); - - -- vec_dstt -- - - procedure vec_dstt_kvucp_cint_cint - (A : const_vector_unsigned_char_ptr; - B : c_int; - C : c_int); - - pragma Import - (LL_Altivec, vec_dstt_kvucp_cint_cint, "__builtin_altivec_dstt"); - - procedure vec_dstt_kvscp_cint_cint - (A : const_vector_signed_char_ptr; - B : c_int; - C : c_int); - - pragma Import - (LL_Altivec, vec_dstt_kvscp_cint_cint, "__builtin_altivec_dstt"); - - procedure vec_dstt_kvbcp_cint_cint - (A : const_vector_bool_char_ptr; - B : c_int; - C : c_int); - - pragma Import - (LL_Altivec, vec_dstt_kvbcp_cint_cint, "__builtin_altivec_dstt"); - - procedure vec_dstt_kvusp_cint_cint - (A : const_vector_unsigned_short_ptr; - B : c_int; - C : c_int); - - pragma Import - (LL_Altivec, vec_dstt_kvusp_cint_cint, "__builtin_altivec_dstt"); - - procedure vec_dstt_kvssp_cint_cint - (A : const_vector_signed_short_ptr; - B : c_int; - C : c_int); - - pragma Import - (LL_Altivec, vec_dstt_kvssp_cint_cint, "__builtin_altivec_dstt"); - - procedure vec_dstt_kvbsp_cint_cint - (A : const_vector_bool_short_ptr; - B : c_int; - C : c_int); - - pragma Import - (LL_Altivec, vec_dstt_kvbsp_cint_cint, "__builtin_altivec_dstt"); - - procedure vec_dstt_kvxp_cint_cint - (A : const_vector_pixel_ptr; - B : c_int; - C : c_int); - - pragma Import - (LL_Altivec, vec_dstt_kvxp_cint_cint, "__builtin_altivec_dstt"); - - procedure vec_dstt_kvuip_cint_cint - (A : const_vector_unsigned_int_ptr; - B : c_int; - C : c_int); - - pragma Import - (LL_Altivec, vec_dstt_kvuip_cint_cint, "__builtin_altivec_dstt"); - - procedure vec_dstt_kvsip_cint_cint - (A : const_vector_signed_int_ptr; - B : c_int; - C : c_int); - - pragma Import - (LL_Altivec, vec_dstt_kvsip_cint_cint, "__builtin_altivec_dstt"); - - procedure vec_dstt_kvbip_cint_cint - (A : const_vector_bool_int_ptr; - B : c_int; - C : c_int); - - pragma Import - (LL_Altivec, vec_dstt_kvbip_cint_cint, "__builtin_altivec_dstt"); - - procedure vec_dstt_kvfp_cint_cint - (A : const_vector_float_ptr; - B : c_int; - C : c_int); - - pragma Import - (LL_Altivec, vec_dstt_kvfp_cint_cint, "__builtin_altivec_dstt"); - - procedure vec_dstt_kucp_cint_cint - (A : const_unsigned_char_ptr; - B : c_int; - C : c_int); - - pragma Import - (LL_Altivec, vec_dstt_kucp_cint_cint, "__builtin_altivec_dstt"); - - procedure vec_dstt_kscp_cint_cint - (A : const_signed_char_ptr; - B : c_int; - C : c_int); - - pragma Import - (LL_Altivec, vec_dstt_kscp_cint_cint, "__builtin_altivec_dstt"); - - procedure vec_dstt_kusp_cint_cint - (A : const_unsigned_short_ptr; - B : c_int; - C : c_int); - - pragma Import - (LL_Altivec, vec_dstt_kusp_cint_cint, "__builtin_altivec_dstt"); - - procedure vec_dstt_ksp_cint_cint - (A : const_short_ptr; - B : c_int; - C : c_int); - - pragma Import - (LL_Altivec, vec_dstt_ksp_cint_cint, "__builtin_altivec_dstt"); - - procedure vec_dstt_kuip_cint_cint - (A : const_unsigned_int_ptr; - B : c_int; - C : c_int); - - pragma Import - (LL_Altivec, vec_dstt_kuip_cint_cint, "__builtin_altivec_dstt"); - - procedure vec_dstt_kip_cint_cint - (A : const_int_ptr; - B : c_int; - C : c_int); - - pragma Import - (LL_Altivec, vec_dstt_kip_cint_cint, "__builtin_altivec_dstt"); - - procedure vec_dstt_kulongp_cint_cint - (A : const_unsigned_long_ptr; - B : c_int; - C : c_int); - - pragma Import - (LL_Altivec, vec_dstt_kulongp_cint_cint, "__builtin_altivec_dstt"); - - procedure vec_dstt_klongp_cint_cint - (A : const_long_ptr; - B : c_int; - C : c_int); - - pragma Import - (LL_Altivec, vec_dstt_klongp_cint_cint, "__builtin_altivec_dstt"); - - procedure vec_dstt_kfp_cint_cint - (A : const_float_ptr; - B : c_int; - C : c_int); - - pragma Import - (LL_Altivec, vec_dstt_kfp_cint_cint, "__builtin_altivec_dstt"); - -- vec_sld -- -- ??? The base GCC implementation maps everything to vsldoi_4si, while diff --git a/gcc/ada/g-alveop.adb b/gcc/ada/g-alveop.adb index 774f160..8896edd 100644 --- a/gcc/ada/g-alveop.adb +++ b/gcc/ada/g-alveop.adb @@ -7675,6 +7675,188 @@ package body GNAT.Altivec.Vector_Operations is dst (To_PTR (A), B, C); end vec_dst; + -- vec_dstt -- + + procedure vec_dstt + (A : const_vector_unsigned_char_ptr; + B : c_int; + C : c_int) + is + begin + dstt (To_PTR (A), B, C); + end vec_dstt; + + procedure vec_dstt + (A : const_vector_signed_char_ptr; + B : c_int; + C : c_int) + is + begin + dstt (To_PTR (A), B, C); + end vec_dstt; + + procedure vec_dstt + (A : const_vector_bool_char_ptr; + B : c_int; + C : c_int) + is + begin + dstt (To_PTR (A), B, C); + end vec_dstt; + + procedure vec_dstt + (A : const_vector_unsigned_short_ptr; + B : c_int; + C : c_int) + is + begin + dstt (To_PTR (A), B, C); + end vec_dstt; + + procedure vec_dstt + (A : const_vector_signed_short_ptr; + B : c_int; + C : c_int) + is + begin + dstt (To_PTR (A), B, C); + end vec_dstt; + + procedure vec_dstt + (A : const_vector_bool_short_ptr; + B : c_int; + C : c_int) + is + begin + dstt (To_PTR (A), B, C); + end vec_dstt; + + procedure vec_dstt + (A : const_vector_pixel_ptr; + B : c_int; + C : c_int) + is + begin + dstt (To_PTR (A), B, C); + end vec_dstt; + + procedure vec_dstt + (A : const_vector_unsigned_int_ptr; + B : c_int; + C : c_int) + is + begin + dstt (To_PTR (A), B, C); + end vec_dstt; + + procedure vec_dstt + (A : const_vector_signed_int_ptr; + B : c_int; + C : c_int) + is + begin + dstt (To_PTR (A), B, C); + end vec_dstt; + + procedure vec_dstt + (A : const_vector_bool_int_ptr; + B : c_int; + C : c_int) + is + begin + dstt (To_PTR (A), B, C); + end vec_dstt; + + procedure vec_dstt + (A : const_vector_float_ptr; + B : c_int; + C : c_int) + is + begin + dstt (To_PTR (A), B, C); + end vec_dstt; + + procedure vec_dstt + (A : const_unsigned_char_ptr; + B : c_int; + C : c_int) + is + begin + dstt (To_PTR (A), B, C); + end vec_dstt; + + procedure vec_dstt + (A : const_signed_char_ptr; + B : c_int; + C : c_int) + is + begin + dstt (To_PTR (A), B, C); + end vec_dstt; + + procedure vec_dstt + (A : const_unsigned_short_ptr; + B : c_int; + C : c_int) + is + begin + dstt (To_PTR (A), B, C); + end vec_dstt; + + procedure vec_dstt + (A : const_short_ptr; + B : c_int; + C : c_int) + is + begin + dstt (To_PTR (A), B, C); + end vec_dstt; + + procedure vec_dstt + (A : const_unsigned_int_ptr; + B : c_int; + C : c_int) + is + begin + dstt (To_PTR (A), B, C); + end vec_dstt; + + procedure vec_dstt + (A : const_int_ptr; + B : c_int; + C : c_int) + is + begin + dstt (To_PTR (A), B, C); + end vec_dstt; + + procedure vec_dstt + (A : const_unsigned_long_ptr; + B : c_int; + C : c_int) + is + begin + dstt (To_PTR (A), B, C); + end vec_dstt; + + procedure vec_dstt + (A : const_long_ptr; + B : c_int; + C : c_int) + is + begin + dstt (To_PTR (A), B, C); + end vec_dstt; + + procedure vec_dstt + (A : const_float_ptr; + B : c_int; + C : c_int) + is + begin + dstt (To_PTR (A), B, C); + end vec_dstt; + -- vec_dstst -- procedure vec_dstst @@ -7857,6 +8039,188 @@ package body GNAT.Altivec.Vector_Operations is dstst (To_PTR (A), B, C); end vec_dstst; + -- vec_dststt -- + + procedure vec_dststt + (A : const_vector_unsigned_char_ptr; + B : c_int; + C : c_int) + is + begin + dststt (To_PTR (A), B, C); + end vec_dststt; + + procedure vec_dststt + (A : const_vector_signed_char_ptr; + B : c_int; + C : c_int) + is + begin + dststt (To_PTR (A), B, C); + end vec_dststt; + + procedure vec_dststt + (A : const_vector_bool_char_ptr; + B : c_int; + C : c_int) + is + begin + dststt (To_PTR (A), B, C); + end vec_dststt; + + procedure vec_dststt + (A : const_vector_unsigned_short_ptr; + B : c_int; + C : c_int) + is + begin + dststt (To_PTR (A), B, C); + end vec_dststt; + + procedure vec_dststt + (A : const_vector_signed_short_ptr; + B : c_int; + C : c_int) + is + begin + dststt (To_PTR (A), B, C); + end vec_dststt; + + procedure vec_dststt + (A : const_vector_bool_short_ptr; + B : c_int; + C : c_int) + is + begin + dststt (To_PTR (A), B, C); + end vec_dststt; + + procedure vec_dststt + (A : const_vector_pixel_ptr; + B : c_int; + C : c_int) + is + begin + dststt (To_PTR (A), B, C); + end vec_dststt; + + procedure vec_dststt + (A : const_vector_unsigned_int_ptr; + B : c_int; + C : c_int) + is + begin + dststt (To_PTR (A), B, C); + end vec_dststt; + + procedure vec_dststt + (A : const_vector_signed_int_ptr; + B : c_int; + C : c_int) + is + begin + dststt (To_PTR (A), B, C); + end vec_dststt; + + procedure vec_dststt + (A : const_vector_bool_int_ptr; + B : c_int; + C : c_int) + is + begin + dststt (To_PTR (A), B, C); + end vec_dststt; + + procedure vec_dststt + (A : const_vector_float_ptr; + B : c_int; + C : c_int) + is + begin + dststt (To_PTR (A), B, C); + end vec_dststt; + + procedure vec_dststt + (A : const_unsigned_char_ptr; + B : c_int; + C : c_int) + is + begin + dststt (To_PTR (A), B, C); + end vec_dststt; + + procedure vec_dststt + (A : const_signed_char_ptr; + B : c_int; + C : c_int) + is + begin + dststt (To_PTR (A), B, C); + end vec_dststt; + + procedure vec_dststt + (A : const_unsigned_short_ptr; + B : c_int; + C : c_int) + is + begin + dststt (To_PTR (A), B, C); + end vec_dststt; + + procedure vec_dststt + (A : const_short_ptr; + B : c_int; + C : c_int) + is + begin + dststt (To_PTR (A), B, C); + end vec_dststt; + + procedure vec_dststt + (A : const_unsigned_int_ptr; + B : c_int; + C : c_int) + is + begin + dststt (To_PTR (A), B, C); + end vec_dststt; + + procedure vec_dststt + (A : const_int_ptr; + B : c_int; + C : c_int) + is + begin + dststt (To_PTR (A), B, C); + end vec_dststt; + + procedure vec_dststt + (A : const_unsigned_long_ptr; + B : c_int; + C : c_int) + is + begin + dststt (To_PTR (A), B, C); + end vec_dststt; + + procedure vec_dststt + (A : const_long_ptr; + B : c_int; + C : c_int) + is + begin + dststt (To_PTR (A), B, C); + end vec_dststt; + + procedure vec_dststt + (A : const_float_ptr; + B : c_int; + C : c_int) + is + begin + dststt (To_PTR (A), B, C); + end vec_dststt; + ----------------------------------- -- Bodies for Altivec predicates -- ----------------------------------- diff --git a/gcc/ada/g-alveop.ads b/gcc/ada/g-alveop.ads index 5cd1838..9384cec 100644 --- a/gcc/ada/g-alveop.ads +++ b/gcc/ada/g-alveop.ads @@ -1094,244 +1094,204 @@ package GNAT.Altivec.Vector_Operations is procedure vec_dststt (A : const_vector_unsigned_char_ptr; B : c_int; - C : c_int) - renames Low_Level_Interface.vec_dststt_kvucp_cint_cint; + C : c_int); procedure vec_dststt (A : const_vector_signed_char_ptr; B : c_int; - C : c_int) - renames Low_Level_Interface.vec_dststt_kvscp_cint_cint; + C : c_int); procedure vec_dststt (A : const_vector_bool_char_ptr; B : c_int; - C : c_int) - renames Low_Level_Interface.vec_dststt_kvbcp_cint_cint; + C : c_int); procedure vec_dststt (A : const_vector_unsigned_short_ptr; B : c_int; - C : c_int) - renames Low_Level_Interface.vec_dststt_kvusp_cint_cint; + C : c_int); procedure vec_dststt (A : const_vector_signed_short_ptr; B : c_int; - C : c_int) - renames Low_Level_Interface.vec_dststt_kvssp_cint_cint; + C : c_int); procedure vec_dststt (A : const_vector_bool_short_ptr; B : c_int; - C : c_int) - renames Low_Level_Interface.vec_dststt_kvbsp_cint_cint; + C : c_int); procedure vec_dststt (A : const_vector_pixel_ptr; B : c_int; - C : c_int) - renames Low_Level_Interface.vec_dststt_kvxp_cint_cint; + C : c_int); procedure vec_dststt (A : const_vector_unsigned_int_ptr; B : c_int; - C : c_int) - renames Low_Level_Interface.vec_dststt_kvuip_cint_cint; + C : c_int); procedure vec_dststt (A : const_vector_signed_int_ptr; B : c_int; - C : c_int) - renames Low_Level_Interface.vec_dststt_kvsip_cint_cint; + C : c_int); procedure vec_dststt (A : const_vector_bool_int_ptr; B : c_int; - C : c_int) - renames Low_Level_Interface.vec_dststt_kvbip_cint_cint; + C : c_int); procedure vec_dststt (A : const_vector_float_ptr; B : c_int; - C : c_int) - renames Low_Level_Interface.vec_dststt_kvfp_cint_cint; + C : c_int); procedure vec_dststt (A : const_unsigned_char_ptr; B : c_int; - C : c_int) - renames Low_Level_Interface.vec_dststt_kucp_cint_cint; + C : c_int); procedure vec_dststt (A : const_signed_char_ptr; B : c_int; - C : c_int) - renames Low_Level_Interface.vec_dststt_kscp_cint_cint; + C : c_int); procedure vec_dststt (A : const_unsigned_short_ptr; B : c_int; - C : c_int) - renames Low_Level_Interface.vec_dststt_kusp_cint_cint; + C : c_int); procedure vec_dststt (A : const_short_ptr; B : c_int; - C : c_int) - renames Low_Level_Interface.vec_dststt_ksp_cint_cint; + C : c_int); procedure vec_dststt (A : const_unsigned_int_ptr; B : c_int; - C : c_int) - renames Low_Level_Interface.vec_dststt_kuip_cint_cint; + C : c_int); procedure vec_dststt (A : const_int_ptr; B : c_int; - C : c_int) - renames Low_Level_Interface.vec_dststt_kip_cint_cint; + C : c_int); procedure vec_dststt (A : const_unsigned_long_ptr; B : c_int; - C : c_int) - renames Low_Level_Interface.vec_dststt_kulongp_cint_cint; + C : c_int); procedure vec_dststt (A : const_long_ptr; B : c_int; - C : c_int) - renames Low_Level_Interface.vec_dststt_klongp_cint_cint; + C : c_int); procedure vec_dststt (A : const_float_ptr; B : c_int; - C : c_int) - renames Low_Level_Interface.vec_dststt_kfp_cint_cint; + C : c_int); -- vec_dstt -- procedure vec_dstt (A : const_vector_unsigned_char_ptr; B : c_int; - C : c_int) - renames Low_Level_Interface.vec_dstt_kvucp_cint_cint; + C : c_int); procedure vec_dstt (A : const_vector_signed_char_ptr; B : c_int; - C : c_int) - renames Low_Level_Interface.vec_dstt_kvscp_cint_cint; + C : c_int); procedure vec_dstt (A : const_vector_bool_char_ptr; B : c_int; - C : c_int) - renames Low_Level_Interface.vec_dstt_kvbcp_cint_cint; + C : c_int); procedure vec_dstt (A : const_vector_unsigned_short_ptr; B : c_int; - C : c_int) - renames Low_Level_Interface.vec_dstt_kvusp_cint_cint; + C : c_int); procedure vec_dstt (A : const_vector_signed_short_ptr; B : c_int; - C : c_int) - renames Low_Level_Interface.vec_dstt_kvssp_cint_cint; + C : c_int); procedure vec_dstt (A : const_vector_bool_short_ptr; B : c_int; - C : c_int) - renames Low_Level_Interface.vec_dstt_kvbsp_cint_cint; + C : c_int); procedure vec_dstt (A : const_vector_pixel_ptr; B : c_int; - C : c_int) - renames Low_Level_Interface.vec_dstt_kvxp_cint_cint; + C : c_int); procedure vec_dstt (A : const_vector_unsigned_int_ptr; B : c_int; - C : c_int) - renames Low_Level_Interface.vec_dstt_kvuip_cint_cint; + C : c_int); procedure vec_dstt (A : const_vector_signed_int_ptr; B : c_int; - C : c_int) - renames Low_Level_Interface.vec_dstt_kvsip_cint_cint; + C : c_int); procedure vec_dstt (A : const_vector_bool_int_ptr; B : c_int; - C : c_int) - renames Low_Level_Interface.vec_dstt_kvbip_cint_cint; + C : c_int); procedure vec_dstt (A : const_vector_float_ptr; B : c_int; - C : c_int) - renames Low_Level_Interface.vec_dstt_kvfp_cint_cint; + C : c_int); procedure vec_dstt (A : const_unsigned_char_ptr; B : c_int; - C : c_int) - renames Low_Level_Interface.vec_dstt_kucp_cint_cint; + C : c_int); procedure vec_dstt (A : const_signed_char_ptr; B : c_int; - C : c_int) - renames Low_Level_Interface.vec_dstt_kscp_cint_cint; + C : c_int); procedure vec_dstt (A : const_unsigned_short_ptr; B : c_int; - C : c_int) - renames Low_Level_Interface.vec_dstt_kusp_cint_cint; + C : c_int); procedure vec_dstt (A : const_short_ptr; B : c_int; - C : c_int) - renames Low_Level_Interface.vec_dstt_ksp_cint_cint; + C : c_int); procedure vec_dstt (A : const_unsigned_int_ptr; B : c_int; - C : c_int) - renames Low_Level_Interface.vec_dstt_kuip_cint_cint; + C : c_int); procedure vec_dstt (A : const_int_ptr; B : c_int; - C : c_int) - renames Low_Level_Interface.vec_dstt_kip_cint_cint; + C : c_int); procedure vec_dstt (A : const_unsigned_long_ptr; B : c_int; - C : c_int) - renames Low_Level_Interface.vec_dstt_kulongp_cint_cint; + C : c_int); procedure vec_dstt (A : const_long_ptr; B : c_int; - C : c_int) - renames Low_Level_Interface.vec_dstt_klongp_cint_cint; + C : c_int); procedure vec_dstt (A : const_float_ptr; B : c_int; - C : c_int) - renames Low_Level_Interface.vec_dstt_kfp_cint_cint; + C : c_int); -- vec_expte -- @@ -8043,9 +8003,15 @@ private pragma Inline_Always (vec_dst); pragma Convention (Intrinsic, vec_dst); + pragma Inline_Always (vec_dstt); + pragma Convention (Intrinsic, vec_dstt); + pragma Inline_Always (vec_dstst); pragma Convention (Intrinsic, vec_dstst); + pragma Inline_Always (vec_dststt); + pragma Convention (Intrinsic, vec_dststt); + -- Similarly, vec_step is expected to be turned into a compile time -- constant, so ... -- 2.7.4