OSDN Git Service

2007-04-20 Vincent Celier <celier@adacore.com>
authorcharlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4>
Wed, 6 Jun 2007 10:30:30 +0000 (10:30 +0000)
committercharlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4>
Wed, 6 Jun 2007 10:30:30 +0000 (10:30 +0000)
commit63486f83f98627ed76be5a0fac093bdbfe702866
tree44e1c30954dd29543d35a6cf64a02dc1d6f03c53
parent00c911e00faa7a7a5f91777c1a27816f26688c59
2007-04-20  Vincent Celier  <celier@adacore.com>

* g-os_lib.ads, g-os_lib.adb (Normalize_Pathname.Get_Directory):
Correct obvious bug (return Dir; instead of return Directory;).
(Normalize_Pathname): Use Reference_Dir'Length, not Reference_Dir'Last

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@125421 138bc75d-0d04-0410-961f-82ee72b054a4
gcc/ada/g-os_lib.adb
gcc/ada/g-os_lib.ads