paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-21 07:09:17 +02:00
Code Issues Packages Projects Releases Wiki Activity

* size of TByteArray and TWordArray reduced by 1 on 16-bit CPUs to avoid 'structure too large' errors when compiling the sysutils unit

Browse Source 
git-svn-id: trunk@24591 -
This commit is contained in:
nickysn 2013-05-25 13:28:13 +00:00
parent 4708132ddf
commit 1d8d0d42a5
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
rtl/objpas/sysutils/sysutilh.inc
View File

@ -96,10 +96,10 @@ type
end;
PByteArray = ^TByteArray;
TByteArray = Array[0..32767] of Byte;
TByteArray = Array[0..{$ifdef CPU16}32766{$else}32767{$endif}] of Byte;
PWordarray = ^TWordArray;
TWordArray = array[0..16383] of Word;
TWordArray = array[0..{$ifdef CPU16}16382{$else}16383{$endif}] of Word;
TBytes = array of Byte;