paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-28 22:20:19 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ Merged revision 254

Browse Source 
git-svn-id: branches/fixes_2_0@256 -
This commit is contained in:
michael 2005-06-07 21:03:32 +00:00
parent 82f407960e
commit 4c2b40951a
2 changed files with 0 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
rtl/inc/filerec.inc
View File

@ -28,11 +28,7 @@ type
Mode : longint; Mode : longint;
RecSize : SizeInt; RecSize : SizeInt;
_private : array[1..3 * SizeOf(SizeInt) + 5 * SizeOf (pointer)] of byte; _private : array[1..3 * SizeOf(SizeInt) + 5 * SizeOf (pointer)] of byte;
{$ifndef FPC_HASUSERDATA32}
UserData : array[1..16] of byte;
{$else FPC_HASUSERDATA32}
UserData : array[1..32] of byte; UserData : array[1..32] of byte;
{$endif FPC_HASUSERDATA32}
name : array[0..filerecnamelength] of char; name : array[0..filerecnamelength] of char;
End; End;

4
rtl/inc/textrec.inc
View File

@ -38,11 +38,7 @@ type
inoutfunc, inoutfunc,
flushfunc, flushfunc,
closefunc : pointer; closefunc : pointer;
{$ifndef FPC_HASUSERDATA32}
UserData : array[1..16] of byte;
{$else FPC_HASUSERDATA32}
UserData : array[1..32] of byte; UserData : array[1..32] of byte;
{$endif FPC_HASUSERDATA32}
name : array[0..textrecnamelength-1] of char; name : array[0..textrecnamelength-1] of char;
LineEnd : TLineEndStr; LineEnd : TLineEndStr;
buffer : textbuf; buffer : textbuf;