diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2008-08-04 10:23:07 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2008-08-04 10:23:07 +0000 |
| commit | ace2981cff1d866368067a804fb218f9fd604f9b (patch) | |
| tree | 9c81ef316788aaf2199578f4a8f6f6375f87eb0e /gcc/ada/exp_dist.adb | |
| parent | bb7e89c2509f6568cdebf39d8037d4d2fc390b9e (diff) | |
| download | gcc-ace2981cff1d866368067a804fb218f9fd604f9b.tar.gz | |
2008-08-04 Robert Dewar <dewar@adacore.com>
* exp_dist.adb: Minor reformatting
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@138602 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/exp_dist.adb')
| -rw-r--r-- | gcc/ada/exp_dist.adb | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/gcc/ada/exp_dist.adb b/gcc/ada/exp_dist.adb index 8576cbf94ad..38693f13b6a 100644 --- a/gcc/ada/exp_dist.adb +++ b/gcc/ada/exp_dist.adb @@ -11005,13 +11005,13 @@ package body Exp_Dist is Nam : Name_Id) return Entity_Id is begin - declare Serial : Nat := 0; -- For tagged types, we use a canonical name so that it matches -- the primitive spec. For all other cases, we use a serialized -- name so that multiple generations of the same procedure do -- not clash. + begin if not Is_Tagged_Type (Typ) then Serial := Increment_Serial_Number; |