Просмотр исходного кода

* fix for doubled slashes in paths by Giulio Bernardi

git-svn-id: trunk@10796 -
Tomas Hajny 17 лет назад
Родитель
Сommit
e64c9a152a
1 измененных файлов с 2 добавлено и 2 удалено
  1. 2 2
      compiler/options.pas

+ 2 - 2
compiler/options.pas

@@ -2401,8 +2401,8 @@ begin
   if fpcdir='' then
   if fpcdir='' then
     begin
     begin
       fpcdir:=ExePath+'../';
       fpcdir:=ExePath+'../';
-      if not(PathExists(fpcdir+'/units',true)) and
-         not(PathExists(fpcdir+'/rtl',true)) then
+      if not(PathExists(fpcdir+'units',true)) and
+         not(PathExists(fpcdir+'rtl',true)) then
         fpcdir:=fpcdir+'../';
         fpcdir:=fpcdir+'../';
     end;
     end;
 {$endif unix}
 {$endif unix}