sem_ch9.adb, [...]: Minor reformatting.

2012-11-06  Robert Dewar  <dewar@adacore.com>

	* sem_ch9.adb, exp_vfpt.adb, xoscons.adb: Minor reformatting.

From-SVN: r193223

diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog
index 7aad4baa46abd006626f79d8ac5d599c2440e1d0..9216213038806a7eb2a85185755cfd4064b6b446 100644 (file)
--- a/gcc/ada/ChangeLog
+++ b/gcc/ada/ChangeLog
@@ -1,3 +1,7 @@
+2012-11-06  Robert Dewar  <dewar@adacore.com>
+
+       * sem_ch9.adb, exp_vfpt.adb, xoscons.adb: Minor reformatting.
+
 2012-11-06  Tristan Gingold  <gingold@adacore.com>
 
        * exp_vfpt.adb: Document VAX float point layout.

diff --git a/gcc/ada/exp_vfpt.adb b/gcc/ada/exp_vfpt.adb
index 146fab8a9df638e11886c8d64fb7e4bcb51dbfb2..1539ea9b69a909862051739662178105fc3e7373 100644 (file)
--- a/gcc/ada/exp_vfpt.adb
+++ b/gcc/ada/exp_vfpt.adb
@@ -39,10 +39,10 @@ package body Exp_VFpt is
 
    --  Vax floating point format (from Vax Architecture Reference Manual
    --  version 6):
-   --
+
    --  Float F:
    --  --------
-   --
+
    --   1 1
    --   5 4             7 6            0
    --  +-+---------------+--------------+
@@ -50,23 +50,23 @@ package body Exp_VFpt is
    --  +-+---------------+--------------+
    --  |             fraction           |  A + 2
    --  +--------------------------------+
-   --
+
    --  bit 15 is the sign bit,
    --  bits 14:7 is the excess 128 binary exponent,
    --  bits 6:0 and 31:16 the normalized 24-bit fraction with the redundant
    --    most significant fraction bit not represented.
-   --
+
    --  An exponent value of 0 together with a sign bit of 0, is taken to
    --  indicate that the datum has a value of 0. Exponent values of 1 through
    --  255 indicate true binary exponents of -127 to +127. An exponent value
    --  of 0, together with a sign bit of 1, is taken as reserved.
-   --
+
    --  Note that fraction bits are not continuous in memory, VAX is little
    --  endian (LSB first).
-   --
+
    --  Float D:
    --  --------
-   --
+
    --   1 1
    --   5 4             7 6            0
    --  +-+---------------+--------------+
@@ -78,12 +78,12 @@ package body Exp_VFpt is
    --  +--------------------------------+
    --  |             fraction           |  A + 6
    --  +--------------------------------+
-   --
+
    --  Like Float F but with 55 bits for the fraction.
-   --
+
    --  Float G:
    --  --------
-   --
+
    --   1 1
    --   5 4                   4 3      0
    --  +-+---------------------+--------+
@@ -95,12 +95,12 @@ package body Exp_VFpt is
    --  +--------------------------------+
    --  |             fraction           |  A + 6
    --  +--------------------------------+
-   --
+
    --  Exponent values of 1 through 2047 indicate trye binary exponents of
    --  -1023 to +1023.
-   --
+
    --  Main differences compared to IEEE 754:
-   --
+
    --  * No denormalized numbers
    --  * No infinity
    --  * No NaN

diff --git a/gcc/ada/sem_ch9.adb b/gcc/ada/sem_ch9.adb
index 4e0ecf28a2dbce67891bcaff90d1f71440ec3037..27b748677c88605afa408f73593bb1c8bad19310 100644 (file)
--- a/gcc/ada/sem_ch9.adb
+++ b/gcc/ada/sem_ch9.adb
@@ -1470,7 +1470,7 @@ package body Sem_Ch9 is
 
       Analyze (Call);
 
-      --  An indirect call in this context  is illegal. A procedure call that
+      --  An indirect call in this context is illegal. A procedure call that
       --  does not involve a renaming of an entry is illegal as well, but this
       --  and other semantic errors are caught during resolution.
 

diff --git a/gcc/ada/xoscons.adb b/gcc/ada/xoscons.adb
index d0f068e7f1218ac1fc03e2d8be8efba8b08433d2..74b76c9455bf6e387fccf23413a5afe3d451e55e 100644 (file)
--- a/gcc/ada/xoscons.adb
+++ b/gcc/ada/xoscons.adb
@@ -442,7 +442,6 @@ procedure XOSCons is
       Ada_Ofile, C_Ofile : Sfile;
       Current_Line       : in out Integer)
    is
-
       function Get_Value (Name : String) return Int_Value_Type;
       --  Returns the value of the variable Name
 
@@ -465,15 +464,16 @@ procedure XOSCons is
             end loop;
 
             --  Not found returns 0
+
             return (True, 0);
          end if;
       end Get_Value;
 
-      Sline  : Slice_Set;
+      --  Local variables
 
+      Sline  : Slice_Set;
       Line   : String (1 .. 256);
       Last   : Integer;
-
       Value1 : Int_Value_Type;
       Value2 : Int_Value_Type;
       Res    : Boolean;