Browse Source

Fix name of .dbg file.

git-svn-id: file:///var/svn/tigccpp/trunk/tigcc/ide@227 9552661e-59e3-4036-b4f2-dbe53926924f
kevinkofler 19 years ago
parent
commit
bbd1d2a566
1 changed files with 3 additions and 3 deletions
  1. 3 3
      MainUnit.pas

+ 3 - 3
MainUnit.pas

@@ -2003,11 +2003,11 @@ var MainFiles: array [TCalcDest] of string;
 				CompUpdate;
 			end;
 	end;
-	procedure HandleDebugContents(const DestFile: string);
+	procedure HandleDebugContents(const ProjectFile: string);
 	begin
 		with LinkDebugFile do
 			if Assigned (Data) then
-				Data.SaveToFile (DestFile + '.dbg');
+				Data.SaveToFile (ChangeFileExt (ProjectFile, '.dbg'));
 	end;
 	procedure CreatePackStarter(const ProjectFile, StarterFileName, FolderName, VarName, PackVar: string; CalcDests: TCalcDests);
 	var
@@ -2214,7 +2214,7 @@ begin
 									end;
 							if Assigned (LinkDebugFile.Data) then begin
 								if OperationSuccessful and (not OperationCancelled) then begin
-									HandleDebugContents (DestFile);
+									HandleDebugContents (ProjectFile);
 								end;
 							end;
 						end;