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

* fixed 'data element too large' error in i8086 far data memory models

Browse Source 
git-svn-id: trunk@27390 -
This commit is contained in:
nickysn 2014-03-30 18:17:37 +00:00
parent 096bba90da
commit 070955bcd0
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
rtl/objpas/typinfo.pp
View File

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