paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-08 12:39:39 +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 implementation
{$i textrec.inc}
// load implementation for prototypes from current dir. // load implementation for prototypes from current dir.
{$i termiosproc.inc} {$i termiosproc.inc}

6
rtl/amiga/crt.pp
View File

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

1
rtl/android/cwstring.pp
View File

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

2
rtl/beos/termio.pp
View File

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

2
rtl/darwin/termio.pp
View File

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

2
rtl/emx/crt.pas
View File

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

2
rtl/freebsd/termio.pp
View File

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

6
rtl/go32v2/crt.pp
View File

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

2
rtl/haiku/termio.pp
View File

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

9
rtl/inc/dosh.inc
View File

@ -63,15 +63,6 @@ Type
NameStr = String[FileNameLen]; NameStr = String[FileNameLen];
ExtStr = 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 DateTime = packed record
Year, Year,
Month, Month,

2
rtl/inc/iso7185.pp
View File

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

2
rtl/inc/lstrings.pp
View File

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

4
rtl/linux/oldlinux.pp
View File

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

2
rtl/linux/termio.pp
View File

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

3
rtl/morphos/sockets.pp
View File

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

6
rtl/msdos/crt.pp
View File

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

2
rtl/netbsd/termio.pp
View File

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

6
rtl/netware/crt.pp
View File

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

5
rtl/netware/netware.pp
View File

@ -44,11 +44,6 @@ Function GetFS(Var F:File):longint;
implementation 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; Function Select(N:longint;readfds,writefds,exceptfds:PFDSet;TimeOut:Longint):longint;
{ {
Select checks whether the file descriptor sets in readfs/writefs/exceptfs Select checks whether the file descriptor sets in readfs/writefs/exceptfs

4
rtl/netware/sockets.pp
View File

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

3
rtl/netwlibc/crt.pp
View File

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

4
rtl/netwlibc/sockets.pp
View File

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

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

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

2
rtl/openbsd/termio.pp
View File

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

3
rtl/os2/crt.pas
View File

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

4
rtl/os2/sockets.pas
View File

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

2
rtl/solaris/termio.pp
View File

@ -30,8 +30,6 @@ Uses UnixType,BaseUnix; // load base unix typing
implementation implementation
{$i textrec.inc}
// load implementation for prototypes from current dir. // load implementation for prototypes from current dir.
{$i termiosproc.inc} {$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} Function FpLink (const existing : RawByteString; const newone : RawByteString): cInt; {$ifdef VER2_0}inline;{$endif}
var var
SystemExistingFileName, SystemNewOneFileName: RawByteString; SystemExistingFileName, SystemNewOneFileName: RawByteString;

5
rtl/unix/crt.pp
View File

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

4
rtl/unix/cwstring.pp
View File

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

2
rtl/unix/printer.pp
View File

@ -63,8 +63,6 @@ Uses Unix,BaseUnix,Strings;
{ {
include definition of textrec include definition of textrec
} }
{$i textrec.inc}
Const Const
P_TOF = 1; { Print to file } 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; threadvar internal_socketerror : cint;
{ Include filerec and textrec structures }
{$i filerec.inc}
{$i textrec.inc}
{****************************************************************************** {******************************************************************************
Kernel Socket Callings Kernel Socket Callings
******************************************************************************} ******************************************************************************}

4
rtl/unix/unix.pp
View File

@ -162,10 +162,6 @@ Uses
{$i unxsysc.inc} {$i unxsysc.inc}
{$endif} {$endif}
{ Get the definitions of textrec and filerec }
{$i textrec.inc}
{$i filerec.inc}
{$i unxfunc.inc} { Platform specific implementations } {$i unxfunc.inc} { Platform specific implementations }
Function getenv(name:string):Pchar; external name 'FPC_SYSC_FPGETENV'; 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 implementation
{$I textrec.inc}
{$i filerec.inc}
function ArrayStringToPPchar(const S:Array of AnsiString;reserveentries:Longint):ppchar; // const ? 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 ?) // Extra allocate reserveentries pchar's at the beginning (default param=0 after 1.0.x ?)
// Note: for internal use by skilled programmers only // Note: for internal use by skilled programmers only

6
rtl/watcom/crt.pp
View File

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

6
rtl/win/crt.pp
View File

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

4
rtl/win/sockets.pp
View File

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