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

* inferior ptid enabled by default

Browse Source
This commit is contained in:
peter 2004-11-05 17:57:04 +00:00
parent f6ac5c699f
commit 3eb39ce4f3
1 changed files with 17 additions and 26 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -133,7 +133,6 @@ interface
{$ifdef win32} {$ifdef win32}
{$undef NotImplemented} {$undef NotImplemented}
{$define GDB_USES_PTID}
{$LINKLIB gdb} {$LINKLIB gdb}
{$ifdef GDB_HAS_SIM} {$ifdef GDB_HAS_SIM}
{$LINKLIB sim} {$LINKLIB sim}
@ -246,7 +245,6 @@ type
procedure set_ui_file_write(stream : pui_file;write : ui_file_write_ftype);cdecl;external; procedure set_ui_file_write(stream : pui_file;write : ui_file_write_ftype);cdecl;external;
{$ifdef GDB_USES_PTID}
type type
(* struct ptid (* struct ptid
@ -266,7 +264,6 @@ type
lwp : longint{ C long}; lwp : longint{ C long};
tid : longint{ C long}; tid : longint{ C long};
end; end;
{$endif}
{$ifdef win32} {$ifdef win32}
@ -378,23 +375,22 @@ type
end; end;
function GDBVersion : string; const
use_gdb_file : boolean = false;
var var
curr_gdb : pgdbinterface; curr_gdb : pgdbinterface;
const
use_gdb_file : boolean = false;
var
gdb_file : text; gdb_file : text;
{$ifdef GDB_USES_PTID}
inferior_ptid : tinferior_ptid;cvar;external; inferior_ptid : tinferior_ptid;cvar;external;
{$else}
inferior_pid : longint;cvar;external; function GDBVersion : string;
{$endif} function inferior_pid : longint;
{$ifdef GDB_V6} {$ifdef GDB_V6}
type ui_out = pointer; type
var uiout : ui_out;cvar;external; ui_out = pointer;
var
uiout : ui_out;cvar;external;
function cli_out_new (stream : pui_file):ui_out;cdecl;external; function cli_out_new (stream : pui_file):ui_out;cdecl;external;
{$endif} {$endif}
@ -404,9 +400,7 @@ function cli_out_new (stream : pui_file):ui_out;cdecl;external;
procedure reload_fs; procedure reload_fs;
{$endif go32v2} {$endif go32v2}
{$ifdef GDB_USES_PTID}
function inferior_pid : longint;
{$endif}
implementation implementation
@ -1380,12 +1374,12 @@ begin
end; end;
end; end;
{$ifdef GDB_USES_PTID}
function inferior_pid : longint; function inferior_pid : longint;
begin begin
inferior_pid:=inferior_ptid.pid; inferior_pid:=inferior_ptid.pid;
end; end;
{$endif}
procedure proc_remove_foreign(pid:longint);cdecl;public; procedure proc_remove_foreign(pid:longint);cdecl;public;
begin begin
@ -2270,13 +2264,7 @@ end;
procedure tgdbinterface.EndSession(code:longint); procedure tgdbinterface.EndSession(code:longint);
begin begin
Debuggee_started:=false; Debuggee_started:=false;
{$ifdef Go32v2}
{$ifdef GDB_USES_PTID}
inferior_ptid.pid:=0; inferior_ptid.pid:=0;
{$else}
inferior_pid:=0;
{$endif}
{$endif}
DoEndSession(code); DoEndSession(code);
if assigned(signal_name) then if assigned(signal_name) then
strdispose(signal_name); strdispose(signal_name);
@ -2466,7 +2454,10 @@ begin
end. end.
{ {
$Log$ $Log$
Revision 1.21 2004-11-05 12:30:27 peter Revision 1.22 2004-11-05 17:57:04 peter
* inferior ptid enabled by default
Revision 1.21 2004/11/05 12:30:27 peter
fixed win32 libraries fixed win32 libraries
Revision 1.20 2004/11/04 23:58:08 peter Revision 1.20 2004/11/04 23:58:08 peter