Browse Source

* adjust the name of the external debug and map file when the name of
the output binary is changed via the -o option (patch by Barlone,
mantis #21171)

git-svn-id: trunk@20484 -

Jonas Maebe 13 years ago
parent
commit
cca1fe9573
1 changed files with 1 additions and 0 deletions
  1. 1 0
      compiler/finput.pas

+ 1 - 0
compiler/finput.pas

@@ -654,6 +654,7 @@ uses
            begin
            begin
              exefilename:=stringdup(p+OutputFileName);
              exefilename:=stringdup(p+OutputFileName);
              sharedlibfilename:=stringdup(p+OutputFileName);
              sharedlibfilename:=stringdup(p+OutputFileName);
+             n:=ChangeFileExt(OutputFileName,''); { for mapfilename and dbgfilename } 
            end
            end
          else
          else
            begin
            begin