[multiple changes]
2014-07-29 Robert Dewar <dewar@adacore.com> * sem_prag.adb (ip, rv): Prevent from being optimized away. * gnatls.adb (gnatls): Set E_Fatal exit status if ali file not found. * s-imgllb.adb, s-imgllw.adb, s-imgwiu.adb, s-imgbiu.adb: Minor reformatting. 2014-07-29 Vincent Celier <celier@adacore.com> * prj-pp.adb: Minor comment update. * frontend.adb: If a target dependency info file has been read through switch -gnateT= add it to the dependencies of the source being compiled. From-SVN: r213211
This commit is contained in:
parent
38564f8194
commit
094cf3330c
|
@ -1,3 +1,17 @@
|
||||||
|
2014-07-29 Robert Dewar <dewar@adacore.com>
|
||||||
|
|
||||||
|
* sem_prag.adb (ip, rv): Prevent from being optimized away.
|
||||||
|
* gnatls.adb (gnatls): Set E_Fatal exit status if ali file not found.
|
||||||
|
* s-imgllb.adb, s-imgllw.adb, s-imgwiu.adb, s-imgbiu.adb: Minor
|
||||||
|
reformatting.
|
||||||
|
|
||||||
|
2014-07-29 Vincent Celier <celier@adacore.com>
|
||||||
|
|
||||||
|
* prj-pp.adb: Minor comment update.
|
||||||
|
* frontend.adb: If a target dependency info file has been read
|
||||||
|
through switch -gnateT= add it to the dependencies of the source
|
||||||
|
being compiled.
|
||||||
|
|
||||||
2014-07-29 Robert Dewar <dewar@adacore.com>
|
2014-07-29 Robert Dewar <dewar@adacore.com>
|
||||||
|
|
||||||
* sem_ch3.adb, prj.adb: Minor reformatting.
|
* sem_ch3.adb, prj.adb: Minor reformatting.
|
||||||
|
|
|
@ -314,6 +314,20 @@ begin
|
||||||
Opt.Suppress_Options := Scope_Suppress;
|
Opt.Suppress_Options := Scope_Suppress;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
|
-- If a target dependency info file has been read through switch -gnateT=,
|
||||||
|
-- add it to the dependencies.
|
||||||
|
|
||||||
|
if Target_Dependent_Info_Read_Name /= null then
|
||||||
|
declare
|
||||||
|
Index : Source_File_Index;
|
||||||
|
begin
|
||||||
|
Name_Len := 0;
|
||||||
|
Add_Str_To_Name_Buffer (Target_Dependent_Info_Read_Name.all);
|
||||||
|
Index := Load_Config_File (Name_Enter);
|
||||||
|
Prepcomp.Add_Dependency (Index);
|
||||||
|
end;
|
||||||
|
end if;
|
||||||
|
|
||||||
-- This is where we can capture the value of the compilation unit specific
|
-- This is where we can capture the value of the compilation unit specific
|
||||||
-- restrictions that have been set by the config pragma files (or from
|
-- restrictions that have been set by the config pragma files (or from
|
||||||
-- Targparm), for later restoration when processing e.g. subunits.
|
-- Targparm), for later restoration when processing e.g. subunits.
|
||||||
|
|
|
@ -129,6 +129,9 @@ procedure Gnatls is
|
||||||
RTS_Specified : String_Access := null;
|
RTS_Specified : String_Access := null;
|
||||||
-- Used to detect multiple use of --RTS= switch
|
-- Used to detect multiple use of --RTS= switch
|
||||||
|
|
||||||
|
Exit_Status : Exit_Code_Type := E_Success;
|
||||||
|
-- Reset to E_Fatal if bad error found
|
||||||
|
|
||||||
-----------------------
|
-----------------------
|
||||||
-- Local Subprograms --
|
-- Local Subprograms --
|
||||||
-----------------------
|
-----------------------
|
||||||
|
@ -1764,7 +1767,7 @@ begin
|
||||||
Initialize_ALI;
|
Initialize_ALI;
|
||||||
Initialize_ALI_Source;
|
Initialize_ALI_Source;
|
||||||
|
|
||||||
-- Print out all library for which no ALI files can be located
|
-- Print out all libraries for which no ALI files can be located
|
||||||
|
|
||||||
while More_Lib_Files loop
|
while More_Lib_Files loop
|
||||||
Main_File := Next_Main_Lib_File;
|
Main_File := Next_Main_Lib_File;
|
||||||
|
@ -1782,6 +1785,7 @@ begin
|
||||||
Write_Str (Name_Buffer (1 .. Name_Len));
|
Write_Str (Name_Buffer (1 .. Name_Len));
|
||||||
Write_Char ('"'); -- "
|
Write_Char ('"'); -- "
|
||||||
Write_Eol;
|
Write_Eol;
|
||||||
|
Exit_Status := E_Fatal;
|
||||||
end if;
|
end if;
|
||||||
|
|
||||||
else
|
else
|
||||||
|
@ -1906,5 +1910,5 @@ begin
|
||||||
-- All done. Set proper exit status
|
-- All done. Set proper exit status
|
||||||
|
|
||||||
Namet.Finalize;
|
Namet.Finalize;
|
||||||
Exit_Program (E_Success);
|
Exit_Program (Exit_Status);
|
||||||
end Gnatls;
|
end Gnatls;
|
||||||
|
|
|
@ -85,8 +85,7 @@ package body Prj.PP is
|
||||||
-- Outputs the indentation at the beginning of the line
|
-- Outputs the indentation at the beginning of the line
|
||||||
|
|
||||||
procedure Output_Project_File (S : Name_Id);
|
procedure Output_Project_File (S : Name_Id);
|
||||||
-- Output a string for a project file name. No concatenation even if the
|
-- Output a project file name in one single string literal
|
||||||
-- line is too long. What does that mean???
|
|
||||||
|
|
||||||
procedure Output_String (S : Name_Id; Indent : Natural);
|
procedure Output_String (S : Name_Id; Indent : Natural);
|
||||||
-- Outputs a string using the default output procedures
|
-- Outputs a string using the default output procedures
|
||||||
|
|
|
@ -6,7 +6,7 @@
|
||||||
-- --
|
-- --
|
||||||
-- B o d y --
|
-- B o d y --
|
||||||
-- --
|
-- --
|
||||||
-- Copyright (C) 1992-2009 Free Software Foundation, Inc. --
|
-- Copyright (C) 1992-2014, Free Software Foundation, Inc. --
|
||||||
-- --
|
-- --
|
||||||
-- 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- --
|
||||||
|
@ -99,6 +99,10 @@ package body System.Img_BIU is
|
||||||
procedure Set_Digits (T : Unsigned);
|
procedure Set_Digits (T : Unsigned);
|
||||||
-- Set digits of absolute value of T
|
-- Set digits of absolute value of T
|
||||||
|
|
||||||
|
----------------
|
||||||
|
-- Set_Digits --
|
||||||
|
----------------
|
||||||
|
|
||||||
procedure Set_Digits (T : Unsigned) is
|
procedure Set_Digits (T : Unsigned) is
|
||||||
begin
|
begin
|
||||||
if T >= BU then
|
if T >= BU then
|
||||||
|
|
|
@ -6,7 +6,7 @@
|
||||||
-- --
|
-- --
|
||||||
-- B o d y --
|
-- B o d y --
|
||||||
-- --
|
-- --
|
||||||
-- Copyright (C) 1992-2009 Free Software Foundation, Inc. --
|
-- Copyright (C) 1992-2014, Free Software Foundation, Inc. --
|
||||||
-- --
|
-- --
|
||||||
-- 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- --
|
||||||
|
@ -102,6 +102,10 @@ package body System.Img_LLB is
|
||||||
procedure Set_Digits (T : Long_Long_Unsigned);
|
procedure Set_Digits (T : Long_Long_Unsigned);
|
||||||
-- Set digits of absolute value of T
|
-- Set digits of absolute value of T
|
||||||
|
|
||||||
|
----------------
|
||||||
|
-- Set_Digits --
|
||||||
|
----------------
|
||||||
|
|
||||||
procedure Set_Digits (T : Long_Long_Unsigned) is
|
procedure Set_Digits (T : Long_Long_Unsigned) is
|
||||||
begin
|
begin
|
||||||
if T >= BU then
|
if T >= BU then
|
||||||
|
|
|
@ -6,7 +6,7 @@
|
||||||
-- --
|
-- --
|
||||||
-- B o d y --
|
-- B o d y --
|
||||||
-- --
|
-- --
|
||||||
-- Copyright (C) 1992-2009 Free Software Foundation, Inc. --
|
-- Copyright (C) 1992-2014, Free Software Foundation, Inc. --
|
||||||
-- --
|
-- --
|
||||||
-- 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- --
|
||||||
|
@ -96,6 +96,10 @@ package body System.Img_LLW is
|
||||||
procedure Set_Digits (T : Long_Long_Unsigned);
|
procedure Set_Digits (T : Long_Long_Unsigned);
|
||||||
-- Set digits of absolute value of T
|
-- Set digits of absolute value of T
|
||||||
|
|
||||||
|
----------------
|
||||||
|
-- Set_Digits --
|
||||||
|
----------------
|
||||||
|
|
||||||
procedure Set_Digits (T : Long_Long_Unsigned) is
|
procedure Set_Digits (T : Long_Long_Unsigned) is
|
||||||
begin
|
begin
|
||||||
if T >= 10 then
|
if T >= 10 then
|
||||||
|
|
|
@ -6,7 +6,7 @@
|
||||||
-- --
|
-- --
|
||||||
-- B o d y --
|
-- B o d y --
|
||||||
-- --
|
-- --
|
||||||
-- Copyright (C) 1992-2009, Free Software Foundation, Inc. --
|
-- Copyright (C) 1992-2014, Free Software Foundation, Inc. --
|
||||||
-- --
|
-- --
|
||||||
-- 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- --
|
||||||
|
@ -94,6 +94,10 @@ package body System.Img_WIU is
|
||||||
procedure Set_Digits (T : Unsigned);
|
procedure Set_Digits (T : Unsigned);
|
||||||
-- Set digits of absolute value of T
|
-- Set digits of absolute value of T
|
||||||
|
|
||||||
|
----------------
|
||||||
|
-- Set_Digits --
|
||||||
|
----------------
|
||||||
|
|
||||||
procedure Set_Digits (T : Unsigned) is
|
procedure Set_Digits (T : Unsigned) is
|
||||||
begin
|
begin
|
||||||
if T >= 10 then
|
if T >= 10 then
|
||||||
|
|
|
@ -315,7 +315,19 @@ package body Sem_Prag is
|
||||||
-- pragma. Entity name for unit and its parents is taken from item in
|
-- pragma. Entity name for unit and its parents is taken from item in
|
||||||
-- previous with_clause that mentions the unit.
|
-- previous with_clause that mentions the unit.
|
||||||
|
|
||||||
|
Dummy : Integer := 0;
|
||||||
|
pragma Volatile (Dummy);
|
||||||
|
-- Dummy volatile integer used in bodies of ip/rv to prevent optimization
|
||||||
|
|
||||||
|
procedure ip;
|
||||||
|
pragma No_Inline (ip);
|
||||||
|
-- A dummy procedure called when pragma Inspection_Point is analyzed. This
|
||||||
|
-- is just to help debugging the front end. If a pragma Inspection_Point
|
||||||
|
-- is added to a source program, then breaking on ip will get you to that
|
||||||
|
-- point in the program.
|
||||||
|
|
||||||
procedure rv;
|
procedure rv;
|
||||||
|
pragma No_Inline (rv);
|
||||||
-- This is a dummy function called by the processing for pragma Reviewable.
|
-- This is a dummy function called by the processing for pragma Reviewable.
|
||||||
-- It is there for assisting front end debugging. By placing a Reviewable
|
-- It is there for assisting front end debugging. By placing a Reviewable
|
||||||
-- pragma in the source program, a breakpoint on rv catches this place in
|
-- pragma in the source program, a breakpoint on rv catches this place in
|
||||||
|
@ -15416,23 +15428,6 @@ package body Sem_Prag is
|
||||||
Arg : Node_Id;
|
Arg : Node_Id;
|
||||||
Exp : Node_Id;
|
Exp : Node_Id;
|
||||||
|
|
||||||
procedure ip;
|
|
||||||
-- A dummy procedure called when pragma Inspection_Point is
|
|
||||||
-- analyzed. This is just to help debugging the front end. If
|
|
||||||
-- a pragma Inspection_Point is added to a source program, then
|
|
||||||
-- breaking on ip will get you to that point in the program.
|
|
||||||
|
|
||||||
--------
|
|
||||||
-- ip --
|
|
||||||
--------
|
|
||||||
|
|
||||||
procedure ip is
|
|
||||||
begin
|
|
||||||
null;
|
|
||||||
end ip;
|
|
||||||
|
|
||||||
-- Start of processing for Inspection_Point
|
|
||||||
|
|
||||||
begin
|
begin
|
||||||
ip;
|
ip;
|
||||||
|
|
||||||
|
@ -25185,6 +25180,15 @@ package body Sem_Prag is
|
||||||
Externals.Init;
|
Externals.Init;
|
||||||
end Initialize;
|
end Initialize;
|
||||||
|
|
||||||
|
--------
|
||||||
|
-- ip --
|
||||||
|
--------
|
||||||
|
|
||||||
|
procedure ip is
|
||||||
|
begin
|
||||||
|
Dummy := Dummy + 1;
|
||||||
|
end ip;
|
||||||
|
|
||||||
-----------------------------
|
-----------------------------
|
||||||
-- Is_Config_Static_String --
|
-- Is_Config_Static_String --
|
||||||
-----------------------------
|
-----------------------------
|
||||||
|
@ -26119,7 +26123,7 @@ package body Sem_Prag is
|
||||||
|
|
||||||
procedure rv is
|
procedure rv is
|
||||||
begin
|
begin
|
||||||
null;
|
Dummy := Dummy + 1;
|
||||||
end rv;
|
end rv;
|
||||||
|
|
||||||
--------------------------------
|
--------------------------------
|
||||||
|
|
Loading…
Reference in New Issue