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

   those records via system. 

git-svn-id: trunk@26356 -

rtl/aix/termio.pp

@@ -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}

rtl/amiga/crt.pp

@@ -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;
 

rtl/android/cwstring.pp

@@ -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

rtl/beos/termio.pp

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

rtl/darwin/termio.pp

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

rtl/emx/crt.pas

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

rtl/freebsd/termio.pp

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

rtl/go32v2/crt.pp

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

rtl/haiku/termio.pp

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

rtl/inc/dosh.inc

@@ -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,

rtl/inc/iso7185.pp

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

rtl/inc/lstrings.pp

@@ -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;

rtl/linux/oldlinux.pp

@@ -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}

rtl/linux/termio.pp

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

rtl/morphos/sockets.pp

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

rtl/msdos/crt.pp

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

rtl/netbsd/termio.pp

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

rtl/netware/crt.pp

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

rtl/netware/netware.pp

@@ -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

rtl/netware/sockets.pp

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

rtl/netwlibc/crt.pp

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

rtl/netwlibc/sockets.pp

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

rtl/objpas/sysutils/sysutilh.inc

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

rtl/openbsd/termio.pp

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

rtl/os2/crt.pas

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

rtl/os2/sockets.pas

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

rtl/solaris/termio.pp

@@ -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}
 

rtl/unix/bunxovl.inc

@@ -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;

rtl/unix/crt.pp

@@ -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

rtl/unix/cwstring.pp

@@ -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

rtl/unix/printer.pp

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

rtl/unix/sockets.pp

@@ -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
 ******************************************************************************}

rtl/unix/unix.pp

@@ -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';

rtl/unix/unixutil.pp

@@ -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

rtl/watcom/crt.pp

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

rtl/win/crt.pp

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

rtl/win/sockets.pp

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