* small 64 bit compatibility fixes

git-svn-id: trunk@8858 -

ide/fp.pas

@@ -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;

ide/fpviews.pas

@@ -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);