paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-06-09 09:38:25 +02:00
Code Issues Packages Projects Releases Wiki Activity

* force gdb/mi on windows to always run the debuggee in another console, since I

Browse Source 
couldn't get same console debugging to work with gdb/mi on windows (and I
  doubt it's even possible with the current gdb, without patching it)

git-svn-id: trunk@30100 -
This commit is contained in:
nickysn 2015-03-05 15:18:55 +00:00
parent f556a4ea31
commit e76b416b04
4 changed files with 12 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
ide/fpini.pas
View File

@ -431,7 +431,9 @@ begin
{ First read the primary file, which can also set the parameters which can { First read the primary file, which can also set the parameters which can
be overruled with the parameter loading } be overruled with the parameter loading }
SetPrimaryFile(INIFile^.GetEntry(secCompile,iePrimaryFile,PrimaryFile)); SetPrimaryFile(INIFile^.GetEntry(secCompile,iePrimaryFile,PrimaryFile));
{$ifndef GDB_WINDOWS_ALWAYS_USE_ANOTHER_CONSOLE}
DebuggeeTTY := INIFile^.GetEntry(secRun,ieDebuggeeRedir,DebuggeeTTY); DebuggeeTTY := INIFile^.GetEntry(secRun,ieDebuggeeRedir,DebuggeeTTY);
{$endif not GDB_WINDOWS_ALWAYS_USE_ANOTHER_CONSOLE}
{$ifdef SUPPORT_REMOTE} {$ifdef SUPPORT_REMOTE}
RemoteMachine :=INIFile^.GetEntry(secRun,ieRemoteMachine,RemoteMachine); RemoteMachine :=INIFile^.GetEntry(secRun,ieRemoteMachine,RemoteMachine);
RemotePort :=INIFile^.GetEntry(secRun,ieRemotePort,RemotePort); RemotePort :=INIFile^.GetEntry(secRun,ieRemotePort,RemotePort);
@ -653,8 +655,10 @@ begin
INIFile^.SetEntry(secRun,ieRunDir,GetRunDir); INIFile^.SetEntry(secRun,ieRunDir,GetRunDir);
INIFile^.SetEntry(secRun,ieRunParameters,GetRunParameters); INIFile^.SetEntry(secRun,ieRunParameters,GetRunParameters);
INIFile^.SetEntry(secFiles,iePrinterDevice,GetPrinterDevice); INIFile^.SetEntry(secFiles,iePrinterDevice,GetPrinterDevice);
{$ifndef GDB_WINDOWS_ALWAYS_USE_ANOTHER_CONSOLE}
{ If DebuggeeTTY<>'' then } { If DebuggeeTTY<>'' then }
INIFile^.SetEntry(secRun,ieDebuggeeRedir,DebuggeeTTY); INIFile^.SetEntry(secRun,ieDebuggeeRedir,DebuggeeTTY);
{$endif not GDB_WINDOWS_ALWAYS_USE_ANOTHER_CONSOLE}
{$ifdef SUPPORT_REMOTE} {$ifdef SUPPORT_REMOTE}
INIFile^.SetEntry(secRun,ieRemoteMachine,RemoteMachine); INIFile^.SetEntry(secRun,ieRemoteMachine,RemoteMachine);
INIFile^.SetEntry(secRun,ieRemotePort,RemotePort); INIFile^.SetEntry(secRun,ieRemotePort,RemotePort);

3
ide/fpmopts.inc
View File

@ -547,6 +547,9 @@ begin
else else
L:=0; L:=0;
CB2^.SetData(L); CB2^.SetData(L);
{$ifdef GDB_WINDOWS_ALWAYS_USE_ANOTHER_CONSOLE}
CB2^.EnableMask := CB2^.EnableMask and $fffffffe;
{$endif GDB_WINDOWS_ALWAYS_USE_ANOTHER_CONSOLE}
R2.Move(0,-1); R2.Move(0,-1);
Insert(New(PLabel, Init(R2,label_debugger_redirection, CB2))); Insert(New(PLabel, Init(R2,label_debugger_redirection, CB2)));
{$endif Windows} {$endif Windows}

4
ide/fpvars.pas
View File

@ -145,7 +145,11 @@ const ClipboardWindow : PClipboardWindow = nil;
'"$REMOTEEXECCOMMAND" $DOITINBACKGROUND'; '"$REMOTEEXECCOMMAND" $DOITINBACKGROUND';
{$endif SUPPORT_REMOTE} {$endif SUPPORT_REMOTE}
{$ifdef GDB_WINDOWS_ALWAYS_USE_ANOTHER_CONSOLE}
DebuggeeTTY : string = 'on';
{$else GDB_WINDOWS_ALWAYS_USE_ANOTHER_CONSOLE}
DebuggeeTTY : string = ''; DebuggeeTTY : string = '';
{$endif GDB_WINDOWS_ALWAYS_USE_ANOTHER_CONSOLE}
ActionCommands : array[acFirstAction..acLastAction] of word = ActionCommands : array[acFirstAction..acLastAction] of word =
(cmHelpTopicSearch,cmGotoCursor,cmToggleBreakpoint, (cmHelpTopicSearch,cmGotoCursor,cmToggleBreakpoint,

1
ide/globdir.inc
View File

@ -217,4 +217,5 @@
{$ifdef DEBUG} {$ifdef DEBUG}
{$define GDB_RAW_OUTPUT} {$define GDB_RAW_OUTPUT}
{$endif DEBUG} {$endif DEBUG}
{$define GDB_WINDOWS_ALWAYS_USE_ANOTHER_CONSOLE}
{$endif GDBMI} {$endif GDBMI}