summaryrefslogtreecommitdiff
path: root/gcc/ada/a-direct.adb
diff options
context:
space:
mode:
authorcharlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4>2009-04-20 12:59:51 +0000
committercharlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4>2009-04-20 12:59:51 +0000
commit069d2ce46ef00595619e670c6f147105fd4c70b5 (patch)
treeab7726b0a2ecb46134539f364db82c09ad20e775 /gcc/ada/a-direct.adb
parent5820e1c3b80c8471680dc6b75377919a6813a35c (diff)
downloadgcc-069d2ce46ef00595619e670c6f147105fd4c70b5.tar.gz
2009-04-20 Javier Miranda <miranda@adacore.com>
* sem_disp.adb (Find_Dispatching_Type): For subprograms internally generated by derivations of tagged types use the aliased subprogram a reference to locate their controlling type. 2009-04-20 Tristan Gingold <gingold@adacore.com> * g-trasym.adb: Set size of result buffer before calling convert_address. 2009-04-20 Ed Schonberg <schonberg@adacore.com> * sem_ch4.adb (Valid_Candidate): When checking whether a prefixed call to a function returning an array can be interpreted as a call with defaulted parameters whose result is indexed, take into account the types of all the indices of the array result type. 2009-04-20 Pascal Obry <obry@adacore.com> * a-direct.adb, s-os_lib.adb: Minor reformatting. git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@146411 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/a-direct.adb')
-rw-r--r--gcc/ada/a-direct.adb3
1 files changed, 1 insertions, 2 deletions
diff --git a/gcc/ada/a-direct.adb b/gcc/ada/a-direct.adb
index db9ef9f7c51..db40b8c85be 100644
--- a/gcc/ada/a-direct.adb
+++ b/gcc/ada/a-direct.adb
@@ -1154,8 +1154,7 @@ package body Ada.Directories is
end Simple_Name;
function Simple_Name
- (Directory_Entry : Directory_Entry_Type) return String
- is
+ (Directory_Entry : Directory_Entry_Type) return String is
begin
-- First, the invalid case