g-sercom-mingw.adb, [...]: Minor reformatting.

2016-07-04  Hristian Kirtchev  <kirtchev@adacore.com>

	* g-sercom-mingw.adb, sem_ch6.adb: Minor reformatting.

From-SVN: r237971

diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog
index 55e56f78bbc5e10c08bf65837d2cc2c78afa6e0b..090654bbd948ed5b14188dca2597393cbe6a5247 100644 (file)
--- a/gcc/ada/ChangeLog
+++ b/gcc/ada/ChangeLog
@@ -1,3 +1,7 @@
+2016-07-04  Hristian Kirtchev  <kirtchev@adacore.com>
+
+       * g-sercom-mingw.adb, sem_ch6.adb: Minor reformatting.
+
 2016-07-04  Olivier Hainque  <hainque@adacore.com>
 
        * g-sercom-mingw.adb (Set): Fix port configuration for the

diff --git a/gcc/ada/g-sercom-mingw.adb b/gcc/ada/g-sercom-mingw.adb
index ec3beaa2b0325c240472740689d3d81318846055..dabbfcfd405bc5d270c368123c6dcc806b089c9d 100644 (file)
--- a/gcc/ada/g-sercom-mingw.adb
+++ b/gcc/ada/g-sercom-mingw.adb
@@ -248,27 +248,25 @@ package body GNAT.Serial_Communications is
          Raise_Error ("cannot set comm state");
       end if;
 
-      --  Set the timeout status, to honor our spec with respect to
-      --  read timeouts. Always disconnect write timeouts.
+      --  Set the timeout status, to honor our spec with respect to read
+      --  timeouts. Always disconnect write timeouts.
 
-      if Block then
-
-         --  Blocking reads - no timeout at all
+      --  Blocking reads - no timeout at all
 
+      if Block then
          Com_Time_Out := (others => 0);
-      elsif Timeout = 0.0 then
 
-         --  Non-blocking reads and null timeout - immediate return
-         --  with what we have - set ReadIntervalTimeout to MAXDWORD.
+      --  Non-blocking reads and null timeout - immediate return with what we
+      --  have - set ReadIntervalTimeout to MAXDWORD.
 
+      elsif Timeout = 0.0 then
          Com_Time_Out :=
            (ReadIntervalTimeout => DWORD'Last,
             others              => 0);
-      else
 
-         --  Non-blocking reads with timeout - set total read timeout
-         --  accordingly
+      --  Non-blocking reads with timeout - set total read timeout accordingly
 
+      else
          Com_Time_Out :=
            (ReadTotalTimeoutConstant => DWORD (1000 * Timeout),
             others                   => 0);

diff --git a/gcc/ada/sem_ch6.adb b/gcc/ada/sem_ch6.adb
index 0b5f7a3ba29728618eabb63d12f4ec0027b4f299..66434f82454ac6a6580f474ec96030153029d871 100644 (file)
--- a/gcc/ada/sem_ch6.adb
+++ b/gcc/ada/sem_ch6.adb
@@ -9078,7 +9078,6 @@ package body Sem_Ch6 is
 
          Formal := First_Formal (Prev_E);
          F_Typ  := Empty;
-
          while Present (Formal) loop
             F_Typ := Base_Type (Etype (Formal));
 
@@ -9092,7 +9091,7 @@ package body Sem_Ch6 is
             Next_Formal (Formal);
          end loop;
 
-         --  If the function dispatches on result check the result type.
+         --  If the function dispatches on result check the result type
 
          if No (G_Typ) and then Ekind (Prev_E) = E_Function then
             G_Typ := Get_Generic_Parent_Type (Base_Type (Etype (Prev_E)));