Minor reformatting.

From-SVN: r213357

diff --git a/gcc/ada/exp_ch9.adb b/gcc/ada/exp_ch9.adb
index cbd522e360839bd1a4bc6e7c2accfd16696e5768..48044dbfc46ed0cb65e8bf5d2e18c2c5bc2b9953 100644 (file)
--- a/gcc/ada/exp_ch9.adb
+++ b/gcc/ada/exp_ch9.adb
@@ -8914,15 +8914,14 @@ package body Exp_Ch9 is
       -- Discriminated_Size --
       ------------------------
 
-      function Discriminated_Size (Comp : Entity_Id) return Boolean
-      is
+      function Discriminated_Size (Comp : Entity_Id) return Boolean is
          Typ   : constant Entity_Id := Etype (Comp);
          Index : Node_Id;
 
          function Non_Static_Bound (Bound : Node_Id) return Boolean;
-         --  Check whether the bound of an index is non-static and does
-         --  denote a discriminant, in which case any protected object of
-         --  the type will have a non-static size.
+         --  Check whether the bound of an index is non-static and does denote
+         --  a discriminant, in which case any protected object of the type
+         --  will have a non-static size.
 
          ----------------------
          -- Non_Static_Bound --
@@ -8934,7 +8933,7 @@ package body Exp_Ch9 is
                return False;
 
             elsif Is_Entity_Name (Bound)
-               and then Present (Discriminal_Link (Entity (Bound)))
+              and then Present (Discriminal_Link (Entity (Bound)))
             then
                return False;
 
@@ -8943,6 +8942,8 @@ package body Exp_Ch9 is
             end if;
          end Non_Static_Bound;
 
+      --  Start of processing for Discriminated_Size
+
       begin
          if not Is_Array_Type (Typ) then
             return False;

diff --git a/gcc/ada/g-exptty.adb b/gcc/ada/g-exptty.adb
index 3e7819369a56f7f6d659795a81e2c6f9876e8a9d..8b7fd6ee268c023505e0d474f4b4eb3494f8e449 100644 (file)
--- a/gcc/ada/g-exptty.adb
+++ b/gcc/ada/g-exptty.adb
@@ -66,14 +66,14 @@ package body GNAT.Expect.TTY is
          Status := -1;
 
       else
-         --  Send a Ctrl-C to the process first. This way, if the
-         --  launched process is a "sh" or "cmd", the child processes
-         --  will get terminated as well. Otherwise, terminating the
-         --  main process brutally will leave the children running.
-         --
-         --  Note: special characters are sent to the terminal to generate
-         --  the signal, so this needs to be done while the file descriptors
-         --  are still open.
+         --  Send a Ctrl-C to the process first. This way, if the launched
+         --  process is a "sh" or "cmd", the child processes will get
+         --  terminated as well. Otherwise, terminating the main process
+         --  brutally will leave the children running.
+
+         --  Note: special characters are sent to the terminal to generate the
+         --  signal, so this needs to be done while the file descriptors are
+         --  still open (it used to be after the closes and that was wrong).
 
          Interrupt (Descriptor);
          delay (0.05);