Browse Source

* i8086 compilation fix after changeset 42390

git-svn-id: trunk@42485 -
nickysn 6 years ago
parent
commit
a3a39e1640
1 changed files with 4 additions and 0 deletions
  1. 4 0
      rtl/objpas/typinfo.pp

+ 4 - 0
rtl/objpas/typinfo.pp

@@ -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}