diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2011-12-12 11:30:49 +0100 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2011-12-12 11:30:49 +0100 |
| commit | 9c25bb25a88048f3b650c7e036ba6d05d5437425 (patch) | |
| tree | d9ad05791b2582106c5e1254746d32c8d135cd79 /gcc/ada/put_scos.adb | |
| parent | 7e529795d0c6a2c9441bb233a140e4b8ec2cf521 (diff) | |
| download | gcc-9c25bb25a88048f3b650c7e036ba6d05d5437425.zip gcc-9c25bb25a88048f3b650c7e036ba6d05d5437425.tar.gz gcc-9c25bb25a88048f3b650c7e036ba6d05d5437425.tar.bz2 | |
[multiple changes]
2011-12-12 Robert Dewar <dewar@adacore.com>
* par_sco.adb, scos.ads, put_scos.adb, get_scos.adb: Minor reformatting.
2011-12-12 Steve Baird <baird@adacore.com>
* sem_ch3.adb (Check_Completion): Improve a comment.
2011-12-12 Tristan Gingold <gingold@adacore.com>
* cstand.adb: Minor comment fix.
From-SVN: r182224
Diffstat (limited to 'gcc/ada/put_scos.adb')
| -rw-r--r-- | gcc/ada/put_scos.adb | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/gcc/ada/put_scos.adb b/gcc/ada/put_scos.adb index ec25981..84d4ef6 100644 --- a/gcc/ada/put_scos.adb +++ b/gcc/ada/put_scos.adb @@ -169,15 +169,15 @@ begin Write_Info_Char (Sent.C2); if Sent.C1 = 'S' - and then Sent.C2 = 'P' - and then Sent.Pragma_Name /= Unknown_Pragma + and then Sent.C2 = 'P' + and then Sent.Pragma_Name /= Unknown_Pragma then + -- Strip leading "PRAGMA_" + declare Pnam : constant String := Sent.Pragma_Name'Img; begin - -- Strip leading "PRAGMA_" - Output_String (Pnam (Pnam'First + 7 .. Pnam'Last)); Write_Info_Char (':'); |