diff options
| author | Steve Baird <baird@adacore.com> | 2024-02-12 13:39:45 -0800 |
|---|---|---|
| committer | Marc Poulhiès <poulhies@adacore.com> | 2024-05-14 10:19:55 +0200 |
| commit | fb48b0aa2faf88897fb0110026e80dfa1a59056f (patch) | |
| tree | db942794d575af79f3cecfaed5a60de6f59e24d3 /gcc | |
| parent | ba0b16a527b6d658dddca2e2609ab6b6c1fe32d4 (diff) | |
| download | gcc-fb48b0aa2faf88897fb0110026e80dfa1a59056f.zip gcc-fb48b0aa2faf88897fb0110026e80dfa1a59056f.tar.gz gcc-fb48b0aa2faf88897fb0110026e80dfa1a59056f.tar.bz2 | |
ada: Replace "not Present" tests with "No".
Fix constructs that were flagged by CodePeer.
gcc/ada/
* exp_attr.adb: Replace 6 "not Present" tests with equivalent calls to "No".
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/ada/exp_attr.adb | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/gcc/ada/exp_attr.adb b/gcc/ada/exp_attr.adb index b727711..6dba600 100644 --- a/gcc/ada/exp_attr.adb +++ b/gcc/ada/exp_attr.adb @@ -4334,7 +4334,7 @@ package body Exp_Attr is Fname := Find_Stream_Subprogram (P_Type, TSS_Stream_Input, N); - if not Present (Fname) then + if No (Fname) then -- If there is a Stream_Convert pragma, use it, we rewrite @@ -5422,7 +5422,7 @@ package body Exp_Attr is Pname := Find_Stream_Subprogram (P_Type, TSS_Stream_Output, N); - if not Present (Pname) then + if No (Pname) then -- If there is a Stream_Convert pragma, use it, we rewrite @@ -5998,7 +5998,7 @@ package body Exp_Attr is Pname := Cached_Attribute_Ops.Put_Image_Map.Get (U_Type); Cached_Attribute_Ops.Validate_Cached_Candidate (Pname, Attr_Ref => N); - if not Present (Pname) then + if No (Pname) then declare procedure Build_And_Insert_Array_Put_Image_Proc is new Build_And_Insert_Type_Attr_Subp @@ -6052,7 +6052,7 @@ package body Exp_Attr is Pname := Cached_Attribute_Ops.Put_Image_Map.Get (Base_Typ); Cached_Attribute_Ops.Validate_Cached_Candidate (Pname, Attr_Ref => N); - if not Present (Pname) then + if No (Pname) then declare procedure Build_And_Insert_Record_Put_Image_Proc is new Build_And_Insert_Type_Attr_Subp @@ -6352,7 +6352,7 @@ package body Exp_Attr is Pname := Find_Stream_Subprogram (P_Type, TSS_Stream_Read, N); - if not Present (Pname) then + if No (Pname) then -- If there is a Stream_Convert pragma, use it, we rewrite @@ -8067,7 +8067,7 @@ package body Exp_Attr is Pname := Find_Stream_Subprogram (P_Type, TSS_Stream_Write, N); - if not Present (Pname) then + if No (Pname) then -- If there is a Stream_Convert pragma, use it, we rewrite |