From: Arnaud Charlet <charlet@gcc.gnu.org>
Date: Mon, 2 May 2016 10:37:34 +0000 (+0200)
Subject: Minor reformatting.
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=c408fb34f9068cf559e8065b60fdf44450377a67;p=gcc.git

Minor reformatting.

From-SVN: r235747
---

diff --git a/gcc/ada/exp_ch6.adb b/gcc/ada/exp_ch6.adb
index aff75ac00bb..dbdd33dc8fc 100644
--- a/gcc/ada/exp_ch6.adb
+++ b/gcc/ada/exp_ch6.adb
@@ -3977,7 +3977,7 @@ package body Exp_Ch6 is
                begin
                   Inst := Scope (Subp);
 
-                  --  Find enclosing instance.
+                  --  Find enclosing instance
 
                   while Present (Inst) and then Inst /= Standard_Standard loop
                      exit when Is_Generic_Instance (Inst);
@@ -4002,11 +4002,11 @@ package body Exp_Ch6 is
                         null;
 
                      else
-                        --  The instantiation node follows the package
-                        --  declaration for the instance. If the generic
-                        --  unit had aspect specifications, they have
-                        --  been transformed into pragmas in the instance,
-                        --  and the instance node appears after them.
+                        --  The instantiation node usually follows the package
+                        --  declaration for the instance. If the generic unit
+                        --  has aspect specifications, they are transformed
+                        --  into pragmas in the instance, and the instance node
+                        --  appears after them.
 
                         Inst_Node := Next (Decl);
 
diff --git a/gcc/ada/s-memory.adb b/gcc/ada/s-memory.adb
index 009efa2c13a..48e3a3def16 100644
--- a/gcc/ada/s-memory.adb
+++ b/gcc/ada/s-memory.adb
@@ -67,6 +67,7 @@ package body System.Memory is
 
    function Alloc (Size : size_t) return System.Address is
       Result : System.Address;
+
    begin
       if Parameters.No_Abort then
          Result := c_malloc (System.CRTL.size_t (Size));
@@ -77,6 +78,7 @@ package body System.Memory is
       end if;
 
       if Result = System.Null_Address then
+
          --  If Size = 0, we can't allocate 0 bytes, because then two different
          --  allocators, one of which has Size = 0, could return pointers that
          --  compare equal, which is wrong. (Nonnull pointers compare equal if