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

Gabor changes for TP

Browse Source
This commit is contained in:
pierre 2000-02-07 11:50:30 +00:00
parent 32004746f0
commit c4bd4949d9
1 changed files with 12 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
ide/text/fpdebug.pas
View File

@ -250,6 +250,8 @@ type
destructor Done; virtual;
end;
{$ifdef TP} dword = longint; {$endif}
TIntRegs = record
eax,ebx,ecx,edx,eip,esi,edi,esp,ebp : dword;
cs,ds,es,ss,fs,gs : word;
@ -443,6 +445,12 @@ const
Store: @TFPUView.Store
);
{$ifdef TP}
function HexStr(Value: longint; Len: byte): string;
begin
HexStr:=IntToHexL(Value,Len);
end;
{$endif}
function GDBFileName(st : string) : string;
{$ifndef Linux}
@ -3209,7 +3217,10 @@ end.
{
$Log$
Revision 1.51 2000-02-06 23:43:57 pierre
Revision 1.52 2000-02-07 11:50:30 pierre
Gabor changes for TP
Revision 1.51 2000/02/06 23:43:57 pierre
* breakpoint path problems fixes
Revision 1.50 2000/02/05 01:27:58 pierre