Browse Source

Correct relative path of gdbver.inc inside AfterClean_gdbint procedure

Pierre Muller 2 tuần trước cách đây
mục cha
commit
6e853a59cf
1 tập tin đã thay đổi với 2 bổ sung4 xóa
  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;