paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-17 01:59:18 +02:00
Code Issues Packages Projects Releases Wiki Activity

* ImageBase changed to qword to avoid 8-bit truncation in the internal linker map file

Browse Source 
git-svn-id: trunk@45570 -
This commit is contained in:
nickysn 2020-06-02 23:10:31 +00:00
parent 9c54d753f5
commit da2bd5f789
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
compiler/ogmap.pas
View File

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