diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2011-08-29 11:04:03 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2011-08-29 11:04:03 +0000 |
| commit | 7f694ca266b36e36030869f26f2359f7624a0245 (patch) | |
| tree | 4aba7bb8be42df71db6f5f369d691f9ddcdf7256 /gcc/ada/a-synbar.adb | |
| parent | 27f427e4789eb74d3ba3ccd667ec3b9f93a1503d (diff) | |
| download | gcc-7f694ca266b36e36030869f26f2359f7624a0245.tar.gz | |
2011-08-29 Thomas Quinot <quinot@adacore.com>
* a-synbar-posix.adb: Minor reformatting.
2011-08-29 Jose Ruiz <ruiz@adacore.com>
* a-exetim-posix.adb, a-exetim-mingw.adb, a-exetim-mingw.ads,
a-exetim-default.ads (Interrupt_Clocks_Supported,
Separate_Interrupt_Clocks_Supported, Clock_For_Interrupts): Add these
definitions to be compliant with AI-0171. The target systems do not
support separate account for the execution time of interrupt handlers.
2011-08-29 Jose Ruiz <ruiz@adacore.com>
* a-synbar.adb (Wait): Change the order of evaluation of the conditions
in the barrier to put first the easiest to evaluate (and the one which
will be True more often). More efficient.
2011-08-29 Eric Botcazou <ebotcazou@adacore.com>
* s-atocou-x86.adb: Fix constraint in machine code insertion.
2011-08-29 Bob Duff <duff@adacore.com>
* aspects.ads, aspects.adb: Add new aspects for various pragmas and
attributes that are now aspects, as specified by AI05-0229-1.
* sem_ch13.adb (Analyze_Aspect_Specifications,
Check_Aspect_At_Freeze_Point): Analyze the new aspects. Turn them into
pragmas or attribute references, as appropriate.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@178203 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/a-synbar.adb')
| -rw-r--r-- | gcc/ada/a-synbar.adb | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/gcc/ada/a-synbar.adb b/gcc/ada/a-synbar.adb index 8142dcd395f..7966b23b727 100644 --- a/gcc/ada/a-synbar.adb +++ b/gcc/ada/a-synbar.adb @@ -44,7 +44,7 @@ package body Ada.Synchronous_Barriers is -- barrier will remain open only for those tasks already inside. entry Wait (Notified : out Boolean) - when Wait'Count = Release_Threshold or else Keep_Open + when Keep_Open or else Wait'Count = Release_Threshold is begin -- If we are executing the entry it means that the required number of |