瀏覽代碼

Correct relative path of gdbver.inc inside AfterClean_gdbint procedure

Pierre Muller 2 周之前
父節點
當前提交
6e853a59cf
共有 1 個文件被更改,包括 2 次插入4 次删除
  1. 2 4
      packages/gdbint/fpmake.pp

+ 2 - 4
packages/gdbint/fpmake.pp

@@ -154,10 +154,8 @@ begin
   L := TStringList.Create;
   P := Sender as TPackage;
   try
-    if P.Directory<>'' then
-      L.add(IncludeTrailingPathDelimiter(P.Directory)+'src'+DirectorySeparator+'gdbver.inc')
-    else
-      L.add(IncludeTrailingPathDelimiter(Installer.BuildEngine.StartDir)+'src'+DirectorySeparator+'gdbver.inc');
+    // This procedure is called at gdbint directory level
+    L.add('src'+DirectorySeparator+'gdbver.inc');
     Installer.BuildEngine.CmdDeleteFiles(L);
   finally
     L.Free;