paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-07 03:00:58 +01:00
Code Issues Packages Projects Releases Wiki Activity

+ Removed FPC_LINEEND_IN_TEXTREC define

Browse Source 
git-svn-id: trunk@249 -
This commit is contained in:
michael 2005-06-07 20:56:24 +00:00
parent a44d5f5c13
commit b1b3e0ea6f
1 changed files with 0 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
rtl/inc/textrec.inc
View File

@ -30,11 +30,7 @@ type
Handle : THandle; Handle : THandle;
Mode : longint; Mode : longint;
bufsize : SizeInt; bufsize : SizeInt;
{$IFDEF FPC_LINEEND_IN_TEXTREC}
_private : SizeInt; _private : SizeInt;
{$ELSE FPC_LINEEND_IN_TEXTREC}
LineEnd : TLineEndStr;
{$ENDIF FPC_LINEEND_IN_TEXTREC}
bufpos, bufpos,
bufend : SizeInt; bufend : SizeInt;
bufptr : ^textbuf; bufptr : ^textbuf;
@ -48,9 +44,7 @@ type
UserData : array[1..32] of byte; UserData : array[1..32] of byte;
{$endif FPC_HASUSERDATA32} {$endif FPC_HASUSERDATA32}
name : array[0..textrecnamelength-1] of char; name : array[0..textrecnamelength-1] of char;
{$IFDEF FPC_LINEEND_IN_TEXTREC}
LineEnd : TLineEndStr; LineEnd : TLineEndStr;
{$ENDIF FPC_LINEEND_IN_TEXTREC}
buffer : textbuf; buffer : textbuf;
End; End;