瀏覽代碼

* Use prefix again as base-path for examples and binaries (changed in r15919)

git-svn-id: trunk@15925 -
joost 15 年之前
父節點
當前提交
349e5348f5
共有 1 個文件被更改,包括 5 次插入5 次删除
  1. 5 5
      packages/fpmkunit/src/fpmkunit.pp

+ 5 - 5
packages/fpmkunit/src/fpmkunit.pp

@@ -2374,7 +2374,7 @@ begin
     Result:=FBinInstallDir
   else
     If UnixPaths then
-      Result:=BaseInstallDir+'bin'
+      Result:=Prefix+'bin'
     else
       Result:=BaseInstallDir+'bin';
 end;
@@ -2391,11 +2391,11 @@ end;
 
 function TCustomDefaults.GetDocInstallDir: String;
 begin
-  If (FBinInstallDir<>'') then
-    Result:=FBinInstallDir
+  If (FDocInstallDir<>'') then
+    Result:=FDocInstallDir
   else
     If UnixPaths then
-      Result:=BaseInstallDir+'share'+PathDelim+'doc'
+      Result:=Prefix+'share'+PathDelim+'doc'
     else
       Result:=BaseInstallDir+'docs';
 end;
@@ -2407,7 +2407,7 @@ begin
     Result:=FExamplesInstallDir
   else
     If UnixPaths then
-      Result:=BaseInstallDir+'share'+PathDelim+'doc'
+      Result:=Prefix+'share'+PathDelim+'doc'
     else
       Result:=BaseInstallDir+'examples';
 end;