diff options
author | Arnaud Charlet <charlet@gcc.gnu.org> | 2015-10-20 14:21:37 +0200 |
---|---|---|
committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2015-10-20 14:21:37 +0200 |
commit | fb159eb789755380ef1ec61001d0a78734400d0f (patch) | |
tree | c36d888547dab7791e17fd4bfe05b11f59fb05c4 /gcc/ada/pprint.adb | |
parent | 78cef47f96b16996b65a3a53a7166f5daf4d7f27 (diff) | |
download | gcc-fb159eb789755380ef1ec61001d0a78734400d0f.zip gcc-fb159eb789755380ef1ec61001d0a78734400d0f.tar.gz gcc-fb159eb789755380ef1ec61001d0a78734400d0f.tar.bz2 |
[multiple changes]
2015-10-20 Steve Baird <baird@adacore.com>
* pprint.adb: Code clean up.
2015-10-20 Bob Duff <duff@adacore.com>
* a-cfinve.ads, a-coboho.ads: Improve comments.
* a-coboho.adb (Size_In_Storage_Elements): Improve error message
in case of "Size is too big" exception.
2015-10-20 Bob Duff <duff@adacore.com>
* a-contai.ads: Remove check names (moved to snames.ads-tmpl).
* snames.ads-tmpl: Add check names that were previously in
a-contai.ads, so they are now visible in configuration files.
* types.ads: Add checks corresponding to snames.ads-tmpl.
From-SVN: r229069
Diffstat (limited to 'gcc/ada/pprint.adb')
-rw-r--r-- | gcc/ada/pprint.adb | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/gcc/ada/pprint.adb b/gcc/ada/pprint.adb index 102611f..cc0bfe5 100644 --- a/gcc/ada/pprint.adb +++ b/gcc/ada/pprint.adb @@ -713,11 +713,11 @@ package body Pprint is end loop; declare + Scn : Source_Ptr := Original_Location (Sloc (Left)); End_Sloc : constant Source_Ptr := Original_Location (Sloc (Right)); Src : constant Source_Buffer_Ptr := Source_Text (Get_Source_File_Index (Scn)); - Scn : Source_Ptr := Original_Location (Sloc (Left)); begin if Scn > End_Sloc then |