paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-10 13:59:34 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fixed the TRelocDataInt to avoid truncating 16-bit addresses to 8-bit on 8-bit CPUs

Browse Source 
git-svn-id: trunk@45289 -
This commit is contained in:
nickysn 2020-05-06 02:52:28 +00:00
parent 4aba225c8b
commit 616cb38292
1 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
compiler/ogbase.pas
View File

@ -368,13 +368,15 @@ interface
Owner: TObjData;
end;
{$ifdef i8086}
{$if defined(i8086)}
{ on i8086 we use a longint, to support 32-bit relocations as well (e.g.
for allowing 386+ instructions with 32-bit addresses in inline asm code) }
TRelocDataInt = longint;
{$else i8086}
{$elseif defined(cpu16bitaddr)}
TRelocDataInt = asizeint;
{$else}
TRelocDataInt = aint;
{$endif i8086}
{$endif}
TObjData = class(TLinkedListItem)
private