From 9b9e7e8a7452038b432d71e3f99be5874be75c4b Mon Sep 17 00:00:00 2001 From: Olivier Hainque Date: Fri, 20 Feb 2015 14:23:05 +0000 Subject: g-allein.ads (vec_vspltw): Remove. 2015-02-20 Olivier Hainque * g-allein.ads (vec_vspltw): Remove. * g-alveop.ad?: Replace vec_vspltw renamings by proper Inline_Always wrappers with Intrinsic convention. From-SVN: r220864 --- gcc/ada/g-alveop.adb | 52 ++++++++++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 52 insertions(+) (limited to 'gcc/ada/g-alveop.adb') diff --git a/gcc/ada/g-alveop.adb b/gcc/ada/g-alveop.adb index 8896edd..1d1b56d 100644 --- a/gcc/ada/g-alveop.adb +++ b/gcc/ada/g-alveop.adb @@ -8221,6 +8221,58 @@ package body GNAT.Altivec.Vector_Operations is dststt (To_PTR (A), B, C); end vec_dststt; + -- vec_vspltw -- + + function vec_vspltw + (A : vector_float; + B : c_int) return vector_float + is + begin + return To_LL_VF (vspltw (To_LL_VSI (A), B)); + end vec_vspltw; + + function vec_vspltw + (A : vector_unsigned_int; + B : c_int) return vector_unsigned_int + is + begin + return To_LL_VUI (vspltw (To_LL_VSI (A), B)); + end vec_vspltw; + + function vec_vspltw + (A : vector_bool_int; + B : c_int) return vector_bool_int + is + begin + return To_LL_VBI (vspltw (To_LL_VSI (A), B)); + end vec_vspltw; + + -- vec_vsplth -- + + function vec_vsplth + (A : vector_bool_short; + B : c_int) return vector_bool_short + is + begin + return To_LL_VBS (vsplth (To_LL_VSS (A), B)); + end vec_vsplth; + + function vec_vsplth + (A : vector_unsigned_short; + B : c_int) return vector_unsigned_short + is + begin + return To_LL_VUS (vsplth (To_LL_VSS (A), B)); + end vec_vsplth; + + function vec_vsplth + (A : vector_pixel; + B : c_int) return vector_pixel + is + begin + return To_LL_VP (vsplth (To_LL_VSS (A), B)); + end vec_vsplth; + ----------------------------------- -- Bodies for Altivec predicates -- ----------------------------------- -- cgit v1.1