OpenE2K/gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

exp_dist.adb: Minor reformatting

Browse Source 
2008-08-04  Robert Dewar  <dewar@adacore.com>

	* exp_dist.adb: Minor reformatting

From-SVN: r138602
This commit is contained in:
Robert Dewar 2008-08-04 12:23:07 +02:00 committed by Arnaud Charlet
parent 8654a24048
commit 53aa444419
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
gcc/ada/exp_dist.adb
View File

@ -11005,13 +11005,13 @@ package body Exp_Dist is
Nam : Name_Id) return Entity_Id Nam : Name_Id) return Entity_Id
is is
begin begin
declare declare
Serial : Nat := 0; Serial : Nat := 0;
-- For tagged types, we use a canonical name so that it matches -- For tagged types, we use a canonical name so that it matches
-- the primitive spec. For all other cases, we use a serialized -- the primitive spec. For all other cases, we use a serialized
-- name so that multiple generations of the same procedure do -- name so that multiple generations of the same procedure do
-- not clash. -- not clash.
begin begin
if not Is_Tagged_Type (Typ) then if not Is_Tagged_Type (Typ) then
Serial := Increment_Serial_Number; Serial := Increment_Serial_Number;