Commit 57aed6d6 by Arnaud Charlet

Minor reformatting.

From-SVN: r149980
parent 212863c0
...@@ -47,30 +47,31 @@ ...@@ -47,30 +47,31 @@
-- with Ada.Unchecked_Conversion; -- with Ada.Unchecked_Conversion;
-- with GNAT.SSE.Vector_Types; use GNAT.SSE; use GNAT.SSE.Vector_Types; -- with GNAT.SSE.Vector_Types; use GNAT.SSE; use GNAT.SSE.Vector_Types;
--
-- procedure SSE_Base is -- procedure SSE_Base is
--
-- -- Core operations -- -- Core operations
--
-- function mm_add_ss (A, B : M128) return M128; -- function mm_add_ss (A, B : M128) return M128;
-- pragma Import (Intrinsic, mm_add_ss, "__builtin_ia32_addss"); -- pragma Import (Intrinsic, mm_add_ss, "__builtin_ia32_addss");
--
-- -- User views / conversions or overlays -- -- User views / conversions or overlays
--
-- type Vf32_View is array (1 .. 4) of Float; -- type Vf32_View is array (1 .. 4) of Float;
-- for Vf32_View'Alignment use VECTOR_ALIGN; -- for Vf32_View'Alignment use VECTOR_ALIGN;
--
-- function To_M128 is new Ada.Unchecked_Conversion (Vf32_View, M128); -- function To_M128 is new Ada.Unchecked_Conversion (Vf32_View, M128);
--
-- X, Y, Z : M128; -- X, Y, Z : M128;
--
-- Vz : Vf32_View; -- Vz : Vf32_View;
-- for Vz'Address use Z'Address; -- for Vz'Address use Z'Address;
-- begin -- begin
-- X := To_M128 ((1.0, 1.0, 2.0, 2.0)); -- X := To_M128 ((1.0, 1.0, 2.0, 2.0));
-- Y := To_M128 ((2.0, 2.0, 1.0, 1.0)); -- Y := To_M128 ((2.0, 2.0, 1.0, 1.0));
-- Z := mm_add_ss (X, Y); -- Z := mm_add_ss (X, Y);
--
-- if vz /= (3.0, 1.0, 2.0, 2.0) then -- if vz /= (3.0, 1.0, 2.0, 2.0) then
-- raise Program_Error; -- raise Program_Error;
-- end if; -- end if;
...@@ -79,7 +80,8 @@ ...@@ -79,7 +80,8 @@
-- Use of Unchecked_Union is very tempting, however hits difficulties with -- Use of Unchecked_Union is very tempting, however hits difficulties with
-- e.g. implicit front-end expanded equality operators, which typically -- e.g. implicit front-end expanded equality operators, which typically
-- feature a subcase comparing the m128 components, not supported by the -- feature a subcase comparing the m128 components, not supported by the
-- middle-end. -- middle-end. This needs more explanation, should it be fixed ??? It
-- reads like a bug in this paragraph.
package GNAT.SSE is package GNAT.SSE is
type Float32 is new Float; type Float32 is new Float;
......
...@@ -2,7 +2,7 @@ ...@@ -2,7 +2,7 @@
-- -- -- --
-- GNAT COMPILER COMPONENTS -- -- GNAT COMPILER COMPONENTS --
-- -- -- --
-- G N A T . S S E . V e c t o r _ T y p e s -- -- G N A T . S S E . V E C T O R _ T Y P E S --
-- -- -- --
-- S p e c -- -- S p e c --
-- -- -- --
...@@ -54,7 +54,6 @@ package GNAT.SSE.Vector_Types is ...@@ -54,7 +54,6 @@ package GNAT.SSE.Vector_Types is
type M128i is private; -- SSE >= 2 type M128i is private; -- SSE >= 2
private private
-- GCC'wise, vector operations operate on objects of vector modes, -- GCC'wise, vector operations operate on objects of vector modes,
-- conveyed through vector types obtained by setting an attribute on what -- conveyed through vector types obtained by setting an attribute on what
-- looks like a component typedef. For example, in C (xmmintrin.h): -- looks like a component typedef. For example, in C (xmmintrin.h):
......
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