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

* small 64 bit compatibility fixes

Browse Source 
git-svn-id: trunk@8858 -
This commit is contained in:
florian 2007-10-19 22:36:33 +00:00
parent 63a73870cf
commit adbd4cd6c7
2 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
ide/fp.pas
View File

@ -460,7 +460,7 @@ BEGIN
if (application<>nil) and (ideapp.displaymode=dmIDE) then
begin
P.l1:=SeenExitCode;
ErrS:=hexstr(longint(SeenErrorAddr),8);
ErrS:=hexstr(PtrUInt(SeenErrorAddr),sizeof(PtrUInt)*2);
P.s:=@ErrS;
if OKCancelBox(error_programexitedwitherror,@P)=cmCancel then
UserWantsToGoOn:=true;

2
ide/fpviews.pas
View File

@ -2676,7 +2676,7 @@ var
LI : PEditorLineInfo;
begin
if AAddress<>0 then
inherited AddLine('$'+hexstr(AAddress,8)+S)
inherited AddLine('$'+hexstr(AAddress,sizeof(PtrUInt)*2)+S)
else
inherited AddLine(S);
PL:=DisasLines^.At(DisasLines^.count-1);