Browse Source

Correct relative path of gdbver.inc inside AfterClean_gdbint procedure

Pierre Muller 2 weeks ago
parent
commit
6e853a59cf
1 changed files with 2 additions and 4 deletions
  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;