Skip to content

R
riscv-gcc-1
Commit d5a44d84 by Olivier Hainque Committed by Arnaud Charlet
Options

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
parent 498b13e2
Showing with 417 additions and 405 deletions
gcc/ada/ChangeLog
2015-02-20 Olivier Hainque <hainque@adacore.com> 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-allein.ads (vec_dss, vec_dssall): Remove.
* g-alveop.ads (vec_dss, vec_dssall): Rename the ll versions. * g-alveop.ads (vec_dss, vec_dssall): Rename the ll versions.
......
gcc/ada/g-allein.ads
...@@ -54,330 +54,6 @@ package GNAT.Altivec.Low_Level_Interface is ...@@ -54,330 +54,6 @@ package GNAT.Altivec.Low_Level_Interface is
use GNAT.Altivec.Vector_Types; 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 -- -- vec_dststt --
procedure vec_dststt_kvucp_cint_cint procedure vec_dststt_kvucp_cint_cint
......
gcc/ada/g-alveop.adb
...@@ -6,7 +6,7 @@ ...@@ -6,7 +6,7 @@
-- -- -- --
-- B o d y -- -- 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 -- -- 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- -- -- terms of the GNU General Public License as published by the Free Soft- --
...@@ -7493,6 +7493,370 @@ package body GNAT.Altivec.Vector_Operations is ...@@ -7493,6 +7493,370 @@ package body GNAT.Altivec.Vector_Operations is
return To_LL_VUC (vxor (To_LL_VSI (A), To_LL_VSI (B))); return To_LL_VUC (vxor (To_LL_VSI (A), To_LL_VSI (B)));
end vec_xor; 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 -- -- Bodies for Altivec predicates --
----------------------------------- -----------------------------------
......
gcc/ada/g-alveop.ads
...@@ -890,244 +890,204 @@ package GNAT.Altivec.Vector_Operations is ...@@ -890,244 +890,204 @@ package GNAT.Altivec.Vector_Operations is
procedure vec_dst procedure vec_dst
(A : const_vector_unsigned_char_ptr; (A : const_vector_unsigned_char_ptr;
B : c_int; B : c_int;
C : c_int) C : c_int);
renames Low_Level_Interface.vec_dst_kvucp_cint_cint;
procedure vec_dst procedure vec_dst
(A : const_vector_signed_char_ptr; (A : const_vector_signed_char_ptr;
B : c_int; B : c_int;
C : c_int) C : c_int);
renames Low_Level_Interface.vec_dst_kvscp_cint_cint;
procedure vec_dst procedure vec_dst
(A : const_vector_bool_char_ptr; (A : const_vector_bool_char_ptr;
B : c_int; B : c_int;
C : c_int) C : c_int);
renames Low_Level_Interface.vec_dst_kvbcp_cint_cint;
procedure vec_dst procedure vec_dst
(A : const_vector_unsigned_short_ptr; (A : const_vector_unsigned_short_ptr;
B : c_int; B : c_int;
C : c_int) C : c_int);
renames Low_Level_Interface.vec_dst_kvusp_cint_cint;
procedure vec_dst procedure vec_dst
(A : const_vector_signed_short_ptr; (A : const_vector_signed_short_ptr;
B : c_int; B : c_int;
C : c_int) C : c_int);
renames Low_Level_Interface.vec_dst_kvssp_cint_cint;
procedure vec_dst procedure vec_dst
(A : const_vector_bool_short_ptr; (A : const_vector_bool_short_ptr;
B : c_int; B : c_int;
C : c_int) C : c_int);
renames Low_Level_Interface.vec_dst_kvbsp_cint_cint;
procedure vec_dst procedure vec_dst
(A : const_vector_pixel_ptr; (A : const_vector_pixel_ptr;
B : c_int; B : c_int;
C : c_int) C : c_int);
renames Low_Level_Interface.vec_dst_kvxp_cint_cint;
procedure vec_dst procedure vec_dst
(A : const_vector_unsigned_int_ptr; (A : const_vector_unsigned_int_ptr;
B : c_int; B : c_int;
C : c_int) C : c_int);
renames Low_Level_Interface.vec_dst_kvuip_cint_cint;
procedure vec_dst procedure vec_dst
(A : const_vector_signed_int_ptr; (A : const_vector_signed_int_ptr;
B : c_int; B : c_int;
C : c_int) C : c_int);
renames Low_Level_Interface.vec_dst_kvsip_cint_cint;
procedure vec_dst procedure vec_dst
(A : const_vector_bool_int_ptr; (A : const_vector_bool_int_ptr;
B : c_int; B : c_int;
C : c_int) C : c_int);
renames Low_Level_Interface.vec_dst_kvbip_cint_cint;
procedure vec_dst procedure vec_dst
(A : const_vector_float_ptr; (A : const_vector_float_ptr;
B : c_int; B : c_int;
C : c_int) C : c_int);
renames Low_Level_Interface.vec_dst_kvfp_cint_cint;
procedure vec_dst procedure vec_dst
(A : const_unsigned_char_ptr; (A : const_unsigned_char_ptr;
B : c_int; B : c_int;
C : c_int) C : c_int);
renames Low_Level_Interface.vec_dst_kucp_cint_cint;
procedure vec_dst procedure vec_dst
(A : const_signed_char_ptr; (A : const_signed_char_ptr;
B : c_int; B : c_int;
C : c_int) C : c_int);
renames Low_Level_Interface.vec_dst_kscp_cint_cint;
procedure vec_dst procedure vec_dst
(A : const_unsigned_short_ptr; (A : const_unsigned_short_ptr;
B : c_int; B : c_int;
C : c_int) C : c_int);
renames Low_Level_Interface.vec_dst_kusp_cint_cint;
procedure vec_dst procedure vec_dst
(A : const_short_ptr; (A : const_short_ptr;
B : c_int; B : c_int;
C : c_int) C : c_int);
renames Low_Level_Interface.vec_dst_ksp_cint_cint;
procedure vec_dst procedure vec_dst
(A : const_unsigned_int_ptr; (A : const_unsigned_int_ptr;
B : c_int; B : c_int;
C : c_int) C : c_int);
renames Low_Level_Interface.vec_dst_kuip_cint_cint;
procedure vec_dst procedure vec_dst
(A : const_int_ptr; (A : const_int_ptr;
B : c_int; B : c_int;
C : c_int) C : c_int);
renames Low_Level_Interface.vec_dst_kip_cint_cint;
procedure vec_dst procedure vec_dst
(A : const_unsigned_long_ptr; (A : const_unsigned_long_ptr;
B : c_int; B : c_int;
C : c_int) C : c_int);
renames Low_Level_Interface.vec_dst_kulongp_cint_cint;
procedure vec_dst procedure vec_dst
(A : const_long_ptr; (A : const_long_ptr;
B : c_int; B : c_int;
C : c_int) C : c_int);
renames Low_Level_Interface.vec_dst_klongp_cint_cint;
procedure vec_dst procedure vec_dst
(A : const_float_ptr; (A : const_float_ptr;
B : c_int; B : c_int;
C : c_int) C : c_int);
renames Low_Level_Interface.vec_dst_kfp_cint_cint;
-- vec_dstst -- -- vec_dstst --
procedure vec_dstst procedure vec_dstst
(A : const_vector_unsigned_char_ptr; (A : const_vector_unsigned_char_ptr;
B : c_int; B : c_int;
C : c_int) C : c_int);
renames Low_Level_Interface.vec_dstst_kvucp_cint_cint;
procedure vec_dstst procedure vec_dstst
(A : const_vector_signed_char_ptr; (A : const_vector_signed_char_ptr;
B : c_int; B : c_int;
C : c_int) C : c_int);
renames Low_Level_Interface.vec_dstst_kvscp_cint_cint;
procedure vec_dstst procedure vec_dstst
(A : const_vector_bool_char_ptr; (A : const_vector_bool_char_ptr;
B : c_int; B : c_int;
C : c_int) C : c_int);
renames Low_Level_Interface.vec_dstst_kvbcp_cint_cint;
procedure vec_dstst procedure vec_dstst
(A : const_vector_unsigned_short_ptr; (A : const_vector_unsigned_short_ptr;
B : c_int; B : c_int;
C : c_int) C : c_int);
renames Low_Level_Interface.vec_dstst_kvusp_cint_cint;
procedure vec_dstst procedure vec_dstst
(A : const_vector_signed_short_ptr; (A : const_vector_signed_short_ptr;
B : c_int; B : c_int;
C : c_int) C : c_int);
renames Low_Level_Interface.vec_dstst_kvssp_cint_cint;
procedure vec_dstst procedure vec_dstst
(A : const_vector_bool_short_ptr; (A : const_vector_bool_short_ptr;
B : c_int; B : c_int;
C : c_int) C : c_int);
renames Low_Level_Interface.vec_dstst_kvbsp_cint_cint;
procedure vec_dstst procedure vec_dstst
(A : const_vector_pixel_ptr; (A : const_vector_pixel_ptr;
B : c_int; B : c_int;
C : c_int) C : c_int);
renames Low_Level_Interface.vec_dstst_kvxp_cint_cint;
procedure vec_dstst procedure vec_dstst
(A : const_vector_unsigned_int_ptr; (A : const_vector_unsigned_int_ptr;
B : c_int; B : c_int;
C : c_int) C : c_int);
renames Low_Level_Interface.vec_dstst_kvuip_cint_cint;
procedure vec_dstst procedure vec_dstst
(A : const_vector_signed_int_ptr; (A : const_vector_signed_int_ptr;
B : c_int; B : c_int;
C : c_int) C : c_int);
renames Low_Level_Interface.vec_dstst_kvsip_cint_cint;
procedure vec_dstst procedure vec_dstst
(A : const_vector_bool_int_ptr; (A : const_vector_bool_int_ptr;
B : c_int; B : c_int;
C : c_int) C : c_int);
renames Low_Level_Interface.vec_dstst_kvbip_cint_cint;
procedure vec_dstst procedure vec_dstst
(A : const_vector_float_ptr; (A : const_vector_float_ptr;
B : c_int; B : c_int;
C : c_int) C : c_int);
renames Low_Level_Interface.vec_dstst_kvfp_cint_cint;
procedure vec_dstst procedure vec_dstst
(A : const_unsigned_char_ptr; (A : const_unsigned_char_ptr;
B : c_int; B : c_int;
C : c_int) C : c_int);
renames Low_Level_Interface.vec_dstst_kucp_cint_cint;
procedure vec_dstst procedure vec_dstst
(A : const_signed_char_ptr; (A : const_signed_char_ptr;
B : c_int; B : c_int;
C : c_int) C : c_int);
renames Low_Level_Interface.vec_dstst_kscp_cint_cint;
procedure vec_dstst procedure vec_dstst
(A : const_unsigned_short_ptr; (A : const_unsigned_short_ptr;
B : c_int; B : c_int;
C : c_int) C : c_int);
renames Low_Level_Interface.vec_dstst_kusp_cint_cint;
procedure vec_dstst procedure vec_dstst
(A : const_short_ptr; (A : const_short_ptr;
B : c_int; B : c_int;
C : c_int) C : c_int);
renames Low_Level_Interface.vec_dstst_ksp_cint_cint;
procedure vec_dstst procedure vec_dstst
(A : const_unsigned_int_ptr; (A : const_unsigned_int_ptr;
B : c_int; B : c_int;
C : c_int) C : c_int);
renames Low_Level_Interface.vec_dstst_kuip_cint_cint;
procedure vec_dstst procedure vec_dstst
(A : const_int_ptr; (A : const_int_ptr;
B : c_int; B : c_int;
C : c_int) C : c_int);
renames Low_Level_Interface.vec_dstst_kip_cint_cint;
procedure vec_dstst procedure vec_dstst
(A : const_unsigned_long_ptr; (A : const_unsigned_long_ptr;
B : c_int; B : c_int;
C : c_int) C : c_int);
renames Low_Level_Interface.vec_dstst_kulongp_cint_cint;
procedure vec_dstst procedure vec_dstst
(A : const_long_ptr; (A : const_long_ptr;
B : c_int; B : c_int;
C : c_int) C : c_int);
renames Low_Level_Interface.vec_dstst_klongp_cint_cint;
procedure vec_dstst procedure vec_dstst
(A : const_float_ptr; (A : const_float_ptr;
B : c_int; B : c_int;
C : c_int) C : c_int);
renames Low_Level_Interface.vec_dstst_kfp_cint_cint;
-- vec_dststt -- -- vec_dststt --
...@@ -8080,6 +8040,12 @@ private ...@@ -8080,6 +8040,12 @@ private
pragma Inline_Always (vec_any_numeric); pragma Inline_Always (vec_any_numeric);
pragma Inline_Always (vec_any_out); 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 -- Similarly, vec_step is expected to be turned into a compile time
-- constant, so ... -- constant, so ...
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment