瀏覽代碼

* Evaluate macros when getting LocalUnitDir and GlobalUnitDir

git-svn-id: trunk@15168 -
joost 15 年之前
父節點
當前提交
d27093ceba
共有 1 個文件被更改,包括 4 次插入4 次删除
  1. 4 4
      utils/fppkg/pkgoptions.pp

+ 4 - 4
utils/fppkg/pkgoptions.pp

@@ -450,8 +450,8 @@ end;
 
 
 function TCompilerOptions.LocalUnitDir:string;
 function TCompilerOptions.LocalUnitDir:string;
 begin
 begin
-  if FLocalInstallDir<>'' then
-    result:=FLocalInstallDir+'units'+PathDelim+CompilerTarget+PathDelim
+  if LocalInstallDir<>'' then
+    result:=LocalInstallDir+'units'+PathDelim+CompilerTarget+PathDelim
   else
   else
     result:='';
     result:='';
 end;
 end;
@@ -459,8 +459,8 @@ end;
 
 
 function TCompilerOptions.GlobalUnitDir:string;
 function TCompilerOptions.GlobalUnitDir:string;
 begin
 begin
-  if FGlobalInstallDir<>'' then
-    result:=FGlobalInstallDir+'units'+PathDelim+CompilerTarget+PathDelim
+  if GlobalInstallDir<>'' then
+    result:=GlobalInstallDir+'units'+PathDelim+CompilerTarget+PathDelim
   else
   else
     result:='';
     result:='';
 end;
 end;