[Ada] Fix code example on representation clause

The column is superfluous, component names are missing.

gcc/ada/

	* doc/gnat_rm/representation_clauses_and_pragmas.rst: Fix code
	snippet.
	* gnat_rm.texi: Regenerate.

diff --git a/gcc/ada/doc/gnat_rm/representation_clauses_and_pragmas.rst b/gcc/ada/doc/gnat_rm/representation_clauses_and_pragmas.rst
index a30ad5f..b0e131f 100644 (file)
--- a/gcc/ada/doc/gnat_rm/representation_clauses_and_pragmas.rst
+++ b/gcc/ada/doc/gnat_rm/representation_clauses_and_pragmas.rst
@@ -457,14 +457,14 @@ from Ada 83 to Ada 95 or Ada 2005.  For example, consider:
 
 .. code-block:: ada
 
-     type Rec is record;
+     type Rec is record
         A : Natural;
         B : Natural;
      end record;
 
      for Rec use record
-        at 0  range 0 .. Natural'Size - 1;
-        at 0  range Natural'Size .. 2 * Natural'Size - 1;
+        A at 0 range 0 .. Natural'Size - 1;
+        B at 0 range Natural'Size .. 2 * Natural'Size - 1;
      end record;
 
 In the above code, since the typical size of ``Natural`` objects

diff --git a/gcc/ada/gnat_rm.texi b/gcc/ada/gnat_rm.texi
index f7828ca..8997f63 100644 (file)
--- a/gcc/ada/gnat_rm.texi
+++ b/gcc/ada/gnat_rm.texi
@@ -18913,14 +18913,14 @@ typically 31.  This means that code may change in behavior when moving
 from Ada 83 to Ada 95 or Ada 2005.  For example, consider:
 
 @example
-type Rec is record;
+type Rec is record
    A : Natural;
    B : Natural;
 end record;
 
 for Rec use record
-   at 0  range 0 .. Natural'Size - 1;
-   at 0  range Natural'Size .. 2 * Natural'Size - 1;
+   A at 0 range 0 .. Natural'Size - 1;
+   B at 0 range Natural'Size .. 2 * Natural'Size - 1;
 end record;
 @end example