paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-23 08:19:41 +02:00
Code Issues Packages Projects Releases Wiki Activity

Debugger: force gdb to use lang=pascal. (set after attach / needed in some environment, such as cgi in webserver)

Browse Source 
git-svn-id: trunk@43038 -
This commit is contained in:
martin 2013-09-29 11:13:55 +00:00
parent 6f63e5d1ef
commit 6edf206205
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
debugger/gdbmidebugger.pp
View File

@ -5109,7 +5109,7 @@ begin
// Tnit (StartDebugging)
TargetInfo^.TargetFlags := [tfHasSymbols]; // Set until proven otherwise
ExecuteCommand('-gdb-set language pascal', [cfCheckError]);
ExecuteCommand('-gdb-set language pascal', [cfCheckError]); // TODO: Maybe remove, must be done after attach
//{$IF defined(UNIX) or defined(DBG_ENABLE_TERMINAL)}
//InitConsole;
@ -5187,11 +5187,14 @@ begin
TargetInfo^.TargetPID := NewPID;
ExecuteCommand('-gdb-set language pascal', [cfCheckError]);
if (FTheDebugger.FileName <> '') and (pos('READING SYMBOLS FROM', UpperCase(CmdResp)) < 1) then begin
ExecuteCommand('ptype TObject', [], R);
if pos('NO SYMBOL TABLE IS LOADED', UpperCase(FFullCmdReply)) > 0 then begin
ExecuteCommand('-file-exec-and-symbols %s',
[FTheDebugger.ConvertToGDBPath(UTF8ToSys(FTheDebugger.FileName), cgptExeName)], R);
ExecuteCommand('-gdb-set language pascal', [cfCheckError]);
end;
end;