* fixed 'data element too large' error when compiling typinfo on i8086

git-svn-id: trunk@24600 -

rtl/objpas/typinfo.pp

@@ -299,7 +299,7 @@ unit typinfo;
       TProcInfoProc = Procedure(PropInfo : PPropInfo) of object;
 
       PPropList = ^TPropList;
-      TPropList = array[0..65535] of PPropInfo;
+      TPropList = array[0..{$ifdef cpu16}32765 div sizeof(PPropInfo){$else}65535{$endif}] of PPropInfo;
 
    const
       tkString = tkSString;