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

* Fixed pointer to cardinal typecasts, which are wrong for 64-bit platforms (significance is low, because these are in debug code).

Browse Source 
git-svn-id: trunk@17211 -
This commit is contained in:
sergei 2011-04-01 05:45:12 +00:00
parent d4b071ed9a
commit 046ed5548b
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
rtl/objpas/cvarutil.inc
View File

@ -1498,7 +1498,7 @@ Var
i: Integer;
begin
Writeln(F,'---> ', aName, ' at $', IntToHex(Cardinal(@VargSrc), 8), ' <----------------');
Writeln(F,'---> ', aName, ' at $', HexStr(@VargSrc), ' <----------------');
with VargSrc do begin
if vType and varByRef = varByRef then
@ -1526,7 +1526,7 @@ begin
WriteLn;
if vType and varArray = varArray then begin
Writeln(F,'---< ', aName, ' at $', IntToHex(Cardinal(@VargSrc), 8), ' >----------------');
Writeln(F,'---< ', aName, ' at $', HexStr(@VargSrc), ' >----------------');
Writeln(F);
Exit;
end;
@ -1537,7 +1537,7 @@ begin
if (vType and varByRef = varByRef) or (vType and varTypeMask = varVariant) then
if not Assigned(vPointer) then begin
WriteLn(F, 'nil]');
Writeln(F,'---< ', aName, ' at $', IntToHex(Cardinal(@VargSrc), 8), ' >----------------');
Writeln(F,'---< ', aName, ' at $', HexStr(@VargSrc), ' >----------------');
Writeln(F);
Exit;
end;
@ -1593,7 +1593,7 @@ begin
end;
end;
Writeln(F,'---< ', aName, ' at $', IntToHex(Cardinal(@VargSrc), 8), ' >----------------');
Writeln(F,'---< ', aName, ' at $', HexStr(@VargSrc), ' >----------------');
Writeln(F);
end;