mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-08-13 09:39:09 +02:00
* fixed the TRelocDataInt to avoid truncating 16-bit addresses to 8-bit on 8-bit CPUs
git-svn-id: trunk@45289 -
This commit is contained in:
parent
4aba225c8b
commit
616cb38292
@ -368,13 +368,15 @@ interface
|
|||||||
Owner: TObjData;
|
Owner: TObjData;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
{$ifdef i8086}
|
{$if defined(i8086)}
|
||||||
{ on i8086 we use a longint, to support 32-bit relocations as well (e.g.
|
{ 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) }
|
for allowing 386+ instructions with 32-bit addresses in inline asm code) }
|
||||||
TRelocDataInt = longint;
|
TRelocDataInt = longint;
|
||||||
{$else i8086}
|
{$elseif defined(cpu16bitaddr)}
|
||||||
|
TRelocDataInt = asizeint;
|
||||||
|
{$else}
|
||||||
TRelocDataInt = aint;
|
TRelocDataInt = aint;
|
||||||
{$endif i8086}
|
{$endif}
|
||||||
|
|
||||||
TObjData = class(TLinkedListItem)
|
TObjData = class(TLinkedListItem)
|
||||||
private
|
private
|
||||||
|
Loading…
Reference in New Issue
Block a user