diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2009-06-19 14:29:07 +0200 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2009-06-19 14:29:07 +0200 |
| commit | 1313f39c905ee1733291b81a9e45ad21fb8d0dd4 (patch) | |
| tree | 9331effd83d189567ec636828f3d452fe9d5ce79 | |
| parent | 659819b97114a2607c7dd48553f4051d21b9b933 (diff) | |
| download | gcc-1313f39c905ee1733291b81a9e45ad21fb8d0dd4.zip gcc-1313f39c905ee1733291b81a9e45ad21fb8d0dd4.tar.gz gcc-1313f39c905ee1733291b81a9e45ad21fb8d0dd4.tar.bz2 | |
Minor reformatting.
From-SVN: r148702
| -rw-r--r-- | gcc/ada/a-einuoc.adb | 16 |
1 files changed, 7 insertions, 9 deletions
diff --git a/gcc/ada/a-einuoc.adb b/gcc/ada/a-einuoc.adb index a9e378d..f70eff0 100644 --- a/gcc/ada/a-einuoc.adb +++ b/gcc/ada/a-einuoc.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- Copyright (C) 2000-2009 Free Software Foundation, Inc. -- +-- Copyright (C) 2000-2009, Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- -- terms of the GNU General Public License as published by the Free Soft- -- @@ -29,18 +29,16 @@ -- -- ------------------------------------------------------------------------------ --- This is a GNAT-specific child function of Ada.Exceptions. It provides --- clearly missing functionality for its parent package, and most reasonably --- would simply be an added function to that package, but this change cannot --- be made in a conforming manner. +--------------------------------------- +-- Ada.Exceptions.Is_Null_Occurrence -- +--------------------------------------- function Ada.Exceptions.Is_Null_Occurrence - (X : Exception_Occurrence) - return Boolean + (X : Exception_Occurrence) return Boolean is begin - -- The null exception is uniquely identified by the fact that the Id - -- value is null. No other exception occurrence can have a null Id. + -- The null exception is uniquely identified by the fact that the Id value + -- is null. No other exception occurrence can have a null Id. if X.Id = Null_Id then return True; |