+ Added filerec.inc for xmlread changes by Sebastian guenther

fcl/inc/filerec.inc

@@ -0,0 +1,50 @@
+{
+    $Id$
+    This file is part of the Free Pascal run time library.
+    Copyright (c) 1993,97 by the Free Pascal development team
+
+    FileRec record definition
+
+
+    See the file COPYING.FPC, included in this distribution,
+    for details about the copyright.
+
+    This program is distributed in the hope that it will be useful,
+    but WITHOUT ANY WARRANTY; without even the implied warranty of
+    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
+
+ **********************************************************************}
+
+{
+  This file contains the definition of the filerec record.
+  It is put separately, so it is available outside the system
+  unit without sacrificing TP compatibility.
+}
+
+const
+  filerecnamelength = 255;
+type
+  FileRec = Packed Record
+    Handle,
+    Mode,
+    RecSize   : longint;
+    _private  : array[1..32] of byte;
+    UserData  : array[1..16] of byte;
+    name      : array[0..filerecnamelength] of char;
+  End;
+
+{
+  $Log$
+  Revision 1.1  1999-08-09 16:18:00  michael
+  + Added filerec.inc for xmlread changes by Sebastian guenther
+
+  Revision 1.5  1998/09/14 10:48:15  peter
+    * FPC_ names
+    * Heap manager is now system independent
+
+  Revision 1.4  1998/09/04 18:16:13  peter
+    * uniform filerec/textrec (with recsize:longint and name:0..255)
+
+  Revision 1.3  1998/05/21 11:55:59  carl
+   * works with all OS
+}

fcl/xml/xmlread.pp

@@ -45,6 +45,8 @@ procedure ReadDTDFile(var ADoc: TXMLDocument; var f: TStream;
 
 implementation
 
+{$i filerec.inc}
+
 const
 
   Letter = ['A'..'Z', 'a'..'z'];
@@ -977,7 +979,10 @@ end.
 
 {
   $Log$
-  Revision 1.6  1999-07-27 13:01:59  peter
+  Revision 1.7  1999-08-09 16:18:00  michael
+  + Added filerec.inc for xmlread changes by Sebastian guenther
+
+  Revision 1.6  1999/07/27 13:01:59  peter
     * remove filerec.inc, it was missing from sysutils! You shouldn't need
       to compile with -Irtl/inc !!