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.



git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@220861 138bc75d-0d04-0410-961f-82ee72b054a4

4 files changed, 417 insertions, 405 deletions

diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog
index 944cf37c7c0..df277acb56b 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_dst): Remove.
+	* g-alveop.ad?: Replace vec_dst renamings by proper Inline_Always
+	wrappers with Intrinsic convention.
+
+2015-02-20  Olivier Hainque  <hainque@adacore.com>
+
 	* g-allein.ads (vec_dss, vec_dssall): Remove.
 	* g-alveop.ads (vec_dss, vec_dssall): Rename the ll versions.
 
diff --git a/gcc/ada/g-allein.ads b/gcc/ada/g-allein.ads
index 0a4ef129baf..ffe8de26840 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_dst --
-
-   procedure vec_dst_kvucp_cint_cint
-     (A : const_vector_unsigned_char_ptr;
-      B : c_int;
-      C : c_int);
-
-   pragma Import
-     (LL_Altivec, vec_dst_kvucp_cint_cint, "__builtin_altivec_dst");
-
-   procedure vec_dst_kvscp_cint_cint
-     (A : const_vector_signed_char_ptr;
-      B : c_int;
-      C : c_int);
-
-   pragma Import
-     (LL_Altivec, vec_dst_kvscp_cint_cint, "__builtin_altivec_dst");
-
-   procedure vec_dst_kvbcp_cint_cint
-     (A : const_vector_bool_char_ptr;
-      B : c_int;
-      C : c_int);
-
-   pragma Import
-     (LL_Altivec, vec_dst_kvbcp_cint_cint, "__builtin_altivec_dst");
-
-   procedure vec_dst_kvusp_cint_cint
-     (A : const_vector_unsigned_short_ptr;
-      B : c_int;
-      C : c_int);
-
-   pragma Import
-     (LL_Altivec, vec_dst_kvusp_cint_cint, "__builtin_altivec_dst");
-
-   procedure vec_dst_kvssp_cint_cint
-     (A : const_vector_signed_short_ptr;
-      B : c_int;
-      C : c_int);
-
-   pragma Import
-     (LL_Altivec, vec_dst_kvssp_cint_cint, "__builtin_altivec_dst");
-
-   procedure vec_dst_kvbsp_cint_cint
-     (A : const_vector_bool_short_ptr;
-      B : c_int;
-      C : c_int);
-
-   pragma Import
-     (LL_Altivec, vec_dst_kvbsp_cint_cint, "__builtin_altivec_dst");
-
-   procedure vec_dst_kvxp_cint_cint
-     (A : const_vector_pixel_ptr;
-      B : c_int;
-      C : c_int);
-
-   pragma Import
-     (LL_Altivec, vec_dst_kvxp_cint_cint, "__builtin_altivec_dst");
-
-   procedure vec_dst_kvuip_cint_cint
-     (A : const_vector_unsigned_int_ptr;
-      B : c_int;
-      C : c_int);
-
-   pragma Import
-     (LL_Altivec, vec_dst_kvuip_cint_cint, "__builtin_altivec_dst");
-
-   procedure vec_dst_kvsip_cint_cint
-     (A : const_vector_signed_int_ptr;
-      B : c_int;
-      C : c_int);
-
-   pragma Import
-     (LL_Altivec, vec_dst_kvsip_cint_cint, "__builtin_altivec_dst");
-
-   procedure vec_dst_kvbip_cint_cint
-     (A : const_vector_bool_int_ptr;
-      B : c_int;
-      C : c_int);
-
-   pragma Import
-     (LL_Altivec, vec_dst_kvbip_cint_cint, "__builtin_altivec_dst");
-
-   procedure vec_dst_kvfp_cint_cint
-     (A : const_vector_float_ptr;
-      B : c_int;
-      C : c_int);
-
-   pragma Import
-     (LL_Altivec, vec_dst_kvfp_cint_cint, "__builtin_altivec_dst");
-
-   procedure vec_dst_kucp_cint_cint
-     (A : const_unsigned_char_ptr;
-      B : c_int;
-      C : c_int);
-
-   pragma Import
-     (LL_Altivec, vec_dst_kucp_cint_cint, "__builtin_altivec_dst");
-
-   procedure vec_dst_kscp_cint_cint
-     (A : const_signed_char_ptr;
-      B : c_int;
-      C : c_int);
-
-   pragma Import
-     (LL_Altivec, vec_dst_kscp_cint_cint, "__builtin_altivec_dst");
-
-   procedure vec_dst_kusp_cint_cint
-     (A : const_unsigned_short_ptr;
-      B : c_int;
-      C : c_int);
-
-   pragma Import
-     (LL_Altivec, vec_dst_kusp_cint_cint, "__builtin_altivec_dst");
-
-   procedure vec_dst_ksp_cint_cint
-     (A : const_short_ptr;
-      B : c_int;
-      C : c_int);
-
-   pragma Import
-     (LL_Altivec, vec_dst_ksp_cint_cint, "__builtin_altivec_dst");
-
-   procedure vec_dst_kuip_cint_cint
-     (A : const_unsigned_int_ptr;
-      B : c_int;
-      C : c_int);
-
-   pragma Import
-     (LL_Altivec, vec_dst_kuip_cint_cint, "__builtin_altivec_dst");
-
-   procedure vec_dst_kip_cint_cint
-     (A : const_int_ptr;
-      B : c_int;
-      C : c_int);
-
-   pragma Import
-     (LL_Altivec, vec_dst_kip_cint_cint, "__builtin_altivec_dst");
-
-   procedure vec_dst_kulongp_cint_cint
-     (A : const_unsigned_long_ptr;
-      B : c_int;
-      C : c_int);
-
-   pragma Import
-     (LL_Altivec, vec_dst_kulongp_cint_cint, "__builtin_altivec_dst");
-
-   procedure vec_dst_klongp_cint_cint
-     (A : const_long_ptr;
-      B : c_int;
-      C : c_int);
-
-   pragma Import
-     (LL_Altivec, vec_dst_klongp_cint_cint, "__builtin_altivec_dst");
-
-   procedure vec_dst_kfp_cint_cint
-     (A : const_float_ptr;
-      B : c_int;
-      C : c_int);
-
-   pragma Import
-     (LL_Altivec, vec_dst_kfp_cint_cint, "__builtin_altivec_dst");
-
-   -- vec_dstst --
-
-   procedure vec_dstst_kvucp_cint_cint
-     (A : const_vector_unsigned_char_ptr;
-      B : c_int;
-      C : c_int);
-
-   pragma Import
-     (LL_Altivec, vec_dstst_kvucp_cint_cint, "__builtin_altivec_dstst");
-
-   procedure vec_dstst_kvscp_cint_cint
-     (A : const_vector_signed_char_ptr;
-      B : c_int;
-      C : c_int);
-
-   pragma Import
-     (LL_Altivec, vec_dstst_kvscp_cint_cint, "__builtin_altivec_dstst");
-
-   procedure vec_dstst_kvbcp_cint_cint
-     (A : const_vector_bool_char_ptr;
-      B : c_int;
-      C : c_int);
-
-   pragma Import
-     (LL_Altivec, vec_dstst_kvbcp_cint_cint, "__builtin_altivec_dstst");
-
-   procedure vec_dstst_kvusp_cint_cint
-     (A : const_vector_unsigned_short_ptr;
-      B : c_int;
-      C : c_int);
-
-   pragma Import
-     (LL_Altivec, vec_dstst_kvusp_cint_cint, "__builtin_altivec_dstst");
-
-   procedure vec_dstst_kvssp_cint_cint
-     (A : const_vector_signed_short_ptr;
-      B : c_int;
-      C : c_int);
-
-   pragma Import
-     (LL_Altivec, vec_dstst_kvssp_cint_cint, "__builtin_altivec_dstst");
-
-   procedure vec_dstst_kvbsp_cint_cint
-     (A : const_vector_bool_short_ptr;
-      B : c_int;
-      C : c_int);
-
-   pragma Import
-     (LL_Altivec, vec_dstst_kvbsp_cint_cint, "__builtin_altivec_dstst");
-
-   procedure vec_dstst_kvxp_cint_cint
-     (A : const_vector_pixel_ptr;
-      B : c_int;
-      C : c_int);
-
-   pragma Import
-     (LL_Altivec, vec_dstst_kvxp_cint_cint, "__builtin_altivec_dstst");
-
-   procedure vec_dstst_kvuip_cint_cint
-     (A : const_vector_unsigned_int_ptr;
-      B : c_int;
-      C : c_int);
-
-   pragma Import
-     (LL_Altivec, vec_dstst_kvuip_cint_cint, "__builtin_altivec_dstst");
-
-   procedure vec_dstst_kvsip_cint_cint
-     (A : const_vector_signed_int_ptr;
-      B : c_int;
-      C : c_int);
-
-   pragma Import
-     (LL_Altivec, vec_dstst_kvsip_cint_cint, "__builtin_altivec_dstst");
-
-   procedure vec_dstst_kvbip_cint_cint
-     (A : const_vector_bool_int_ptr;
-      B : c_int;
-      C : c_int);
-
-   pragma Import
-     (LL_Altivec, vec_dstst_kvbip_cint_cint, "__builtin_altivec_dstst");
-
-   procedure vec_dstst_kvfp_cint_cint
-     (A : const_vector_float_ptr;
-      B : c_int;
-      C : c_int);
-
-   pragma Import
-     (LL_Altivec, vec_dstst_kvfp_cint_cint, "__builtin_altivec_dstst");
-
-   procedure vec_dstst_kucp_cint_cint
-     (A : const_unsigned_char_ptr;
-      B : c_int;
-      C : c_int);
-
-   pragma Import
-     (LL_Altivec, vec_dstst_kucp_cint_cint, "__builtin_altivec_dstst");
-
-   procedure vec_dstst_kscp_cint_cint
-     (A : const_signed_char_ptr;
-      B : c_int;
-      C : c_int);
-
-   pragma Import
-     (LL_Altivec, vec_dstst_kscp_cint_cint, "__builtin_altivec_dstst");
-
-   procedure vec_dstst_kusp_cint_cint
-     (A : const_unsigned_short_ptr;
-      B : c_int;
-      C : c_int);
-
-   pragma Import
-     (LL_Altivec, vec_dstst_kusp_cint_cint, "__builtin_altivec_dstst");
-
-   procedure vec_dstst_ksp_cint_cint
-     (A : const_short_ptr;
-      B : c_int;
-      C : c_int);
-
-   pragma Import
-     (LL_Altivec, vec_dstst_ksp_cint_cint, "__builtin_altivec_dstst");
-
-   procedure vec_dstst_kuip_cint_cint
-     (A : const_unsigned_int_ptr;
-      B : c_int;
-      C : c_int);
-
-   pragma Import
-     (LL_Altivec, vec_dstst_kuip_cint_cint, "__builtin_altivec_dstst");
-
-   procedure vec_dstst_kip_cint_cint
-     (A : const_int_ptr;
-      B : c_int;
-      C : c_int);
-
-   pragma Import
-     (LL_Altivec, vec_dstst_kip_cint_cint, "__builtin_altivec_dstst");
-
-   procedure vec_dstst_kulongp_cint_cint
-     (A : const_unsigned_long_ptr;
-      B : c_int;
-      C : c_int);
-
-   pragma Import
-     (LL_Altivec, vec_dstst_kulongp_cint_cint, "__builtin_altivec_dstst");
-
-   procedure vec_dstst_klongp_cint_cint
-     (A : const_long_ptr;
-      B : c_int;
-      C : c_int);
-
-   pragma Import
-     (LL_Altivec, vec_dstst_klongp_cint_cint, "__builtin_altivec_dstst");
-
-   procedure vec_dstst_kfp_cint_cint
-     (A : const_float_ptr;
-      B : c_int;
-      C : c_int);
-
-   pragma Import
-     (LL_Altivec, vec_dstst_kfp_cint_cint, "__builtin_altivec_dstst");
-
    -- vec_dststt --
 
    procedure vec_dststt_kvucp_cint_cint
diff --git a/gcc/ada/g-alveop.adb b/gcc/ada/g-alveop.adb
index 6a01b6e95eb..774f1607439 100644
--- a/gcc/ada/g-alveop.adb
+++ b/gcc/ada/g-alveop.adb
@@ -6,7 +6,7 @@
 --                                                                          --
 --                                 B o d y                                  --
 --                                                                          --
---           Copyright (C) 2004-2009, Free Software Foundation, Inc.        --
+--           Copyright (C) 2004-2015, Free Software Foundation, Inc.        --
 --                                                                          --
 -- GNAT is free software;  you can  redistribute it  and/or modify it under --
 -- terms of the  GNU General Public License as published  by the Free Soft- --
@@ -7493,6 +7493,370 @@ package body GNAT.Altivec.Vector_Operations is
       return To_LL_VUC (vxor (To_LL_VSI (A), To_LL_VSI (B)));
    end vec_xor;
 
+   -- vec_dst --
+
+   procedure vec_dst
+     (A : const_vector_unsigned_char_ptr;
+      B : c_int;
+      C : c_int)
+   is
+   begin
+      dst (To_PTR (A), B, C);
+   end vec_dst;
+
+   procedure vec_dst
+     (A : const_vector_signed_char_ptr;
+      B : c_int;
+      C : c_int)
+   is
+   begin
+      dst (To_PTR (A), B, C);
+   end vec_dst;
+
+   procedure vec_dst
+     (A : const_vector_bool_char_ptr;
+      B : c_int;
+      C : c_int)
+   is
+   begin
+      dst (To_PTR (A), B, C);
+   end vec_dst;
+
+   procedure vec_dst
+     (A : const_vector_unsigned_short_ptr;
+      B : c_int;
+      C : c_int)
+   is
+   begin
+      dst (To_PTR (A), B, C);
+   end vec_dst;
+
+   procedure vec_dst
+     (A : const_vector_signed_short_ptr;
+      B : c_int;
+      C : c_int)
+   is
+   begin
+      dst (To_PTR (A), B, C);
+   end vec_dst;
+
+   procedure vec_dst
+     (A : const_vector_bool_short_ptr;
+      B : c_int;
+      C : c_int)
+   is
+   begin
+      dst (To_PTR (A), B, C);
+   end vec_dst;
+
+   procedure vec_dst
+     (A : const_vector_pixel_ptr;
+      B : c_int;
+      C : c_int)
+   is
+   begin
+      dst (To_PTR (A), B, C);
+   end vec_dst;
+
+   procedure vec_dst
+     (A : const_vector_unsigned_int_ptr;
+      B : c_int;
+      C : c_int)
+   is
+   begin
+      dst (To_PTR (A), B, C);
+   end vec_dst;
+
+   procedure vec_dst
+     (A : const_vector_signed_int_ptr;
+      B : c_int;
+      C : c_int)
+   is
+   begin
+      dst (To_PTR (A), B, C);
+   end vec_dst;
+
+   procedure vec_dst
+     (A : const_vector_bool_int_ptr;
+      B : c_int;
+      C : c_int)
+   is
+   begin
+      dst (To_PTR (A), B, C);
+   end vec_dst;
+
+   procedure vec_dst
+     (A : const_vector_float_ptr;
+      B : c_int;
+      C : c_int)
+   is
+   begin
+      dst (To_PTR (A), B, C);
+   end vec_dst;
+
+   procedure vec_dst
+     (A : const_unsigned_char_ptr;
+      B : c_int;
+      C : c_int)
+   is
+   begin
+      dst (To_PTR (A), B, C);
+   end vec_dst;
+
+   procedure vec_dst
+     (A : const_signed_char_ptr;
+      B : c_int;
+      C : c_int)
+   is
+   begin
+      dst (To_PTR (A), B, C);
+   end vec_dst;
+
+   procedure vec_dst
+     (A : const_unsigned_short_ptr;
+      B : c_int;
+      C : c_int)
+   is
+   begin
+      dst (To_PTR (A), B, C);
+   end vec_dst;
+
+   procedure vec_dst
+     (A : const_short_ptr;
+      B : c_int;
+      C : c_int)
+   is
+   begin
+      dst (To_PTR (A), B, C);
+   end vec_dst;
+
+   procedure vec_dst
+     (A : const_unsigned_int_ptr;
+      B : c_int;
+      C : c_int)
+   is
+   begin
+      dst (To_PTR (A), B, C);
+   end vec_dst;
+
+   procedure vec_dst
+     (A : const_int_ptr;
+      B : c_int;
+      C : c_int)
+   is
+   begin
+      dst (To_PTR (A), B, C);
+   end vec_dst;
+
+   procedure vec_dst
+     (A : const_unsigned_long_ptr;
+      B : c_int;
+      C : c_int)
+   is
+   begin
+      dst (To_PTR (A), B, C);
+   end vec_dst;
+
+   procedure vec_dst
+     (A : const_long_ptr;
+      B : c_int;
+      C : c_int)
+   is
+   begin
+      dst (To_PTR (A), B, C);
+   end vec_dst;
+
+   procedure vec_dst
+     (A : const_float_ptr;
+      B : c_int;
+      C : c_int)
+   is
+   begin
+      dst (To_PTR (A), B, C);
+   end vec_dst;
+
+   -- vec_dstst --
+
+   procedure vec_dstst
+     (A : const_vector_unsigned_char_ptr;
+      B : c_int;
+      C : c_int)
+   is
+   begin
+      dstst (To_PTR (A), B, C);
+   end vec_dstst;
+
+   procedure vec_dstst
+     (A : const_vector_signed_char_ptr;
+      B : c_int;
+      C : c_int)
+   is
+   begin
+      dstst (To_PTR (A), B, C);
+   end vec_dstst;
+
+   procedure vec_dstst
+     (A : const_vector_bool_char_ptr;
+      B : c_int;
+      C : c_int)
+   is
+   begin
+      dstst (To_PTR (A), B, C);
+   end vec_dstst;
+
+   procedure vec_dstst
+     (A : const_vector_unsigned_short_ptr;
+      B : c_int;
+      C : c_int)
+   is
+   begin
+      dstst (To_PTR (A), B, C);
+   end vec_dstst;
+
+   procedure vec_dstst
+     (A : const_vector_signed_short_ptr;
+      B : c_int;
+      C : c_int)
+   is
+   begin
+      dstst (To_PTR (A), B, C);
+   end vec_dstst;
+
+   procedure vec_dstst
+     (A : const_vector_bool_short_ptr;
+      B : c_int;
+      C : c_int)
+   is
+   begin
+      dstst (To_PTR (A), B, C);
+   end vec_dstst;
+
+   procedure vec_dstst
+     (A : const_vector_pixel_ptr;
+      B : c_int;
+      C : c_int)
+   is
+   begin
+      dstst (To_PTR (A), B, C);
+   end vec_dstst;
+
+   procedure vec_dstst
+     (A : const_vector_unsigned_int_ptr;
+      B : c_int;
+      C : c_int)
+   is
+   begin
+      dstst (To_PTR (A), B, C);
+   end vec_dstst;
+
+   procedure vec_dstst
+     (A : const_vector_signed_int_ptr;
+      B : c_int;
+      C : c_int)
+   is
+   begin
+      dstst (To_PTR (A), B, C);
+   end vec_dstst;
+
+   procedure vec_dstst
+     (A : const_vector_bool_int_ptr;
+      B : c_int;
+      C : c_int)
+   is
+   begin
+      dstst (To_PTR (A), B, C);
+   end vec_dstst;
+
+   procedure vec_dstst
+     (A : const_vector_float_ptr;
+      B : c_int;
+      C : c_int)
+   is
+   begin
+      dstst (To_PTR (A), B, C);
+   end vec_dstst;
+
+   procedure vec_dstst
+     (A : const_unsigned_char_ptr;
+      B : c_int;
+      C : c_int)
+   is
+   begin
+      dstst (To_PTR (A), B, C);
+   end vec_dstst;
+
+   procedure vec_dstst
+     (A : const_signed_char_ptr;
+      B : c_int;
+      C : c_int)
+   is
+   begin
+      dstst (To_PTR (A), B, C);
+   end vec_dstst;
+
+   procedure vec_dstst
+     (A : const_unsigned_short_ptr;
+      B : c_int;
+      C : c_int)
+   is
+   begin
+      dstst (To_PTR (A), B, C);
+   end vec_dstst;
+
+   procedure vec_dstst
+     (A : const_short_ptr;
+      B : c_int;
+      C : c_int)
+   is
+   begin
+      dstst (To_PTR (A), B, C);
+   end vec_dstst;
+
+   procedure vec_dstst
+     (A : const_unsigned_int_ptr;
+      B : c_int;
+      C : c_int)
+   is
+   begin
+      dstst (To_PTR (A), B, C);
+   end vec_dstst;
+
+   procedure vec_dstst
+     (A : const_int_ptr;
+      B : c_int;
+      C : c_int)
+   is
+   begin
+      dstst (To_PTR (A), B, C);
+   end vec_dstst;
+
+   procedure vec_dstst
+     (A : const_unsigned_long_ptr;
+      B : c_int;
+      C : c_int)
+   is
+   begin
+      dstst (To_PTR (A), B, C);
+   end vec_dstst;
+
+   procedure vec_dstst
+     (A : const_long_ptr;
+      B : c_int;
+      C : c_int)
+   is
+   begin
+      dstst (To_PTR (A), B, C);
+   end vec_dstst;
+
+   procedure vec_dstst
+     (A : const_float_ptr;
+      B : c_int;
+      C : c_int)
+   is
+   begin
+      dstst (To_PTR (A), B, C);
+   end vec_dstst;
+
    -----------------------------------
    -- Bodies for Altivec predicates --
    -----------------------------------
diff --git a/gcc/ada/g-alveop.ads b/gcc/ada/g-alveop.ads
index 2ae6cb5ecd0..5cd1838416e 100644
--- a/gcc/ada/g-alveop.ads
+++ b/gcc/ada/g-alveop.ads
@@ -890,244 +890,204 @@ package GNAT.Altivec.Vector_Operations is
    procedure vec_dst
      (A : const_vector_unsigned_char_ptr;
       B : c_int;
-      C : c_int)
-   renames Low_Level_Interface.vec_dst_kvucp_cint_cint;
+      C : c_int);
 
    procedure vec_dst
      (A : const_vector_signed_char_ptr;
       B : c_int;
-      C : c_int)
-   renames Low_Level_Interface.vec_dst_kvscp_cint_cint;
+      C : c_int);
 
    procedure vec_dst
      (A : const_vector_bool_char_ptr;
       B : c_int;
-      C : c_int)
-   renames Low_Level_Interface.vec_dst_kvbcp_cint_cint;
+      C : c_int);
 
    procedure vec_dst
      (A : const_vector_unsigned_short_ptr;
       B : c_int;
-      C : c_int)
-   renames Low_Level_Interface.vec_dst_kvusp_cint_cint;
+      C : c_int);
 
    procedure vec_dst
      (A : const_vector_signed_short_ptr;
       B : c_int;
-      C : c_int)
-   renames Low_Level_Interface.vec_dst_kvssp_cint_cint;
+      C : c_int);
 
    procedure vec_dst
      (A : const_vector_bool_short_ptr;
       B : c_int;
-      C : c_int)
-   renames Low_Level_Interface.vec_dst_kvbsp_cint_cint;
+      C : c_int);
 
    procedure vec_dst
      (A : const_vector_pixel_ptr;
       B : c_int;
-      C : c_int)
-   renames Low_Level_Interface.vec_dst_kvxp_cint_cint;
+      C : c_int);
 
    procedure vec_dst
      (A : const_vector_unsigned_int_ptr;
       B : c_int;
-      C : c_int)
-   renames Low_Level_Interface.vec_dst_kvuip_cint_cint;
+      C : c_int);
 
    procedure vec_dst
      (A : const_vector_signed_int_ptr;
       B : c_int;
-      C : c_int)
-   renames Low_Level_Interface.vec_dst_kvsip_cint_cint;
+      C : c_int);
 
    procedure vec_dst
      (A : const_vector_bool_int_ptr;
       B : c_int;
-      C : c_int)
-   renames Low_Level_Interface.vec_dst_kvbip_cint_cint;
+      C : c_int);
 
    procedure vec_dst
      (A : const_vector_float_ptr;
       B : c_int;
-      C : c_int)
-   renames Low_Level_Interface.vec_dst_kvfp_cint_cint;
+      C : c_int);
 
    procedure vec_dst
      (A : const_unsigned_char_ptr;
       B : c_int;
-      C : c_int)
-   renames Low_Level_Interface.vec_dst_kucp_cint_cint;
+      C : c_int);
 
    procedure vec_dst
      (A : const_signed_char_ptr;
       B : c_int;
-      C : c_int)
-   renames Low_Level_Interface.vec_dst_kscp_cint_cint;
+      C : c_int);
 
    procedure vec_dst
      (A : const_unsigned_short_ptr;
       B : c_int;
-      C : c_int)
-   renames Low_Level_Interface.vec_dst_kusp_cint_cint;
+      C : c_int);
 
    procedure vec_dst
      (A : const_short_ptr;
       B : c_int;
-      C : c_int)
-   renames Low_Level_Interface.vec_dst_ksp_cint_cint;
+      C : c_int);
 
    procedure vec_dst
      (A : const_unsigned_int_ptr;
       B : c_int;
-      C : c_int)
-   renames Low_Level_Interface.vec_dst_kuip_cint_cint;
+      C : c_int);
 
    procedure vec_dst
      (A : const_int_ptr;
       B : c_int;
-      C : c_int)
-   renames Low_Level_Interface.vec_dst_kip_cint_cint;
+      C : c_int);
 
    procedure vec_dst
      (A : const_unsigned_long_ptr;
       B : c_int;
-      C : c_int)
-   renames Low_Level_Interface.vec_dst_kulongp_cint_cint;
+      C : c_int);
 
    procedure vec_dst
      (A : const_long_ptr;
       B : c_int;
-      C : c_int)
-   renames Low_Level_Interface.vec_dst_klongp_cint_cint;
+      C : c_int);
 
    procedure vec_dst
      (A : const_float_ptr;
       B : c_int;
-      C : c_int)
-   renames Low_Level_Interface.vec_dst_kfp_cint_cint;
+      C : c_int);
 
    -- vec_dstst --
 
    procedure vec_dstst
      (A : const_vector_unsigned_char_ptr;
       B : c_int;
-      C : c_int)
-   renames Low_Level_Interface.vec_dstst_kvucp_cint_cint;
+      C : c_int);
 
    procedure vec_dstst
      (A : const_vector_signed_char_ptr;
       B : c_int;
-      C : c_int)
-   renames Low_Level_Interface.vec_dstst_kvscp_cint_cint;
+      C : c_int);
 
    procedure vec_dstst
      (A : const_vector_bool_char_ptr;
       B : c_int;
-      C : c_int)
-   renames Low_Level_Interface.vec_dstst_kvbcp_cint_cint;
+      C : c_int);
 
    procedure vec_dstst
      (A : const_vector_unsigned_short_ptr;
       B : c_int;
-      C : c_int)
-   renames Low_Level_Interface.vec_dstst_kvusp_cint_cint;
+      C : c_int);
 
    procedure vec_dstst
      (A : const_vector_signed_short_ptr;
       B : c_int;
-      C : c_int)
-   renames Low_Level_Interface.vec_dstst_kvssp_cint_cint;
+      C : c_int);
 
    procedure vec_dstst
      (A : const_vector_bool_short_ptr;
       B : c_int;
-      C : c_int)
-   renames Low_Level_Interface.vec_dstst_kvbsp_cint_cint;
+      C : c_int);
 
    procedure vec_dstst
      (A : const_vector_pixel_ptr;
       B : c_int;
-      C : c_int)
-   renames Low_Level_Interface.vec_dstst_kvxp_cint_cint;
+      C : c_int);
 
    procedure vec_dstst
      (A : const_vector_unsigned_int_ptr;
       B : c_int;
-      C : c_int)
-   renames Low_Level_Interface.vec_dstst_kvuip_cint_cint;
+      C : c_int);
 
    procedure vec_dstst
      (A : const_vector_signed_int_ptr;
       B : c_int;
-      C : c_int)
-   renames Low_Level_Interface.vec_dstst_kvsip_cint_cint;
+      C : c_int);
 
    procedure vec_dstst
      (A : const_vector_bool_int_ptr;
       B : c_int;
-      C : c_int)
-   renames Low_Level_Interface.vec_dstst_kvbip_cint_cint;
+      C : c_int);
 
    procedure vec_dstst
      (A : const_vector_float_ptr;
       B : c_int;
-      C : c_int)
-   renames Low_Level_Interface.vec_dstst_kvfp_cint_cint;
+      C : c_int);
 
    procedure vec_dstst
      (A : const_unsigned_char_ptr;
       B : c_int;
-      C : c_int)
-   renames Low_Level_Interface.vec_dstst_kucp_cint_cint;
+      C : c_int);
 
    procedure vec_dstst
      (A : const_signed_char_ptr;
       B : c_int;
-      C : c_int)
-   renames Low_Level_Interface.vec_dstst_kscp_cint_cint;
+      C : c_int);
 
    procedure vec_dstst
      (A : const_unsigned_short_ptr;
       B : c_int;
-      C : c_int)
-   renames Low_Level_Interface.vec_dstst_kusp_cint_cint;
+      C : c_int);
 
    procedure vec_dstst
      (A : const_short_ptr;
       B : c_int;
-      C : c_int)
-   renames Low_Level_Interface.vec_dstst_ksp_cint_cint;
+      C : c_int);
 
    procedure vec_dstst
      (A : const_unsigned_int_ptr;
       B : c_int;
-      C : c_int)
-   renames Low_Level_Interface.vec_dstst_kuip_cint_cint;
+      C : c_int);
 
    procedure vec_dstst
      (A : const_int_ptr;
       B : c_int;
-      C : c_int)
-   renames Low_Level_Interface.vec_dstst_kip_cint_cint;
+      C : c_int);
 
    procedure vec_dstst
      (A : const_unsigned_long_ptr;
       B : c_int;
-      C : c_int)
-   renames Low_Level_Interface.vec_dstst_kulongp_cint_cint;
+      C : c_int);
 
    procedure vec_dstst
      (A : const_long_ptr;
       B : c_int;
-      C : c_int)
-   renames Low_Level_Interface.vec_dstst_klongp_cint_cint;
+      C : c_int);
 
    procedure vec_dstst
      (A : const_float_ptr;
       B : c_int;
-      C : c_int)
-   renames Low_Level_Interface.vec_dstst_kfp_cint_cint;
+      C : c_int);
 
    -- vec_dststt --
 
@@ -8080,6 +8040,12 @@ private
    pragma Inline_Always (vec_any_numeric);
    pragma Inline_Always (vec_any_out);
 
+   pragma Inline_Always (vec_dst);
+   pragma Convention (Intrinsic, vec_dst);
+
+   pragma Inline_Always (vec_dstst);
+   pragma Convention (Intrinsic, vec_dstst);
+
    --  Similarly, vec_step is expected to be turned into a compile time
    --  constant, so ...