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>
* 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-alveop.ad?: Replace vec_dst renamings by proper Inline_Always
wrappers with Intrinsic convention.
......
gcc/ada/g-allein.ads
......@@ -54,330 +54,6 @@ package GNAT.Altivec.Low_Level_Interface is
use GNAT.Altivec.Vector_Types;
-- vec_dststt --
procedure vec_dststt_kvucp_cint_cint
(A : const_vector_unsigned_char_ptr;
B : c_int;
C : c_int);
pragma Import
(LL_Altivec, vec_dststt_kvucp_cint_cint, "__builtin_altivec_dststt");
procedure vec_dststt_kvscp_cint_cint
(A : const_vector_signed_char_ptr;
B : c_int;
C : c_int);
pragma Import
(LL_Altivec, vec_dststt_kvscp_cint_cint, "__builtin_altivec_dststt");
procedure vec_dststt_kvbcp_cint_cint
(A : const_vector_bool_char_ptr;
B : c_int;
C : c_int);
pragma Import
(LL_Altivec, vec_dststt_kvbcp_cint_cint, "__builtin_altivec_dststt");
procedure vec_dststt_kvusp_cint_cint
(A : const_vector_unsigned_short_ptr;
B : c_int;
C : c_int);
pragma Import
(LL_Altivec, vec_dststt_kvusp_cint_cint, "__builtin_altivec_dststt");
procedure vec_dststt_kvssp_cint_cint
(A : const_vector_signed_short_ptr;
B : c_int;
C : c_int);
pragma Import
(LL_Altivec, vec_dststt_kvssp_cint_cint, "__builtin_altivec_dststt");
procedure vec_dststt_kvbsp_cint_cint
(A : const_vector_bool_short_ptr;
B : c_int;
C : c_int);
pragma Import
(LL_Altivec, vec_dststt_kvbsp_cint_cint, "__builtin_altivec_dststt");
procedure vec_dststt_kvxp_cint_cint
(A : const_vector_pixel_ptr;
B : c_int;
C : c_int);
pragma Import
(LL_Altivec, vec_dststt_kvxp_cint_cint, "__builtin_altivec_dststt");
procedure vec_dststt_kvuip_cint_cint
(A : const_vector_unsigned_int_ptr;
B : c_int;
C : c_int);
pragma Import
(LL_Altivec, vec_dststt_kvuip_cint_cint, "__builtin_altivec_dststt");
procedure vec_dststt_kvsip_cint_cint
(A : const_vector_signed_int_ptr;
B : c_int;
C : c_int);
pragma Import
(LL_Altivec, vec_dststt_kvsip_cint_cint, "__builtin_altivec_dststt");
procedure vec_dststt_kvbip_cint_cint
(A : const_vector_bool_int_ptr;
B : c_int;
C : c_int);
pragma Import
(LL_Altivec, vec_dststt_kvbip_cint_cint, "__builtin_altivec_dststt");
procedure vec_dststt_kvfp_cint_cint
(A : const_vector_float_ptr;
B : c_int;
C : c_int);
pragma Import
(LL_Altivec, vec_dststt_kvfp_cint_cint, "__builtin_altivec_dststt");
procedure vec_dststt_kucp_cint_cint
(A : const_unsigned_char_ptr;
B : c_int;
C : c_int);
pragma Import
(LL_Altivec, vec_dststt_kucp_cint_cint, "__builtin_altivec_dststt");
procedure vec_dststt_kscp_cint_cint
(A : const_signed_char_ptr;
B : c_int;
C : c_int);
pragma Import
(LL_Altivec, vec_dststt_kscp_cint_cint, "__builtin_altivec_dststt");
procedure vec_dststt_kusp_cint_cint
(A : const_unsigned_short_ptr;
B : c_int;
C : c_int);
pragma Import
(LL_Altivec, vec_dststt_kusp_cint_cint, "__builtin_altivec_dststt");
procedure vec_dststt_ksp_cint_cint
(A : const_short_ptr;
B : c_int;
C : c_int);
pragma Import
(LL_Altivec, vec_dststt_ksp_cint_cint, "__builtin_altivec_dststt");
procedure vec_dststt_kuip_cint_cint
(A : const_unsigned_int_ptr;
B : c_int;
C : c_int);
pragma Import
(LL_Altivec, vec_dststt_kuip_cint_cint, "__builtin_altivec_dststt");
procedure vec_dststt_kip_cint_cint
(A : const_int_ptr;
B : c_int;
C : c_int);
pragma Import
(LL_Altivec, vec_dststt_kip_cint_cint, "__builtin_altivec_dststt");
procedure vec_dststt_kulongp_cint_cint
(A : const_unsigned_long_ptr;
B : c_int;
C : c_int);
pragma Import
(LL_Altivec, vec_dststt_kulongp_cint_cint, "__builtin_altivec_dststt");
procedure vec_dststt_klongp_cint_cint
(A : const_long_ptr;
B : c_int;
C : c_int);
pragma Import
(LL_Altivec, vec_dststt_klongp_cint_cint, "__builtin_altivec_dststt");
procedure vec_dststt_kfp_cint_cint
(A : const_float_ptr;
B : c_int;
C : c_int);
pragma Import
(LL_Altivec, vec_dststt_kfp_cint_cint, "__builtin_altivec_dststt");
-- vec_dstt --
procedure vec_dstt_kvucp_cint_cint
(A : const_vector_unsigned_char_ptr;
B : c_int;
C : c_int);
pragma Import
(LL_Altivec, vec_dstt_kvucp_cint_cint, "__builtin_altivec_dstt");
procedure vec_dstt_kvscp_cint_cint
(A : const_vector_signed_char_ptr;
B : c_int;
C : c_int);
pragma Import
(LL_Altivec, vec_dstt_kvscp_cint_cint, "__builtin_altivec_dstt");
procedure vec_dstt_kvbcp_cint_cint
(A : const_vector_bool_char_ptr;
B : c_int;
C : c_int);
pragma Import
(LL_Altivec, vec_dstt_kvbcp_cint_cint, "__builtin_altivec_dstt");
procedure vec_dstt_kvusp_cint_cint
(A : const_vector_unsigned_short_ptr;
B : c_int;
C : c_int);
pragma Import
(LL_Altivec, vec_dstt_kvusp_cint_cint, "__builtin_altivec_dstt");
procedure vec_dstt_kvssp_cint_cint
(A : const_vector_signed_short_ptr;
B : c_int;
C : c_int);
pragma Import
(LL_Altivec, vec_dstt_kvssp_cint_cint, "__builtin_altivec_dstt");
procedure vec_dstt_kvbsp_cint_cint
(A : const_vector_bool_short_ptr;
B : c_int;
C : c_int);
pragma Import
(LL_Altivec, vec_dstt_kvbsp_cint_cint, "__builtin_altivec_dstt");
procedure vec_dstt_kvxp_cint_cint
(A : const_vector_pixel_ptr;
B : c_int;
C : c_int);
pragma Import
(LL_Altivec, vec_dstt_kvxp_cint_cint, "__builtin_altivec_dstt");
procedure vec_dstt_kvuip_cint_cint
(A : const_vector_unsigned_int_ptr;
B : c_int;
C : c_int);
pragma Import
(LL_Altivec, vec_dstt_kvuip_cint_cint, "__builtin_altivec_dstt");
procedure vec_dstt_kvsip_cint_cint
(A : const_vector_signed_int_ptr;
B : c_int;
C : c_int);
pragma Import
(LL_Altivec, vec_dstt_kvsip_cint_cint, "__builtin_altivec_dstt");
procedure vec_dstt_kvbip_cint_cint
(A : const_vector_bool_int_ptr;
B : c_int;
C : c_int);
pragma Import
(LL_Altivec, vec_dstt_kvbip_cint_cint, "__builtin_altivec_dstt");
procedure vec_dstt_kvfp_cint_cint
(A : const_vector_float_ptr;
B : c_int;
C : c_int);
pragma Import
(LL_Altivec, vec_dstt_kvfp_cint_cint, "__builtin_altivec_dstt");
procedure vec_dstt_kucp_cint_cint
(A : const_unsigned_char_ptr;
B : c_int;
C : c_int);
pragma Import
(LL_Altivec, vec_dstt_kucp_cint_cint, "__builtin_altivec_dstt");
procedure vec_dstt_kscp_cint_cint
(A : const_signed_char_ptr;
B : c_int;
C : c_int);
pragma Import
(LL_Altivec, vec_dstt_kscp_cint_cint, "__builtin_altivec_dstt");
procedure vec_dstt_kusp_cint_cint
(A : const_unsigned_short_ptr;
B : c_int;
C : c_int);
pragma Import
(LL_Altivec, vec_dstt_kusp_cint_cint, "__builtin_altivec_dstt");
procedure vec_dstt_ksp_cint_cint
(A : const_short_ptr;
B : c_int;
C : c_int);
pragma Import
(LL_Altivec, vec_dstt_ksp_cint_cint, "__builtin_altivec_dstt");
procedure vec_dstt_kuip_cint_cint
(A : const_unsigned_int_ptr;
B : c_int;
C : c_int);
pragma Import
(LL_Altivec, vec_dstt_kuip_cint_cint, "__builtin_altivec_dstt");
procedure vec_dstt_kip_cint_cint
(A : const_int_ptr;
B : c_int;
C : c_int);
pragma Import
(LL_Altivec, vec_dstt_kip_cint_cint, "__builtin_altivec_dstt");
procedure vec_dstt_kulongp_cint_cint
(A : const_unsigned_long_ptr;
B : c_int;
C : c_int);
pragma Import
(LL_Altivec, vec_dstt_kulongp_cint_cint, "__builtin_altivec_dstt");
procedure vec_dstt_klongp_cint_cint
(A : const_long_ptr;
B : c_int;
C : c_int);
pragma Import
(LL_Altivec, vec_dstt_klongp_cint_cint, "__builtin_altivec_dstt");
procedure vec_dstt_kfp_cint_cint
(A : const_float_ptr;
B : c_int;
C : c_int);
pragma Import
(LL_Altivec, vec_dstt_kfp_cint_cint, "__builtin_altivec_dstt");
-- vec_sld --
-- ??? The base GCC implementation maps everything to vsldoi_4si, while
......
gcc/ada/g-alveop.adb
......@@ -7675,6 +7675,188 @@ package body GNAT.Altivec.Vector_Operations is
dst (To_PTR (A), B, C);
end vec_dst;
-- vec_dstt --
procedure vec_dstt
(A : const_vector_unsigned_char_ptr;
B : c_int;
C : c_int)
is
begin
dstt (To_PTR (A), B, C);
end vec_dstt;
procedure vec_dstt
(A : const_vector_signed_char_ptr;
B : c_int;
C : c_int)
is
begin
dstt (To_PTR (A), B, C);
end vec_dstt;
procedure vec_dstt
(A : const_vector_bool_char_ptr;
B : c_int;
C : c_int)
is
begin
dstt (To_PTR (A), B, C);
end vec_dstt;
procedure vec_dstt
(A : const_vector_unsigned_short_ptr;
B : c_int;
C : c_int)
is
begin
dstt (To_PTR (A), B, C);
end vec_dstt;
procedure vec_dstt
(A : const_vector_signed_short_ptr;
B : c_int;
C : c_int)
is
begin
dstt (To_PTR (A), B, C);
end vec_dstt;
procedure vec_dstt
(A : const_vector_bool_short_ptr;
B : c_int;
C : c_int)
is
begin
dstt (To_PTR (A), B, C);
end vec_dstt;
procedure vec_dstt
(A : const_vector_pixel_ptr;
B : c_int;
C : c_int)
is
begin
dstt (To_PTR (A), B, C);
end vec_dstt;
procedure vec_dstt
(A : const_vector_unsigned_int_ptr;
B : c_int;
C : c_int)
is
begin
dstt (To_PTR (A), B, C);
end vec_dstt;
procedure vec_dstt
(A : const_vector_signed_int_ptr;
B : c_int;
C : c_int)
is
begin
dstt (To_PTR (A), B, C);
end vec_dstt;
procedure vec_dstt
(A : const_vector_bool_int_ptr;
B : c_int;
C : c_int)
is
begin
dstt (To_PTR (A), B, C);
end vec_dstt;
procedure vec_dstt
(A : const_vector_float_ptr;
B : c_int;
C : c_int)
is
begin
dstt (To_PTR (A), B, C);
end vec_dstt;
procedure vec_dstt
(A : const_unsigned_char_ptr;
B : c_int;
C : c_int)
is
begin
dstt (To_PTR (A), B, C);
end vec_dstt;
procedure vec_dstt
(A : const_signed_char_ptr;
B : c_int;
C : c_int)
is
begin
dstt (To_PTR (A), B, C);
end vec_dstt;
procedure vec_dstt
(A : const_unsigned_short_ptr;
B : c_int;
C : c_int)
is
begin
dstt (To_PTR (A), B, C);
end vec_dstt;
procedure vec_dstt
(A : const_short_ptr;
B : c_int;
C : c_int)
is
begin
dstt (To_PTR (A), B, C);
end vec_dstt;
procedure vec_dstt
(A : const_unsigned_int_ptr;
B : c_int;
C : c_int)
is
begin
dstt (To_PTR (A), B, C);
end vec_dstt;
procedure vec_dstt
(A : const_int_ptr;
B : c_int;
C : c_int)
is
begin
dstt (To_PTR (A), B, C);
end vec_dstt;
procedure vec_dstt
(A : const_unsigned_long_ptr;
B : c_int;
C : c_int)
is
begin
dstt (To_PTR (A), B, C);
end vec_dstt;
procedure vec_dstt
(A : const_long_ptr;
B : c_int;
C : c_int)
is
begin
dstt (To_PTR (A), B, C);
end vec_dstt;
procedure vec_dstt
(A : const_float_ptr;
B : c_int;
C : c_int)
is
begin
dstt (To_PTR (A), B, C);
end vec_dstt;
-- vec_dstst --
procedure vec_dstst
......@@ -7857,6 +8039,188 @@ package body GNAT.Altivec.Vector_Operations is
dstst (To_PTR (A), B, C);
end vec_dstst;
-- vec_dststt --
procedure vec_dststt
(A : const_vector_unsigned_char_ptr;
B : c_int;
C : c_int)
is
begin
dststt (To_PTR (A), B, C);
end vec_dststt;
procedure vec_dststt
(A : const_vector_signed_char_ptr;
B : c_int;
C : c_int)
is
begin
dststt (To_PTR (A), B, C);
end vec_dststt;
procedure vec_dststt
(A : const_vector_bool_char_ptr;
B : c_int;
C : c_int)
is
begin
dststt (To_PTR (A), B, C);
end vec_dststt;
procedure vec_dststt
(A : const_vector_unsigned_short_ptr;
B : c_int;
C : c_int)
is
begin
dststt (To_PTR (A), B, C);
end vec_dststt;
procedure vec_dststt
(A : const_vector_signed_short_ptr;
B : c_int;
C : c_int)
is
begin
dststt (To_PTR (A), B, C);
end vec_dststt;
procedure vec_dststt
(A : const_vector_bool_short_ptr;
B : c_int;
C : c_int)
is
begin
dststt (To_PTR (A), B, C);
end vec_dststt;
procedure vec_dststt
(A : const_vector_pixel_ptr;
B : c_int;
C : c_int)
is
begin
dststt (To_PTR (A), B, C);
end vec_dststt;
procedure vec_dststt
(A : const_vector_unsigned_int_ptr;
B : c_int;
C : c_int)
is
begin
dststt (To_PTR (A), B, C);
end vec_dststt;
procedure vec_dststt
(A : const_vector_signed_int_ptr;
B : c_int;
C : c_int)
is
begin
dststt (To_PTR (A), B, C);
end vec_dststt;
procedure vec_dststt
(A : const_vector_bool_int_ptr;
B : c_int;
C : c_int)
is
begin
dststt (To_PTR (A), B, C);
end vec_dststt;
procedure vec_dststt
(A : const_vector_float_ptr;
B : c_int;
C : c_int)
is
begin
dststt (To_PTR (A), B, C);
end vec_dststt;
procedure vec_dststt
(A : const_unsigned_char_ptr;
B : c_int;
C : c_int)
is
begin
dststt (To_PTR (A), B, C);
end vec_dststt;
procedure vec_dststt
(A : const_signed_char_ptr;
B : c_int;
C : c_int)
is
begin
dststt (To_PTR (A), B, C);
end vec_dststt;
procedure vec_dststt
(A : const_unsigned_short_ptr;
B : c_int;
C : c_int)
is
begin
dststt (To_PTR (A), B, C);
end vec_dststt;
procedure vec_dststt
(A : const_short_ptr;
B : c_int;
C : c_int)
is
begin
dststt (To_PTR (A), B, C);
end vec_dststt;
procedure vec_dststt
(A : const_unsigned_int_ptr;
B : c_int;
C : c_int)
is
begin
dststt (To_PTR (A), B, C);
end vec_dststt;
procedure vec_dststt
(A : const_int_ptr;
B : c_int;
C : c_int)
is
begin
dststt (To_PTR (A), B, C);
end vec_dststt;
procedure vec_dststt
(A : const_unsigned_long_ptr;
B : c_int;
C : c_int)
is
begin
dststt (To_PTR (A), B, C);
end vec_dststt;
procedure vec_dststt
(A : const_long_ptr;
B : c_int;
C : c_int)
is
begin
dststt (To_PTR (A), B, C);
end vec_dststt;
procedure vec_dststt
(A : const_float_ptr;
B : c_int;
C : c_int)
is
begin
dststt (To_PTR (A), B, C);
end vec_dststt;
-----------------------------------
-- Bodies for Altivec predicates --
-----------------------------------
......
gcc/ada/g-alveop.ads
......@@ -1094,244 +1094,204 @@ package GNAT.Altivec.Vector_Operations is
procedure vec_dststt
(A : const_vector_unsigned_char_ptr;
B : c_int;
C : c_int)
renames Low_Level_Interface.vec_dststt_kvucp_cint_cint;
C : c_int);
procedure vec_dststt
(A : const_vector_signed_char_ptr;
B : c_int;
C : c_int)
renames Low_Level_Interface.vec_dststt_kvscp_cint_cint;
C : c_int);
procedure vec_dststt
(A : const_vector_bool_char_ptr;
B : c_int;
C : c_int)
renames Low_Level_Interface.vec_dststt_kvbcp_cint_cint;
C : c_int);
procedure vec_dststt
(A : const_vector_unsigned_short_ptr;
B : c_int;
C : c_int)
renames Low_Level_Interface.vec_dststt_kvusp_cint_cint;
C : c_int);
procedure vec_dststt
(A : const_vector_signed_short_ptr;
B : c_int;
C : c_int)
renames Low_Level_Interface.vec_dststt_kvssp_cint_cint;
C : c_int);
procedure vec_dststt
(A : const_vector_bool_short_ptr;
B : c_int;
C : c_int)
renames Low_Level_Interface.vec_dststt_kvbsp_cint_cint;
C : c_int);
procedure vec_dststt
(A : const_vector_pixel_ptr;
B : c_int;
C : c_int)
renames Low_Level_Interface.vec_dststt_kvxp_cint_cint;
C : c_int);
procedure vec_dststt
(A : const_vector_unsigned_int_ptr;
B : c_int;
C : c_int)
renames Low_Level_Interface.vec_dststt_kvuip_cint_cint;
C : c_int);
procedure vec_dststt
(A : const_vector_signed_int_ptr;
B : c_int;
C : c_int)
renames Low_Level_Interface.vec_dststt_kvsip_cint_cint;
C : c_int);
procedure vec_dststt
(A : const_vector_bool_int_ptr;
B : c_int;
C : c_int)
renames Low_Level_Interface.vec_dststt_kvbip_cint_cint;
C : c_int);
procedure vec_dststt
(A : const_vector_float_ptr;
B : c_int;
C : c_int)
renames Low_Level_Interface.vec_dststt_kvfp_cint_cint;
C : c_int);
procedure vec_dststt
(A : const_unsigned_char_ptr;
B : c_int;
C : c_int)
renames Low_Level_Interface.vec_dststt_kucp_cint_cint;
C : c_int);
procedure vec_dststt
(A : const_signed_char_ptr;
B : c_int;
C : c_int)
renames Low_Level_Interface.vec_dststt_kscp_cint_cint;
C : c_int);
procedure vec_dststt
(A : const_unsigned_short_ptr;
B : c_int;
C : c_int)
renames Low_Level_Interface.vec_dststt_kusp_cint_cint;
C : c_int);
procedure vec_dststt
(A : const_short_ptr;
B : c_int;
C : c_int)
renames Low_Level_Interface.vec_dststt_ksp_cint_cint;
C : c_int);
procedure vec_dststt
(A : const_unsigned_int_ptr;
B : c_int;
C : c_int)
renames Low_Level_Interface.vec_dststt_kuip_cint_cint;
C : c_int);
procedure vec_dststt
(A : const_int_ptr;
B : c_int;
C : c_int)
renames Low_Level_Interface.vec_dststt_kip_cint_cint;
C : c_int);
procedure vec_dststt
(A : const_unsigned_long_ptr;
B : c_int;
C : c_int)
renames Low_Level_Interface.vec_dststt_kulongp_cint_cint;
C : c_int);
procedure vec_dststt
(A : const_long_ptr;
B : c_int;
C : c_int)
renames Low_Level_Interface.vec_dststt_klongp_cint_cint;
C : c_int);
procedure vec_dststt
(A : const_float_ptr;
B : c_int;
C : c_int)
renames Low_Level_Interface.vec_dststt_kfp_cint_cint;
C : c_int);
-- vec_dstt --
procedure vec_dstt
(A : const_vector_unsigned_char_ptr;
B : c_int;
C : c_int)
renames Low_Level_Interface.vec_dstt_kvucp_cint_cint;
C : c_int);
procedure vec_dstt
(A : const_vector_signed_char_ptr;
B : c_int;
C : c_int)
renames Low_Level_Interface.vec_dstt_kvscp_cint_cint;
C : c_int);
procedure vec_dstt
(A : const_vector_bool_char_ptr;
B : c_int;
C : c_int)
renames Low_Level_Interface.vec_dstt_kvbcp_cint_cint;
C : c_int);
procedure vec_dstt
(A : const_vector_unsigned_short_ptr;
B : c_int;
C : c_int)
renames Low_Level_Interface.vec_dstt_kvusp_cint_cint;
C : c_int);
procedure vec_dstt
(A : const_vector_signed_short_ptr;
B : c_int;
C : c_int)
renames Low_Level_Interface.vec_dstt_kvssp_cint_cint;
C : c_int);
procedure vec_dstt
(A : const_vector_bool_short_ptr;
B : c_int;
C : c_int)
renames Low_Level_Interface.vec_dstt_kvbsp_cint_cint;
C : c_int);
procedure vec_dstt
(A : const_vector_pixel_ptr;
B : c_int;
C : c_int)
renames Low_Level_Interface.vec_dstt_kvxp_cint_cint;
C : c_int);
procedure vec_dstt
(A : const_vector_unsigned_int_ptr;
B : c_int;
C : c_int)
renames Low_Level_Interface.vec_dstt_kvuip_cint_cint;
C : c_int);
procedure vec_dstt
(A : const_vector_signed_int_ptr;
B : c_int;
C : c_int)
renames Low_Level_Interface.vec_dstt_kvsip_cint_cint;
C : c_int);
procedure vec_dstt
(A : const_vector_bool_int_ptr;
B : c_int;
C : c_int)
renames Low_Level_Interface.vec_dstt_kvbip_cint_cint;
C : c_int);
procedure vec_dstt
(A : const_vector_float_ptr;
B : c_int;
C : c_int)
renames Low_Level_Interface.vec_dstt_kvfp_cint_cint;
C : c_int);
procedure vec_dstt
(A : const_unsigned_char_ptr;
B : c_int;
C : c_int)
renames Low_Level_Interface.vec_dstt_kucp_cint_cint;
C : c_int);
procedure vec_dstt
(A : const_signed_char_ptr;
B : c_int;
C : c_int)
renames Low_Level_Interface.vec_dstt_kscp_cint_cint;
C : c_int);
procedure vec_dstt
(A : const_unsigned_short_ptr;
B : c_int;
C : c_int)
renames Low_Level_Interface.vec_dstt_kusp_cint_cint;
C : c_int);
procedure vec_dstt
(A : const_short_ptr;
B : c_int;
C : c_int)
renames Low_Level_Interface.vec_dstt_ksp_cint_cint;
C : c_int);
procedure vec_dstt
(A : const_unsigned_int_ptr;
B : c_int;
C : c_int)
renames Low_Level_Interface.vec_dstt_kuip_cint_cint;
C : c_int);
procedure vec_dstt
(A : const_int_ptr;
B : c_int;
C : c_int)
renames Low_Level_Interface.vec_dstt_kip_cint_cint;
C : c_int);
procedure vec_dstt
(A : const_unsigned_long_ptr;
B : c_int;
C : c_int)
renames Low_Level_Interface.vec_dstt_kulongp_cint_cint;
C : c_int);
procedure vec_dstt
(A : const_long_ptr;
B : c_int;
C : c_int)
renames Low_Level_Interface.vec_dstt_klongp_cint_cint;
C : c_int);
procedure vec_dstt
(A : const_float_ptr;
B : c_int;
C : c_int)
renames Low_Level_Interface.vec_dstt_kfp_cint_cint;
C : c_int);
-- vec_expte --
......@@ -8043,9 +8003,15 @@ private
pragma Inline_Always (vec_dst);
pragma Convention (Intrinsic, vec_dst);
pragma Inline_Always (vec_dstt);
pragma Convention (Intrinsic, vec_dstt);
pragma Inline_Always (vec_dstst);
pragma Convention (Intrinsic, vec_dstst);
pragma Inline_Always (vec_dststt);
pragma Convention (Intrinsic, vec_dststt);
-- Similarly, vec_step is expected to be turned into a compile time
-- constant, so ...
......
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