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

* i8086 compilation fix after changeset 42390

Browse Source 
git-svn-id: trunk@42485 -
This commit is contained in:
nickysn 2019-07-23 11:57:20 +00:00
parent 4bc657a067
commit a3a39e1640
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
rtl/objpas/typinfo.pp
View File

@ -267,7 +267,11 @@ unit TypInfo;
ArgData: Pointer; ArgData: Pointer;
end; end;
{$ifdef CPU16}
TAttributeEntryList = array[0..(High(SizeUInt) div SizeOf(TAttributeEntry))-1] of TAttributeEntry;
{$else CPU16}
TAttributeEntryList = array[0..$ffff] of TAttributeEntry; TAttributeEntryList = array[0..$ffff] of TAttributeEntry;
{$endif CPU16}
TAttributeTable = TAttributeTable =
{$ifndef FPC_REQUIRES_PROPER_ALIGNMENT} {$ifndef FPC_REQUIRES_PROPER_ALIGNMENT}