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

diff --git a/gcc/ada/a-direct.adb b/gcc/ada/a-direct.adb
index 52ad1b306d8330693df801bbb404f103d01495eb..5c5c784eb4fb22aa0e63cd463d962760b67d3ab9 100644 (file)
--- a/gcc/ada/a-direct.adb
+++ b/gcc/ada/a-direct.adb
@@ -390,13 +390,17 @@ package body Ada.Directories is
 
             --  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;
 
             --  We have found a new intermediate directory each time we find
             --  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