瀏覽代碼

* fix for doubled slashes in paths by Giulio Bernardi

git-svn-id: trunk@10796 -
Tomas Hajny 17 年之前
父節點
當前提交
e64c9a152a
共有 1 個文件被更改,包括 2 次插入2 次删除
  1. 2 2
      compiler/options.pas

+ 2 - 2
compiler/options.pas

@@ -2401,8 +2401,8 @@ begin
   if fpcdir='' then
     begin
       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+'../';
     end;
 {$endif unix}