Skip to content

R
riscv-gcc-1
Commit a40520ec by Arnaud Charlet
Options

Minor reformatting. 

From-SVN: r160732
parent 4a214958
Showing with 36 additions and 9 deletions
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
(
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment