paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-10-29 06:03:57 +01:00
Code Issues Packages Projects Releases Wiki Activity

* the result of tobjsymbol.address changed from 'aword' to 'qword' as well

Browse Source 
git-svn-id: trunk@31414 -
This commit is contained in:
nickysn 2015-08-25 00:19:26 +00:00
parent 8977c0fc78
commit f3d5bf3743
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
compiler/ogbase.pas
View File

@ -189,7 +189,7 @@ interface
{$endif ARM}
constructor create(AList:TFPHashObjectList;const AName:string);
function address:aword;
function address:qword;
procedure SetAddress(apass:byte;aobjsec:TObjSection;abind:TAsmsymbind;atyp:Tasmsymtype);
function ObjData: TObjData;
{ string representation for the linker map file }
@ -701,7 +701,7 @@ implementation
end;
function TObjSymbol.address:aword;
function TObjSymbol.address:qword;
begin
if assigned(objsection) then
result:=offset+objsection.mempos