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 df277acb56ba3d87ae899e409ca27895e1756a31..c6a7aa95da1224948cdc56230a7a1553eaa5423c 100644 (file)
--- 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 ffe8de26840887a85f8cf5c5e5821164f93e7886..aa6a3b4ceadbe7d931c1dad1665c8822305d1eb7 100644 (file)
--- 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 774f16074394b78170b7c048b7124ce7d685c9d3..8896edd7809c2d48369a4d5ebec92b51811adf4a 100644 (file)
--- 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 5cd1838416ea6c0cef242181478e32db9990d452..9384cec08177db6ae46e956fa78a1502b9f95c98 100644 (file)
--- 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 ...