From b1c6645b93c2cc50b6b161911a7936ed50b26fe4 Mon Sep 17 00:00:00 2001 From: Vincent Celier Date: Thu, 13 Dec 2007 11:41:38 +0100 Subject: [PATCH] a-direct.adb (Create_Path): Always take '/' as a directory separator, even on Windows 2007-12-06 Vincent Celier * a-direct.adb (Create_Path): Always take '/' as a directory separator, even on Windows From-SVN: r130871 --- gcc/ada/a-direct.adb | 8 ++++++-- 1 file changed, 6 insertions(+), 2 deletions(-) diff --git a/gcc/ada/a-direct.adb b/gcc/ada/a-direct.adb index 52ad1b306d83..5c5c784eb4fb 100644 --- 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 -- 2.47.2