diff options
| author | Robert Dewar <dewar@adacore.com> | 2011-08-29 08:54:00 +0000 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2011-08-29 10:54:00 +0200 |
| commit | 2c1a2cf39e016ce795a5cb9801af8098bfa8a234 (patch) | |
| tree | fc5069c20761d3339875e4698d2a5aec5923e4bb /gcc/ada/get_scos.adb | |
| parent | 0bfc9a64c3b167a8d3f1b9b1ab0caced30ca554e (diff) | |
| download | gcc-2c1a2cf39e016ce795a5cb9801af8098bfa8a234.zip gcc-2c1a2cf39e016ce795a5cb9801af8098bfa8a234.tar.gz gcc-2c1a2cf39e016ce795a5cb9801af8098bfa8a234.tar.bz2 | |
exp_attr.adb: Minor reformatting.
2011-08-29 Robert Dewar <dewar@adacore.com>
* exp_attr.adb: Minor reformatting.
Minor code reorganization and commenting.
* par_sco.adb, checks.adb, sem_attr.adb, get_scos.adb: Minor
reformatting.
From-SVN: r178166
Diffstat (limited to 'gcc/ada/get_scos.adb')
| -rw-r--r-- | gcc/ada/get_scos.adb | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/gcc/ada/get_scos.adb b/gcc/ada/get_scos.adb index 43c27b5..8fc4dfc 100644 --- a/gcc/ada/get_scos.adb +++ b/gcc/ada/get_scos.adb @@ -24,6 +24,9 @@ ------------------------------------------------------------------------------ pragma Ada_2005; +-- This unit is not part of the compiler proper, it is used in tools that +-- read SCO information from ALI files (Xcov and sco_test). Ada 2005 +-- constructs may therefore be used freely (and are indeed). with SCOs; use SCOs; with Snames; use Snames; @@ -297,12 +300,14 @@ begin exit when Nextc = ':'; N := N + 1; end loop; + begin Pid := Pragma_Id'Value (Buf (1 .. N)); exception when Constraint_Error => Pid := Unknown_Pragma; end; + Skipc; end if; end if; |