From: Vincent Celier Date: Thu, 13 Dec 2007 10:41:38 +0000 (+0100) Subject: a-direct.adb (Create_Path): Always take '/' as a directory separator, even on Windows X-Git-Tag: releases/gcc-4.3.0~1025 X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=b1c6645b93c2cc50b6b161911a7936ed50b26fe4;p=thirdparty%2Fgcc.git 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 --- 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