diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2011-08-29 13:00:17 +0200 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2011-08-29 13:00:17 +0200 |
| commit | 978ffe02af044beca77bc6e959edd14ffc599a8f (patch) | |
| tree | 03bcb4653298af5d44a4f012e335f7e759cf6ff9 /gcc | |
| parent | 718f39dcc150d25458c3f49e08c5114dbfec64e8 (diff) | |
| download | gcc-978ffe02af044beca77bc6e959edd14ffc599a8f.zip gcc-978ffe02af044beca77bc6e959edd14ffc599a8f.tar.gz gcc-978ffe02af044beca77bc6e959edd14ffc599a8f.tar.bz2 | |
[multiple changes]
2011-08-29 Pascal Obry <obry@adacore.com>
* prj-nmsc.adb: Minor reformatting.
2011-08-29 Jose Ruiz <ruiz@adacore.com>
* 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 <dewar@adacore.com>
* a-ngelfu.adb: Add comments.
From-SVN: r178201
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/ada/ChangeLog | 14 | ||||
| -rw-r--r-- | gcc/ada/a-exetim.ads | 5 | ||||
| -rw-r--r-- | gcc/ada/a-ngelfu.adb | 5 | ||||
| -rw-r--r-- | gcc/ada/prj-nmsc.adb | 10 |
4 files changed, 29 insertions, 5 deletions
diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog index 9aa78a2..e9a05ad 100644 --- a/gcc/ada/ChangeLog +++ b/gcc/ada/ChangeLog @@ -1,3 +1,17 @@ +2011-08-29 Pascal Obry <obry@adacore.com> + + * prj-nmsc.adb: Minor reformatting. + +2011-08-29 Jose Ruiz <ruiz@adacore.com> + + * 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 <dewar@adacore.com> + + * a-ngelfu.adb: Add comments. + 2011-08-29 Geert Bosch <bosch@adacore.com> * 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 c4b8ba2..1dc5f61 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 7091054..ae95d66 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 4112147..0f1699a 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; |