rtsfind.adb, [...]: Minor code reorganization (not Present should be No)

2006-02-13  Robert Dewar  <dewar@adacore.com>

	* rtsfind.adb, exp_prag.adb, lib-writ.adb, par-labl.adb,
	sem_case.adb: Minor code reorganization (not Present should be No)

From-SVN: r111042

diff --git a/gcc/ada/exp_prag.adb b/gcc/ada/exp_prag.adb
index 8c9bf59b340950d2bf7504fd7f270b43a6c340a7..032e7a48149f0428f58a5749bd7ee706b2839e9c 100644 (file)
--- a/gcc/ada/exp_prag.adb
+++ b/gcc/ada/exp_prag.adb
@@ -6,7 +6,7 @@
 --                                                                          --
 --                                 B o d y                                  --
 --                                                                          --
---          Copyright (C) 1992-2005, Free Software Foundation, Inc.         --
+--          Copyright (C) 1992-2006, Free Software Foundation, Inc.         --
 --                                                                          --
 -- GNAT is free software;  you can  redistribute it  and/or modify it under --
 -- terms of the  GNU General Public License as published  by the Free Soft- --
@@ -630,7 +630,7 @@ package body Exp_Prag is
                   Analyze (Call);
                end if;
 
-               if not Present (Interface_Name (Id)) then
+               if No (Interface_Name (Id)) then
                   Set_Interface_Name (Id,
                      Make_String_Literal
                        (Sloc => Loc,

diff --git a/gcc/ada/lib-writ.adb b/gcc/ada/lib-writ.adb
index e8065b46aad36b5b0d295a8b97d04c83aedf1022..524c1c66714b5197628e73665f167b89dd1f5618 100644 (file)
--- a/gcc/ada/lib-writ.adb
+++ b/gcc/ada/lib-writ.adb
@@ -6,7 +6,7 @@
 --                                                                          --
 --                                 B o d y                                  --
 --                                                                          --
---          Copyright (C) 1992-2005, Free Software Foundation, Inc.         --
+--          Copyright (C) 1992-2006, Free Software Foundation, Inc.         --
 --                                                                          --
 -- GNAT is free software;  you can  redistribute it  and/or modify it under --
 -- terms of the  GNU General Public License as published  by the Free Soft- --
@@ -850,7 +850,7 @@ package body Lib.Writ is
 
             S := Specification (U);
 
-            if not Present (Parameter_Specifications (S)) then
+            if No (Parameter_Specifications (S)) then
                if Nkind (S) = N_Procedure_Specification then
                   Write_Info_Initiate ('M');
                   Write_Info_Str (" P");

diff --git a/gcc/ada/par-labl.adb b/gcc/ada/par-labl.adb
index a908c8116e330df8021ee8eee367b91103f793d6..7147c36040a8e163885146b1cec32de5dd28c9fb 100644 (file)
--- a/gcc/ada/par-labl.adb
+++ b/gcc/ada/par-labl.adb
@@ -6,7 +6,7 @@
 --                                                                          --
 --                                 B o d y                                  --
 --                                                                          --
---          Copyright (C) 1992-2005, Free Software Foundation, Inc.         --
+--          Copyright (C) 1992-2006, Free Software Foundation, Inc.         --
 --                                                                          --
 -- GNAT is free software;  you can  redistribute it  and/or modify it under --
 -- terms of the  GNU General Public License as published  by the Free Soft- --
@@ -521,7 +521,7 @@ begin
          --  Now attach the implicit label declaration to the appropriate
          --  declarative region, creating a declaration list if none exists
 
-         if not Present (Declarations (Enclosing_Body_Or_Block)) then
+         if No (Declarations (Enclosing_Body_Or_Block)) then
             Set_Declarations (Enclosing_Body_Or_Block, New_List);
          end if;
 

diff --git a/gcc/ada/rtsfind.adb b/gcc/ada/rtsfind.adb
index f2dd0393b35ea58670a7bf534cb4108d7798ce51..892a5b4468ef84f383eaf5fe2d579f0fe56db8f1 100644 (file)
--- a/gcc/ada/rtsfind.adb
+++ b/gcc/ada/rtsfind.adb
@@ -6,7 +6,7 @@
 --                                                                          --
 --                                 B o d y                                  --
 --                                                                          --
---          Copyright (C) 1992-2005, Free Software Foundation, Inc.         --
+--          Copyright (C) 1992-2006, Free Software Foundation, Inc.         --
 --                                                                          --
 -- GNAT is free software;  you can  redistribute it  and/or modify it under --
 -- terms of the  GNU General Public License as published  by the Free Soft- --
@@ -799,7 +799,7 @@ package body Rtsfind is
             --  specially permitted units, raise the exception.
 
             if No_Run_Time_Mode
-                 and then not OK_No_Run_Time_Unit (U_Id)
+              and then not OK_No_Run_Time_Unit (U_Id)
             then
                Entity_Not_Defined (E);
                raise RE_Not_Available;
@@ -1105,7 +1105,7 @@ package body Rtsfind is
             begin
                --  If entry is not set, set it now
 
-               if not Present (U.Entity) then
+               if No (U.Entity) then
                   U.Entity := E;
                   U.Uname  := Get_Unit_Name (U_Id);
                   U.Unum   := Unum;

diff --git a/gcc/ada/sem_case.adb b/gcc/ada/sem_case.adb
index 25a2f704a15f04bb136cc74d0d809f5e01c479c3..b6523dab21262bbaf91778e884f8af61f96f4719 100644 (file)
--- a/gcc/ada/sem_case.adb
+++ b/gcc/ada/sem_case.adb
@@ -6,7 +6,7 @@
 --                                                                          --
 --                                 B o d y                                  --
 --                                                                          --
---          Copyright (C) 1996-2005, Free Software Foundation, Inc.         --
+--          Copyright (C) 1996-2006, Free Software Foundation, Inc.         --
 --                                                                          --
 -- GNAT is free software;  you can  redistribute it  and/or modify it under --
 -- terms of the  GNU General Public License as published  by the Free Soft- --
@@ -904,7 +904,7 @@ package body Sem_Case is
          Count  : Nat := 0;
 
       begin
-         if not Present (Get_Alternatives (N)) then
+         if No (Get_Alternatives (N)) then
             return 0;
          end if;