+ working version now ok

rtl/inc/textrec.inc

@@ -22,24 +22,60 @@ Const
 
 {$ifdef linux}
   textrecnamelength = 255;
-{$else}
-  {$ifdef Win32}
+{$endif}
+{$ifdef Win32}
     textrecnamelength = 255;
-  {$else}
+{$endif}
+{$ifdef MACOS}
+    textrecnamelength = 255;
+{$endif}
+{$ifdef AMIGA}
+    textrecnamelength = 255;
+{$endif}
+{$ifdef OS2}
+    textrecnamelength = 79;
+{$endif}
+{$ifdef Go32v1}
+    textrecnamelength = 79;
+{$endif Go32v1}
+{$ifdef Go32v2}
+    textrecnamelength = 79;
+{$endif Go32v2}
+{$ifdef ATARI}
     textrecnamelength = 79;
-  {$endif}
 {$endif}
 
-type       
+type
   textbuf = array[0..127] of char;
 
 {$PACKRECORDS 2}
   textrec = record
 {$ifdef win32}
      handle    : longint;
-{$else win32}
-     handle    : word;
 {$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;
      bufsize,
      _private,
@@ -57,7 +93,10 @@ type
 
 {
   $Log$
-  Revision 1.2  1998-05-12 10:42:45  peter
+  Revision 1.3  1998-05-21 15:37:19  carl
+   + working version now ok
+
+  Revision 1.2  1998/05/12 10:42:45  peter
     * moved getopts to inc/, all supported OS's need argc,argv exported
     + strpas, strlen are now exported in the systemunit
     * removed logs