-- --
-- B o d y --
-- --
--- Copyright (C) 1992-2002 Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2007, 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- --
-- even though we have to copy Tbl back and forth.
function Lt_Uname (C1, C2 : Natural) return Boolean;
- -- Comparison routine for comparing Unames. Needed by the sorting routine.
+ -- Comparison routine for comparing Unames. Needed by the sorting routine
procedure Move_Uname (From : Natural; To : Natural);
- -- Move routine needed by the sorting routine below.
+ -- Move routine needed by the sorting routine below
--------------
-- Lt_Uname --
-- at the bottom of the list. They are recognized because they are
-- the only ones without a Unit_Name.
- if Units.Table (T (C1)).Unit_Name = No_Name then
+ if Units.Table (T (C1)).Unit_Name = No_Unit_Name then
return False;
- elsif Units.Table (T (C2)).Unit_Name = No_Name then
+ elsif Units.Table (T (C2)).Unit_Name = No_Unit_Name then
return True;
else