Skip to content

R
riscv-gcc-1
Commit 3f088c35 by Thomas Quinot Committed by Arnaud Charlet
Options

nlists.adb (Is_Non_Empty_List): Remove redundant test. 

2008-04-08  Thomas Quinot  <quinot@adacore.com>

	* nlists.adb (Is_Non_Empty_List): Remove redundant test. First
	(No_List) is defined to return Empty.

From-SVN: r134042
parent dba17123
Showing with 2 additions and 2 deletions
gcc/ada/nlists.adb
......@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
-- Copyright (C) 1992-2007, Free Software Foundation, Inc. --
-- Copyright (C) 1992-2008, 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- --
......@@ -604,7 +604,7 @@ package body Nlists is
function Is_Non_Empty_List (List : List_Id) return Boolean is
begin
return List /= No_List and then First (List) /= Empty;
return First (List) /= Empty;
end Is_Non_Empty_List;
----------
......
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