Commit 2ae395d6 by Arnaud Charlet

[multiple changes]

2013-02-06  Javier Miranda  <miranda@adacore.com>

	* sem_ch6.adb (Analyze_Subprogram_Body_Helper): Do not build the body
	of an inlined function if we do not generate code for the function.

2013-02-06  Pascal Obry  <obry@adacore.com>

	* s-os_lib.adb (Locate_Exec_On_Path): Call Normalize_Pathname
	with Resolve_Links set to False.

From-SVN: r195785
parent 0f33baa9
2013-02-06 Javier Miranda <miranda@adacore.com>
* sem_ch6.adb (Analyze_Subprogram_Body_Helper): Do not build the body
of an inlined function if we do not generate code for the function.
2013-02-06 Pascal Obry <obry@adacore.com>
* s-os_lib.adb (Locate_Exec_On_Path): Call Normalize_Pathname
with Resolve_Links set to False.
2013-02-03 Eric Botcazou <ebotcazou@adacore.com> 2013-02-03 Eric Botcazou <ebotcazou@adacore.com>
* gcc-interface/decl.c: Include diagnostic-core.h. * gcc-interface/decl.c: Include diagnostic-core.h.
......
...@@ -6,7 +6,7 @@ ...@@ -6,7 +6,7 @@
-- -- -- --
-- B o d y -- -- B o d y --
-- -- -- --
-- Copyright (C) 1995-2012, AdaCore -- -- Copyright (C) 1995-2013, AdaCore --
-- -- -- --
-- GNAT is free software; you can redistribute it and/or modify it under -- -- 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- -- -- terms of the GNU General Public License as published by the Free Soft- --
...@@ -1479,7 +1479,7 @@ package body System.OS_Lib is ...@@ -1479,7 +1479,7 @@ package body System.OS_Lib is
if not Is_Absolute_Path (Result.all) then if not Is_Absolute_Path (Result.all) then
declare declare
Absolute_Path : constant String := Absolute_Path : constant String :=
Normalize_Pathname (Result.all); Normalize_Pathname (Result.all, Resolve_Links => False);
begin begin
Free (Result); Free (Result);
Result := new String'(Absolute_Path); Result := new String'(Absolute_Path);
......
...@@ -2909,6 +2909,7 @@ package body Sem_Ch6 is ...@@ -2909,6 +2909,7 @@ package body Sem_Ch6 is
and then Serious_Errors_Detected = 0 and then Serious_Errors_Detected = 0
and then Present (Spec_Id) and then Present (Spec_Id)
and then Has_Pragma_Inline (Spec_Id) and then Has_Pragma_Inline (Spec_Id)
and then In_Extended_Main_Code_Unit (N)
then then
Check_And_Build_Body_To_Inline (N, Spec_Id, Body_Id); Check_And_Build_Body_To_Inline (N, Spec_Id, Body_Id);
end if; end if;
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment