Skip to content

R
riscv-gcc-1
Commit 531eb217 by Robert Dewar Committed by Arnaud Charlet
Options

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
parent e1458816
Showing with 10 additions and 10 deletions
gcc/ada/exp_prag.adb
...@@ -6,7 +6,7 @@ ...@@ -6,7 +6,7 @@
-- -- -- --
-- B o d y -- -- 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 -- -- 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- -- -- terms of the GNU General Public License as published by the Free Soft- --
...@@ -630,7 +630,7 @@ package body Exp_Prag is ...@@ -630,7 +630,7 @@ package body Exp_Prag is
Analyze (Call); Analyze (Call);
end if; end if;
if not Present (Interface_Name (Id)) then if No (Interface_Name (Id)) then
Set_Interface_Name (Id, Set_Interface_Name (Id,
Make_String_Literal Make_String_Literal
(Sloc => Loc, (Sloc => Loc,
......
gcc/ada/lib-writ.adb
...@@ -6,7 +6,7 @@ ...@@ -6,7 +6,7 @@
-- -- -- --
-- B o d y -- -- 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 -- -- 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- -- -- terms of the GNU General Public License as published by the Free Soft- --
...@@ -850,7 +850,7 @@ package body Lib.Writ is ...@@ -850,7 +850,7 @@ package body Lib.Writ is
S := Specification (U); S := Specification (U);
if not Present (Parameter_Specifications (S)) then if No (Parameter_Specifications (S)) then
if Nkind (S) = N_Procedure_Specification then if Nkind (S) = N_Procedure_Specification then
Write_Info_Initiate ('M'); Write_Info_Initiate ('M');
Write_Info_Str (" P"); Write_Info_Str (" P");
......
gcc/ada/par-labl.adb
...@@ -6,7 +6,7 @@ ...@@ -6,7 +6,7 @@
-- -- -- --
-- B o d y -- -- 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 -- -- 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- -- -- terms of the GNU General Public License as published by the Free Soft- --
...@@ -521,7 +521,7 @@ begin ...@@ -521,7 +521,7 @@ begin
-- Now attach the implicit label declaration to the appropriate -- Now attach the implicit label declaration to the appropriate
-- declarative region, creating a declaration list if none exists -- 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); Set_Declarations (Enclosing_Body_Or_Block, New_List);
end if; end if;
......
gcc/ada/rtsfind.adb
...@@ -6,7 +6,7 @@ ...@@ -6,7 +6,7 @@
-- -- -- --
-- B o d y -- -- 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 -- -- 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- -- -- terms of the GNU General Public License as published by the Free Soft- --
...@@ -1105,7 +1105,7 @@ package body Rtsfind is ...@@ -1105,7 +1105,7 @@ package body Rtsfind is
begin begin
-- If entry is not set, set it now -- If entry is not set, set it now
if not Present (U.Entity) then if No (U.Entity) then
U.Entity := E; U.Entity := E;
U.Uname := Get_Unit_Name (U_Id); U.Uname := Get_Unit_Name (U_Id);
U.Unum := Unum; U.Unum := Unum;
......
gcc/ada/sem_case.adb
...@@ -6,7 +6,7 @@ ...@@ -6,7 +6,7 @@
-- -- -- --
-- B o d y -- -- 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 -- -- 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- -- -- terms of the GNU General Public License as published by the Free Soft- --
...@@ -904,7 +904,7 @@ package body Sem_Case is ...@@ -904,7 +904,7 @@ package body Sem_Case is
Count : Nat := 0; Count : Nat := 0;
begin begin
if not Present (Get_Alternatives (N)) then if No (Get_Alternatives (N)) then
return 0; return 0;
end if; end if;
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment