From 7d3f6cd3a0a8307a775ca43d8d1054e0b23c5f59 Mon Sep 17 00:00:00 2001 From: charlet Date: Thu, 1 Sep 2011 11:06:39 +0000 Subject: 2011-09-01 Pascal Obry * prj-proc.adb, prj.ads, sinput-p.adb: Minor reformatting. 2011-09-01 Ed Schonberg * sem_ch6.adb (Analyze_Subprogram_Body_Helper): Generate references to the formals of a subprogram stub that acts as a spec. 2011-09-01 Ed Schonberg * exp_ch6.adb (Expand_Inlined_Call): If an actual is a by_reference type, declare a renaming for it, not an object declaration. git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@178407 138bc75d-0d04-0410-961f-82ee72b054a4 --- gcc/ada/sinput-p.adb | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'gcc/ada/sinput-p.adb') diff --git a/gcc/ada/sinput-p.adb b/gcc/ada/sinput-p.adb index cd513d01080..156f036d3cf 100644 --- a/gcc/ada/sinput-p.adb +++ b/gcc/ada/sinput-p.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- Copyright (C) 1992-2010, Free Software Foundation, Inc. -- +-- Copyright (C) 1992-2011, Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- -- terms of the GNU General Public License as published by the Free Soft- -- @@ -97,7 +97,7 @@ package body Sinput.P is ----------------------- function Load_Project_File (Path : String) return Source_File_Index is - X : Source_File_Index; + X : Source_File_Index; begin X := Sinput.C.Load_File (Path); -- cgit v1.2.1