diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2011-08-02 08:58:37 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2011-08-02 08:58:37 +0000 |
| commit | 21ea3a4fcd10de05c07a3c648a0d5ec49395d98e (patch) | |
| tree | a78073d9929183ac16f0ad682c43b827f7601339 /gcc/ada/sinfo.adb | |
| parent | 9f22e27222577dff21d24a41dd4cfe1762ba28a3 (diff) | |
| download | gcc-21ea3a4fcd10de05c07a3c648a0d5ec49395d98e.tar.gz | |
2011-08-02 Robert Dewar <dewar@adacore.com>
* sem_ch12.adb, sem_ch11.adb: New calling sequence for
Analyze_Aspect_Specifications
* sem_ch13.adb
(Analyze_Aspect_Specifications): New handling for boolean aspects
* sem_ch13.ads (Analyze_Aspect_Specifications): New calling sequence
* sem_ch3.adb, sem_ch6.adb, sem_ch7.adb, sem_ch9.adb: New calling
sequence for Analyze_Aspect_Specifications
* sem_prag.adb (Analyze_Pragma): Remove use of Aspect_Cancel entirely
* sinfo.ads, sinfo.adb (Aspect_Cancel): Remove, no longer used
2011-08-02 Robert Dewar <dewar@adacore.com>
* freeze.adb (Freeze_Entity): Remove handling of delayed boolean
aspects, since these no longer exist.
2011-08-02 Robert Dewar <dewar@adacore.com>
* par-ch13.adb (Aspect_Specifications_Present): Always return false on
semicolon, do not try to see if there are aspects following it.
* par-ch3.adb (P_Declarative_Items): Better message for unexpected
aspect spec.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@177095 138bc75d-0d04-0410-961f-82ee72b054a4
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 9ac9424063c..571541af26e 100644 --- a/gcc/ada/sinfo.adb +++ b/gcc/ada/sinfo.adb @@ -256,14 +256,6 @@ package body Sinfo is return Node3 (N); end Array_Aggregate; - function Aspect_Cancel - (N : Node_Id) return Boolean is - begin - pragma Assert (False - or else NT (N).Nkind = N_Pragma); - return Flag11 (N); - end Aspect_Cancel; - function Aspect_Rep_Item (N : Node_Id) return Node_Id is begin @@ -3317,14 +3309,6 @@ package body Sinfo is Set_Node3_With_Parent (N, Val); end Set_Array_Aggregate; - procedure Set_Aspect_Cancel - (N : Node_Id; Val : Boolean := True) is - begin - pragma Assert (False - or else NT (N).Nkind = N_Pragma); - Set_Flag11 (N, Val); - end Set_Aspect_Cancel; - procedure Set_Aspect_Rep_Item (N : Node_Id; Val : Node_Id) is begin |