mirror/gcc
2
0
Fork 0
mirror of git://gcc.gnu.org/git/gcc.git synced 2025-04-05 13:30:58 +08:00
Code Issues Packages Projects Releases Wiki Activity

[Ada] Use high-level Present instead of low-level equality test

Browse Source 
gcc/ada/

	* lib-load.adb, lib-writ.adb, lib.adb, par-load.adb,
	rtsfind.adb, sem_ch10.adb: Use Present where possible.
This commit is contained in:
Piotr Trojanek 2020-09-29 11:09:06 +02:00 committed by Pierre-Marie de Rodat
parent 41273281ce
commit 3ac0642304
6 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
gcc/ada/lib-load.adb
View File

@ -551,7 +551,7 @@ package body Lib.Load is
-- Note: Unit_Name (Main_Unit) is not set if we are parsing gnat.adc.
if Present (Error_Node)
and then Unit_Name (Main_Unit) /= No_Unit_Name
and then Present (Unit_Name (Main_Unit))
then
-- It seems like In_Extended_Main_Source_Unit (Error_Node) would
-- do the trick here, but that's wrong, it is much too early to

2
gcc/ada/lib-writ.adb
View File

@ -837,7 +837,7 @@ package body Lib.Writ is
-- preprocessing data and definition files, there is no Unit_Name,
-- check for that first.
if Unit_Name (J) /= No_Unit_Name
if Present (Unit_Name (J))
and then (With_Flags (J) or else Unit_Name (J) = Pname)
then
Num_Withs := Num_Withs + 1;

2
gcc/ada/lib.adb
View File

@ -275,7 +275,7 @@ package body Lib is
begin
-- First unregister the old name, if any
if Old_N /= No_Unit_Name and then Unit_Names.Get (Old_N) = U then
if Present (Old_N) and then Unit_Names.Get (Old_N) = U then
Unit_Names.Set (Old_N, No_Unit);
end if;

2
gcc/ada/par-load.adb
View File

@ -318,7 +318,7 @@ begin
Spec_Name := Get_Parent_Spec_Name (Unit_Name (Cur_Unum));
if Spec_Name /= No_Unit_Name then
if Present (Spec_Name) then
Unum :=
Load_Unit
(Load_Name => Spec_Name,

2
gcc/ada/rtsfind.adb
View File

@ -423,7 +423,7 @@ package body Rtsfind is
(Unit_Name (Current_Sem_Unit));
begin
if Parent_Name /= No_Unit_Name then
if Present (Parent_Name) then
Get_Name_String (Parent_Name);
declare

2
gcc/ada/sem_ch10.adb
View File

@ -768,7 +768,7 @@ package body Sem_Ch10 is
Unum := Get_Cunit_Unit_Number (N);
Par_Spec_Name := Get_Parent_Spec_Name (Unit_Name (Unum));
if Par_Spec_Name /= No_Unit_Name then
if Present (Par_Spec_Name) then
Unum :=
Load_Unit
(Load_Name => Par_Spec_Name,