g-allein.ads (vec_dstt): Remove.

2015-02-20  Olivier Hainque  <hainque@adacore.com>

	* g-allein.ads (vec_dstt): Remove.
	* g-alveop.ad?: Replace
	vec_dstt renamings by proper Inline_Always wrappers with Intrinsic
	convention.

From-SVN: r220862

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  <hainque@adacore.com>
 
+	* 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  <hainque@adacore.com>
+
 	* 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 ...