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

fpdebug: fixed compilation under x86_64.

Browse Source 
git-svn-id: trunk@45152 -
This commit is contained in:
zeljko 2014-05-22 18:58:17 +00:00
parent 8a1caa1d87
commit 404a3f3bd3
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/fpimgreadermacho.pas
View File

@ -112,7 +112,7 @@ begin
if (SymbolArr^[i].n_type and $0e)=$e then
begin
// Section-index is ignored for now...
AfpSymbolInfo.AddObject(pchar(SymbolStr+SymbolArr^[i].n_un.n_strx), TObject(SymbolArr^[i].n_value));
AfpSymbolInfo.AddObject(pchar(SymbolStr+SymbolArr^[i].n_un.n_strx), TObject(PtrUInt(SymbolArr^[i].n_value)));
end
end;
end;