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

* Clean out of $i textrec and filerec includes that are redundant now that cpstrrtl exposes

Browse Source 
those records via system. 

git-svn-id: trunk@26356 -
This commit is contained in:
marco 2014-01-02 13:26:09 +00:00
parent bcec29f1b4
commit ebe262762a
37 changed files with 3 additions and 129 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
rtl/aix/termio.pp
View File

@ -30,7 +30,7 @@ Uses UnixType,BaseUnix,ctypes; // load base unix typing
implementation
{$i textrec.inc}
// load implementation for prototypes from current dir.
{$i termiosproc.inc}

6
rtl/amiga/crt.pp
View File

@ -40,12 +40,6 @@ Const
Implementation
{
The definitions of TextRec and FileRec are in separate files.
}
{$i textrec.inc}
{$i filerec.inc}
var
maxcols,maxrows : longint;

1
rtl/android/cwstring.pp
View File

@ -361,7 +361,6 @@ begin
Result := CP_UTF8; // Android always uses UTF-8
end;
{$i textrec.inc}
procedure SetStdIOCodePage(var T: Text); inline;
begin
case TextRec(T).Mode of

2
rtl/beos/termio.pp
View File

@ -30,8 +30,6 @@ Uses BaseUnix; // load base unix typing
implementation
{$i textrec.inc}
// load implementation for prototypes from current dir.
{$i termiosproc.inc}

2
rtl/darwin/termio.pp
View File

@ -31,8 +31,6 @@ Uses BaseUnix; // load base unix typing
implementation
{$i textrec.inc}
// load implementation for prototypes from current dir.
{$i termiosproc.inc}

2
rtl/emx/crt.pas
View File

@ -30,8 +30,6 @@ var
implementation
{$i textrec.inc}
const extkeycode:char=#0;
var maxrows,maxcols:word;

2
rtl/freebsd/termio.pp
View File

@ -30,8 +30,6 @@ Uses BaseUnix; // load base unix typing
implementation
{$i textrec.inc}
// load implementation for prototypes from current dir.
{$i termiosproc.inc}

6
rtl/go32v2/crt.pp
View File

@ -33,12 +33,6 @@ var
DelayCnt : Longint;
VidSeg : Word;
{
definition of textrec is in textrec.inc
}
{$i textrec.inc}
{****************************************************************************
Low level Routines
****************************************************************************}

2
rtl/haiku/termio.pp
View File

@ -30,8 +30,6 @@ Uses BaseUnix; // load base unix typing
implementation
{$i textrec.inc}
// load implementation for prototypes from current dir.
{$i termiosproc.inc}

9
rtl/inc/dosh.inc
View File

@ -63,15 +63,6 @@ Type
NameStr = String[FileNameLen];
ExtStr = String[FileNameLen];
{
filerec.inc contains the definition of the filerec.
textrec.inc contains the definition of the textrec.
It is in a separate file to make it available in other units without
having to use the DOS unit for it.
}
{$i filerec.inc}
{$i textrec.inc}
DateTime = packed record
Year,
Month,

2
rtl/inc/iso7185.pp
View File

@ -44,8 +44,6 @@ unit iso7185;
implementation
{$i textrec.inc}
{$i-}
procedure DoAssign(var t : Text);
begin

2
rtl/inc/lstrings.pp
View File

@ -37,8 +37,6 @@ Interface
Type longstring = pchar;
ShortString = string;
{$i textrec.inc}
{ Internal functions, will not appear in systemh.inc }
Function NewLongString (Len : Longint) : LongString;

4
rtl/linux/oldlinux.pp
View File

@ -1627,10 +1627,6 @@ Implementation
Uses Strings;
{ Get the definitions of textrec and filerec }
{$i textrec.inc}
{$i filerec.inc}
{No debugging for syslinux include !}
{$IFDEF SYS_LINUX}
{$UNDEF SYSCALL_DEBUG}

2
rtl/linux/termio.pp
View File

@ -31,8 +31,6 @@ Uses BaseUnix; // load base unix typing
implementation
{$i textrec.inc}
// load implementation for prototypes from current dir.
{$i termiosproc.inc}

3
rtl/morphos/sockets.pp
View File

@ -132,9 +132,6 @@ Implementation
threadvar internal_socketerror : cint;
{ Include filerec and textrec structures }
{$i filerec.inc}
{$i textrec.inc}
{******************************************************************************
Kernel Socket Callings
******************************************************************************}

6
rtl/msdos/crt.pp
View File

@ -35,12 +35,6 @@ var
DelayCnt : Longint;
VidSeg : Word;
{
definition of textrec is in textrec.inc
}
{$i textrec.inc}
{****************************************************************************
Low level Routines
****************************************************************************}

2
rtl/netbsd/termio.pp
View File

@ -31,8 +31,6 @@ Uses BaseUnix; // load base unix typing
implementation
{$i textrec.inc}
// load implementation for prototypes from current dir.
{$i termiosproc.inc}

6
rtl/netware/crt.pp
View File

@ -44,12 +44,6 @@ var
// ScreenHeight : longint;
VidSeg : Word;
{
definition of textrec is in textrec.inc
}
{$i textrec.inc}
{****************************************************************************
Low level Routines
****************************************************************************}

5
rtl/netware/netware.pp
View File

@ -44,11 +44,6 @@ Function GetFS(Var F:File):longint;
implementation
{ Get the definitions of textrec and filerec }
{$i textrec.inc}
{$i filerec.inc}
Function Select(N:longint;readfds,writefds,exceptfds:PFDSet;TimeOut:Longint):longint;
{
Select checks whether the file descriptor sets in readfs/writefs/exceptfs

4
rtl/netware/sockets.pp
View File

@ -55,10 +55,6 @@ const
Implementation
{ Include filerec and textrec structures }
{$i filerec.inc}
{$i textrec.inc}
{******************************************************************************
Basic Socket Functions
******************************************************************************}

3
rtl/netwlibc/crt.pp
View File

@ -33,9 +33,6 @@ uses Libc;
var
ScreenHandle : scr_t;
{ Definition of textrec is in textrec.inc }
{$i textrec.inc}
{****************************************************************************
Low level Routines

4
rtl/netwlibc/sockets.pp
View File

@ -55,10 +55,6 @@ const
Implementation
{ Include filerec and textrec structures }
{$i filerec.inc}
{$i textrec.inc}
{******************************************************************************
Basic Socket Functions
******************************************************************************}

4
rtl/objpas/sysutils/sysutilh.inc
View File

@ -253,10 +253,6 @@ type
Var
OnShowException : Procedure (Msg : ShortString);
{ FileRec/TextRec }
{$i filerec.inc}
{$i textrec.inc}
Const
HexDisplayPrefix : string = '$';

2
rtl/openbsd/termio.pp
View File

@ -31,8 +31,6 @@ Uses BaseUnix; // load base unix typing
implementation
{$i textrec.inc}
// load implementation for prototypes from current dir.
{$i termiosproc.inc}

3
rtl/os2/crt.pas
View File

@ -33,9 +33,6 @@ implementation
{uses keyboard, video;}
{$i textrec.inc}
const
VioHandle: word = 0;

4
rtl/os2/sockets.pas
View File

@ -587,10 +587,6 @@ Implementation
uses
DosCalls;
{Include filerec and textrec structures}
{$I filerec.inc}
{$I textrec.inc}
{******************************************************************************
Basic Socket Functions
******************************************************************************}

2
rtl/solaris/termio.pp
View File

@ -30,8 +30,6 @@ Uses UnixType,BaseUnix; // load base unix typing
implementation
{$i textrec.inc}
// load implementation for prototypes from current dir.
{$i termiosproc.inc}

3
rtl/unix/bunxovl.inc
View File

@ -13,9 +13,6 @@
**********************************************************************}
{$I textrec.inc}
{$I filerec.inc}
Function FpLink (const existing : RawByteString; const newone : RawByteString): cInt; {$ifdef VER2_0}inline;{$endif}
var
SystemExistingFileName, SystemNewOneFileName: RawByteString;

5
rtl/unix/crt.pp
View File

@ -40,11 +40,6 @@ Implementation
uses BaseUnix ,unix, termio;
{
The definitions of TextRec and FileRec are in separate files.
}
{$i textrec.inc}
Const
OldTextAttr : byte = $07;
Var

4
rtl/unix/cwstring.pp
View File

@ -1,4 +1,4 @@
{
ｻｿ{
This file is part of the Free Pascal run time library.
Copyright (c) 2005 by Florian Klaempfl,
member of the Free Pascal development team.
@ -1010,7 +1010,7 @@ begin
end;
{$ifdef FPC_HAS_CPSTRING}
{$i textrec.inc}
procedure SetStdIOCodePage(var T: Text); inline;
begin
case TextRec(T).Mode of

2
rtl/unix/printer.pp
View File

@ -63,8 +63,6 @@ Uses Unix,BaseUnix,Strings;
{
include definition of textrec
}
{$i textrec.inc}
Const
P_TOF = 1; { Print to file }

3
rtl/unix/sockets.pp
View File

@ -79,9 +79,6 @@ Uses {$ifndef FPC_USE_LIBC}SysCall{$else}initc{$endif};
threadvar internal_socketerror : cint;
{ Include filerec and textrec structures }
{$i filerec.inc}
{$i textrec.inc}
{******************************************************************************
Kernel Socket Callings
******************************************************************************}

4
rtl/unix/unix.pp
View File

@ -162,10 +162,6 @@ Uses
{$i unxsysc.inc}
{$endif}
{ Get the definitions of textrec and filerec }
{$i textrec.inc}
{$i filerec.inc}
{$i unxfunc.inc} { Platform specific implementations }
Function getenv(name:string):Pchar; external name 'FPC_SYSC_FPGETENV';

3
rtl/unix/unixutil.pp
View File

@ -49,9 +49,6 @@ Function GregorianToJulian(Year,Month,Day:Longint):LongInt;
implementation
{$I textrec.inc}
{$i filerec.inc}
function ArrayStringToPPchar(const S:Array of AnsiString;reserveentries:Longint):ppchar; // const ?
// Extra allocate reserveentries pchar's at the beginning (default param=0 after 1.0.x ?)
// Note: for internal use by skilled programmers only

6
rtl/watcom/crt.pp
View File

@ -22,12 +22,6 @@ var
ScreenHeight : longint;
VidSeg : Word;
{
definition of textrec is in textrec.inc
}
{$i textrec.inc}
{****************************************************************************
Low level Routines
****************************************************************************}

6
rtl/win/crt.pp
View File

@ -31,12 +31,6 @@ uses
var
SaveCursorSize: Longint;
{
definition of textrec is in textrec.inc
}
{$i textrec.inc}
{****************************************************************************
Low level Routines
****************************************************************************}

4
rtl/win/sockets.pp
View File

@ -59,10 +59,6 @@ var
Implementation
{ Include filerec and textrec structures }
{$i filerec.inc}
{$i textrec.inc}
{******************************************************************************
Basic Socket Functions
******************************************************************************}