Minor reformatting.

From-SVN: r149980
This commit is contained in:
Arnaud Charlet 2009-07-23 11:18:46 +02:00
parent 212863c067
commit 57aed6d6f8
2 changed files with 13 additions and 12 deletions

View File

@ -47,30 +47,31 @@
-- with Ada.Unchecked_Conversion;
-- with GNAT.SSE.Vector_Types; use GNAT.SSE; use GNAT.SSE.Vector_Types;
--
-- procedure SSE_Base is
--
-- -- Core operations
--
-- function mm_add_ss (A, B : M128) return M128;
-- pragma Import (Intrinsic, mm_add_ss, "__builtin_ia32_addss");
--
-- -- User views / conversions or overlays
--
-- type Vf32_View is array (1 .. 4) of Float;
-- for Vf32_View'Alignment use VECTOR_ALIGN;
--
-- function To_M128 is new Ada.Unchecked_Conversion (Vf32_View, M128);
--
-- X, Y, Z : M128;
--
-- Vz : Vf32_View;
-- for Vz'Address use Z'Address;
-- begin
-- X := To_M128 ((1.0, 1.0, 2.0, 2.0));
-- Y := To_M128 ((2.0, 2.0, 1.0, 1.0));
-- Z := mm_add_ss (X, Y);
--
-- if vz /= (3.0, 1.0, 2.0, 2.0) then
-- raise Program_Error;
-- end if;
@ -79,7 +80,8 @@
-- Use of Unchecked_Union is very tempting, however hits difficulties with
-- e.g. implicit front-end expanded equality operators, which typically
-- 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
type Float32 is new Float;

View File

@ -2,7 +2,7 @@
-- --
-- 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 --
-- --
@ -54,7 +54,6 @@ package GNAT.SSE.Vector_Types is
type M128i is private; -- SSE >= 2
private
-- GCC'wise, vector operations operate on objects of vector modes,
-- conveyed through vector types obtained by setting an attribute on what
-- looks like a component typedef. For example, in C (xmmintrin.h):