diff options
| author | Bob Duff <duff@adacore.com> | 2014-07-30 13:50:25 +0000 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2014-07-30 15:50:25 +0200 |
| commit | fccaf220f3c01660f800b6ea055463823051904c (patch) | |
| tree | daa3a77afe6501626afff4912a34ea91ed0172a9 /gcc/ada/s-traent.ads | |
| parent | 3aac5551307840a5063d13759922cf334db2caeb (diff) | |
| download | gcc-fccaf220f3c01660f800b6ea055463823051904c.zip gcc-fccaf220f3c01660f800b6ea055463823051904c.tar.gz gcc-fccaf220f3c01660f800b6ea055463823051904c.tar.bz2 | |
s-taasde.adb (Timer_Queue): Don't use a build-in-place function call to initialize the Timer_Queue.
2014-07-30 Bob Duff <duff@adacore.com>
* s-taasde.adb (Timer_Queue): Don't use a
build-in-place function call to initialize the Timer_Queue.
* s-traent.adb, s-traent.ads, s-traent-vms.adb, s-traent-vms.ads:
Turn off polling in these units, because otherwise we get
elaboration circularities with Ada.Exceptions when the -gnatP
switch is used.
* s-tassta.adb (Create_Task): Make sure independent tasks
are created with Parent = Environment_Task. This was not true,
for example, in s-interr.adb, when Interrupt_Manager does "new
Server_Task"; the Server_Task had Parent = Interrupt_Manager,
which is wrong because the master is determined by the access
type, which is at library level.
* s-tasuti.adb (Make_Independent): Avoid setting Parent; it is
now set correctly by Create_Task.
(Make_Passive): Remove the workaround for the race condition in
Make_Independent.
* frontend.adb (Frontend): Revert to previous method of detecting
temporary configuration pragma files, recognizing such files by
".tmp" in the name. This is more general than detecting pragmas
Source_File_Name_Project, because it allows any tool to use
this naming convention, no matter the content of the file.
* gnat_ugn.texi: Document this naming convention.
From-SVN: r213269
Diffstat (limited to 'gcc/ada/s-traent.ads')
| -rw-r--r-- | gcc/ada/s-traent.ads | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/gcc/ada/s-traent.ads b/gcc/ada/s-traent.ads index 74f53fd..4d83426 100644 --- a/gcc/ada/s-traent.ads +++ b/gcc/ada/s-traent.ads @@ -38,6 +38,10 @@ -- version of the package, an entry is a mere code location representing the -- address of a call instruction part of the call-chain. +pragma Polling (Off); +-- We must turn polling off for this unit, because otherwise we get +-- elaboration circularities with Ada.Exceptions. + pragma Compiler_Unit_Warning; package System.Traceback_Entries is |