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

Use ptrint to cast a pointer to an integer

Browse Source 
git-svn-id: trunk@15888 -
This commit is contained in:
pierre 2010-08-24 13:15:18 +00:00
parent 5ca1bd2a32
commit a2d12c557d
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
packages/gdbint/src/gdbcon.pp
View File

@ -330,7 +330,7 @@ var p : pchar;
begin
p:=gdberrorbuf.buf;
if (p^=#0) and got_error then
GetError:=pchar(longint(gdboutputbuf.buf)+gdboutputbuf.idx)
GetError:=pchar(ptrint(gdboutputbuf.buf)+gdboutputbuf.idx)
else
GetError:=p;
end;