g-allein.ads (vec_dst): Remove.

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.

From-SVN: r220861

diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog
index 944cf37c7c04537d0314134d5fbcb244d1f33012..df277acb56ba3d87ae899e409ca27895e1756a31 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_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.

diff --git a/gcc/ada/g-allein.ads b/gcc/ada/g-allein.ads
index 0a4ef129bafd4ea2d950b2f2dc7acb67c7a1b758..ffe8de26840887a85f8cf5c5e5821164f93e7886 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_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 6a01b6e95eb8f450d54bb62459df507fbc80e869..774f16074394b78170b7c048b7124ce7d685c9d3 100644 (file)
--- 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 2ae6cb5ecd0cfd02e614d8e64131b2800e7f6f49..5cd1838416ea6c0cef242181478e32db9990d452 100644 (file)
--- 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 ...