From: Olivier Hainque <hainque@adacore.com>
Date: Fri, 20 Feb 2015 14:22:14 +0000 (+0000)
Subject: g-allein.ads (vec_dstt): Remove.
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=389b90826bafbb5d92d49ce03e0aa4672c649cc8;p=gcc.git

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
---

diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog
index df277acb56b..c6a7aa95da1 100644
--- a/gcc/ada/ChangeLog
+++ b/gcc/ada/ChangeLog
@@ -1,3 +1,9 @@
+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.
diff --git a/gcc/ada/g-allein.ads b/gcc/ada/g-allein.ads
index ffe8de26840..aa6a3b4cead 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 774f1607439..8896edd7809 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 5cd1838416e..9384cec0817 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 ...