diff --git a/fcl/inc/filerec.inc b/fcl/inc/filerec.inc new file mode 100644 index 0000000000..70ec45f73b --- /dev/null +++ b/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 +} diff --git a/fcl/xml/xmlread.pp b/fcl/xml/xmlread.pp index f916f7200d..800ebe898a 100644 --- a/fcl/xml/xmlread.pp +++ b/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 !!