From da2bd5f78908e630cce860ca25fe7da8454ce6fa Mon Sep 17 00:00:00 2001
From: nickysn <nickysn@gmail.com>
Date: Tue, 2 Jun 2020 23:10:31 +0000
Subject: [PATCH] * ImageBase changed to qword to avoid 8-bit truncation in the
 internal linker map file

git-svn-id: trunk@45570 -
---
 compiler/ogmap.pas | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/compiler/ogmap.pas b/compiler/ogmap.pas
index 273e174c36..af37c9f34f 100644
--- a/compiler/ogmap.pas
+++ b/compiler/ogmap.pas
@@ -36,7 +36,7 @@ interface
        texemap = class
        private
          t : text;
-         FImageBase : aword;
+         FImageBase : qword;
        public
          constructor Create(const s:string);
          destructor Destroy;override;
@@ -45,7 +45,7 @@ interface
          procedure AddHeader(const s:string);
          procedure AddCommonSymbolsHeader;
          procedure AddCommonSymbol(p:TObjSymbol);
-         procedure AddMemoryMapHeader(abase:aint);
+         procedure AddMemoryMapHeader(abase:qword);
          procedure AddMemoryMapExeSection(p:texesection);
          procedure AddMemoryMapObjectSection(p:TObjSection);
          procedure AddMemoryMapSymbol(p:TObjSymbol);
@@ -154,7 +154,7 @@ implementation
        end;
 
 
-     procedure TExeMap.AddMemoryMapHeader(abase:aint);
+     procedure TExeMap.AddMemoryMapHeader(abase:qword);
        var
          imagebasestr : string;
        begin