Minor reformatting.

From-SVN: r235747

diff --git a/gcc/ada/exp_ch6.adb b/gcc/ada/exp_ch6.adb
index aff75ac00bb87e7f213ae5036b627f12f47c9aa0..dbdd33dc8fc382b2b18403e0649da2ec1a4538cd 100644 (file)
--- 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 009efa2c13a7fa3b0c31368df97f7842dd3b9fa9..48e3a3def16f5d2be927d8f0704ffffa71ac62c7 100644 (file)
--- 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