From a2f13eb0516bc500cd9d8913617e652ac2a9d0f9 Mon Sep 17 00:00:00 2001 From: charlet Date: Mon, 29 Aug 2011 11:00:17 +0000 Subject: [PATCH] 2011-08-29 Pascal Obry * prj-nmsc.adb: Minor reformatting. 2011-08-29 Jose Ruiz * a-exetim.ads (Interrupt_Clocks_Supported, Separate_Interrupt_Clocks_Supported, Clock_For_Interrupts): Add these definitions to be compliant with AI-0171. 2011-08-29 Robert Dewar * a-ngelfu.adb: Add comments. git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@178201 138bc75d-0d04-0410-961f-82ee72b054a4 --- gcc/ada/ChangeLog | 14 ++++++++++++++ gcc/ada/a-exetim.ads | 5 +++++ gcc/ada/a-ngelfu.adb | 5 +++++ gcc/ada/prj-nmsc.adb | 10 +++++----- 4 files changed, 29 insertions(+), 5 deletions(-) diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog index 9aa78a2ace9..e9a05ad2432 100644 --- a/gcc/ada/ChangeLog +++ b/gcc/ada/ChangeLog @@ -1,3 +1,17 @@ +2011-08-29 Pascal Obry + + * prj-nmsc.adb: Minor reformatting. + +2011-08-29 Jose Ruiz + + * a-exetim.ads (Interrupt_Clocks_Supported, + Separate_Interrupt_Clocks_Supported, Clock_For_Interrupts): Add these + definitions to be compliant with AI-0171. + +2011-08-29 Robert Dewar + + * a-ngelfu.adb: Add comments. + 2011-08-29 Geert Bosch * a-ngelfu.adb (Tan): Do not raise Constraint_Error if the argument is diff --git a/gcc/ada/a-exetim.ads b/gcc/ada/a-exetim.ads index c4b8ba2eb32..1dc5f61f9c0 100644 --- a/gcc/ada/a-exetim.ads +++ b/gcc/ada/a-exetim.ads @@ -72,6 +72,11 @@ package Ada.Execution_Time is TS : Ada.Real_Time.Time_Span := Ada.Real_Time.Time_Span_Zero) return CPU_Time; + Interrupt_Clocks_Supported : constant Boolean := False; + Separate_Interrupt_Clocks_Supported : constant Boolean := False; + + function Clock_For_Interrupts return CPU_Time; + private type CPU_Time is new Ada.Real_Time.Time; diff --git a/gcc/ada/a-ngelfu.adb b/gcc/ada/a-ngelfu.adb index 7091054d62c..ae95d66547b 100644 --- a/gcc/ada/a-ngelfu.adb +++ b/gcc/ada/a-ngelfu.adb @@ -916,6 +916,11 @@ package body Ada.Numerics.Generic_Elementary_Functions is return X; end if; + -- Note: if X is exactly pi/2, then we should raise an exception, since + -- the result would overflow. But for all floating-point formats we deal + -- with, it is impossible for X to be exactly pi/2, and the result is + -- always in range. + return Float_Type'Base (Aux.Tan (Double (X))); end Tan; diff --git a/gcc/ada/prj-nmsc.adb b/gcc/ada/prj-nmsc.adb index 41121476fd8..0f1699a579d 100644 --- a/gcc/ada/prj-nmsc.adb +++ b/gcc/ada/prj-nmsc.adb @@ -151,9 +151,9 @@ package body Prj.Nmsc is -- be discarded as soon as we have finished processing the project type Tree_Processing_Data is record - Tree : Project_Tree_Ref; - Node_Tree : Prj.Tree.Project_Node_Tree_Ref; - Flags : Prj.Processing_Flags; + Tree : Project_Tree_Ref; + Node_Tree : Prj.Tree.Project_Node_Tree_Ref; + Flags : Prj.Processing_Flags; end record; -- Temporary data which is needed while parsing a project. It does not need -- to be kept in memory once a project has been fully loaded, but is @@ -6851,8 +6851,8 @@ package body Prj.Nmsc is -- several times, and to avoid cycles that may be introduced by symbolic -- links. - File_Pattern : GNAT.Regexp.Regexp; - -- Pattern to use when matching file names. + File_Pattern : GNAT.Regexp.Regexp; + -- Pattern to use when matching file names Visited : Recursive_Dirs.Instance; -- 2.11.0