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

+ Removed FPC_HASUSERDATA32 define

Browse Source 
git-svn-id: trunk@254 -
This commit is contained in:
michael 2005-06-07 21:02:43 +00:00
parent b6d3df6cb8
commit 71318f202b
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;
RecSize : SizeInt;
_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;
{$endif FPC_HASUSERDATA32}
name : array[0..filerecnamelength] of char;
End;

4
rtl/inc/textrec.inc
View File

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