paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-14 20:39:34 +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
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