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

* 64 bit adaptions

Browse Source
This commit is contained in:
florian 2004-12-19 21:00:00 +00:00
parent 72e846735f
commit 82f2bbd2db
1 changed files with 15 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -178,11 +178,11 @@ interface
type type
psyminfo=^tsyminfo; psyminfo=^tsyminfo;
tsyminfo=record tsyminfo=record
address : longint; address : ptrint;
fname : pchar; fname : pchar;
line : longint; line : longint;
funcname : pchar; funcname : pchar;
offset : longint; offset : ptrint;
end; end;
tframeentry = object tframeentry = object
@ -190,7 +190,7 @@ type
function_name : pchar; function_name : pchar;
args : pchar; args : pchar;
line_number : longint; line_number : longint;
address : longint; address : ptrint;
level : longint; level : longint;
constructor init; constructor init;
destructor done; destructor done;
@ -207,9 +207,9 @@ const
k=1; k=1;
type type
CORE_ADDR = cardinal; { might be target dependent PM } CORE_ADDR = ptrint; { might be target dependent PM }
streamtype = (afile,astring); streamtype = (afile,astring);
C_FILE = longint; { at least under DJGPP } C_FILE = ptrint; { at least under DJGPP }
P_C_FILE = ^C_FILE; P_C_FILE = ^C_FILE;
type type
@ -270,8 +270,8 @@ type
pinferior_ptid = ^tinferior_ptid; pinferior_ptid = ^tinferior_ptid;
tinferior_ptid = record tinferior_ptid = record
pid : longint{C int}; pid : longint{C int};
lwp : longint{ C long}; lwp : ptrint{ C long};
tid : longint{ C long}; tid : ptrint{ C long};
end; end;
{$ifdef win32} {$ifdef win32}
@ -359,13 +359,13 @@ type
procedure resize_frames; procedure resize_frames;
function add_frameentry:pframeentry; function add_frameentry:pframeentry;
function get_frameentry(level : longint):pframeentry; function get_frameentry(level : longint):pframeentry;
function get_current_frame : longint; function get_current_frame : ptrint;
function set_current_frame(level : longint) : boolean; function set_current_frame(level : longint) : boolean;
procedure clear_frames; procedure clear_frames;
{ Highlevel } { Highlevel }
user_screen_shown, user_screen_shown,
switch_to_user : boolean; switch_to_user : boolean;
procedure GetAddrSyminfo(addr:longint;var si:tsyminfo); procedure GetAddrSyminfo(addr:ptrint;var si:tsyminfo);
procedure SelectSourceline(fn:pchar;line:longint); procedure SelectSourceline(fn:pchar;line:longint);
procedure StartSession; procedure StartSession;
procedure BreakSession; procedure BreakSession;
@ -2200,7 +2200,7 @@ begin
frame_size:=0; frame_size:=0;
end; end;
function tgdbinterface.get_current_frame : longint; function tgdbinterface.get_current_frame : ptrint;
begin begin
record_frames:=false; record_frames:=false;
gdb_command('f'); gdb_command('f');
@ -2227,7 +2227,7 @@ end;
Highlevel tgdbinterface Highlevel tgdbinterface
*****************************************************************************} *****************************************************************************}
procedure tgdbinterface.GetAddrSyminfo(addr:longint;var si:tsyminfo); procedure tgdbinterface.GetAddrSyminfo(addr:ptrint;var si:tsyminfo);
var var
sym : symtab_and_line; sym : symtab_and_line;
symbol : psymbol; symbol : psymbol;
@ -2463,7 +2463,10 @@ begin
end. end.
{ {
$Log$ $Log$
Revision 1.25 2004-12-19 18:35:56 florian Revision 1.26 2004-12-19 21:00:00 florian
* 64 bit adaptions
Revision 1.25 2004/12/19 18:35:56 florian
* fixed for gdb 6.3.x * fixed for gdb 6.3.x
Revision 1.24 2004/12/04 23:06:38 peter Revision 1.24 2004/12/04 23:06:38 peter