diff --git a/rtl/inc/filerec.inc b/rtl/inc/filerec.inc index 1faa073c50..212315723a 100644 --- a/rtl/inc/filerec.inc +++ b/rtl/inc/filerec.inc @@ -15,22 +15,56 @@ const {$ifdef linux} filerecnamelength = 255; -{$else} - {$ifdef Win32} +{$endif} +{$ifdef Win32} filerecnamelength = 255; - {$else} +{$endif} +{$ifdef MACOS} + filerecnamelength = 255; +{$endif} +{$ifdef AMIGA} + filerecnamelength = 255; +{$endif} +{$ifdef OS2} + filerecnamelength = 79; +{$endif} +{$ifdef GO32V2} + filerecnamelength = 79; +{$endif GO32V2} +{$ifdef GO32V1} + filerecnamelength = 79; +{$endif Go32v1} +{$ifdef ATARI} filerecnamelength = 79; - {$endif} {$endif} Type {$PACKRECORDS 2} FileRec = Record {$ifdef win32} - Handle : longint; -{$else win32} - Handle : word; + handle : longint; {$endif win32} +{$ifdef amiga} + handle : longint; +{$endif amiga} +{$ifdef macos} + handle : longint; +{$endif macos} +{$ifdef linux} + handle : word; +{$endif} +{$ifdef go32v1} + handle : word; +{$endif go32v1} +{$ifdef go32v2} + handle : word; +{$endif go32v2} +{$ifdef atari} + handle : word; +{$endif atari} +{$ifdef os2} + handle : word; +{$endif os2} Mode : word; RecSize : word; _private : array[1..26] of byte; @@ -40,10 +74,48 @@ Type { $Log$ - Revision 1.2 1998-05-12 10:42:44 peter - * moved getopts to inc/, all supported OS's need argc,argv exported - + strpas, strlen are now exported in the systemunit - * removed logs - * removed $ifdef ver_above + Revision 1.3 1998-05-21 11:55:59 carl + * works with all OS + Revision 1.1.1.1 1998/03/25 11:18:43 root + * Restored version + + Revision 1.7 1998/02/05 12:08:54 pierre + * added packrecords to about dword alignment + for structures used in dos calls + + Revision 1.6 1998/01/26 12:00:21 michael + + Added log at the end + + + + Working file: rtl/inc/filerec.inc + description: + ---------------------------- + revision 1.5 + date: 1998/01/06 00:29:32; author: michael; state: Exp; lines: +20 -19 + Implemented a system independent sequence of reset/rewrite/append fileopenfunc etc system \n (from Peter Vreman) + ---------------------------- + revision 1.4 + date: 1997/12/01 12:08:03; author: michael; state: Exp; lines: +13 -0 + + added copyright reference header. + ---------------------------- + revision 1.3 + date: 1997/11/28 18:56:18; author: pierre; state: Exp; lines: +2 -1 + bug fix in ifdef win32 + ---------------------------- + revision 1.2 + date: 1997/11/27 22:49:04; author: florian; state: Exp; lines: +7 -0 + - CPU.PP added + - some bugs in DOS fixed (espsecially for go32v1) + - the win32 system unit is now compilable + ---------------------------- + revision 1.1 + date: 1997/11/27 08:33:46; author: michael; state: Exp; + Initial revision + ---------------------------- + revision 1.1.1.1 + date: 1997/11/27 08:33:46; author: michael; state: Exp; lines: +0 -0 + FPC RTL CVS start + ============================================================================= }