Browse Source

Disable source splitting when debugging information is requested. (This will have to stay that way until debugging from within the IDE gets supported.)
Fix bugs.


git-svn-id: file:///var/svn/tigccpp/trunk/tigcc/ide@223 9552661e-59e3-4036-b4f2-dbe53926924f

kevinkofler 19 years ago
parent
commit
a75c8d9c17
1 changed files with 3 additions and 2 deletions
  1. 3 2
      SourceFileUnit.pas

+ 3 - 2
SourceFileUnit.pas

@@ -208,7 +208,6 @@ type
 		procedure ProcessErrorLine(Line: string); override;
 		procedure ProcessSFile(const SourceFile, DestFile: string);
 	public
-		destructor Destroy; override;
 		class function GetClassFilter: string; override;
 		class function GetClassItemName: string; override;
 		class function GetClassTreeIndex: Integer; override;
@@ -1505,7 +1504,7 @@ var
 begin
 	try
 {$IFDEF CanSplit}
-		if SplitFiles then begin
+		if SplitFiles and not DebugInfo then begin
 			case ContentType of
 				ftCFile: begin
 					if not Assigned (LineStartList) then
@@ -2029,6 +2028,8 @@ begin
 			Switches := Switches + ' --all-relocs';
 		if OptimizeReturns or (ProjectTarget = ptArchive) then
 			Switches := Switches + ' --keep-locals';
+		if DebugInfo then
+			Switches := Switches + ' --gdwarf2';
 		MainConsole.Title := 'Assembler';
 		try
 			MainConsole.StartProcess (WithBackslash (TIGCCFolder) + AsLocation + 'As.exe', '-I ' + Folder + ' ' + Switches + ' "' + Folder + 'tempprog.s" -o ' + Temp + 'tempprog.o', WithoutBackslash (WithBackslash (TIGCCFolder) + AsLocation));