paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-10 11:32:46 +02:00
Code Issues Packages Projects Releases Wiki Activity

* made mode field of file recs word sized on 8 and 16 bit systems

Browse Source 
git-svn-id: trunk@37556 -
This commit is contained in:
florian 2017-11-05 19:30:51 +00:00
parent 13df5b51db
commit 4331904eb8
2 changed files with 8 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
rtl/inc/filerec.inc
View File

@ -31,7 +31,11 @@ type
using packed causes the compiler to handle arrays of text wrongly, see see tw0754 e.g. on arm }
FileRec = {$ifdef VER2_6} packed {$endif} Record
Handle : THandle;
{$if defined(CPU8) or defined(CPU16)}
Mode : Word;
{$else}
Mode : longint;
{$endif}
RecSize : SizeInt;
_private : array[1..3 * SizeOf(SizeInt) + 5 * SizeOf (pointer)] of byte;
UserData : array[1..32] of byte;

4
rtl/inc/textrec.inc
View File

@ -36,7 +36,11 @@ type
using packed causes the compiler to handle arrays of text wrongly, see see tw0754 e.g. on arm }
TextRec = {$ifdef VER2_6} packed {$endif} Record
Handle : THandle;
{$if defined(CPU8) or defined(CPU16)}
Mode : Word;
{$else}
Mode : longint;
{$endif}
bufsize : SizeInt;
_private : SizeInt;
bufpos,