diff options
| author | Robert Dewar <dewar@adacore.com> | 2009-11-30 14:03:03 +0000 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2009-11-30 15:03:03 +0100 |
| commit | d0995fa28092684f4d3a9123682d293f2517d457 (patch) | |
| tree | 3eb6bdb8061cf102b2ba7810f87716b63930ceb0 /gcc/ada/osint.adb | |
| parent | 1e0e653424a1e7b9f6743ff4c81f64810b0c01e4 (diff) | |
| download | gcc-d0995fa28092684f4d3a9123682d293f2517d457.zip gcc-d0995fa28092684f4d3a9123682d293f2517d457.tar.gz gcc-d0995fa28092684f4d3a9123682d293f2517d457.tar.bz2 | |
osint.adb, [...]: Minor reformatting.
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.
From-SVN: r154803
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 bf2b234..5aa8458 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; |