===================================================================
@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
+-- Copyright (C) 2004-2012, 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- --
@@ -514,18 +514,10 @@
begin
Local_Get_Current_Dir (Buffer'Address, Path_Len'Address);
- declare
- -- We need to resolve links because of A.16(47), since we must not
- -- return alternative names for files
- Cur : constant String := Normalize_Pathname (Buffer (1 .. Path_Len));
+ -- We need to resolve links because of A.16(47), since we must not
+ -- return alternative names for files
+ return Normalize_Pathname (Buffer (1 .. Path_Len));
- begin
- if Cur'Length > 1 and then Cur (Cur'Last) = Dir_Separator then
- return Cur (1 .. Cur'Last - 1);
- else
- return Cur;
- end if;
- end;
end Current_Directory;
----------------------