Minor reformatting.

From-SVN: r160732

gcc/ada/s-auxdec-vms-alpha.adb

@@ -135,7 +135,7 @@ package body System.Aux_DEC is
    ---------------------------------
 
    --  It would be nice to replace these with intrinsics, but that does
-   --  not work yet (the back end would be ok, but GNAT itself objects)
+   --  not work yet (the back end would be ok, but GNAT itself objects) ???
 
    type BU is mod 2 ** Unsigned_Byte'Size;
    --  Unsigned type of same length as Unsigned_Byte
@@ -168,7 +168,7 @@ package body System.Aux_DEC is
    ---------------------------------
 
    --  It would be nice to replace these with intrinsics, but that does
-   --  not work yet (the back end would be ok, but GNAT itself objects)
+   --  not work yet (the back end would be ok, but GNAT itself objects) ???
 
    type WU is mod 2 ** Unsigned_Word'Size;
    --  Unsigned type of same length as Unsigned_Word
@@ -201,7 +201,7 @@ package body System.Aux_DEC is
    -------------------------------------
 
    --  It would be nice to replace these with intrinsics, but that does
-   --  not work yet (the back end would be ok, but GNAT itself objects)
+   --  not work yet (the back end would be ok, but GNAT itself objects) ???
 
    type LWU is mod 2 ** Unsigned_Longword'Size;
    --  Unsigned type of same length as Unsigned_Longword
@@ -234,7 +234,7 @@ package body System.Aux_DEC is
    -------------------------------
 
    --  It would be nice to replace these with intrinsics, but that does
-   --  not work yet (the back end would be ok, but GNAT itself objects)
+   --  not work yet (the back end would be ok, but GNAT itself objects) ???
 
    type U32 is mod 2 ** Unsigned_32'Size;
    --  Unsigned type of same length as Unsigned_32
@@ -267,7 +267,7 @@ package body System.Aux_DEC is
    -------------------------------------
 
    --  It would be nice to replace these with intrinsics, but that does
-   --  not work yet (the back end would be ok, but GNAT itself objects)
+   --  not work yet (the back end would be ok, but GNAT itself objects) ???
 
    type QWU is mod 2 ** 64;  -- 64 = Unsigned_Quadword'Size
    --  Unsigned type of same length as Unsigned_Quadword
@@ -306,7 +306,12 @@ package body System.Aux_DEC is
       use ASCII;
       Clr_Bit : Boolean := Bit;
       Old_Bit : Boolean;
+
    begin
+      --  All these ASM sequences should be commented. I suggest definining
+      --  a constant called E which is LF & HT and then you have more space
+      --  for line by line comments ???
+
       System.Machine_Code.Asm
         (
          "lda $16, %2"      & LF & HT &
@@ -347,6 +352,7 @@ package body System.Aux_DEC is
       use ASCII;
       Clr_Bit : Boolean := Bit;
       Succ, Old_Bit : Boolean;
+
    begin
       System.Machine_Code.Asm
         (
@@ -398,7 +404,10 @@ package body System.Aux_DEC is
       use ASCII;
       Set_Bit : Boolean := Bit;
       Old_Bit : Boolean;
+
    begin
+      --  Don't we need comments on these long asm sequences???
+
       System.Machine_Code.Asm
         (
          "lda $16, %2"      & LF & HT &
@@ -438,6 +447,7 @@ package body System.Aux_DEC is
       use ASCII;
       Set_Bit : Boolean := Bit;
       Succ, Old_Bit : Boolean;
+
    begin
       System.Machine_Code.Asm
         (
@@ -488,6 +498,7 @@ package body System.Aux_DEC is
    is
       use ASCII;
       Overflowed : Boolean := False;
+
    begin
       System.Machine_Code.Asm
         (
@@ -549,6 +560,7 @@ package body System.Aux_DEC is
       Amount : Integer)
    is
       use ASCII;
+
    begin
       System.Machine_Code.Asm
         (
@@ -574,6 +586,7 @@ package body System.Aux_DEC is
       Success_Flag : out Boolean)
    is
       use ASCII;
+
    begin
       System.Machine_Code.Asm
         (
@@ -609,6 +622,7 @@ package body System.Aux_DEC is
       Amount : Long_Integer)
    is
       use ASCII;
+
    begin
       System.Machine_Code.Asm
         (
@@ -634,6 +648,7 @@ package body System.Aux_DEC is
       Success_Flag : out Boolean)
    is
       use ASCII;
+
    begin
       System.Machine_Code.Asm
         (
@@ -673,6 +688,7 @@ package body System.Aux_DEC is
       From : Integer)
    is
       use ASCII;
+
    begin
       System.Machine_Code.Asm
         (
@@ -698,6 +714,7 @@ package body System.Aux_DEC is
       Success_Flag : out Boolean)
    is
       use ASCII;
+
    begin
       System.Machine_Code.Asm
         (
@@ -733,6 +750,7 @@ package body System.Aux_DEC is
       From : Long_Integer)
    is
       use ASCII;
+
    begin
       System.Machine_Code.Asm
         (
@@ -758,6 +776,7 @@ package body System.Aux_DEC is
       Success_Flag : out Boolean)
    is
       use ASCII;
+
    begin
       System.Machine_Code.Asm
         (
@@ -797,6 +816,7 @@ package body System.Aux_DEC is
       From : Integer)
    is
       use ASCII;
+
    begin
       System.Machine_Code.Asm
         (
@@ -822,6 +842,7 @@ package body System.Aux_DEC is
       Success_Flag : out Boolean)
    is
       use ASCII;
+
    begin
       System.Machine_Code.Asm
         (
@@ -857,6 +878,7 @@ package body System.Aux_DEC is
       From : Long_Integer)
    is
       use ASCII;
+
    begin
       System.Machine_Code.Asm
         (
@@ -882,6 +904,7 @@ package body System.Aux_DEC is
       Success_Flag : out Boolean)
    is
       use ASCII;
+
    begin
       System.Machine_Code.Asm
         (
@@ -919,9 +942,10 @@ package body System.Aux_DEC is
    procedure Insqhi
      (Item   : Address;
       Header : Address;
-      Status : out Insq_Status) is
-
+      Status : out Insq_Status)
+   is
       use ASCII;
+
    begin
       System.Machine_Code.Asm
         (
@@ -947,6 +971,7 @@ package body System.Aux_DEC is
       Status : out Remq_Status)
    is
       use ASCII;
+
    begin
       System.Machine_Code.Asm
         (
@@ -969,9 +994,10 @@ package body System.Aux_DEC is
    procedure Insqti
      (Item   : Address;
       Header : Address;
-      Status : out Insq_Status) is
-
+      Status : out Insq_Status)
+   is
       use ASCII;
+
    begin
       System.Machine_Code.Asm
         (
@@ -997,6 +1023,7 @@ package body System.Aux_DEC is
       Status : out Remq_Status)
    is
       use ASCII;
+
    begin
       System.Machine_Code.Asm
         (