paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-23 11:53:58 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Fix longstanding confusion between two gdb functions catch_errors and catch_command_errors fix led to random from_tty parameter value

Browse Source 
git-svn-id: trunk@19593 -
This commit is contained in:
pierre 2011-11-03 16:31:56 +00:00
parent 4366076b29
commit 0eb0415194
1 changed files with 5 additions and 4 deletions

9
packages/gdbint/src/gdbint.pp
View File

@ -2528,7 +2528,7 @@ begin
gdb_command('set print object on');
gdb_command('set print null-stop');
{$ifdef USE_MINGW_GDB} // maybe this also should be done for newer cygwin gdbs.
gdb_command('set confirm off');
//gdb_command('set confirm off');
{$endif}
end;
@ -2609,9 +2609,9 @@ end;
var
top_level_val : longint;
function catch_errors(func : pointer; command : pchar; from_tty,mask : longint) : longint;cdecl;external;
function catch_command_errors(func : pointer; command : pchar; from_tty,mask : longint) : longint;cdecl;external;
function gdbint_execute_command(command : pchar; from_tty,mask : longint) : longint;cdecl;
function gdbint_execute_command(command : pchar; from_tty : longint) : longint;cdecl;
begin
gdbint_execute_command:=1;
execute_command(command,from_tty);
@ -2716,7 +2716,8 @@ begin
begin
quit_return:=error_return;
mask:=longint($ffffffff);
catch_errors(@gdbint_execute_command,@command,0,mask);
catch_command_errors(@gdbint_execute_command,@command,
1,mask);
{$ifdef go32v2}
reload_fs;
{$endif go32v2}