305 lines
17 KiB
Ada
305 lines
17 KiB
Ada
------------------------------------------------------------------------------
|
|
-- --
|
|
-- GNAT COMPILER COMPONENTS --
|
|
-- --
|
|
-- G N A T . A L T I V E C . L O W _ L E V E L _ I N T E R F A C E --
|
|
-- --
|
|
-- S p e c --
|
|
-- --
|
|
-- 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- --
|
|
-- ware Foundation; either version 3, or (at your option) any later ver- --
|
|
-- sion. GNAT is distributed in the hope that it will be useful, but WITH- --
|
|
-- OUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY --
|
|
-- or FITNESS FOR A PARTICULAR PURPOSE. --
|
|
-- --
|
|
-- As a special exception under Section 7 of GPL version 3, you are granted --
|
|
-- additional permissions described in the GCC Runtime Library Exception, --
|
|
-- version 3.1, as published by the Free Software Foundation. --
|
|
-- --
|
|
-- You should have received a copy of the GNU General Public License and --
|
|
-- a copy of the GCC Runtime Library Exception along with this program; --
|
|
-- see the files COPYING3 and COPYING.RUNTIME respectively. If not, see --
|
|
-- <http://www.gnu.org/licenses/>. --
|
|
-- --
|
|
-- GNAT was originally developed by the GNAT team at New York University. --
|
|
-- Extensive contributions were provided by Ada Core Technologies Inc. --
|
|
-- --
|
|
------------------------------------------------------------------------------
|
|
|
|
-- This unit provides entities to be used internally by the units common to
|
|
-- both bindings (Hard or Soft), and relevant to the interfacing with the
|
|
-- underlying Low Level support.
|
|
|
|
with GNAT.Altivec.Vector_Types; use GNAT.Altivec.Vector_Types;
|
|
with GNAT.Altivec.Low_Level_Vectors; use GNAT.Altivec.Low_Level_Vectors;
|
|
|
|
with Ada.Unchecked_Conversion;
|
|
|
|
package GNAT.Altivec.Low_Level_Interface is
|
|
|
|
-----------------------------------------
|
|
-- Conversions between low level types --
|
|
-----------------------------------------
|
|
|
|
function To_LL_VBC is new Ada.Unchecked_Conversion (LL_VBC, LL_VBC);
|
|
function To_LL_VBC is new Ada.Unchecked_Conversion (LL_VUC, LL_VBC);
|
|
function To_LL_VBC is new Ada.Unchecked_Conversion (LL_VSC, LL_VBC);
|
|
function To_LL_VBC is new Ada.Unchecked_Conversion (LL_VBS, LL_VBC);
|
|
function To_LL_VBC is new Ada.Unchecked_Conversion (LL_VUS, LL_VBC);
|
|
function To_LL_VBC is new Ada.Unchecked_Conversion (LL_VSS, LL_VBC);
|
|
function To_LL_VBC is new Ada.Unchecked_Conversion (LL_VBI, LL_VBC);
|
|
function To_LL_VBC is new Ada.Unchecked_Conversion (LL_VUI, LL_VBC);
|
|
function To_LL_VBC is new Ada.Unchecked_Conversion (LL_VSI, LL_VBC);
|
|
function To_LL_VBC is new Ada.Unchecked_Conversion (LL_VF, LL_VBC);
|
|
function To_LL_VBC is new Ada.Unchecked_Conversion (LL_VP, LL_VBC);
|
|
|
|
function To_LL_VUC is new Ada.Unchecked_Conversion (LL_VBC, LL_VUC);
|
|
function To_LL_VUC is new Ada.Unchecked_Conversion (LL_VUC, LL_VUC);
|
|
function To_LL_VUC is new Ada.Unchecked_Conversion (LL_VSC, LL_VUC);
|
|
function To_LL_VUC is new Ada.Unchecked_Conversion (LL_VBS, LL_VUC);
|
|
function To_LL_VUC is new Ada.Unchecked_Conversion (LL_VUS, LL_VUC);
|
|
function To_LL_VUC is new Ada.Unchecked_Conversion (LL_VSS, LL_VUC);
|
|
function To_LL_VUC is new Ada.Unchecked_Conversion (LL_VBI, LL_VUC);
|
|
function To_LL_VUC is new Ada.Unchecked_Conversion (LL_VUI, LL_VUC);
|
|
function To_LL_VUC is new Ada.Unchecked_Conversion (LL_VSI, LL_VUC);
|
|
function To_LL_VUC is new Ada.Unchecked_Conversion (LL_VF, LL_VUC);
|
|
function To_LL_VUC is new Ada.Unchecked_Conversion (LL_VP, LL_VUC);
|
|
|
|
function To_LL_VSC is new Ada.Unchecked_Conversion (LL_VBC, LL_VSC);
|
|
function To_LL_VSC is new Ada.Unchecked_Conversion (LL_VUC, LL_VSC);
|
|
function To_LL_VSC is new Ada.Unchecked_Conversion (LL_VSC, LL_VSC);
|
|
function To_LL_VSC is new Ada.Unchecked_Conversion (LL_VBS, LL_VSC);
|
|
function To_LL_VSC is new Ada.Unchecked_Conversion (LL_VUS, LL_VSC);
|
|
function To_LL_VSC is new Ada.Unchecked_Conversion (LL_VSS, LL_VSC);
|
|
function To_LL_VSC is new Ada.Unchecked_Conversion (LL_VBI, LL_VSC);
|
|
function To_LL_VSC is new Ada.Unchecked_Conversion (LL_VUI, LL_VSC);
|
|
function To_LL_VSC is new Ada.Unchecked_Conversion (LL_VSI, LL_VSC);
|
|
function To_LL_VSC is new Ada.Unchecked_Conversion (LL_VF, LL_VSC);
|
|
function To_LL_VSC is new Ada.Unchecked_Conversion (LL_VP, LL_VSC);
|
|
|
|
function To_LL_VBS is new Ada.Unchecked_Conversion (LL_VBC, LL_VBS);
|
|
function To_LL_VBS is new Ada.Unchecked_Conversion (LL_VUC, LL_VBS);
|
|
function To_LL_VBS is new Ada.Unchecked_Conversion (LL_VSC, LL_VBS);
|
|
function To_LL_VBS is new Ada.Unchecked_Conversion (LL_VBS, LL_VBS);
|
|
function To_LL_VBS is new Ada.Unchecked_Conversion (LL_VUS, LL_VBS);
|
|
function To_LL_VBS is new Ada.Unchecked_Conversion (LL_VSS, LL_VBS);
|
|
function To_LL_VBS is new Ada.Unchecked_Conversion (LL_VBI, LL_VBS);
|
|
function To_LL_VBS is new Ada.Unchecked_Conversion (LL_VUI, LL_VBS);
|
|
function To_LL_VBS is new Ada.Unchecked_Conversion (LL_VSI, LL_VBS);
|
|
function To_LL_VBS is new Ada.Unchecked_Conversion (LL_VF, LL_VBS);
|
|
function To_LL_VBS is new Ada.Unchecked_Conversion (LL_VP, LL_VBS);
|
|
|
|
function To_LL_VUS is new Ada.Unchecked_Conversion (LL_VBC, LL_VUS);
|
|
function To_LL_VUS is new Ada.Unchecked_Conversion (LL_VUC, LL_VUS);
|
|
function To_LL_VUS is new Ada.Unchecked_Conversion (LL_VSC, LL_VUS);
|
|
function To_LL_VUS is new Ada.Unchecked_Conversion (LL_VBS, LL_VUS);
|
|
function To_LL_VUS is new Ada.Unchecked_Conversion (LL_VUS, LL_VUS);
|
|
function To_LL_VUS is new Ada.Unchecked_Conversion (LL_VSS, LL_VUS);
|
|
function To_LL_VUS is new Ada.Unchecked_Conversion (LL_VBI, LL_VUS);
|
|
function To_LL_VUS is new Ada.Unchecked_Conversion (LL_VUI, LL_VUS);
|
|
function To_LL_VUS is new Ada.Unchecked_Conversion (LL_VSI, LL_VUS);
|
|
function To_LL_VUS is new Ada.Unchecked_Conversion (LL_VF, LL_VUS);
|
|
function To_LL_VUS is new Ada.Unchecked_Conversion (LL_VP, LL_VUS);
|
|
|
|
function To_LL_VSS is new Ada.Unchecked_Conversion (LL_VBC, LL_VSS);
|
|
function To_LL_VSS is new Ada.Unchecked_Conversion (LL_VUC, LL_VSS);
|
|
function To_LL_VSS is new Ada.Unchecked_Conversion (LL_VSC, LL_VSS);
|
|
function To_LL_VSS is new Ada.Unchecked_Conversion (LL_VBS, LL_VSS);
|
|
function To_LL_VSS is new Ada.Unchecked_Conversion (LL_VUS, LL_VSS);
|
|
function To_LL_VSS is new Ada.Unchecked_Conversion (LL_VSS, LL_VSS);
|
|
function To_LL_VSS is new Ada.Unchecked_Conversion (LL_VBI, LL_VSS);
|
|
function To_LL_VSS is new Ada.Unchecked_Conversion (LL_VUI, LL_VSS);
|
|
function To_LL_VSS is new Ada.Unchecked_Conversion (LL_VSI, LL_VSS);
|
|
function To_LL_VSS is new Ada.Unchecked_Conversion (LL_VF, LL_VSS);
|
|
function To_LL_VSS is new Ada.Unchecked_Conversion (LL_VP, LL_VSS);
|
|
|
|
function To_LL_VBI is new Ada.Unchecked_Conversion (LL_VBC, LL_VBI);
|
|
function To_LL_VBI is new Ada.Unchecked_Conversion (LL_VUC, LL_VBI);
|
|
function To_LL_VBI is new Ada.Unchecked_Conversion (LL_VSC, LL_VBI);
|
|
function To_LL_VBI is new Ada.Unchecked_Conversion (LL_VBS, LL_VBI);
|
|
function To_LL_VBI is new Ada.Unchecked_Conversion (LL_VUS, LL_VBI);
|
|
function To_LL_VBI is new Ada.Unchecked_Conversion (LL_VSS, LL_VBI);
|
|
function To_LL_VBI is new Ada.Unchecked_Conversion (LL_VBI, LL_VBI);
|
|
function To_LL_VBI is new Ada.Unchecked_Conversion (LL_VUI, LL_VBI);
|
|
function To_LL_VBI is new Ada.Unchecked_Conversion (LL_VSI, LL_VBI);
|
|
function To_LL_VBI is new Ada.Unchecked_Conversion (LL_VF, LL_VBI);
|
|
function To_LL_VBI is new Ada.Unchecked_Conversion (LL_VP, LL_VBI);
|
|
|
|
function To_LL_VUI is new Ada.Unchecked_Conversion (LL_VBC, LL_VUI);
|
|
function To_LL_VUI is new Ada.Unchecked_Conversion (LL_VUC, LL_VUI);
|
|
function To_LL_VUI is new Ada.Unchecked_Conversion (LL_VSC, LL_VUI);
|
|
function To_LL_VUI is new Ada.Unchecked_Conversion (LL_VBS, LL_VUI);
|
|
function To_LL_VUI is new Ada.Unchecked_Conversion (LL_VUS, LL_VUI);
|
|
function To_LL_VUI is new Ada.Unchecked_Conversion (LL_VSS, LL_VUI);
|
|
function To_LL_VUI is new Ada.Unchecked_Conversion (LL_VBI, LL_VUI);
|
|
function To_LL_VUI is new Ada.Unchecked_Conversion (LL_VUI, LL_VUI);
|
|
function To_LL_VUI is new Ada.Unchecked_Conversion (LL_VSI, LL_VUI);
|
|
function To_LL_VUI is new Ada.Unchecked_Conversion (LL_VF, LL_VUI);
|
|
function To_LL_VUI is new Ada.Unchecked_Conversion (LL_VP, LL_VUI);
|
|
|
|
function To_LL_VSI is new Ada.Unchecked_Conversion (LL_VBC, LL_VSI);
|
|
function To_LL_VSI is new Ada.Unchecked_Conversion (LL_VUC, LL_VSI);
|
|
function To_LL_VSI is new Ada.Unchecked_Conversion (LL_VSC, LL_VSI);
|
|
function To_LL_VSI is new Ada.Unchecked_Conversion (LL_VBS, LL_VSI);
|
|
function To_LL_VSI is new Ada.Unchecked_Conversion (LL_VUS, LL_VSI);
|
|
function To_LL_VSI is new Ada.Unchecked_Conversion (LL_VSS, LL_VSI);
|
|
function To_LL_VSI is new Ada.Unchecked_Conversion (LL_VBI, LL_VSI);
|
|
function To_LL_VSI is new Ada.Unchecked_Conversion (LL_VUI, LL_VSI);
|
|
function To_LL_VSI is new Ada.Unchecked_Conversion (LL_VSI, LL_VSI);
|
|
function To_LL_VSI is new Ada.Unchecked_Conversion (LL_VF, LL_VSI);
|
|
function To_LL_VSI is new Ada.Unchecked_Conversion (LL_VP, LL_VSI);
|
|
|
|
function To_LL_VF is new Ada.Unchecked_Conversion (LL_VBC, LL_VF);
|
|
function To_LL_VF is new Ada.Unchecked_Conversion (LL_VUC, LL_VF);
|
|
function To_LL_VF is new Ada.Unchecked_Conversion (LL_VSC, LL_VF);
|
|
function To_LL_VF is new Ada.Unchecked_Conversion (LL_VBS, LL_VF);
|
|
function To_LL_VF is new Ada.Unchecked_Conversion (LL_VUS, LL_VF);
|
|
function To_LL_VF is new Ada.Unchecked_Conversion (LL_VSS, LL_VF);
|
|
function To_LL_VF is new Ada.Unchecked_Conversion (LL_VBI, LL_VF);
|
|
function To_LL_VF is new Ada.Unchecked_Conversion (LL_VUI, LL_VF);
|
|
function To_LL_VF is new Ada.Unchecked_Conversion (LL_VSI, LL_VF);
|
|
function To_LL_VF is new Ada.Unchecked_Conversion (LL_VF, LL_VF);
|
|
function To_LL_VF is new Ada.Unchecked_Conversion (LL_VP, LL_VF);
|
|
|
|
function To_LL_VP is new Ada.Unchecked_Conversion (LL_VBC, LL_VP);
|
|
function To_LL_VP is new Ada.Unchecked_Conversion (LL_VUC, LL_VP);
|
|
function To_LL_VP is new Ada.Unchecked_Conversion (LL_VSC, LL_VP);
|
|
function To_LL_VP is new Ada.Unchecked_Conversion (LL_VBS, LL_VP);
|
|
function To_LL_VP is new Ada.Unchecked_Conversion (LL_VUS, LL_VP);
|
|
function To_LL_VP is new Ada.Unchecked_Conversion (LL_VSS, LL_VP);
|
|
function To_LL_VP is new Ada.Unchecked_Conversion (LL_VBI, LL_VP);
|
|
function To_LL_VP is new Ada.Unchecked_Conversion (LL_VUI, LL_VP);
|
|
function To_LL_VP is new Ada.Unchecked_Conversion (LL_VSI, LL_VP);
|
|
function To_LL_VP is new Ada.Unchecked_Conversion (LL_VF, LL_VP);
|
|
function To_LL_VP is new Ada.Unchecked_Conversion (LL_VP, LL_VP);
|
|
|
|
----------------------------------------------
|
|
-- Conversions Between Pointer/Access Types --
|
|
----------------------------------------------
|
|
|
|
function To_PTR is
|
|
new Ada.Unchecked_Conversion (vector_unsigned_char_ptr, c_ptr);
|
|
function To_PTR is
|
|
new Ada.Unchecked_Conversion (vector_signed_char_ptr, c_ptr);
|
|
function To_PTR is
|
|
new Ada.Unchecked_Conversion (vector_bool_char_ptr, c_ptr);
|
|
function To_PTR is
|
|
new Ada.Unchecked_Conversion (vector_unsigned_short_ptr, c_ptr);
|
|
function To_PTR is
|
|
new Ada.Unchecked_Conversion (vector_signed_short_ptr, c_ptr);
|
|
function To_PTR is
|
|
new Ada.Unchecked_Conversion (vector_bool_short_ptr, c_ptr);
|
|
function To_PTR is
|
|
new Ada.Unchecked_Conversion (vector_unsigned_int_ptr, c_ptr);
|
|
function To_PTR is
|
|
new Ada.Unchecked_Conversion (vector_signed_int_ptr, c_ptr);
|
|
function To_PTR is
|
|
new Ada.Unchecked_Conversion (vector_bool_int_ptr, c_ptr);
|
|
function To_PTR is
|
|
new Ada.Unchecked_Conversion (vector_float_ptr, c_ptr);
|
|
function To_PTR is
|
|
new Ada.Unchecked_Conversion (vector_pixel_ptr, c_ptr);
|
|
function To_PTR is
|
|
new Ada.Unchecked_Conversion (const_vector_bool_char_ptr, c_ptr);
|
|
function To_PTR is
|
|
new Ada.Unchecked_Conversion (const_vector_signed_char_ptr, c_ptr);
|
|
function To_PTR is
|
|
new Ada.Unchecked_Conversion (const_vector_unsigned_char_ptr, c_ptr);
|
|
function To_PTR is
|
|
new Ada.Unchecked_Conversion (const_vector_bool_short_ptr, c_ptr);
|
|
function To_PTR is
|
|
new Ada.Unchecked_Conversion (const_vector_signed_short_ptr, c_ptr);
|
|
function To_PTR is
|
|
new Ada.Unchecked_Conversion (const_vector_unsigned_short_ptr, c_ptr);
|
|
function To_PTR is
|
|
new Ada.Unchecked_Conversion (const_vector_bool_int_ptr, c_ptr);
|
|
function To_PTR is
|
|
new Ada.Unchecked_Conversion (const_vector_signed_int_ptr, c_ptr);
|
|
function To_PTR is
|
|
new Ada.Unchecked_Conversion (const_vector_unsigned_int_ptr, c_ptr);
|
|
function To_PTR is
|
|
new Ada.Unchecked_Conversion (const_vector_float_ptr, c_ptr);
|
|
function To_PTR is
|
|
new Ada.Unchecked_Conversion (const_vector_pixel_ptr, c_ptr);
|
|
function To_PTR is
|
|
new Ada.Unchecked_Conversion (c_ptr, c_ptr);
|
|
function To_PTR is
|
|
new Ada.Unchecked_Conversion (signed_char_ptr, c_ptr);
|
|
function To_PTR is
|
|
new Ada.Unchecked_Conversion (unsigned_char_ptr, c_ptr);
|
|
function To_PTR is
|
|
new Ada.Unchecked_Conversion (short_ptr, c_ptr);
|
|
function To_PTR is
|
|
new Ada.Unchecked_Conversion (signed_short_ptr, c_ptr);
|
|
function To_PTR is
|
|
new Ada.Unchecked_Conversion (unsigned_short_ptr, c_ptr);
|
|
function To_PTR is
|
|
new Ada.Unchecked_Conversion (int_ptr, c_ptr);
|
|
function To_PTR is
|
|
new Ada.Unchecked_Conversion (signed_int_ptr, c_ptr);
|
|
function To_PTR is
|
|
new Ada.Unchecked_Conversion (unsigned_int_ptr, c_ptr);
|
|
function To_PTR is
|
|
new Ada.Unchecked_Conversion (long_ptr, c_ptr);
|
|
function To_PTR is
|
|
new Ada.Unchecked_Conversion (signed_long_ptr, c_ptr);
|
|
function To_PTR is
|
|
new Ada.Unchecked_Conversion (unsigned_long_ptr, c_ptr);
|
|
function To_PTR is
|
|
new Ada.Unchecked_Conversion (float_ptr, c_ptr);
|
|
function To_PTR is
|
|
new Ada.Unchecked_Conversion (const_signed_char_ptr, c_ptr);
|
|
function To_PTR is
|
|
new Ada.Unchecked_Conversion (const_unsigned_char_ptr, c_ptr);
|
|
function To_PTR is
|
|
new Ada.Unchecked_Conversion (const_short_ptr, c_ptr);
|
|
function To_PTR is
|
|
new Ada.Unchecked_Conversion (const_signed_short_ptr, c_ptr);
|
|
function To_PTR is
|
|
new Ada.Unchecked_Conversion (const_unsigned_short_ptr, c_ptr);
|
|
function To_PTR is
|
|
new Ada.Unchecked_Conversion (const_int_ptr, c_ptr);
|
|
function To_PTR is
|
|
new Ada.Unchecked_Conversion (const_signed_int_ptr, c_ptr);
|
|
function To_PTR is
|
|
new Ada.Unchecked_Conversion (const_unsigned_int_ptr, c_ptr);
|
|
function To_PTR is
|
|
new Ada.Unchecked_Conversion (const_long_ptr, c_ptr);
|
|
function To_PTR is
|
|
new Ada.Unchecked_Conversion (const_signed_long_ptr, c_ptr);
|
|
function To_PTR is
|
|
new Ada.Unchecked_Conversion (const_unsigned_long_ptr, c_ptr);
|
|
function To_PTR is
|
|
new Ada.Unchecked_Conversion (const_float_ptr, c_ptr);
|
|
function To_PTR is
|
|
new Ada.Unchecked_Conversion (constv_char_ptr, c_ptr);
|
|
function To_PTR is
|
|
new Ada.Unchecked_Conversion (constv_signed_char_ptr, c_ptr);
|
|
function To_PTR is
|
|
new Ada.Unchecked_Conversion (constv_unsigned_char_ptr, c_ptr);
|
|
function To_PTR is
|
|
new Ada.Unchecked_Conversion (constv_short_ptr, c_ptr);
|
|
function To_PTR is
|
|
new Ada.Unchecked_Conversion (constv_signed_short_ptr, c_ptr);
|
|
function To_PTR is
|
|
new Ada.Unchecked_Conversion (constv_unsigned_short_ptr, c_ptr);
|
|
function To_PTR is
|
|
new Ada.Unchecked_Conversion (constv_int_ptr, c_ptr);
|
|
function To_PTR is
|
|
new Ada.Unchecked_Conversion (constv_signed_int_ptr, c_ptr);
|
|
function To_PTR is
|
|
new Ada.Unchecked_Conversion (constv_unsigned_int_ptr, c_ptr);
|
|
function To_PTR is
|
|
new Ada.Unchecked_Conversion (constv_long_ptr, c_ptr);
|
|
function To_PTR is
|
|
new Ada.Unchecked_Conversion (constv_signed_long_ptr, c_ptr);
|
|
function To_PTR is
|
|
new Ada.Unchecked_Conversion (constv_unsigned_long_ptr, c_ptr);
|
|
function To_PTR is
|
|
new Ada.Unchecked_Conversion (constv_float_ptr, c_ptr);
|
|
|
|
end GNAT.Altivec.Low_Level_Interface;
|