diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2009-07-23 11:18:46 +0200 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2009-07-23 11:18:46 +0200 |
| commit | 57aed6d6f8b84e93d4dc9a80c8aa9120ae8d1679 (patch) | |
| tree | ee957203fb034e48dbcf2601d44388bd124284a0 | |
| parent | 212863c0676464d2e3ede50b6e04556b3b88257e (diff) | |
| download | gcc-57aed6d6f8b84e93d4dc9a80c8aa9120ae8d1679.zip gcc-57aed6d6f8b84e93d4dc9a80c8aa9120ae8d1679.tar.gz gcc-57aed6d6f8b84e93d4dc9a80c8aa9120ae8d1679.tar.bz2 | |
Minor reformatting.
From-SVN: r149980
| -rw-r--r-- | gcc/ada/g-sse.ads | 22 | ||||
| -rw-r--r-- | gcc/ada/g-ssvety.ads | 3 |
2 files changed, 13 insertions, 12 deletions
diff --git a/gcc/ada/g-sse.ads b/gcc/ada/g-sse.ads index d0c3ec3..d2190ee 100644 --- a/gcc/ada/g-sse.ads +++ b/gcc/ada/g-sse.ads @@ -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; diff --git a/gcc/ada/g-ssvety.ads b/gcc/ada/g-ssvety.ads index 4ad63d8..eb7d590 100644 --- a/gcc/ada/g-ssvety.ads +++ b/gcc/ada/g-ssvety.ads @@ -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): |