[Ada] Code clean up/reorg

[Arnaud Charlet]

Tested on i686-linux, committed on trunk.

Minor code reorganzation: GNAT sources should use 'No (xxx)' instead
of 'not Present (xxx)'

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)

-------------- next part --------------
Index: rtsfind.adb
===================================================================
--- rtsfind.adb	(revision 110833)
+++ rtsfind.adb	(working copy)
@@ -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 @@
             --  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 @@
             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;
Index: exp_prag.adb
===================================================================
--- exp_prag.adb	(revision 110833)
+++ exp_prag.adb	(working copy)
@@ -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 @@
                   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,
Index: lib-writ.adb
===================================================================
--- lib-writ.adb	(revision 110833)
+++ lib-writ.adb	(working copy)
@@ -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 @@
 
             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");
Index: par-labl.adb
===================================================================
--- par-labl.adb	(revision 110833)
+++ par-labl.adb	(working copy)
@@ -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 @@
          --  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;
 
Index: sem_case.adb
===================================================================
--- sem_case.adb	(revision 110833)
+++ sem_case.adb	(working copy)
@@ -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 @@
          Count  : Nat := 0;
 
       begin
-         if not Present (Get_Alternatives (N)) then
+         if No (Get_Alternatives (N)) then
             return 0;
          end if;