paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-30 02:50:14 +02:00
Code Issues Packages Projects Releases Wiki Activity

FpDebug, DwarfViewer: fix 64bit

Browse Source 
git-svn-id: trunk@59509 -
This commit is contained in:
martin 2018-11-11 14:47:57 +00:00
parent fb1109e5cc
commit e4adcb2815
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/fpdebug/test/dwarfviewer/unit1.pas
View File

@ -505,7 +505,7 @@ var
case Form of
DW_FORM_addr : begin
s3 := ToHex(p, 4 {FCU.FAddressSize});
s3 := ToHex(p, cu.AddressSize {4} {FCU.FAddressSize});
PascalTestCAseCode := PascalTestCAseCode +
Format(namePreFix+'AddAddr(%s, %s, $%s);%s', [s1, s2, s3, LineEnding]);
end;