[Ada] Optimize Normalize_Pathname
authorDmitriy Anisimkov <anisimko@adacore.com>
Thu, 23 Jan 2020 09:05:58 +0000 (15:05 +0600)
committerPierre-Marie de Rodat <derodat@adacore.com>
Fri, 5 Jun 2020 12:17:50 +0000 (08:17 -0400)
commitf8ca4dd657f767c5f7da335462a5150ced368697
tree1cfdc77e150b2c8e5c15aacc18b9cbcacf4fa06e
parentc8e89a6de5d926701e0a68dba5ace9f27c33725a
[Ada] Optimize Normalize_Pathname

2020-06-05  Dmitriy Anisimkov  <anisimko@adacore.com>

gcc/ada/

* libgnat/s-os_lib.adb (Is_Dirsep): Moved from Build_Path to
package level to reuse.
(Normalize_Pathname.Final_Value): Reduce 2 'if' statements to
one.
(Normalize_Pathname.Fill_Directory): New procedure instead of
function Get_Directory. Remove slash to backslash conversion and
drive letter uppercasing on Windows.
gcc/ada/libgnat/s-os_lib.adb