Skip to content

R
riscv-gcc-1
Commit b1c6645b by Vincent Celier Committed by Arnaud Charlet
Options

a-direct.adb (Create_Path): Always take '/' as a directory separator, even on Windows 

2007-12-06  Vincent Celier  <celier@adacore.com>

	* a-direct.adb (Create_Path): Always take '/' as a directory separator,
	even on Windows

From-SVN: r130871
parent 34a343e6
Showing with 6 additions and 2 deletions
gcc/ada/a-direct.adb
...@@ -390,13 +390,17 @@ package body Ada.Directories is ...@@ -390,13 +390,17 @@ package body Ada.Directories is
-- Look for the end of an intermediate directory -- Look for the end of an intermediate directory
if New_Dir (J) /= Dir_Separator then if New_Dir (J) /= Dir_Separator and then
New_Dir (J) /= '/'
then
Last := J; Last := J;
-- We have found a new intermediate directory each time we find -- We have found a new intermediate directory each time we find
-- a first directory separator. -- a first directory separator.
elsif New_Dir (J - 1) /= Dir_Separator then elsif New_Dir (J - 1) /= Dir_Separator and then
New_Dir (J - 1) /= '/'
then
-- No need to create the directory if it already exists -- No need to create the directory if it already exists
......
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