paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-10-26 04:11:27 +01:00
Code Issues Packages Projects Releases Wiki Activity

* save stop_break_number and restore at end of gdb_command method

Browse Source 
+ add support for DEBUG_FILE_DIRECTORY

git-svn-id: trunk@8648 -
This commit is contained in:
pierre 2007-09-25 23:28:02 +00:00
parent 80eb344eef
commit 650dc4468b
1 changed files with 15 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
packages/base/gdbint/gdbint.pp
View File

@ -71,6 +71,7 @@ interface
{$define GDB_HAS_DB_COMMANDS} {$define GDB_HAS_DB_COMMANDS}
{$define GDB_NEEDS_NO_ERROR_INIT} {$define GDB_NEEDS_NO_ERROR_INIT}
{$define GDB_USES_EXPAT_LIB} {$define GDB_USES_EXPAT_LIB}
{$define GDB_HAS_DEBUG_FILE_DIRECTORY}
{$endif def GDB_V605} {$endif def GDB_V605}
{$ifdef GDB_V6} {$ifdef GDB_V6}
@ -2175,6 +2176,7 @@ end;
procedure tgdbinterface.gdb_command(const s:string); procedure tgdbinterface.gdb_command(const s:string);
var var
command : array[0..256] of char; command : array[0..256] of char;
prev_stop_breakpoint_number,
mask : longint; mask : longint;
s2 : string; s2 : string;
old_quit_return, old_quit_return,
@ -2190,6 +2192,11 @@ begin
old_error_return:=error_return; old_error_return:=error_return;
gdb_error:=0; gdb_error:=0;
got_error:=false; got_error:=false;
if command_level=1 then
prev_stop_breakpoint_number:=0
else
prev_stop_breakpoint_number:=stop_breakpoint_number;
stop_breakpoint_number:=0; stop_breakpoint_number:=0;
{ Trap quit commands } { Trap quit commands }
s2:=s; s2:=s;
@ -2237,6 +2244,7 @@ begin
quit_return:=old_quit_return; quit_return:=old_quit_return;
error_return:=old_error_return; error_return:=old_error_return;
dec(command_level); dec(command_level);
stop_breakpoint_number:=prev_stop_breakpoint_number;
SetFPUState(control); SetFPUState(control);
end; end;
@ -2562,12 +2570,19 @@ var gdb_sysroot : pchar; cvar;public;
return_child_result_value : longint;cvar;public; return_child_result_value : longint;cvar;public;
batch_silent : longbool;cvar;public; batch_silent : longbool;cvar;public;
{$endif} {$endif}
{$ifdef GDB_HAS_DEBUG_FILE_DIRECTORY}
var
debug_file_directory : pchar; cvar; external;
{$endif GDB_HAS_DEBUG_FILE_DIRECTORY}
begin begin
{$ifdef GDB_HAS_SYSROOT} {$ifdef GDB_HAS_SYSROOT}
gdb_sysrootc := #0; gdb_sysrootc := #0;
gdb_sysroot := @gdb_sysrootc; gdb_sysroot := @gdb_sysrootc;
{$endif} {$endif}
{$ifdef GDB_HAS_DEBUG_FILE_DIRECTORY}
debug_file_directory := '/usr/local/lib';
{$endif GDB_HAS_DEBUG_FILE_DIRECTORY}
gdb_stderr:=nil; gdb_stderr:=nil;
gdb_stdout:=nil; gdb_stdout:=nil;
InitLibGDB; InitLibGDB;