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

* ImageBase changed to qword (same type as CurrMemPos) to avoid truncating to 8-bit on Z80

Browse Source 
git-svn-id: trunk@45569 -
This commit is contained in:
nickysn 2020-06-02 23:07:45 +00:00
parent 4a5a2f5ba2
commit 9c54d753f5
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

@ -638,7 +638,7 @@ interface
{ Objects } { Objects }
FObjDataList : TFPObjectList; FObjDataList : TFPObjectList;
{ Position calculation } { Position calculation }
FImageBase : aword; FImageBase : qword;
FCurrMemPos : qword; FCurrMemPos : qword;
procedure SetCurrMemPos(const AValue: qword); procedure SetCurrMemPos(const AValue: qword);
protected protected
@ -728,7 +728,7 @@ interface
property IndirectObjSymbols:TFPObjectList read FIndirectObjSymbols; property IndirectObjSymbols:TFPObjectList read FIndirectObjSymbols;
property ExeVTableList:TFPObjectList read FExeVTableList; property ExeVTableList:TFPObjectList read FExeVTableList;
property EntryName:string read FEntryName write FEntryName; property EntryName:string read FEntryName write FEntryName;
property ImageBase:aword read FImageBase write FImageBase; property ImageBase:qword read FImageBase write FImageBase;
property CurrExeSec:TExeSection read FCurrExeSec; property CurrExeSec:TExeSection read FCurrExeSec;
property ExeWriteMode:TExeWriteMode read FExeWriteMode write FExeWriteMode; property ExeWriteMode:TExeWriteMode read FExeWriteMode write FExeWriteMode;
property CurrMemPos:qword read FCurrMemPos write SetCurrMemPos; property CurrMemPos:qword read FCurrMemPos write SetCurrMemPos;