diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2012-08-06 10:41:41 +0200 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2012-08-06 10:41:41 +0200 |
| commit | 2eef7403a010176fe462257b6b29981e78d35602 (patch) | |
| tree | 299b07e568e65b558c71258870a2d29ec85faa2b /gcc/ada/sinfo.adb | |
| parent | cc6c4d6288d286bfd45dbc82b011f5cb6bc269a5 (diff) | |
| download | gcc-2eef7403a010176fe462257b6b29981e78d35602.zip gcc-2eef7403a010176fe462257b6b29981e78d35602.tar.gz gcc-2eef7403a010176fe462257b6b29981e78d35602.tar.bz2 | |
[multiple changes]
2012-08-06 Robert Dewar <dewar@adacore.com>
* xoscons.adb: Minor code reorganization (remove unused variable
E at line 331).
* g-sercom.ads, exp_attr.adb: Minor reformatting.
* sinfo.adb, sinfo.ads: Minor cleanup, remove unused flag
Static_Processing_OK.
2012-08-06 Ed Schonberg <schonberg@adacore.com>
* sem_ch3.adb (Build_Derived_Concurrent_Type): Copy discriminant
constraint when building a constrained subtype, to prevent
undesirable tree sharing betweeb geberated subtype and derived
type definition.
2012-08-06 Thomas Quinot <quinot@adacore.com>
* g-sercom-mingw.adb, s-oscons-tmplt.c: Add missing constants
on Windows.
2012-08-06 Sergey Rybin <rybin@adacore.com frybin>
* tree_io.ads: Update ASIS_Version_Number because of the tree fix
for discriminant constraints for concurrent types.
From-SVN: r190171
Diffstat (limited to 'gcc/ada/sinfo.adb')
| -rw-r--r-- | gcc/ada/sinfo.adb | 16 |
1 files changed, 0 insertions, 16 deletions
diff --git a/gcc/ada/sinfo.adb b/gcc/ada/sinfo.adb index d1c1480..d2413ad 100644 --- a/gcc/ada/sinfo.adb +++ b/gcc/ada/sinfo.adb @@ -2844,14 +2844,6 @@ package body Sinfo is return List3 (N); end Statements; - function Static_Processing_OK - (N : Node_Id) return Boolean is - begin - pragma Assert (False - or else NT (N).Nkind = N_Aggregate); - return Flag4 (N); - end Static_Processing_OK; - function Storage_Pool (N : Node_Id) return Node_Id is begin @@ -5905,14 +5897,6 @@ package body Sinfo is Set_List3_With_Parent (N, Val); end Set_Statements; - procedure Set_Static_Processing_OK - (N : Node_Id; Val : Boolean) is - begin - pragma Assert (False - or else NT (N).Nkind = N_Aggregate); - Set_Flag4 (N, Val); - end Set_Static_Processing_OK; - procedure Set_Storage_Pool (N : Node_Id; Val : Node_Id) is begin |