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

* fixed padding in the filerec to match textrec even on platforms where

Browse Source 
sizeof(pointer)<>sizeof(codepointer), like in the medium and compact i8086
  memory models
This commit is contained in:
Nikolay Nikolov 2021-10-13 02:02:50 +03:00
parent 0934df505c
commit f20de5d583
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/inc/filerec.inc
View File

@ -37,7 +37,7 @@ type
Mode : longint;
{$endif}
RecSize : SizeInt;
_private : array[1..3 * SizeOf(SizeInt) + 5 * SizeOf (pointer)] of byte;
_private : array[1..3 * SizeOf(SizeInt) + SizeOf(pointer) + 4 * SizeOf(codepointer)] of byte;
UserData : array[1..32] of byte;
name : array[0..filerecnamelength] of TFileTextRecChar;
{$ifdef USE_FILEREC_FULLNAME}