Minor reformatting.

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@149980 138bc75d-0d04-0410-961f-82ee72b054a4

diff --git a/gcc/ada/g-sse.ads b/gcc/ada/g-sse.ads
index d0c3ec3..d2190ee 100644 (file)
--- 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 (file)
--- 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):