ali.adb: Set Allocator_In_Body if AB parameter present on M line
authorRobert Dewar <dewar@adacore.com>
Fri, 8 Oct 2010 12:54:03 +0000 (12:54 +0000)
committerArnaud Charlet <charlet@gcc.gnu.org>
Fri, 8 Oct 2010 12:54:03 +0000 (14:54 +0200)
commit87003b285389a76fd9bb8a345a36ef2a9ebce0a1
tree2a0cb37f03e0c50944d29b876561a756b303f1f9
parent0b89eea8926cb52d0b8c50b764a67572a9fde60d
ali.adb: Set Allocator_In_Body if AB parameter present on M line

2010-10-08  Robert Dewar  <dewar@adacore.com>

* ali.adb: Set Allocator_In_Body if AB parameter present on M line
* ali.ads (Allocator_In_Body): New flag
* bcheck.adb (Check_Consistent_Restrictions): Handle case of main
program violating No_Allocators_After_Elaboration restriction.
* gnatbind.adb (No_Restriction_List): Add entries for
No_Anonymous_Allocators, and No_Allocators_After_Elaboration.
* lib-load.adb: Initialize Has_Allocator flag
* lib-writ.adb: Initialize Has_Allocator flag
(M_Parameters): Set AB switch if Has_Allocator flag set
* lib-writ.ads: Document AB flag on M line
* lib.adb (Has_Allocator): New function
(Set_Has_Allocator): New procedure
* lib.ads (Has_Allocator): New function
(Set_Has_Allocator): New procedure
(Has_Allocator): New flag in Unit_Record
* sem_ch4.adb (Analyze_Allocator): Add processing for
No_Allocators_After_Elaboration.

From-SVN: r165171
gcc/ada/ChangeLog
gcc/ada/ali.adb
gcc/ada/ali.ads
gcc/ada/bcheck.adb
gcc/ada/gnatbind.adb
gcc/ada/lib-load.adb
gcc/ada/lib-writ.adb
gcc/ada/lib-writ.ads
gcc/ada/lib.adb
gcc/ada/lib.ads
gcc/ada/sem_ch4.adb