From f3d5bf37437a134865e3077d16d51a1d43cc43aa Mon Sep 17 00:00:00 2001
From: nickysn <nickysn@gmail.com>
Date: Tue, 25 Aug 2015 00:19:26 +0000
Subject: [PATCH] * the result of tobjsymbol.address changed from 'aword' to
 'qword' as well

git-svn-id: trunk@31414 -
---
 compiler/ogbase.pas | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/compiler/ogbase.pas b/compiler/ogbase.pas
index 503a74ab0b..6bc69abaee 100644
--- a/compiler/ogbase.pas
+++ b/compiler/ogbase.pas
@@ -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