diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2014-08-04 12:47:56 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2014-08-04 12:47:56 +0000 |
| commit | c40ac9aa71544a82fb44ac63a4a20dc6b37b67dd (patch) | |
| tree | f3848bfb928022bf983a63f33a0f1da48ac0aa85 /gcc/ada/osint.adb | |
| parent | 2532ea8bf5c93aaaca304d6cd2e925a9b8286a70 (diff) | |
| download | gcc-c40ac9aa71544a82fb44ac63a4a20dc6b37b67dd.tar.gz | |
2014-08-04 Robert Dewar <dewar@adacore.com>
* sem_prag.adb, osint.adb, osint.ads: Minor reformatting.
2014-08-04 Yannick Moy <moy@adacore.com>
* sem_ch3.adb (Derive_Type_Declaration,
Process_Discriminants): Remove SPARK-specific legality checks.
2014-08-04 Thomas Quinot <quinot@adacore.com>
* g-sechas.ads, g-sechas.adb (HMAC_Initial_Context): New subprogram.
* gnat_rm.texi (GNAT.MD5/SHA1/SHA224/SHA256/SHA512): Document support
for HMAC.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@213577 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/osint.adb')
| -rw-r--r-- | gcc/ada/osint.adb | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/gcc/ada/osint.adb b/gcc/ada/osint.adb index 3fd796c4953..9ba18083fea 100644 --- a/gcc/ada/osint.adb +++ b/gcc/ada/osint.adb @@ -1174,7 +1174,8 @@ package body Osint is T : File_Type; Found : out File_Name_Type; Attr : access File_Attributes; - Full_Name : Boolean := False) is + Full_Name : Boolean := False) + is begin Get_Name_String (N); @@ -1200,9 +1201,8 @@ package body Osint is if T = Config and then Full_Name then declare Full_Path : constant String := - Normalize_Pathname (Get_Name_String (N)); + Normalize_Pathname (Get_Name_String (N)); Full_Size : constant Natural := Full_Path'Length; - begin Name_Buffer (1 .. Full_Size) := Full_Path; Name_Len := Full_Size; |