diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2009-11-30 14:03:03 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2009-11-30 14:03:03 +0000 |
| commit | d5c7669cdb54f778be48197d4c0345b8e5ae63bb (patch) | |
| tree | 3eb6bdb8061cf102b2ba7810f87716b63930ceb0 /gcc/ada/osint.adb | |
| parent | f71faa5296bce977a67fd1d8fb9d5e74cb143de9 (diff) | |
| download | gcc-d5c7669cdb54f778be48197d4c0345b8e5ae63bb.tar.gz | |
2009-11-30 Robert Dewar <dewar@adacore.com>
* osint.adb, prj-nmsc.adb, sem_prag.adb, sem_util.adb: Minor
reformatting.
* csinfo.adb: Terminate run if improper use of reserved flag
* sinfo.ads, sinfo.adb (Is_Accessibility_Actual): Don't use reserved
Flag12, used Flag13 instead.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@154803 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/osint.adb')
| -rw-r--r-- | gcc/ada/osint.adb | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/gcc/ada/osint.adb b/gcc/ada/osint.adb index bf2b234000b..5aa8458dd5b 100644 --- a/gcc/ada/osint.adb +++ b/gcc/ada/osint.adb @@ -846,11 +846,11 @@ package body Osint is if Buffer'Length <= Exec_Suffix'Length or else Buffer (Buffer'Last - Exec_Suffix'Length + 1 .. Buffer'Last) - /= Exec_Suffix.all + /= Exec_Suffix.all then Name_Buffer (Name_Len + 1 .. Name_Len + Exec_Suffix'Length) := - Exec_Suffix.all; + Exec_Suffix.all; Name_Len := Name_Len + Exec_Suffix'Length; Free (Exec_Suffix); return Name_Find; |