diff options
| author | Bob Duff <duff@adacore.com> | 2007-12-13 11:28:48 +0100 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2007-12-13 11:28:48 +0100 |
| commit | cadf64d1d568ce60f0a0ac6014e6ad295b3448cc (patch) | |
| tree | eddd27c4be020fe79f5bbbaa037be2af9394de2d /gcc/ada/restrict.adb | |
| parent | 6c1f47ee4b24ebae655517ad3ea934856aae662d (diff) | |
| download | gcc-cadf64d1d568ce60f0a0ac6014e6ad295b3448cc.zip gcc-cadf64d1d568ce60f0a0ac6014e6ad295b3448cc.tar.gz gcc-cadf64d1d568ce60f0a0ac6014e6ad295b3448cc.tar.bz2 | |
restrict.ads, [...] (Check_Implicit_Dynamic_Code_Allowed): New procedure to be called from the back end to check the...
2007-12-06 Bob Duff <duff@adacore.com>
* restrict.ads, restrict.adb (Check_Implicit_Dynamic_Code_Allowed): New
procedure to be called from the back end to check the
No_Implicit_Dynamic_Code restriction.
From-SVN: r130847
Diffstat (limited to 'gcc/ada/restrict.adb')
| -rw-r--r-- | gcc/ada/restrict.adb | 21 |
1 files changed, 10 insertions, 11 deletions
diff --git a/gcc/ada/restrict.adb b/gcc/ada/restrict.adb index ac1d254..8513408 100644 --- a/gcc/ada/restrict.adb +++ b/gcc/ada/restrict.adb @@ -101,19 +101,18 @@ package body Restrict is procedure Check_Elaboration_Code_Allowed (N : Node_Id) is begin - -- Avoid calling Namet.Unlock/Lock except when there is an error. - -- Even in the error case it is a bit dubious, either gigi needs - -- the table locked or it does not! ??? - - if Restrictions.Set (No_Elaboration_Code) - and then not Suppress_Restriction_Message (N) - then - Namet.Unlock; - Check_Restriction (No_Elaboration_Code, N); - Namet.Lock; - end if; + Check_Restriction (No_Elaboration_Code, N); end Check_Elaboration_Code_Allowed; + ----------------------------------------- + -- Check_Implicit_Dynamic_Code_Allowed -- + ----------------------------------------- + + procedure Check_Implicit_Dynamic_Code_Allowed (N : Node_Id) is + begin + Check_Restriction (No_Implicit_Dynamic_Code, N); + end Check_Implicit_Dynamic_Code_Allowed; + ---------------------------------- -- Check_No_Implicit_Heap_Alloc -- ---------------------------------- |