Skip to content

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

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
parent d5a44d84
Showing with 416 additions and 404 deletions
gcc/ada/ChangeLog
2015-02-20 Olivier Hainque <hainque@adacore.com> 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. * g-allein.ads (vec_dst): Remove.
* g-alveop.ad?: Replace vec_dst renamings by proper Inline_Always * g-alveop.ad?: Replace vec_dst renamings by proper Inline_Always
wrappers with Intrinsic convention. wrappers with Intrinsic convention.
......
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_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 -- -- vec_sld --
-- ??? The base GCC implementation maps everything to vsldoi_4si, while -- ??? The base GCC implementation maps everything to vsldoi_4si, while
......
gcc/ada/g-alveop.adb
...@@ -7675,6 +7675,188 @@ package body GNAT.Altivec.Vector_Operations is ...@@ -7675,6 +7675,188 @@ package body GNAT.Altivec.Vector_Operations is
dst (To_PTR (A), B, C); dst (To_PTR (A), B, C);
end vec_dst; 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 -- -- vec_dstst --
procedure vec_dstst procedure vec_dstst
...@@ -7857,6 +8039,188 @@ package body GNAT.Altivec.Vector_Operations is ...@@ -7857,6 +8039,188 @@ package body GNAT.Altivec.Vector_Operations is
dstst (To_PTR (A), B, C); dstst (To_PTR (A), B, C);
end vec_dstst; 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 -- -- Bodies for Altivec predicates --
----------------------------------- -----------------------------------
......
gcc/ada/g-alveop.ads
...@@ -1094,244 +1094,204 @@ package GNAT.Altivec.Vector_Operations is ...@@ -1094,244 +1094,204 @@ package GNAT.Altivec.Vector_Operations is
procedure vec_dststt procedure vec_dststt
(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_dststt_kvucp_cint_cint;
procedure vec_dststt procedure vec_dststt
(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_dststt_kvscp_cint_cint;
procedure vec_dststt procedure vec_dststt
(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_dststt_kvbcp_cint_cint;
procedure vec_dststt procedure vec_dststt
(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_dststt_kvusp_cint_cint;
procedure vec_dststt procedure vec_dststt
(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_dststt_kvssp_cint_cint;
procedure vec_dststt procedure vec_dststt
(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_dststt_kvbsp_cint_cint;
procedure vec_dststt procedure vec_dststt
(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_dststt_kvxp_cint_cint;
procedure vec_dststt procedure vec_dststt
(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_dststt_kvuip_cint_cint;
procedure vec_dststt procedure vec_dststt
(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_dststt_kvsip_cint_cint;
procedure vec_dststt procedure vec_dststt
(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_dststt_kvbip_cint_cint;
procedure vec_dststt procedure vec_dststt
(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_dststt_kvfp_cint_cint;
procedure vec_dststt procedure vec_dststt
(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_dststt_kucp_cint_cint;
procedure vec_dststt procedure vec_dststt
(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_dststt_kscp_cint_cint;
procedure vec_dststt procedure vec_dststt
(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_dststt_kusp_cint_cint;
procedure vec_dststt procedure vec_dststt
(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_dststt_ksp_cint_cint;
procedure vec_dststt procedure vec_dststt
(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_dststt_kuip_cint_cint;
procedure vec_dststt procedure vec_dststt
(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_dststt_kip_cint_cint;
procedure vec_dststt procedure vec_dststt
(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_dststt_kulongp_cint_cint;
procedure vec_dststt procedure vec_dststt
(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_dststt_klongp_cint_cint;
procedure vec_dststt procedure vec_dststt
(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_dststt_kfp_cint_cint;
-- vec_dstt -- -- vec_dstt --
procedure vec_dstt procedure vec_dstt
(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_dstt_kvucp_cint_cint;
procedure vec_dstt procedure vec_dstt
(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_dstt_kvscp_cint_cint;
procedure vec_dstt procedure vec_dstt
(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_dstt_kvbcp_cint_cint;
procedure vec_dstt procedure vec_dstt
(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_dstt_kvusp_cint_cint;
procedure vec_dstt procedure vec_dstt
(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_dstt_kvssp_cint_cint;
procedure vec_dstt procedure vec_dstt
(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_dstt_kvbsp_cint_cint;
procedure vec_dstt procedure vec_dstt
(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_dstt_kvxp_cint_cint;
procedure vec_dstt procedure vec_dstt
(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_dstt_kvuip_cint_cint;
procedure vec_dstt procedure vec_dstt
(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_dstt_kvsip_cint_cint;
procedure vec_dstt procedure vec_dstt
(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_dstt_kvbip_cint_cint;
procedure vec_dstt procedure vec_dstt
(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_dstt_kvfp_cint_cint;
procedure vec_dstt procedure vec_dstt
(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_dstt_kucp_cint_cint;
procedure vec_dstt procedure vec_dstt
(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_dstt_kscp_cint_cint;
procedure vec_dstt procedure vec_dstt
(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_dstt_kusp_cint_cint;
procedure vec_dstt procedure vec_dstt
(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_dstt_ksp_cint_cint;
procedure vec_dstt procedure vec_dstt
(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_dstt_kuip_cint_cint;
procedure vec_dstt procedure vec_dstt
(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_dstt_kip_cint_cint;
procedure vec_dstt procedure vec_dstt
(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_dstt_kulongp_cint_cint;
procedure vec_dstt procedure vec_dstt
(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_dstt_klongp_cint_cint;
procedure vec_dstt procedure vec_dstt
(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_dstt_kfp_cint_cint;
-- vec_expte -- -- vec_expte --
...@@ -8043,9 +8003,15 @@ private ...@@ -8043,9 +8003,15 @@ private
pragma Inline_Always (vec_dst); pragma Inline_Always (vec_dst);
pragma Convention (Intrinsic, vec_dst); pragma Convention (Intrinsic, vec_dst);
pragma Inline_Always (vec_dstt);
pragma Convention (Intrinsic, vec_dstt);
pragma Inline_Always (vec_dstst); pragma Inline_Always (vec_dstst);
pragma Convention (Intrinsic, 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 -- 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