* old logs removed and tabs fixed

rtl/amiga/crt.pp

@@ -1020,7 +1020,7 @@ end.
 
 
   $Log$
-  Revision 1.2  2000-07-13 11:33:35  michael
-  + removed logs
- 
+  Revision 1.3  2002-09-07 16:01:16  peter
+    * old logs removed and tabs fixed
+
 }

rtl/amiga/dos.pp

@@ -1713,58 +1713,8 @@ End.
 
 {
   $Log$
-  Revision 1.3  2001-11-23 00:25:39  carl
-  * updated behavior of some routines to conform to docs
-
-  Revision 1.1.2.2  2001/07/24 07:32:25  pierre
-   * Use FreeMem on untyped pointer instead of dispose
-
-  Revision 1.1.2.1  2001/03/27 03:12:57  carl
-  + more routines are implemented (from Nils - thanks!)
-  ? Is the problem with illegal memory read fixed?
-
-  Revision 1.8  1998/08/19 14:52:52  carl
-    * SearchRec was not aligned!! so BOUM!...
-
-  Revision 1.7  1998/08/17 12:30:42  carl
-    * FExpand removes dot characters
-    * Findfirst single/double dot expansion
-    + SetFtime implemented
-
-  Revision 1.6  1998/08/13 13:18:45  carl
-    * FSearch bugfix
-    * FSplit bugfix
-    + GetFAttr,SetFAttr and GetFTime accept dos dir separators
-
-  Revision 1.5  1998/08/04 13:37:10  carl
-    * bugfix of findfirst, was not convberting correctl backslahes
-
-       History (Nils Sjoholm):
-       10.02.1998  First version for Amiga.
-                   Just GetDate and GetTime.
-
-       11.02.1998  Added AmigaToDt and DtToAmiga
-                   Changed GetDate and GetTime to
-                   use AmigaToDt and DtToAmiga.
-
-                   Added DiskSize and DiskFree.
-                   They are using a string as arg
-                   have to try to fix that.
-
-       12.02.1998  Added Fsplit and FExpand.
-                   Cleaned up the unit and removed
-                   stuff that was not used yet.
-
-       13.02.1998  Added CToPas and PasToC and removed
-                   the uses of strings.
-
-       14.02.1998  Removed AmigaToDt and DtToAmiga
-                   from public area.
-                   Added deviceids and devicenames
-                   arrays so now diskfree and disksize
-                   is compatible with dos.
-
-
+  Revision 1.4  2002-09-07 16:01:16  peter
+    * old logs removed and tabs fixed
 
 }
 

rtl/amiga/exec.inc

@@ -1048,7 +1048,7 @@ CONST
 
 
   $Log$
-  Revision 1.2  2000-07-13 11:33:35  michael
-  + removed logs
- 
+  Revision 1.3  2002-09-07 16:01:16  peter
+    * old logs removed and tabs fixed
+
 }

rtl/amiga/exec.pp

@@ -1555,7 +1555,7 @@ END. (* UNIT EXEC *)
 
 {
   $Log$
-  Revision 1.2  2000-07-13 11:33:36  michael
-  + removed logs
- 
+  Revision 1.3  2002-09-07 16:01:16  peter
+    * old logs removed and tabs fixed
+
 }

rtl/amiga/graph.pp

@@ -6,7 +6,7 @@ unit Graph;
 
   This units mimics some parts of borland's graph unit for
   Amiga.
-  
+
   You have to use crt for readln, readkey and stuff like
   that for your programs. When the show is over you should
   just press a key or hit return to close everything down.
@@ -136,7 +136,7 @@ const
   grIOerror        = -12;
   grInvalidFont    = -13;
   grInvalidFontNum = -14;
-  
+
 Type
   FillPatternType = array[1..8] of byte;
 
@@ -212,8 +212,8 @@ Type
   ---------------------------------------------------------------------}
 
 { Retrieving coordinates }
-function  GetX: Integer;                                        
-function  GetY: Integer;                                        
+function  GetX: Integer;
+function  GetY: Integer;
 
 { Pixel-oriented routines }
 procedure PutPixel(X, Y: Integer; Pixel: Word);
@@ -463,12 +463,12 @@ begin
    SetRast(CurrentRastPort,Black);
 end;
 
-function GetX: Integer;                                 
+function GetX: Integer;
 begin
   GetX := CurX;
 end;
 
-function GetY: Integer;                                 
+function GetY: Integer;
 begin
   GetY := CurY;
 end;
@@ -791,7 +791,7 @@ begin
 end.
 
   $Log$
-  Revision 1.2  2000-07-13 11:33:37  michael
-  + removed logs
- 
+  Revision 1.3  2002-09-07 16:01:16  peter
+    * old logs removed and tabs fixed
+
 }

rtl/amiga/objinc.inc

@@ -297,7 +297,7 @@ END;
 
 {
   $Log$
-  Revision 1.2  2000-07-13 11:33:37  michael
-  + removed logs
- 
+  Revision 1.3  2002-09-07 16:01:16  peter
+    * old logs removed and tabs fixed
+
 }

rtl/amiga/os.inc

@@ -21,7 +21,7 @@
 
 {
   $Log$
-  Revision 1.2  2000-07-13 11:33:37  michael
-  + removed logs
- 
+  Revision 1.3  2002-09-07 16:01:16  peter
+    * old logs removed and tabs fixed
+
 }

rtl/amiga/printer.pp

@@ -30,7 +30,7 @@ begin
 end.
 {
   $Log$
-  Revision 1.2  2000-07-13 11:33:37  michael
-  + removed logs
- 
+  Revision 1.3  2002-09-07 16:01:16  peter
+    * old logs removed and tabs fixed
+
 }

rtl/amiga/system.pas

@@ -1825,108 +1825,7 @@ end.
 
 {
   $Log$
-  Revision 1.3  2001-06-19 20:46:07  hajny
-    * platform specific constants moved after systemh.inc, BeOS omission corrected
+  Revision 1.4  2002-09-07 16:01:16  peter
+    * old logs removed and tabs fixed
 
-  Revision 1.2  2001/06/13 22:22:59  hajny
-    + platform specific information
-
-  Revision 1.1  2001/03/16 20:01:47  hajny
-    + system unit name change
-
-  Revision 1.1  2000/07/13 06:30:29  michael
-  + Initial import
-
-  Revision 1.15  2000/01/07 16:41:29  daniel
-    * copyright 2000
-
-  Revision 1.14  2000/01/07 16:32:22  daniel
-    * copyright 2000 added
-
-  Revision 1.13  1999/09/10 15:40:32  peter
-    * fixed do_open flags to be > $100, becuase filemode can be upto 255
-
-  Revision 1.12  1999/01/18 10:05:47  pierre
-   + system_exit procedure added
-
-  Revision 1.11  1998/12/28 15:50:42  peter
-    + stdout, which is needed when you write something in the system unit
-      to the screen. Like the runtime error
-
-  Revision 1.10  1998/09/14 10:48:00  peter
-    * FPC_ names
-    * Heap manager is now system independent
-
-  Revision 1.9  1998/08/17 12:34:22  carl
-    * chdir accepts .. characters
-    + added ctrl-c checking
-    + implemented sbrk
-    * exit code was never called if no error was found on exit!
-    * register was not saved in do_open
-
-  Revision 1.8  1998/07/13 12:32:18  carl
-    * do_truncate works, some cleanup
-
-  Revision 1.6  1998/07/02 12:37:52  carl
-    * IOCheck for chdir,rmdir and mkdir as in TP
-
-  Revision 1.5  1998/07/01 14:30:56  carl
-    * forgot that includes are case sensitive
-
-  Revision 1.4  1998/07/01 14:13:50  carl
-    * do_open bugfix
-    * correct conversion of Amiga error codes to TP error codes
-    * InoutRes word bugfix
-    * parameter counting fixed
-    * new stack checking implemented
-    + IOCheck for chdir,rmdir,getdir and rmdir
-    * do_filepos was wrong
-    + chdir correctly implemented
-    * getdir correctly implemented
-
-  Revision 1.1.1.1  1998/03/25 11:18:47  root
-  * Restored version
-
-  Revision 1.14  1998/03/21 04:20:09  carl
-    * correct ExecBase pointer (from Nils Sjoholm)
-    * correct OpenLibrary vector (from Nils Sjoholm)
-
-  Revision 1.13  1998/03/14 21:34:32  carl
-    * forgot to save a6 in Startup routine
-
-  Revision 1.12  1998/02/24 21:19:42  carl
-  *** empty log message ***
-
-  Revision 1.11  1998/02/23 02:22:49  carl
-    * bugfix if linking problems
-
-  Revision 1.9  1998/02/06 16:34:32  carl
-    + do_open is now standard with other platforms
-
-  Revision 1.8  1998/02/02 15:01:45  carl
-    * fixed bug with opening library versions (from Nils Sjoholm)
-
-  Revision 1.7  1998/01/31 19:35:19  carl
-    + added opening of utility.library
-
-  Revision 1.6  1998/01/29 23:20:54  peter
-    - Removed Backslash convert
-
-  Revision 1.5  1998/01/27 10:55:04  peter
-    * Amiga uses / not \, so change AllowSlash -> AllowBackSlash
-
-  Revision 1.4  1998/01/25 21:53:20  peter
-    + Universal Handles support for StdIn/StdOut/StdErr
-    * Updated layout of sysamiga.pas
-
-  Revision 1.3  1998/01/24 21:09:53  carl
-    + added missing input/output function pointers
-
-  Revision 1.2  1998/01/24 14:08:25  carl
-    * RunError 217 --> RunError 219 (cannot open lib)
-    + Standard Handle names implemented
-
-  Revision 1.1  1998/01/24 05:12:15  carl
-    + initial revision, some stuff still missing though.
-      (and as you might imagine ... untested :))
 }

rtl/atari/objinc.inc

@@ -199,7 +199,7 @@ END;
 
 {
   $Log$
-  Revision 1.2  2000-07-13 11:33:37  michael
-  + removed logs
- 
+  Revision 1.3  2002-09-07 16:01:16  peter
+    * old logs removed and tabs fixed
+
 }

rtl/atari/os.inc

@@ -21,7 +21,7 @@
 
 {
   $Log$
-  Revision 1.2  2000-07-13 11:33:37  michael
-  + removed logs
- 
+  Revision 1.3  2002-09-07 16:01:16  peter
+    * old logs removed and tabs fixed
+
 }

rtl/atari/system.pas

@@ -757,75 +757,7 @@ end.
 
 {
   $Log$
-  Revision 1.3  2001-06-19 20:46:07  hajny
-    * platform specific constants moved after systemh.inc, BeOS omission corrected
-
-  Revision 1.2  2001/06/13 22:22:59  hajny
-    + platform specific information
-
-  Revision 1.1  2001/03/16 20:01:47  hajny
-    + system unit name change
-
-  Revision 1.2  2000/07/14 10:30:58  michael
-  +
-
-  Revision 1.1  2000/07/13 06:30:30  michael
-  + Initial import
-
-  Revision 1.14  2000/01/07 16:41:29  daniel
-    * copyright 2000
-
-  Revision 1.13  2000/01/07 16:32:23  daniel
-    * copyright 2000 added
-
-  Revision 1.12  1999/09/10 15:40:33  peter
-    * fixed do_open flags to be > $100, becuase filemode can be upto 255
-
-  Revision 1.11  1999/01/18 10:05:48  pierre
-   + system_exit procedure added
-
-  Revision 1.10  1998/12/28 15:50:43  peter
-    + stdout, which is needed when you write something in the system unit
-      to the screen. Like the runtime error
-
-  Revision 1.9  1998/09/14 10:48:02  peter
-    * FPC_ names
-    * Heap manager is now system independent
-
-  Revision 1.8  1998/07/15 12:11:59  carl
-    * hmmm... can't remember! :(...
-
-  Revision 1.5  1998/07/13 12:34:13  carl
-    + Error2InoutRes implemented
-    * do_read was doing a wrong os call!
-    * do_open was not pushing the right values
-    * DosDir was pushing the wrong params on the stack
-    * do_close would never works, was pushing a longint instead of word
-
-  Revision 1.4  1998/07/02 12:39:27  carl
-    * IOCheck for mkdir,chdir and rmdir, just like in TP
-
-  Revision 1.3  1998/07/01 14:40:20  carl
-    + new stack checking implemented
-    + IOCheck for chdir , getdir , mkdir and rmdir
-
-  Revision 1.1.1.1  1998/03/25 11:18:47  root
-  * Restored version
-
-  Revision 1.8  1998/02/23 02:27:39  carl
-    * make it link correctly
-
-  Revision 1.7  1998/02/06 16:33:02  carl
-    * oops... commited wrong file
-    + do_open is now standard with other platforms
-
-  Revision 1.5  1998/01/31 19:32:51  carl
-    - removed incorrect $define
-
-  Revision 1.4  1998/01/27 10:55:45  peter
-    * Word Handles from -1 -> $ffff
-
-  Revision 1.3  1998/01/25 22:44:14  peter
-    * Using uniform layout
+  Revision 1.4  2002-09-07 16:01:16  peter
+    * old logs removed and tabs fixed
 
 }

rtl/beos/Makefile.fpc

@@ -153,4 +153,4 @@ lineinfo$(PPUEXT) : $(INC)/lineinfo.pp system$(PPUEXT)
 
 #
 # Other system-dependent RTL Units
-#
+#

rtl/beos/dos.pp

@@ -502,96 +502,9 @@ End;
 
 {
   $Log$
-  Revision 1.2  2001-06-19 20:46:07  hajny
-    * platform specific constants moved after systemh.inc, BeOS omission corrected
+  Revision 1.3  2002-09-07 16:01:17  peter
+    * old logs removed and tabs fixed
 
-  Revision 1.1  2001/06/02 19:26:03  peter
-    * BeOS target!
-
-  Revision 1.5  2000/01/07 16:41:29  daniel
-    * copyright 2000
-
-  Revision 1.4  2000/01/07 16:32:23  daniel
-    * copyright 2000 added
-
-  Revision 1.3  1999/01/22 16:22:09  pierre
-   * Daniel removal of findclose reverted
-
-  Revision 1.2  1999/01/22 10:07:02  daniel
-  - Findclose removed: This is TP incompatible!!
-
-  Revision 1.1  1998/12/21 13:07:02  peter
-    * use -FE
-
-  Revision 1.19  1998/11/23 13:53:59  peter
-    * more fexpand fixes from marco van de voort
-
-  Revision 1.18  1998/11/23 12:48:02  peter
-    * fexpand('o:') fixed to return o:\ (from the mailinglist)
-
-  Revision 1.17  1998/11/22 09:33:21  florian
-    * fexpand bug (temp. strings were too shoort) fixed, was reported
-      by Marco van de Voort
-
-  Revision 1.16  1998/11/17 09:37:41  pierre
-   * explicit conversion from word dosreg.ax to integer doserror
-
-  Revision 1.15  1998/11/01 20:27:18  peter
-    * fixed some doserror settings
-
-  Revision 1.14  1998/10/22 15:05:28  pierre
-   * fsplit adapted to long filenames
-
-  Revision 1.13  1998/09/16 16:47:24  peter
-    * merged fixes
-
-  Revision 1.11.2.2  1998/09/16 16:16:04  peter
-    * go32v1 compiles again
-
-  Revision 1.12  1998/09/11 12:46:44  pierre
-    * range check problem with LFN attr removed
-
-  Revision 1.11.2.1  1998/09/11 12:38:41  pierre
-    * conversion from LFN attr to Dos attr did not respect range checking
-
-  Revision 1.11  1998/08/28 10:45:58  peter
-    * fixed path buffer in findfirst
-
-  Revision 1.10  1998/08/27 10:30:48  pierre
-    * go32v1 RTL did not compile (LFNsupport outside go32v2 defines !)
-      I renamed tb_selector to tb_segment because
-        it is a real mode segment as opposed to
-        a protected mode selector
-      Fixed it for go32v1 (remove the $E0000000 offset !)
-
-  Revision 1.9  1998/08/26 10:04:01  peter
-    * new lfn check from mailinglist
-    * renamed win95 -> LFNSupport
-    + tb_selector, tb_offset for easier access to transferbuffer
-
-  Revision 1.8  1998/08/16 20:39:49  peter
-    + LFN Support
-
-  Revision 1.7  1998/08/16 09:12:13  michael
-  Corrected fexpand behaviour.
-
-  Revision 1.6  1998/08/05 21:01:50  michael
-  applied bugfix from maillist to fsearch
-
-  Revision 1.5  1998/05/31 14:18:13  peter
-    * force att or direct assembling
-    * cleanup of some files
-
-  Revision 1.4  1998/05/22 00:39:22  peter
-    * go32v1, go32v2 recompiles with the new objects
-    * remake3 works again with go32v2
-    - removed some "optimizes" from daniel which were wrong
-
-  Revision 1.3  1998/05/21 19:30:47  peter
-    * objects compiles for linux
-    + assign(pchar), assign(char), rename(pchar), rename(char)
-    * fixed read_text_as_array
-    + read_text_as_pchar which was not yet in the rtl
 }
 
 

rtl/beos/sysfiles.inc

@@ -15,4 +15,4 @@ function sys_read (handle:longint;buffer:pointer;len:longint;var a:longint):long
 function sys_write (handle:longint;buffer:pointer;len:longint;var a:longint):longint; cdecl; external name 'sys_write';
 function sys_lseek (handle:longint;pos:int64;whence:longint): int64; cdecl; external name 'sys_lseek';
 
-      
+

rtl/beos/system.pp

@@ -522,13 +522,7 @@ begin
 end.
 {
   $Log$
-  Revision 1.3  2001-06-19 20:46:07  hajny
-    * platform specific constants moved after systemh.inc, BeOS omission corrected
-
-  Revision 1.2  2001/06/13 22:20:10  hajny
-    + platform specific information
-
-  Revision 1.1  2001/06/02 19:26:03  peter
-    * BeOS target!
+  Revision 1.4  2002-09-07 16:01:17  peter
+    * old logs removed and tabs fixed
 
 }

rtl/beos/sysutils.pp

@@ -258,10 +258,7 @@ Finalization
 end.
 {
   $Log$
-  Revision 1.2  2001-06-03 15:18:01  peter
-    * eoutofmemory and einvalidpointer fix
+  Revision 1.3  2002-09-07 16:01:17  peter
+    * old logs removed and tabs fixed
 
-  Revision 1.1  2001/06/02 19:26:03  peter
-    * BeOS target!
-
-}
+}

rtl/bsd/bsdfuncs.inc

@@ -18,48 +18,51 @@
 
 function sys_uname(var name:utsname):cint;
 Var
-	mib  : array[0..1] of cint;
-	rval : cint;
-	len  : size_t;
-	i    : longint;
-	oerrno : cint;
+        mib  : array[0..1] of cint;
+        rval : cint;
+        len  : size_t;
+        i    : longint;
+        oerrno : cint;
 
 procedure Doone(pz:pchar;pzsize:cint;val1,val2:cint);
-	
+
 Begin
-  	mib[0] := val1;
-	mib[1] := val2;
-	len    := pzsize;
-	oerrno := geterrno;
-
-	if (sys_sysctl(@mib, 2, pz, @len, NIL, 0) = -1) Then
-           Begin	
-		if (geterrno = sys_ENOMEM) Then
-			seterrno(oerrno)
-		else
-			rval := -1;
-	   End;		 
-	 pz[pzsize- 1] := #0;
+        mib[0] := val1;
+        mib[1] := val2;
+        len    := pzsize;
+        oerrno := geterrno;
+
+        if (sys_sysctl(@mib, 2, pz, @len, NIL, 0) = -1) Then
+           Begin
+                if (geterrno = sys_ENOMEM) Then
+                        seterrno(oerrno)
+                else
+                        rval := -1;
+           End;
+         pz[pzsize- 1] := #0;
 End;
 
 Begin
-	rval := 0;
-	DoOne(@name.sysname,sizeof(name.sysname),CTL_KERN,KERN_OSTYPE);
-	DoOne(@name.nodename,sizeof(name.nodename),CTL_KERN,KERN_HOSTNAME);
-	DoOne(@name.release,sizeof(name.release),CTL_KERN,KERN_OSRELEASE);
-	{ The version may have newlines in it, turn them into spaces. }
-	DoOne(@name.version,sizeof(name.version),CTL_KERN,KERN_VERSION);
+        rval := 0;
+        DoOne(@name.sysname,sizeof(name.sysname),CTL_KERN,KERN_OSTYPE);
+        DoOne(@name.nodename,sizeof(name.nodename),CTL_KERN,KERN_HOSTNAME);
+        DoOne(@name.release,sizeof(name.release),CTL_KERN,KERN_OSRELEASE);
+        { The version may have newlines in it, turn them into spaces. }
+        DoOne(@name.version,sizeof(name.version),CTL_KERN,KERN_VERSION);
 
         For I:=0 to sizeof(name.sysname)-2 Do
           If (name.version[i]=#13) or (name.version[i]=#9) Then
             name.version[i]:=' ';
-	DoOne(@name.machine,sizeof(name.machine),CTL_HW,HW_MACHINE);
-	sys_Uname:=rval;
-end;	
+        DoOne(@name.machine,sizeof(name.machine),CTL_HW,HW_MACHINE);
+        sys_Uname:=rval;
+end;
 
 {
  $Log$
- Revision 1.1  2002-08-21 07:03:16  marco
+ Revision 1.2  2002-09-07 16:01:17  peter
+   * old logs removed and tabs fixed
+
+ Revision 1.1  2002/08/21 07:03:16  marco
   * Fixes from Tuesday.
 
  Revision 1.1  2002/08/08 11:39:30  marco

rtl/bsd/bsdmacro.inc

@@ -24,7 +24,7 @@
 }
 
 function S_ISDIR(m : mode_t): boolean;
-      
+
 begin
  S_ISDIR:=((m and %001111000000000000) = %100000000000000);
 end;
@@ -38,7 +38,7 @@ function S_ISBLK(m : mode_t): boolean;
 begin
  S_ISBLK:=((m and %001111000000000000) = %110000000000000);
 end;
-    
+
 function S_ISREG(m : mode_t): boolean;
 begin
  S_ISREG:=((m and %001111000000000000) = %1000000000000000);
@@ -48,7 +48,7 @@ function S_ISFIFO(m : mode_t): boolean;
 begin
  S_ISFIFO:=((m and %001111000000000000) = %1000000000000);
 end;
-    
+
 function wifexited(status : cint): cint;
 begin
  wifexited:=cint((status AND %1111111) =0);
@@ -56,12 +56,12 @@ end;
 
 function wexitstatus(status : cint): cint;
 begin
- wexitstatus:=(status and %1111111) shl 8;  	
+ wexitstatus:=(status and %1111111) shl 8;
 end;
 
 function wstopsig(status : cint): cint;
 begin
- wstopsig:=(status and %1111111) shl 8;  	
+ wstopsig:=(status and %1111111) shl 8;
 end;
 
 function wifsignaled(status : cint): cint;
@@ -71,8 +71,11 @@ end;
 
 {
   $Log$
-  Revision 1.1  2002-08-19 12:29:11  marco
+  Revision 1.2  2002-09-07 16:01:17  peter
+    * old logs removed and tabs fixed
+
+  Revision 1.1  2002/08/19 12:29:11  marco
    * First working POSIX *BSD system unit.
 
 
-}
+}

rtl/bsd/bsdsysc.inc

@@ -105,7 +105,7 @@ Begin
  sys_open:=do_syscall(syscall_nr_open,longint(path),longint(flags),longint(mode));
 End;
 
-function sys_close(fd : cint): cint;  
+function sys_close(fd : cint): cint;
 
 begin
  sys_close:=do_syscall(syscall_nr_close,fd);
@@ -182,7 +182,7 @@ end;
 
 const DIRBLKSIZ=1024;
 
- 
+
 function sys_opendir(const dirname : pchar): pdir;  [public, alias : 'FPC_SYSC_OPENDIR'];
 
 var
@@ -259,8 +259,8 @@ end;
 var
     FinalEntry     : pdirent;
     novalid        : boolean;
-    Reclen	   : Longint;
-    CurEntry	   : PDirent;
+    Reclen         : Longint;
+    CurEntry       : PDirent;
 
 begin
  if (dirp^.dd_buf=nil) or (dirp^.dd_loc=0) THEN
@@ -269,7 +269,7 @@ begin
    (dirp^.dd_rewind>=(longint(dirp^.dd_buf)+dirblksiz)) then  {no more entries left?}
   Begin
     if readbuffer=0 then        {succesful read?}
-     Exit(NIL);			{No more data}
+     Exit(NIL);                 {No more data}
   End;
  FinalEntry:=NIL;
  CurEntry:=nil;
@@ -343,7 +343,7 @@ begin
   Sys_FStat:=do_SysCall(syscall_nr_fstat,fd,longint(@sb));
 end;
 
-{$ifdef NewReaddir} 
+{$ifdef NewReaddir}
 {$I readdir.inc}
 {$endif}
 
@@ -362,7 +362,7 @@ Begin
 End;
 
 {
-function sys_execve(const path : pathstr; const argv : ppchar; const envp: ppchar): cint; 
+function sys_execve(const path : pathstr; const argv : ppchar; const envp: ppchar): cint;
 }
 {
   Replaces the current program by the program specified in path,
@@ -527,7 +527,10 @@ end;
 
 {
  $Log$
- Revision 1.2  2002-08-21 07:03:16  marco
+ Revision 1.3  2002-09-07 16:01:17  peter
+   * old logs removed and tabs fixed
+
+ Revision 1.2  2002/08/21 07:03:16  marco
   * Fixes from Tuesday.
 
  Revision 1.1  2002/08/19 12:29:11  marco
@@ -544,23 +547,4 @@ end;
      It is all close together, and it should be doable to have just one copy
      of these for *BSD.
 
- Revision 1.1.2.5  2001/12/09 03:31:50  carl
- + wifsignaled() added
-
- Revision 1.1.2.4  2001/12/03 03:13:30  carl
- * fix ftruncate prototype
- * fix rename prototype
- * change readdir / closedir prototype
-
- Revision 1.1.2.3  2001/11/30 03:50:43  carl
- + int -> cint
- + missing prototypes added
-
- Revision 1.1.2.2  2001/11/28 03:08:29  carl
- * int -> cint
- + several other stuff renamed
-
- Revision 1.1.2.1  2001/08/15 00:15:04  carl
- - renamed
-
-}
+}

rtl/bsd/bsdtypes.inc

@@ -1,7 +1,7 @@
 {
     $Id$
     Copyright (c) 2000-2002 by Marco van de Voort
-    
+
     Some non POSIX BSD types used internally in the system unit.
 
     This program is free software; you can redistribute it and/or modify
@@ -42,7 +42,10 @@ Type
 
 {
  $Log$
- Revision 1.1  2002-08-19 12:29:11  marco
+ Revision 1.2  2002-09-07 16:01:17  peter
+   * old logs removed and tabs fixed
+
+ Revision 1.1  2002/08/19 12:29:11  marco
   * First working POSIX *BSD system unit.
 
 

rtl/bsd/bsduname.inc

@@ -17,47 +17,50 @@
 
 function uname(var name:utsname):cint;
 Var
-	mib  : array[0..1] of cint;
-	rval : cint;
-	len  : size_t;
-	i    : longint;
-	oerrno : cint;
+        mib  : array[0..1] of cint;
+        rval : cint;
+        len  : size_t;
+        i    : longint;
+        oerrno : cint;
 
 procedure Doone(pz:pchar;pzsize:cint;val1,val2:cint);
-	
+
 Begin
-  	mib[0] := val1;
-	mib[1] := val2;
-	len    := pzsize;
-	oerrno := errno;
-	if (sysctl(@mib, 2, pz, @len, NIL, 0) = -1) Then
-           Begin	
-		if (errno = sys_ENOMEM) Then
-			errno := oerrno
-		else
-			rval := -1;
-	   End;		 
-	 pz[pzsize- 1] := #0;
+        mib[0] := val1;
+        mib[1] := val2;
+        len    := pzsize;
+        oerrno := errno;
+        if (sysctl(@mib, 2, pz, @len, NIL, 0) = -1) Then
+           Begin
+                if (errno = sys_ENOMEM) Then
+                        errno := oerrno
+                else
+                        rval := -1;
+           End;
+         pz[pzsize- 1] := #0;
 End;
 
 Begin
-	rval := 0;
-	DoOne(@name.sysname,sizeof(name.sysname),CTL_KERN,KERN_OSTYPE);
-	DoOne(@name.nodename,sizeof(name.nodename),CTL_KERN,KERN_HOSTNAME);
-	DoOne(@name.release,sizeof(name.release),CTL_KERN,KERN_OSRELEASE);
-	{ The version may have newlines in it, turn them into spaces. }
-	DoOne(@name.version,sizeof(name.version),CTL_KERN,KERN_VERSION);
+        rval := 0;
+        DoOne(@name.sysname,sizeof(name.sysname),CTL_KERN,KERN_OSTYPE);
+        DoOne(@name.nodename,sizeof(name.nodename),CTL_KERN,KERN_HOSTNAME);
+        DoOne(@name.release,sizeof(name.release),CTL_KERN,KERN_OSRELEASE);
+        { The version may have newlines in it, turn them into spaces. }
+        DoOne(@name.version,sizeof(name.version),CTL_KERN,KERN_VERSION);
 
         For I:=0 to sizeof(name.sysname)-2 Do
           If (name.version[i]=#13) or (name.version[i]=#9) Then
             name.version[i]:=' ';
-	DoOne(@name.machine,sizeof(name.machine),CTL_HW,HW_MACHINE);
-	Uname:=rval;
-end;	
+        DoOne(@name.machine,sizeof(name.machine),CTL_HW,HW_MACHINE);
+        Uname:=rval;
+end;
 
 {
  $Log$
- Revision 1.1  2002-08-08 11:39:30  marco
+ Revision 1.2  2002-09-07 16:01:17  peter
+   * old logs removed and tabs fixed
+
+ Revision 1.1  2002/08/08 11:39:30  marco
   * Initial versions, to allow support for uname in posix.pp
 
 

rtl/bsd/i386/syscall.inc

@@ -20,7 +20,7 @@
 
  ****************************************************************************
 
-These functions are the same over all three BSDs, except that some have a 
+These functions are the same over all three BSDs, except that some have a
 32-bit Errno, and some a 16-bit}
 
 {$ifdef NetBSD}
@@ -36,11 +36,11 @@ procedure actualsyscall; assembler; {inline requires a dummy push IIRC}
          jb .LErrorcode
          ret
 .LErrorcode:
-	 {$ifdef ErrnoWord}
+         {$ifdef ErrnoWord}
           movw  %ax,Errno
-	 {$else}
+         {$else}
           movl %eax,Errno
-	 {$endif}
+         {$endif}
        mov $-1,%eax
    end;
 

rtl/bsd/i386/syscallh.inc

@@ -32,10 +32,13 @@ function Do_SysCall(sysnr,param1,param2,param3,param4,param5:LONGINT):longint;
 function Do_SysCall(sysnr,param1,param2,param3,param4,param5,param6:LONGINT):longint;  external name 'FPC_DOSYS6';
 function Do_SysCall(sysnr,param1,param2,param3,param4,param5,param6,param7:LONGINT):longint;   external name 'FPC_DOSYS7';
 
-{ 
+{
   $Log$
-  Revision 1.1  2002-08-20 08:28:14  marco
+  Revision 1.2  2002-09-07 16:01:17  peter
+    * old logs removed and tabs fixed
+
+  Revision 1.1  2002/08/20 08:28:14  marco
    * Updates for new errno scheme.
 
 
-}
+}

rtl/bsd/osposix.inc

@@ -92,11 +92,11 @@ function sys_readdir(var dirp : dir) : pdirent; external name 'FPC_SYSC_READDIR'
 procedure sys_exit(status : cint); external name 'FPC_SYSC_EXIT';
 function sys_sigaction(sig: cint; var act : sigactionrec; var oact : sigactionrec): cint;  external name 'FPC_SYSC_SIGACTION';
 function sys_ftruncate(fd : cint; flength : off_t): cint; external name 'FPC_SYSC_FTRUNCATE';
-function sys_fstat(fd : cint; var sb : stat): cint; external name 'FPC_SYSC_FSTAT'; 
+function sys_fstat(fd : cint; var sb : stat): cint; external name 'FPC_SYSC_FSTAT';
 function sys_fork : pid_t; external name 'FPC_SYSC_FORK';
 function sys_execve(const path : pchar; const argv : ppchar; const envp: ppchar): cint; external name 'FPC_SYSC_EXECVE';
 function sys_waitpid(pid : pid_t; var stat_loc : cint; options: cint): pid_t; external name 'FPC_SYSC_WAITPID';
-function sys_access(const pathname : pchar; amode : cint): cint;external name 'FPC_SYSC_ACCESS'; 
+function sys_access(const pathname : pchar; amode : cint): cint;external name 'FPC_SYSC_ACCESS';
 function sys_Dup(oldd:cint):cint;  external name 'FPC_SYSC_DUP';
 function sys_Dup2(oldd:cint;newd:cint):cint; external name 'FPC_SYSC_DUP2';
 function geterrno:longint; external name  'FPC_SYS_GETERRNO';
@@ -110,7 +110,10 @@ procedure seterrno (i:longint); external name  'FPC_SYS_SETERRNO';
 
 {
  $Log$
- Revision 1.4  2002-08-21 07:03:16  marco
+ Revision 1.5  2002-09-07 16:01:17  peter
+   * old logs removed and tabs fixed
+
+ Revision 1.4  2002/08/21 07:03:16  marco
   * Fixes from Tuesday.
 
  Revision 1.3  2002/08/19 12:29:11  marco
@@ -118,4 +121,4 @@ procedure seterrno (i:longint); external name  'FPC_SYS_SETERRNO';
 
 
 
-}
+}

rtl/bsd/osposixh.inc

@@ -31,34 +31,34 @@
 
 TYPE
    { system information services }
-   utsname = record          	
+   utsname = record
               sysname : Array[0..SYS_NMLN-1] OF Char;   // Name of this OS
-              nodename: Array[0..SYS_NMLN-1] OF Char;	// Name of this network node. 
-              release : Array[0..SYS_NMLN-1] OF Char;	// Release level. 
-              version : Array[0..SYS_NMLN-1] OF Char; 	// Version level. 
-              machine : Array[0..SYS_NMLN-1] OF Char;	// Hardware type. 
+              nodename: Array[0..SYS_NMLN-1] OF Char;   // Name of this network node.
+              release : Array[0..SYS_NMLN-1] OF Char;   // Release level.
+              version : Array[0..SYS_NMLN-1] OF Char;   // Version level.
+              machine : Array[0..SYS_NMLN-1] OF Char;   // Hardware type.
              end;
 
   { file characteristics services }
    stat    = record { the types are real}
-        st_dev        : dev_t;             // inode's device 
-        st_ino        : ino_t;             // inode's number 
-        st_mode       : mode_t;            // inode protection mode 
-        st_nlink      : nlink_t;           // number of hard links 
-        st_uid        : uid_t;             // user ID of the file's owner 
-        st_gid        : gid_t;             // group ID of the file's group 
-        st_rdev       : dev_t;             // device type 
-        st_atime      : time_t;            // time of last access 
-        st_atimensec  : clong;             // nsec of last access 
-        st_mtime      : time_t;            // time of last data modification 
-        st_mtimensec  : clong;             // nsec of last data modification 
-        st_ctime      : time_t;            // time of last file status change 
-        st_ctimensec  : clong;             // nsec of last file status change 
-        st_size       : off_t;             // file size, in bytes 
-        st_blocks     : cint64;            // blocks allocated for file 
-        st_blksize    : cuint32;           // optimal blocksize for I/O 
-        st_flags      : cuint32;           // user defined flags for file 
-        st_gen        : cuint32;           // file generation number 
+        st_dev        : dev_t;             // inode's device
+        st_ino        : ino_t;             // inode's number
+        st_mode       : mode_t;            // inode protection mode
+        st_nlink      : nlink_t;           // number of hard links
+        st_uid        : uid_t;             // user ID of the file's owner
+        st_gid        : gid_t;             // group ID of the file's group
+        st_rdev       : dev_t;             // device type
+        st_atime      : time_t;            // time of last access
+        st_atimensec  : clong;             // nsec of last access
+        st_mtime      : time_t;            // time of last data modification
+        st_mtimensec  : clong;             // nsec of last data modification
+        st_ctime      : time_t;            // time of last file status change
+        st_ctimensec  : clong;             // nsec of last file status change
+        st_size       : off_t;             // file size, in bytes
+        st_blocks     : cint64;            // blocks allocated for file
+        st_blksize    : cuint32;           // optimal blocksize for I/O
+        st_flags      : cuint32;           // user defined flags for file
+        st_gen        : cuint32;           // file generation number
 {$ifndef NetBSD}
         st_lspare     : cint32;
 {$endif}
@@ -67,24 +67,24 @@ TYPE
 
   { directory services }
    pdirent = ^dirent;
-   dirent  = record  
-        d_fileno      : cuint32;	           	// file number of entry 
-        d_reclen      : cuint16;  	         	// length of this record 
-        d_type        : cuint8;     	       		// file type, see below 
-        d_namlen      : cuint8;            		// length of string in d_name 
-        d_name        : array[0..(255 + 1)-1] of char;	// name must be no longer than this
+   dirent  = record
+        d_fileno      : cuint32;                        // file number of entry
+        d_reclen      : cuint16;                        // length of this record
+        d_type        : cuint8;                         // file type, see below
+        d_namlen      : cuint8;                         // length of string in d_name
+        d_name        : array[0..(255 + 1)-1] of char;  // name must be no longer than this
    end;
 
    pdir    = ^dir;
    dir     = packed record
         dd_fd     : cint;         // file descriptor associated with directory
-        dd_loc    : clong;        // offset in current buffer 
+        dd_loc    : clong;        // offset in current buffer
         dd_size   : clong;        // amount of data returned by getdirentries
-        dd_buf    : pchar;        // data buffer 
-        dd_len    : cint;         // size of data buffer 
-        dd_seek   : clong;        // magic cookie returned by getdirentries 
-        dd_rewind : clong;        // magic cookie for rewinding 
-        dd_flags  : cint;         // flags for readdir 
+        dd_buf    : pchar;        // data buffer
+        dd_len    : cint;         // size of data buffer
+        dd_seek   : clong;        // magic cookie returned by getdirentries
+        dd_rewind : clong;        // magic cookie for rewinding
+        dd_flags  : cint;         // flags for readdir
    end;
 
 
@@ -93,56 +93,59 @@ TYPE
 {***********************************************************************}
 CONST
     { access routine - these maybe OR'ed together }
-    F_OK        =     0;	{ test for existence of file }
-    R_OK        =     4;	{ test for read permission on file }
-    W_OK        =     2;	{ test for write permission on file }
-    X_OK        =     1;	{ test for execute or search permission }
+    F_OK        =     0;        { test for existence of file }
+    R_OK        =     4;        { test for read permission on file }
+    W_OK        =     2;        { test for write permission on file }
+    X_OK        =     1;        { test for execute or search permission }
     { seek routine }
-    SEEK_SET    =     0;	{ seek from beginning of file }
-    SEEK_CUR    =     1;	{ seek from current position  }
-    SEEK_END    =     2;	{ seek from end of file       }
+    SEEK_SET    =     0;        { seek from beginning of file }
+    SEEK_CUR    =     1;        { seek from current position  }
+    SEEK_END    =     2;        { seek from end of file       }
     { open routine                                 }
     { File access modes for `open' and `fcntl'.    }
-    O_RDONLY    =     0;	{ Open read-only.  }
-    O_WRONLY    =     1;	{ Open write-only. }
-    O_RDWR      =     2;	{ Open read/write. }
+    O_RDONLY    =     0;        { Open read-only.  }
+    O_WRONLY    =     1;        { Open write-only. }
+    O_RDWR      =     2;        { Open read/write. }
     { Bits OR'd into the second argument to open.  }
-    O_CREAT     =  $200;	{ Create file if it doesn't exist.  }
-    O_EXCL      =  $800;	{ Fail if file already exists.      }
-    O_TRUNC     =  $400;	{ Truncate file to zero length.     }
-    O_NOCTTY    = $8000;	{ Don't assign a controlling terminal. }
+    O_CREAT     =  $200;        { Create file if it doesn't exist.  }
+    O_EXCL      =  $800;        { Fail if file already exists.      }
+    O_TRUNC     =  $400;        { Truncate file to zero length.     }
+    O_NOCTTY    = $8000;        { Don't assign a controlling terminal. }
     { File status flags for `open' and `fcntl'.  }
-    O_APPEND    =     8;	{ Writes append to the file.        }
-    O_NONBLOCK	=     4;	{ Non-blocking I/O.                 }
+    O_APPEND    =     8;        { Writes append to the file.        }
+    O_NONBLOCK  =     4;        { Non-blocking I/O.                 }
 
     { mode_t possible values                                 }
-    S_IRUSR =  %0100000000;	{ Read permission for owner   }
-    S_IWUSR =  %0010000000;	{ Write permission for owner  }
-    S_IXUSR =  %0001000000;	{ Exec  permission for owner  }
-    S_IRGRP =  %0000100000;	{ Read permission for group   }
-    S_IWGRP =  %0000010000;	{ Write permission for group  }
-    S_IXGRP =  %0000001000;	{ Exec permission for group   }
-    S_IROTH =  %0000000100;  	{ Read permission for world   }
-    S_IWOTH =  %0000000010;	{ Write permission for world  }
-    S_IXOTH =  %0000000001;	{ Exec permission for world   }
+    S_IRUSR =  %0100000000;     { Read permission for owner   }
+    S_IWUSR =  %0010000000;     { Write permission for owner  }
+    S_IXUSR =  %0001000000;     { Exec  permission for owner  }
+    S_IRGRP =  %0000100000;     { Read permission for group   }
+    S_IWGRP =  %0000010000;     { Write permission for group  }
+    S_IXGRP =  %0000001000;     { Exec permission for group   }
+    S_IROTH =  %0000000100;     { Read permission for world   }
+    S_IWOTH =  %0000000010;     { Write permission for world  }
+    S_IXOTH =  %0000000001;     { Exec permission for world   }
 
     { Used for waitpid }
-    WNOHANG   = 	 1;	{ don't block waiting               }
-    WUNTRACED = 	 2;	{ report status of stopped children }
+    WNOHANG   =          1;     { don't block waiting               }
+    WUNTRACED =          2;     { report status of stopped children }
+
 
-   
     {*************************************************************************}
     {                               SIGNALS                                   }
     {*************************************************************************}
-    
+
 {$i signal.inc}
 
-// function geterrno:longint; 
-// procedure seterrno(i:longint); 
+// function geterrno:longint;
+// procedure seterrno(i:longint);
 
 {
   $Log$
-  Revision 1.3  2002-08-21 07:03:16  marco
+  Revision 1.4  2002-09-07 16:01:17  peter
+    * old logs removed and tabs fixed
+
+  Revision 1.3  2002/08/21 07:03:16  marco
    * Fixes from Tuesday.
 
   Revision 1.2  2002/08/19 12:29:11  marco
@@ -154,10 +157,4 @@ CONST
       It is all close together, and it should be doable to have just one copy
       of these for *BSD.
 
-  Revision 1.1.2.2  2001/11/28 03:08:46  carl
-  - removed signal stuff , moved to signal.inc
-
-  Revision 1.1.2.1  2001/08/15 00:15:08  carl
-  - renamed
-
-}
+}

rtl/bsd/sysctl.pp

@@ -23,9 +23,9 @@ Interface
 {$Packrecords C}
 type psize_t=^size_t;
 
-{ 
+{
  * Copyright (c) 1989, 1993
- *	The Regents of the University of California.  All rights reserved.
+ *      The Regents of the University of California.  All rights reserved.
  *
  * This code is derived from software contributed to Berkeley by
  * Mike Karels at Berkeley Software Design, Inc.
@@ -40,8 +40,8 @@ type psize_t=^size_t;
  *    documentation and/or other materials provided with the distribution.
  * 3. All advertising materials mentioning features or use of this software
  *    must display the following acknowledgement:
- *	This product includes software developed by the University of
- *	California, Berkeley and its contributors.
+ *      This product includes software developed by the University of
+ *      California, Berkeley and its contributors.
  * 4. Neither the name of the University nor the names of its contributors
  *    may be used to endorse or promote products derived from this software
  *    without specific prior written permission.
@@ -58,15 +58,15 @@ type psize_t=^size_t;
  * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
  * SUCH DAMAGE.
  *
- *	@(#)sysctl.h	8.1 (Berkeley) 6/2/93
+ *      @(#)sysctl.h    8.1 (Berkeley) 6/2/93
  * $FreeBSD: src/sys/sys/sysctl.h,v 1.81.2.8 2002/03/17 11:08:38 alfred Exp $
  }
 
 
 TYPE    CtlNameRec = Record
-		      Name: ansistring; {String[LongestStringInCtlNames]}
-		      CtlType:cint;
-		      end;	
+                      Name: ansistring; {String[LongestStringInCtlNames]}
+                      CtlType:cint;
+                      end;
 
 
 {$I sysctlh.inc}
@@ -92,57 +92,60 @@ CONST  syscall_nr___sysctl                    = 202;
 function sys_sysctl (Name: pchar; namelen:cuint; oldp:pointer;oldlenp:psize_t; newp:pointer;newlen:size_t):cint;
 
 Begin
-	if (name[0] <> chr(CTL_USER)) Then
-	   exit(do_syscall(syscall_nr___sysctl,longint(name), namelen, longint(oldp), longint(oldlenp), longint(newp), longint(newlen)))
-	else
-	 Exit(0);
+        if (name[0] <> chr(CTL_USER)) Then
+           exit(do_syscall(syscall_nr___sysctl,longint(name), namelen, longint(oldp), longint(oldlenp), longint(newp), longint(newlen)))
+        else
+         Exit(0);
 End;
 
 function sys_sysctlbyname (Name: pchar; oldp:pointer;oldlenp:psize_t; newp:pointer;newlen:size_t):cint;
 Var
-	name2oid_oid 	: array[0..1] of cint;
-	real_oid     	: array[0..CTL_MAXNAME+1] of cint;
-	error 	     	: cint;
-	oidlen 		: size_t;
+        name2oid_oid    : array[0..1] of cint;
+        real_oid        : array[0..CTL_MAXNAME+1] of cint;
+        error           : cint;
+        oidlen          : size_t;
 Begin
-	name2oid_oid[0] := 0;	{This is magic & undocumented! }
-	name2oid_oid[1] := 3;
-
-	oidlen := sizeof(real_oid);
-	error := sys_sysctl(@name2oid_oid, 2, @real_oid, @oidlen, name,
-		       strlen(name));
-	if (error < 0)  Then
-		Exit(error);
-	oidlen := Oidlen DIV sizeof (cint);
-	error := sys_sysctl(@real_oid, oidlen, oldp, oldlenp, newp, newlen);
-	exit(error);
+        name2oid_oid[0] := 0;   {This is magic & undocumented! }
+        name2oid_oid[1] := 3;
+
+        oidlen := sizeof(real_oid);
+        error := sys_sysctl(@name2oid_oid, 2, @real_oid, @oidlen, name,
+                       strlen(name));
+        if (error < 0)  Then
+                Exit(error);
+        oidlen := Oidlen DIV sizeof (cint);
+        error := sys_sysctl(@real_oid, oidlen, oldp, oldlenp, newp, newlen);
+        exit(error);
 End;
 
 function sys_sysctlnametomib (Name: pchar; mibp:plongint;sizep:psize_t):cint;
-Var	oid   : array[0..1] OF cint;
-	error : cint;
+Var     oid   : array[0..1] OF cint;
+        error : cint;
 
 Begin
-	oid[0] := 0;
-	oid[1] := 3;
-	sizep^:=sizep^*sizeof(cint);
-	error := sys_sysctl(@oid, 2, mibp, sizep, name, strlen(name));
-	sizep^ := sizep^ div sizeof (cint);
-        
-	if (error < 0)  Then
-		Exit (error);
-	sys_sysctlnametomib:=0;
+        oid[0] := 0;
+        oid[1] := 3;
+        sizep^:=sizep^*sizeof(cint);
+        error := sys_sysctl(@oid, 2, mibp, sizep, name, strlen(name));
+        sizep^ := sizep^ div sizeof (cint);
+
+        if (error < 0)  Then
+                Exit (error);
+        sys_sysctlnametomib:=0;
 End;
 
 end.
 
-{ 
+{
   $Log$
-  Revision 1.2  2002-08-19 12:29:11  marco
+  Revision 1.3  2002-09-07 16:01:17  peter
+    * old logs removed and tabs fixed
+
+  Revision 1.2  2002/08/19 12:29:11  marco
    * First working POSIX *BSD system unit.
 
   Revision 1.1  2002/08/08 11:39:30  marco
    * Initial versions, to allow support for uname in posix.pp
 
 
-}
+}

rtl/bsd/system.pp

@@ -41,9 +41,9 @@ end;
 
 {$I errno.inc}
 {$I osposixh.inc}
-{$I bsdsysc.inc} 
+{$I bsdsysc.inc}
 {$I sysposix.inc}
-{$I text.inc}      
+{$I text.inc}
 {$I heap.inc}
 
 
@@ -85,114 +85,10 @@ End.
 
 {
   $Log$
-  Revision 1.1  2002-08-19 12:29:11  marco
-   * First working POSIX *BSD system unit.
-
-  Revision 1.1  2000/10/15 08:19:48  peter
-    * system unit rename for 1.1 branch
-
-  Revision 1.2  2000/09/18 13:42:35  marco
-   * FreeBSD support into 1.1
-
-  Revision 1.1.2.1  2000/09/16 11:19:08  marco
-   * Moved files from BSD to FreeBSD directory, with some small changes
-
-  Revision 1.1.2.4  2000/09/16 11:10:43  marco
-   * Introduced using sysunix and sysunixh
-
-  Revision 1.1.2.3  2000/09/10 16:12:40  marco
-  The rearrangement to linux for
-
-  Revision 1.1.2.2  2000/08/05 18:33:29  peter
-    * paramstr(0) fix for linux 2.0 kernels
-
-  Revision 1.1.2.1  2000/07/14 07:33:15  michael
-  + Fixed do_open call. Directory checking must not be performed
-
-  Revision 1.1  2000/07/13 06:30:54  michael
-  + Initial import
-
-  Revision 1.49  2000/07/08 18:02:39  peter
-    * do_open checks for directory, if directory then ioerror 2
-
-  Revision 1.48  2000/06/30 22:14:03  peter
-    * removed obsolete crtlib code
-    * support EINTR for read/write to restart the syscall
-
-  Revision 1.47  2000/05/11 17:55:13  peter
-    * changed order of fpustate checking to first check the more
-      specific states
-
-  Revision 1.46  2000/05/08 14:27:36  peter
-    * released newsignal
-    * newsignal gives now better backtraces using the sigcontext eip/ebp
-      fields
-
-  Revision 1.45  2000/04/16 16:07:58  marco
-   * BSD fixes
-
-  Revision 1.44  2000/04/14 13:04:53  marco
-   * Merged bsd/syslinux.pp and 1.43 linux/syslinux.pp to this file with ifdefs
-
-  Revision 1.43  2000/04/07 14:56:36  peter
-    * switch to direct asm if not correctfldcw defined
-
-  Revision 1.42  2000/03/31 23:26:32  pierre
-   * FPU needs reset for all SIGFPE even from integer division by zero
+  Revision 1.2  2002-09-07 16:01:17  peter
+    * old logs removed and tabs fixed
 
-  Revision 1.41  2000/03/31 23:21:19  pierre
-    * multiple exception handling works
-      (for linux only if syslinux is compiled with -dnewsignal)
-
-  Revision 1.40  2000/03/31 13:24:28  jonas
-    * signal handling using sigaction when compiled with -dnewsignal
-      (allows multiple signals to be received in one run)
-
-  Revision 1.39  2000/03/25 12:28:37  peter
-    * patch for getdir from Pierre
-
-  Revision 1.38  2000/03/23 15:24:18  peter
-    * remove handle check for do_close
-
-  Revision 1.37  2000/02/09 16:59:32  peter
-    * truncated log
-
-  Revision 1.36  2000/02/09 12:17:51  peter
-    * moved halt to system.inc
-    * syslinux doesn't use direct asm anymore
-
-  Revision 1.35  2000/02/08 11:47:09  peter
-    * paramstr(0) support
-
-  Revision 1.34  2000/01/20 23:38:02  peter
-    * support fm_inout as stdoutput for assign(f,'');rewrite(f,1); becuase
-      rewrite opens always with filemode 2
-
-  Revision 1.33  2000/01/16 22:25:38  peter
-    * check handle for file closing
-
-  Revision 1.32  2000/01/07 16:41:41  daniel
-    * copyright 2000
-
-  Revision 1.31  2000/01/07 16:32:28  daniel
-    * copyright 2000 added
-
-  Revision 1.30  1999/12/01 22:57:31  peter
-    * cmdline support
-
-  Revision 1.29  1999/11/06 14:39:12  peter
-    * truncated log
-
-  Revision 1.28  1999/10/28 09:50:06  peter
-    * use mmap instead of brk
-
-  Revision 1.27  1999/09/10 15:40:35  peter
-    * fixed do_open flags to be > $100, becuase filemode can be upto 255
-
-  Revision 1.26  1999/09/08 16:14:43  peter
-    * pointer fixes
-
-  Revision 1.25  1999/07/28 23:18:36  peter
-    * closedir fixes, which now disposes the pdir itself
+  Revision 1.1  2002/08/19 12:29:11  marco
+   * First working POSIX *BSD system unit.
 
 }

rtl/darwin/syscalls.inc

@@ -25,13 +25,13 @@
 *****************************************************************************}
 
 Procedure Do_SysCall( callnr:longint;var regs : SysCallregs );assembler;
-{ 
+{
   This function puts the registers in place, does the call, and then
   copies back the registers as they are after the SysCall.
 }
 {$ifdef powerpc}
 {$define fpc_syscall_ok}
-asm 
+asm
 { load the registers... }
   lwz  r5, 12(r4)
   lwz  r6, 16(r4)
@@ -39,7 +39,7 @@ asm
   lwz  r8, 24(r4)
   lwz  r9, 28(r4)
   mr   r0, r3
-  lwz  r3, 4(r4)      
+  lwz  r3, 4(r4)
   stw  r4, regs
   lwz  r4, 8(r4)
 { Go ! }
@@ -109,8 +109,8 @@ begin
       lastcnt:=0;
       writeln(sys_nr_txt[lastcall],debugtxt,lasteax);
       end;
-    end;  
-{$endif}  
+    end;
+{$endif}
 end;
 
 
@@ -155,7 +155,7 @@ end;
 Function Sys_Open(f:pchar;flags:longint;mode:integer):longint;
 var
   regs : SysCallregs;
-Begin 
+Begin
   regs.reg2:=longint(f);
   regs.reg3:=flags;
   regs.reg4:=mode;
@@ -165,9 +165,9 @@ End;
 
 Function Sys_Close(f:longint):longint;
 var
-  regs : SysCallregs;   
+  regs : SysCallregs;
 begin
-  regs.reg2:=f;  
+  regs.reg2:=f;
   Sys_Close:=SysCall(SysCall_nr_close,regs);
 end;
 
@@ -195,11 +195,11 @@ begin
   regs.reg3:=longint(buffer);
   regs.reg4:=count;
   Sys_Read:=SysCall(SysCall_nr_read,regs);
-end;  
+end;
 
 
 Function Sys_Write(f:longint;buffer:pchar;count:longint):longint;
-var  
+var
   regs : SysCallregs;
 begin
   regs.reg2:=f;
@@ -210,12 +210,12 @@ end;
 
 
 Function Sys_Unlink(Filename:pchar):longint;
-var  
+var
   regs : SysCallregs;
 begin
   regs.reg2:=longint(filename);
   Sys_Unlink:=SysCall(SysCall_nr_unlink,regs);
-end;  
+end;
 
 
 Function Sys_fstat(fd : longint;var Info:stat):Longint;
@@ -242,7 +242,7 @@ Function Sys_Stat(Filename:pchar;var Buffer: stat):longint;
 {
    We need this for getcwd
 }
-var  
+var
   regs : SysCallregs;
 begin
   regs.reg2:=longint(filename);
@@ -267,7 +267,7 @@ Function Sys_ReadLink(name,linkname:pchar;maxlen:longint):longint;
 var
   regs : SysCallRegs;
 begin
-  regs.reg2:=longint(name);   
+  regs.reg2:=longint(name);
   regs.reg3:=longint(linkname);
   regs.reg4:=maxlen;
   Sys_ReadLink:=SysCall(Syscall_nr_readlink,regs);
@@ -294,7 +294,7 @@ begin
   regs.reg2:=longint(filename);
   regs.reg3:=mode;
   Sys_MkDir:=SysCall(SysCall_nr_mkdir,regs);
-end; 
+end;
 
 
 Function Sys_Rmdir(Filename:pchar):longint;
@@ -303,7 +303,7 @@ var
 begin
   regs.reg2:=longint(filename);
   Sys_Rmdir:=SysCall(SysCall_nr_rmdir,regs);
-end; 
+end;
 
 {*****************************************************************************
         --- Process:Process & program handling - related calls ---
@@ -339,7 +339,7 @@ Procedure SigAction(Signum:longint;Act,OldAct:PSigActionRec );
 }
 
 Var
-  sr : Syscallregs;  
+  sr : Syscallregs;
 begin
   sr.reg2:=Signum;
   sr.reg3:=Longint(act);
@@ -353,8 +353,8 @@ end;
 (*=================== MOVED from syslinux.inc ========================*)
 
 Function Sys_FTruncate(Handle,Pos:longint):longint;  //moved from sysunix.inc Do_Truncate
-var  
-  sr : syscallregs;   
+var
+  sr : syscallregs;
 begin
   sr.reg2:=Handle;
   sr.reg3:=Pos;
@@ -395,13 +395,16 @@ var
 begin
   sr.reg2:=Handle;
   sr.reg3:=Ndx;
-  sr.reg4:=Longint(Data);   
+  sr.reg4:=Longint(Data);
   Sys_IOCtl:=SysCall(Syscall_nr_ioctl,sr);
 end;
 
 {
   $Log$
-  Revision 1.1  2002-09-06 18:35:59  jonas
+  Revision 1.2  2002-09-07 16:01:17  peter
+    * old logs removed and tabs fixed
+
+  Revision 1.1  2002/09/06 18:35:59  jonas
     * implemented most syscalls, except readdir because the getdents
       syscall is declared obsolete in Darwin...
 

rtl/darwin/sysnr.inc

@@ -4,15 +4,15 @@
 
 
      Copyright (c) 2000 Apple Computer, Inc. All rights reserved.
-    
+
      @APPLE_LICENSE_HEADER_START@
-     
+
      The contents of this file constitute Original Code as defined in and
      are subject to the Apple Public Source License Version 1.1 (the
      "License").  You may not use this file except in compliance with the
      License.  Please obtain a copy of the License at
      http://www.apple.com/publicsource and read it before using this file.
-     
+
      This Original Code and all software distributed under the License are
      distributed on an "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, EITHER
      EXPRESS OR IMPLIED, AND APPLE HEREBY DISCLAIMS ALL SUCH WARRANTIES,
@@ -20,15 +20,15 @@
      FITNESS FOR A PARTICULAR PURPOSE OR NON-INFRINGEMENT.  Please see the
      License for the specific language governing rights and limitations
      under the License.
-     
+
      @APPLE_LICENSE_HEADER_END@
     }
   { Copyright (c) 1992, 1995-1999 Apple Computer, Inc. All Rights Reserved  }
   {
-    
+
      The NEXTSTEP Software License Agreement specifies the terms
      and conditions for redistribution.
-    
+
     }
 
   const
@@ -205,7 +205,7 @@
   { 163 is old setdomainname  }
   { 164 is obsolete pcfs_mount  }
      sys_nr_quotactl = 165;
-  { 166 is obsolete exportfs	 }
+  { 166 is obsolete exportfs     }
      sys_nr_mount = 167;
   { 168 is obsolete ustat  }
   { 169 is unused  }
@@ -309,7 +309,10 @@ v     sys_nr_mlockall = 324;
 
 {
   $Log$
-  Revision 1.2  2002-09-06 18:35:59  jonas
+  Revision 1.3  2002-09-07 16:01:17  peter
+    * old logs removed and tabs fixed
+
+  Revision 1.2  2002/09/06 18:35:59  jonas
     * implemented most syscalls, except readdir because the getdents
       syscall is declared obsolete in Darwin...
 

rtl/darwin/systypes.inc

@@ -44,41 +44,41 @@ type
  Stat =record {BSD version}
         dev        :  dev_t;            { inode's device }
         ino        :  cardinal;         { inode's number }
-        mode, 				{ inode protection mode }
-        nlink	   :  word;             { number of hard links }
-        uid,				{ user ID of the file's owner }
-        gid,				{ group ID of the file's group }
-        dev_t	   :  cardinal;		{ device type }
-	atime,                          { time of last access }
-	atime_nsec,         		{ nsec of last access }
-	mtime,	           		{ time of last data modification }
-	mtime_nsec,         		{ nsec of last data modification }
-	ctime,            		{ time of last file status change }
-	ctime_nsec : longint;      	{ nsec of last file status change }
-	size,           		{ file size, in bytes }
-	blocks     : Int64;		{ blocks allocated for file }
-	blksze,         		{ optimal blocksize for I/O }
-	flags,          		{ user defined flags for file }
-	filegen    : cardinal;		{ file generation number }
-	lspare	   : longint;
-	qspare     : array[0..1] of int64;
+        mode,                           { inode protection mode }
+        nlink      :  word;             { number of hard links }
+        uid,                            { user ID of the file's owner }
+        gid,                            { group ID of the file's group }
+        dev_t      :  cardinal;         { device type }
+        atime,                          { time of last access }
+        atime_nsec,                     { nsec of last access }
+        mtime,                          { time of last data modification }
+        mtime_nsec,                     { nsec of last data modification }
+        ctime,                          { time of last file status change }
+        ctime_nsec : longint;           { nsec of last file status change }
+        size,                           { file size, in bytes }
+        blocks     : Int64;             { blocks allocated for file }
+        blksze,                         { optimal blocksize for I/O }
+        flags,                          { user defined flags for file }
+        filegen    : cardinal;          { file generation number }
+        lspare     : longint;
+        qspare     : array[0..1] of int64;
        end;
 
   PStat=^Stat;
   TStat=Stat;
 
   TStatfs = packed record
-    spare2,	       { place holder}
-    bsize,	       { fundamental block size}
+    spare2,            { place holder}
+    bsize,             { fundamental block size}
     iosize,            { optimal block size }
     blocks,            {  total blocks}
     bfree,             { blocks free}
     bavail,            { block available for mortal users}
-    files,	       { Total file nodes}
-    ffree	   : longint;    { file nodes free}
-    fsid	   : array[0..1] of longint;
-    fowner	   : longint; {mounter uid}
-    ftype	   : longint;
+    files,             { Total file nodes}
+    ffree          : longint;    { file nodes free}
+    fsid           : array[0..1] of longint;
+    fowner         : longint; {mounter uid}
+    ftype          : longint;
     fflags         : longint; {copy of mount flags}
     spare          : array [0..1] of longint; { For later use }
     fstypename     : array[0..15] of char;
@@ -119,13 +119,16 @@ type
   TUTSName=UTSName;
 
   ITimerVal= Record
-	      It_Interval,
-	      It_Value      : TimeVal; 
+              It_Interval,
+              It_Value      : TimeVal;
              end;
 
 {
   $Log$
-  Revision 1.1  2002-09-06 18:35:59  jonas
+  Revision 1.2  2002-09-07 16:01:17  peter
+    * old logs removed and tabs fixed
+
+  Revision 1.1  2002/09/06 18:35:59  jonas
     * implemented most syscalls, except readdir because the getdents
       syscall is declared obsolete in Darwin...
 

rtl/fakertl/objpas.pp

@@ -4,7 +4,7 @@ interface
 implementation
 end.
   $Log$
-  Revision 1.2  2000-07-13 11:33:38  michael
-  + removed logs
- 
+  Revision 1.3  2002-09-07 16:01:17  peter
+    * old logs removed and tabs fixed
+
 }

rtl/fakertl/system.pp

@@ -41,10 +41,11 @@ end.
 
 {
   $Log$
-  Revision 1.3  2002-07-28 20:43:47  florian
+  Revision 1.4  2002-09-07 16:01:17  peter
+    * old logs removed and tabs fixed
+
+  Revision 1.3  2002/07/28 20:43:47  florian
     * several fixes for linux/powerpc
     * several fixes to MT
 
-  Revision 1.2  2000/07/13 11:33:38  michael
-  + removed logs
 }

rtl/freebsd/Makefile.fpc

@@ -202,4 +202,4 @@ ipc$(PPUEXT) : $(UNIXINC)/ipc.pp unix$(PPUEXT) $(SYSTEMUNIT)$(PPUEXT)
 
 terminfo$(PPUEXT) : terminfo.pp unix$(PPUEXT)
 
-callspec$(PPUEXT) : $(INC)/callspec.pp $(SYSTEMUNIT)$(PPUEXT)
+callspec$(PPUEXT) : $(INC)/callspec.pp $(SYSTEMUNIT)$(PPUEXT)

rtl/freebsd/bsdport.txt

@@ -220,24 +220,10 @@ for i in *.s; do
 
 {
 $Log$
-Revision 1.3  2002-08-08 20:39:26  marco
- * Practically rewritten in first update in 2 years or so.
-
-Revision 1.2  2000/09/18 13:42:35  marco
- * FreeBSD support into 1.1
-
-Revision 1.3  2000/09/11 14:38:09  marco
- * 14 april version killed, and replaced by newer fixes branch version
+Revision 1.4  2002-09-07 16:01:17  peter
+  * old logs removed and tabs fixed
 
-Revision 1.1.2.1  2000/09/10 16:12:14  marco
-Initial signals, sockets and clone
-
-Revision 1.1  2000/07/13 06:30:32  michael
-+ Initial import
-
-Revision 1.3  2000/04/16 16:11:33  marco
- * Severe updates for now *working* status
+Revision 1.3  2002/08/08 20:39:26  marco
+ * Practically rewritten in first update in 2 years or so.
 
-Revision 1.2  2000/04/10 15:46:51  marco
- * worked all day. probably a lot changed
 }

rtl/freebsd/errno.inc

@@ -13,144 +13,138 @@
 
  **********************************************************************}
 {
- 
-  Errno.inc : define all error numbers, kernel version 1.2.13 
+
+  Errno.inc : define all error numbers, kernel version 1.2.13
 
 }
-Const 
+Const
 
-Sys_EPERM	= 1;	{ Operation not permitted }
-Sys_ENOENT	= 2;	{ No such file or directory }
-Sys_ESRCH	= 3;	{ No such process }
-Sys_EINTR	= 4;	{ Interrupted system call }
-Sys_EIO	= 5;	{ I/O error }
-Sys_ENXIO	= 6;	{ No such device or address }
-Sys_E2BIG	= 7;	{ Arg list too long }
-Sys_ENOEXEC	= 8;	{ Exec format error }
-Sys_EBADF	= 9;	{ Bad file number }
-Sys_ECHILD	= 10;	{ No child processes }
-Sys_EAGAIN	= 11;	{ Try again }
-Sys_ENOMEM	= 12;	{ Out of memory }
-Sys_EACCES	= 13;	{ Permission denied }
-Sys_EFAULT	= 14;	{ Bad address }
-Sys_ENOTBLK	= 15;	{ Block device required }
-Sys_EBUSY	= 16;	{ Device or resource busy }
-Sys_EEXIST	= 17;	{ File exists }
-Sys_EXDEV	= 18;	{ Cross-device link }
-Sys_ENODEV	= 19;	{ No such device }
-Sys_ENOTDIR	= 20;	{ Not a directory }
-Sys_EISDIR	= 21;	{ Is a directory }
-Sys_EINVAL	= 22;	{ Invalid argument }
-Sys_ENFILE	= 23;	{ File table overflow }
-Sys_EMFILE	= 24;	{ Too many open files }
-Sys_ENOTTY	= 25;	{ Not a typewriter }
-Sys_ETXTBSY	= 26;	{ Text file busy }
-Sys_EFBIG	= 27;	{ File too large }
-Sys_ENOSPC	= 28;	{ No space left on device }
-Sys_ESPIPE	= 29;	{ Illegal seek }
-Sys_EROFS	= 30;	{ Read-only file system }
-Sys_EMLINK	= 31;	{ Too many links }
-Sys_EPIPE	= 32;	{ Broken pipe }
-Sys_EDOM	= 33;	{ Math argument out of domain of func }
-Sys_ERANGE	= 34;	{ Math result not representable }
-Sys_EDEADLK	= 35;	{ Resource deadlock would occur }
-Sys_ENAMETOOLONG= 36;	{ File name too long }
-Sys_ENOLCK	= 37;	{ No record locks available }
-Sys_ENOSYS	= 38;	{ Function not implemented }
-Sys_ENOTEMPTY= 39;	{ Directory not empty }
-Sys_ELOOP	= 40;	{ Too many symbolic links encountered }
-Sys_EWOULDBLOCK	= Sys_EAGAIN;	{ Operation would block }
-Sys_ENOMSG	= 42;	{ No message of desired type }
-Sys_EIDRM	= 43;	{ Identifier removed }
-Sys_ECHRNG	= 44;	{ Channel number out of range }
-Sys_EL2NSYNC= 45;	{ Level 2 not synchronized }
-Sys_EL3HLT	= 46;	{ Level 3 halted }
-Sys_EL3RST	= 47;	{ Level 3 reset }
-Sys_ELNRNG	= 48;	{ Link number out of range }
-Sys_EUNATCH	= 49;	{ Protocol driver not attached }
-Sys_ENOCSI	= 50;	{ No CSI structure available }
-Sys_EL2HLT	= 51;	{ Level 2 halted }
-Sys_EBADE	= 52;	{ Invalid exchange }
-Sys_EBADR	= 53;	{ Invalid request descriptor }
-Sys_EXFULL	= 54;	{ Exchange full }
-Sys_ENOANO	= 55;	{ No anode }
-Sys_EBADRQC	= 56;	{ Invalid request code }
-Sys_EBADSLT	= 57;	{ Invalid slot }
-Sys_EDEADLOCK= 58;	{ File locking deadlock error }
-Sys_EBFONT	= 59;	{ Bad font file format }
-Sys_ENOSTR	= 60;	{ Device not a stream }
-Sys_ENODATA	= 61;	{ No data available }
-Sys_ETIME	= 62;	{ Timer expired }
-Sys_ENOSR	= 63;	{ Out of streams resources }
-Sys_ENONET	= 64;	{ Machine is not on the network }
-Sys_ENOPKG	= 65;	{ Package not installed }
-Sys_EREMOTE	= 66;	{ Object is remote }
-Sys_ENOLINK	= 67;	{ Link has been severed }
-Sys_EADV	= 68;	{ Advertise error }
-Sys_ESRMNT	= 69;	{ Srmount error }
-Sys_ECOMM	= 70;	{ Communication error on send }
-Sys_EPROTO	= 71;	{ Protocol error }
-Sys_EMULTIHOP= 72;	{ Multihop attempted }
-Sys_EDOTDOT	= 73;	{ RFS specific error }
-Sys_EBADMSG	= 74;	{ Not a data message }
-Sys_EOVERFLOW= 75;	{ Value too large for defined data type }
-Sys_ENOTUNIQ= 76;	{ Name not unique on network }
-Sys_EBADFD	= 77;	{ File descriptor in bad state }
-Sys_EREMCHG	= 78;	{ Remote address changed }
-Sys_ELIBACC	= 79;	{ Can not access a needed shared library }
-Sys_ELIBBAD	= 80;	{ Accessing a corrupted shared library }
-Sys_ELIBSCN	= 81;	{ .lib section in a.out corrupted }
-Sys_ELIBMAX	= 82;	{ Attempting to link in too many shared libraries }
-Sys_ELIBEXEC= 83;	{ Cannot exec a shared library directly }
-Sys_EILSEQ	= 84;	{ Illegal byte sequence }
-Sys_ERESTART= 85;	{ Interrupted system call should be restarted }
-Sys_ESTRPIPE= 86;	{ Streams pipe error }
-Sys_EUSERS	= 87;	{ Too many users }
-Sys_ENOTSOCK= 88;	{ Socket operation on non-socket }
-Sys_EDESTADDRREQ= 89;	{ Destination address required }
-Sys_EMSGSIZE= 90;	{ Message too long }
-Sys_EPROTOTYPE= 91;	{ Protocol wrong type for socket }
-Sys_ENOPROTOOPT= 92;	{ Protocol not available }
-Sys_EPROTONOSUPPORT= 93;	{ Protocol not supported }
-Sys_ESOCKTNOSUPPORT= 94;	{ Socket type not supported }
-Sys_EOPNOTSUPP= 95;	{ Operation not supported on transport endpoint }
-Sys_EPFNOSUPPORT= 96;	{ Protocol family not supported }
-Sys_EAFNOSUPPORT= 97;	{ Address family not supported by protocol }
-Sys_EADDRINUSE= 98;	{ Address already in use }
-Sys_EADDRNOTAVAIL= 99;	{ Cannot assign requested address }
-Sys_ENETDOWN= 100;	{ Network is down }
-Sys_ENETUNREACH= 101;	{ Network is unreachable }
-Sys_ENETRESET= 102;	{ Network dropped connection because of reset }
-Sys_ECONNABORTED= 103;	{ Software caused connection abort }
-Sys_ECONNRESET= 104;	{ Connection reset by peer }
-Sys_ENOBUFS	= 105;	{ No buffer space available }
-Sys_EISCONN	= 106;	{ Transport endpoint is already connected }
-Sys_ENOTCONN= 107;	{ Transport endpoint is not connected }
-Sys_ESHUTDOWN= 108;	{ Cannot send after transport endpoint shutdown }
-Sys_ETOOMANYREFS= 109;	{ Too many references: cannot splice }
-Sys_ETIMEDOUT= 110;	{ Connection timed out }
-Sys_ECONNREFUSED= 111;	{ Connection refused }
-Sys_EHOSTDOWN= 112;	{ Host is down }
-Sys_EHOSTUNREACH= 113;	{ No route to host }
-Sys_EALREADY= 114;	{ Operation already in progress }
-Sys_EINPROGRESS= 115;	{ Operation now in progress }
-Sys_ESTALE	= 116;	{ Stale NFS file handle }
-Sys_EUCLEAN	= 117;	{ Structure needs cleaning }
-Sys_ENOTNAM	= 118;	{ Not a XENIX named type file }
-Sys_ENAVAIL	= 119;	{ No XENIX semaphores available }
-Sys_EISNAM	= 120;	{ Is a named type file }
-Sys_EREMOTEIO= 121;	{ Remote I/O error }
-Sys_EDQUOT	= 122;	{ Quota exceeded }
+Sys_EPERM       = 1;    { Operation not permitted }
+Sys_ENOENT      = 2;    { No such file or directory }
+Sys_ESRCH       = 3;    { No such process }
+Sys_EINTR       = 4;    { Interrupted system call }
+Sys_EIO = 5;    { I/O error }
+Sys_ENXIO       = 6;    { No such device or address }
+Sys_E2BIG       = 7;    { Arg list too long }
+Sys_ENOEXEC     = 8;    { Exec format error }
+Sys_EBADF       = 9;    { Bad file number }
+Sys_ECHILD      = 10;   { No child processes }
+Sys_EAGAIN      = 11;   { Try again }
+Sys_ENOMEM      = 12;   { Out of memory }
+Sys_EACCES      = 13;   { Permission denied }
+Sys_EFAULT      = 14;   { Bad address }
+Sys_ENOTBLK     = 15;   { Block device required }
+Sys_EBUSY       = 16;   { Device or resource busy }
+Sys_EEXIST      = 17;   { File exists }
+Sys_EXDEV       = 18;   { Cross-device link }
+Sys_ENODEV      = 19;   { No such device }
+Sys_ENOTDIR     = 20;   { Not a directory }
+Sys_EISDIR      = 21;   { Is a directory }
+Sys_EINVAL      = 22;   { Invalid argument }
+Sys_ENFILE      = 23;   { File table overflow }
+Sys_EMFILE      = 24;   { Too many open files }
+Sys_ENOTTY      = 25;   { Not a typewriter }
+Sys_ETXTBSY     = 26;   { Text file busy }
+Sys_EFBIG       = 27;   { File too large }
+Sys_ENOSPC      = 28;   { No space left on device }
+Sys_ESPIPE      = 29;   { Illegal seek }
+Sys_EROFS       = 30;   { Read-only file system }
+Sys_EMLINK      = 31;   { Too many links }
+Sys_EPIPE       = 32;   { Broken pipe }
+Sys_EDOM        = 33;   { Math argument out of domain of func }
+Sys_ERANGE      = 34;   { Math result not representable }
+Sys_EDEADLK     = 35;   { Resource deadlock would occur }
+Sys_ENAMETOOLONG= 36;   { File name too long }
+Sys_ENOLCK      = 37;   { No record locks available }
+Sys_ENOSYS      = 38;   { Function not implemented }
+Sys_ENOTEMPTY= 39;      { Directory not empty }
+Sys_ELOOP       = 40;   { Too many symbolic links encountered }
+Sys_EWOULDBLOCK = Sys_EAGAIN;   { Operation would block }
+Sys_ENOMSG      = 42;   { No message of desired type }
+Sys_EIDRM       = 43;   { Identifier removed }
+Sys_ECHRNG      = 44;   { Channel number out of range }
+Sys_EL2NSYNC= 45;       { Level 2 not synchronized }
+Sys_EL3HLT      = 46;   { Level 3 halted }
+Sys_EL3RST      = 47;   { Level 3 reset }
+Sys_ELNRNG      = 48;   { Link number out of range }
+Sys_EUNATCH     = 49;   { Protocol driver not attached }
+Sys_ENOCSI      = 50;   { No CSI structure available }
+Sys_EL2HLT      = 51;   { Level 2 halted }
+Sys_EBADE       = 52;   { Invalid exchange }
+Sys_EBADR       = 53;   { Invalid request descriptor }
+Sys_EXFULL      = 54;   { Exchange full }
+Sys_ENOANO      = 55;   { No anode }
+Sys_EBADRQC     = 56;   { Invalid request code }
+Sys_EBADSLT     = 57;   { Invalid slot }
+Sys_EDEADLOCK= 58;      { File locking deadlock error }
+Sys_EBFONT      = 59;   { Bad font file format }
+Sys_ENOSTR      = 60;   { Device not a stream }
+Sys_ENODATA     = 61;   { No data available }
+Sys_ETIME       = 62;   { Timer expired }
+Sys_ENOSR       = 63;   { Out of streams resources }
+Sys_ENONET      = 64;   { Machine is not on the network }
+Sys_ENOPKG      = 65;   { Package not installed }
+Sys_EREMOTE     = 66;   { Object is remote }
+Sys_ENOLINK     = 67;   { Link has been severed }
+Sys_EADV        = 68;   { Advertise error }
+Sys_ESRMNT      = 69;   { Srmount error }
+Sys_ECOMM       = 70;   { Communication error on send }
+Sys_EPROTO      = 71;   { Protocol error }
+Sys_EMULTIHOP= 72;      { Multihop attempted }
+Sys_EDOTDOT     = 73;   { RFS specific error }
+Sys_EBADMSG     = 74;   { Not a data message }
+Sys_EOVERFLOW= 75;      { Value too large for defined data type }
+Sys_ENOTUNIQ= 76;       { Name not unique on network }
+Sys_EBADFD      = 77;   { File descriptor in bad state }
+Sys_EREMCHG     = 78;   { Remote address changed }
+Sys_ELIBACC     = 79;   { Can not access a needed shared library }
+Sys_ELIBBAD     = 80;   { Accessing a corrupted shared library }
+Sys_ELIBSCN     = 81;   { .lib section in a.out corrupted }
+Sys_ELIBMAX     = 82;   { Attempting to link in too many shared libraries }
+Sys_ELIBEXEC= 83;       { Cannot exec a shared library directly }
+Sys_EILSEQ      = 84;   { Illegal byte sequence }
+Sys_ERESTART= 85;       { Interrupted system call should be restarted }
+Sys_ESTRPIPE= 86;       { Streams pipe error }
+Sys_EUSERS      = 87;   { Too many users }
+Sys_ENOTSOCK= 88;       { Socket operation on non-socket }
+Sys_EDESTADDRREQ= 89;   { Destination address required }
+Sys_EMSGSIZE= 90;       { Message too long }
+Sys_EPROTOTYPE= 91;     { Protocol wrong type for socket }
+Sys_ENOPROTOOPT= 92;    { Protocol not available }
+Sys_EPROTONOSUPPORT= 93;        { Protocol not supported }
+Sys_ESOCKTNOSUPPORT= 94;        { Socket type not supported }
+Sys_EOPNOTSUPP= 95;     { Operation not supported on transport endpoint }
+Sys_EPFNOSUPPORT= 96;   { Protocol family not supported }
+Sys_EAFNOSUPPORT= 97;   { Address family not supported by protocol }
+Sys_EADDRINUSE= 98;     { Address already in use }
+Sys_EADDRNOTAVAIL= 99;  { Cannot assign requested address }
+Sys_ENETDOWN= 100;      { Network is down }
+Sys_ENETUNREACH= 101;   { Network is unreachable }
+Sys_ENETRESET= 102;     { Network dropped connection because of reset }
+Sys_ECONNABORTED= 103;  { Software caused connection abort }
+Sys_ECONNRESET= 104;    { Connection reset by peer }
+Sys_ENOBUFS     = 105;  { No buffer space available }
+Sys_EISCONN     = 106;  { Transport endpoint is already connected }
+Sys_ENOTCONN= 107;      { Transport endpoint is not connected }
+Sys_ESHUTDOWN= 108;     { Cannot send after transport endpoint shutdown }
+Sys_ETOOMANYREFS= 109;  { Too many references: cannot splice }
+Sys_ETIMEDOUT= 110;     { Connection timed out }
+Sys_ECONNREFUSED= 111;  { Connection refused }
+Sys_EHOSTDOWN= 112;     { Host is down }
+Sys_EHOSTUNREACH= 113;  { No route to host }
+Sys_EALREADY= 114;      { Operation already in progress }
+Sys_EINPROGRESS= 115;   { Operation now in progress }
+Sys_ESTALE      = 116;  { Stale NFS file handle }
+Sys_EUCLEAN     = 117;  { Structure needs cleaning }
+Sys_ENOTNAM     = 118;  { Not a XENIX named type file }
+Sys_ENAVAIL     = 119;  { No XENIX semaphores available }
+Sys_EISNAM      = 120;  { Is a named type file }
+Sys_EREMOTEIO= 121;     { Remote I/O error }
+Sys_EDQUOT      = 122;  { Quota exceeded }
 
 {
   $Log$
-  Revision 1.1  2001-07-16 19:56:54  marco
-   * Target specific again because of Solaris
-
-  Revision 1.2  2000/09/18 13:14:50  marco
-   * Global Linux +bsd to (rtl/freebsd rtl/unix rtl/linux structure)
+  Revision 1.2  2002-09-07 16:01:17  peter
+    * old logs removed and tabs fixed
 
-  Revision 1.2  2000/07/13 11:33:48  michael
-  + removed logs
- 
 }

rtl/freebsd/ptypes.inc

@@ -25,7 +25,7 @@ type
     { and system dependant                                  }
 
     cint8  = shortint;
-    cuint8 = byte; 
+    cuint8 = byte;
     cuint16= word;
     cint16 = smallint;
     cint32 = longint;
@@ -35,29 +35,29 @@ type
     cuint64= qword;
 {$endif}
 
-    cint   = longint;  		{ minimum range is : 32-bit    }
-    cuint  = Cardinal;		{ minimum range is : 32-bit    }
-    clong  = longint;		
-    culong = Cardinal;		
-    	
+    cint   = longint;           { minimum range is : 32-bit    }
+    cuint  = Cardinal;          { minimum range is : 32-bit    }
+    clong  = longint;
+    culong = Cardinal;
+
     dev_t    = cuint32;         { used for device numbers      }
-    gid_t    = cuint32;      	{ used for group IDs           }
-    ino_t    = clong;          	{ used for file serial numbers }
-    mode_t   = cuint16;		{ used for file attributes     }
-    nlink_t  = cuint16;		{ used for link counts         }
-    off_t    = cint64;   	{ used for file sizes          }
+    gid_t    = cuint32;         { used for group IDs           }
+    ino_t    = clong;           { used for file serial numbers }
+    mode_t   = cuint16;         { used for file attributes     }
+    nlink_t  = cuint16;         { used for link counts         }
+    off_t    = cint64;          { used for file sizes          }
     pid_t    = cint32;          { used as process identifier   }
-    size_t   = cuint32;   	{ as definied in the C standard}
+    size_t   = cuint32;         { as definied in the C standard}
     ssize_t  = cint32;          { used by function for returning number of bytes }
-    uid_t    = cuint32;      	{ used for user ID type        }
+    uid_t    = cuint32;         { used for user ID type        }
 
-    time_t   = clong;		{ used for returning the time  }
+    time_t   = clong;           { used for returning the time  }
     socklen_t= cuint32;
 
 CONST
    { System limits, POSIX value in parentheses, used for buffer and stack allocation }
     ARG_MAX  = 65536;   {4096}  { Maximum number of argument size     }
-    NAME_MAX = 255;     {14} 	{ Maximum number of bytes in filename }
-    PATH_MAX = 1024;    {255}	{ Maximum number of bytes in pathname }
-     	
-    SYS_NMLN = 32; 		{BSD utsname struct limit}
+    NAME_MAX = 255;     {14}    { Maximum number of bytes in filename }
+    PATH_MAX = 1024;    {255}   { Maximum number of bytes in pathname }
+
+    SYS_NMLN = 32;              {BSD utsname struct limit}

rtl/freebsd/signal.inc

@@ -151,20 +151,7 @@ type sigset_t = cardinal;
 
 {
   $Log$
-  Revision 1.2  2000-09-18 13:42:35  marco
-   * FreeBSD support into 1.1
-
-  Revision 1.2  2000/09/11 14:38:10  marco
-   * 14 april version killed, and replaced by newer fixes branch version
-
-  Revision 1.1.2.1  2000/09/10 16:18:41  marco
-  initial version
-
-  Revision 1.2  2000/03/31 23:11:23  pierre
-   * TSigAction Context param is the full record not a pointer
-
-  Revision 1.1  2000/03/31 13:24:28  jonas
-    * signal handling using sigaction when compiled with -dnewsignal
-      (allows multiple signals to be received in one run)
+  Revision 1.3  2002-09-07 16:01:17  peter
+    * old logs removed and tabs fixed
 
 }

rtl/freebsd/syscalls.inc

@@ -49,7 +49,7 @@ procedure actualsyscall; assembler; {inline requires a dummy push IIRC}
          xor %ebx,%ebx
          ret
 .LErrorcode:
-	 mov %eax,%ebx
+         mov %eax,%ebx
          mov $-1,%eax
    end;
 
@@ -375,8 +375,8 @@ end;
 var
     FinalEntry     : pdirent;
     novalid        : boolean;
-    Reclen	   : Longint;
-    CurEntry	   : PDirent;
+    Reclen         : Longint;
+    CurEntry       : PDirent;
 begin
  if (p^.buf=nil) or (p^.loc=0) THEN
   exit(nil);
@@ -384,7 +384,7 @@ begin
    (p^.rewind>=(longint(p^.buf)+dirblksiz)) then  {no more entries left?}
   Begin
     if readbuffer=0 then        {succesful read?}
-     Exit(NIL);			{No more data}
+     Exit(NIL);                 {No more data}
   End;
  FinalEntry:=NIL;
  CurEntry:=nil;
@@ -489,7 +489,7 @@ begin
   Sys_FStat:=do_SysCall(syscall_nr_fstat,fd,longint(@info));
 end;
 
-{$ifdef NewReaddir} 
+{$ifdef NewReaddir}
 {$I readdir.inc}
 {$endif}
 
@@ -514,78 +514,10 @@ end;
 
 {
   $Log$
-  Revision 1.8  2002-05-06 07:27:39  marco
-   * Fixed a readdir bug, already fixed in januari in 1.0.x
-
-  Revision 1.7  2001/08/27 09:35:07  marco
-   * Ftruncate intermediate fix.
-
-  Revision 1.6  2001/06/19 08:34:16  marco
-   * Peter didn't merge the FreeBSD directory when he merged the Unix one. Fixed
-
-  Revision 1.5  2001/04/23 11:38:30  marco
-   * Small readdir fix from fixes branch.
-
-  Revision 1.4  2000/09/19 09:57:35  marco
-   * Fixed mkdir
-
-  Revision 1.3  2000/09/19 09:25:17  marco
-   * addw fix for main thread.
-
-  Revision 1.2  2000/09/18 13:42:35  marco
-   * FreeBSD support into 1.1
-
-  Revision 1.4  2000/09/11 14:38:10  marco
-   * 14 april version killed, and replaced by newer fixes branch version
-
-  Revision 1.1.2.1  2000/09/10 16:12:14  marco
-  Initial signals, sockets and clone
-
-  Revision 1.1  2000/07/13 06:30:32  michael
-  + Initial import
-
-  Revision 1.15  2000/04/16 16:08:53  marco
-   * Fixes (mainly opendir/Readdir/closedir)
-
-  Revision 1.14  2000/04/14 17:04:13  marco
-   * Working!
+  Revision 1.9  2002-09-07 16:01:17  peter
+    * old logs removed and tabs fixed
 
-  Revision 1.13  2000/04/10 15:46:52  marco
-   * worked all day. probably a lot changed
-
-  Revision 1.11  2000/04/05 13:58:40  marco
-   * syscall variablenames reintroduced.
-
-  Revision 1.10  2000/03/16 16:18:12  marco
-   * Last changes before next test. ppc386 -h works with these srcs.
-
-  Revision 1.9  2000/03/02 15:34:07  marco
-   * added a syscall for 5 longints
-
-  Revision 1.8  2000/03/01 20:03:57  marco
-   * small fixes for syslinux
-
-  Revision 1.7  2000/03/01 17:28:40  marco
-   * some changes due to updating linux.pp to new syscall
-
-  Revision 1.6  2000/02/27 23:45:39  marco
-   * Redone the syscalls
-
-  Revision 1.5  2000/02/04 16:53:26  marco
-   * Finished Linux (and rest syscalls) roughly. Some things still need to be
-    tested, and checked (off_t calls specially)
-
-  Revision 1.4  2000/02/03 17:04:47  marco
-   * additions fixes due to port linux
-
-  Revision 1.3  2000/02/02 18:07:27  marco
-   * Ported except for readdir which is 200 lines C code in FBSD linux
-        emulator
-
-  Revision 1.2  2000/02/02 16:35:10  marco
-   * Ported more functions. Half done now.
-
-  Revision 1.1  2000/02/02 15:41:56  marco
-   * Initial BSD version. Still needs a lot of work.
+  Revision 1.8  2002/05/06 07:27:39  marco
+   * Fixed a readdir bug, already fixed in januari in 1.0.x
 
 }

rtl/freebsd/sysconst.inc

@@ -111,48 +111,10 @@ type
 
 {
   $Log$
-  Revision 1.6  2002-05-06 09:35:09  marco
-   * Some stuff from 1.0.x ported
-
-  Revision 1.5  2001/10/14 13:33:20  peter
-    * start of thread support for linux
-
-  Revision 1.4  2001/06/19 08:34:16  marco
-   * Peter didn't merge the FreeBSD directory when he merged the Unix one. Fixed
-
-  Revision 1.3  2001/01/23 20:37:14  marco
-   * Serial.pp in makefile, Open_Noccty added to sysconst.inc
-
-  Revision 1.2  2000/09/18 13:42:35  marco
-   * FreeBSD support into 1.1
-
-  Revision 1.4  2000/09/11 14:38:10  marco
-   * 14 april version killed, and replaced by newer fixes branch version
-
-  Revision 1.1  2000/07/13 06:30:33  michael
-  + Initial import
+  Revision 1.7  2002-09-07 16:01:17  peter
+    * old logs removed and tabs fixed
 
-  Revision 1.5  2000/04/10 15:46:52  marco
-   * worked all day. probably a lot changed
-
-  Revision 1.3  2000/02/03 17:05:13  marco
-   * fixes and updates due to linux unit porting
-
-  Revision 1.2  2000/02/02 16:35:29  marco
-   * Checked stat constants
-
-  Revision 1.1  2000/02/02 15:41:28  marco
-   * initial BSD version.
-
-  Revision 1.4  2000/01/07 16:41:41  daniel
-    * copyright 2000
-
-  Revision 1.3  2000/01/07 16:32:28  daniel
-    * copyright 2000 added
-
-  Revision 1.2  1998/05/06 12:38:22  michael
-  + Removed log from before restored version.
+  Revision 1.6  2002/05/06 09:35:09  marco
+   * Some stuff from 1.0.x ported
 
-  Revision 1.1.1.1  1998/03/25 11:18:43  root
-  * Restored version
 }

rtl/freebsd/sysnr.inc

@@ -318,21 +318,13 @@ syscall_nr_getdirentries                =196;
 
 {
   $Log$
-  Revision 1.6  2002-08-19 12:32:34  marco
+  Revision 1.7  2002-09-07 16:01:18  peter
+    * old logs removed and tabs fixed
+
+  Revision 1.6  2002/08/19 12:32:34  marco
    * again fixes.
 
   Revision 1.5  2002/05/06 09:35:09  marco
    * Some stuff from 1.0.x ported
 
-  Revision 1.4  2001/01/22 07:25:10  marco
-   * IOPERM for FreeBSD. Port routines moved from linsysca to Unix again .
-
-  Revision 1.3  2000/10/26 23:00:12  peter
-    * fixes merges
-
-  Revision 1.2  2000/09/18 13:42:35  marco
-   * FreeBSD support into 1.1
-
-  Revision 1.4  2000/09/11 14:38:10  marco
-   * 14 april version killed, and replaced by newer fixes branch version
-}
+}

rtl/freebsd/systypes.inc

@@ -38,8 +38,8 @@ type
 }
 { The following are records for system calls BSD updated }
   dirent = packed record
-    ino    : cardinal;		{ This is not inode number, but "a number
-				  unique for each file on a filesystem"}
+    ino    : cardinal;          { This is not inode number, but "a number
+                                  unique for each file on a filesystem"}
     reclen : word;
     d_type,
     namlen : byte;
@@ -54,7 +54,7 @@ type
             loc,                { offset in current buffer }
             size  : cardinal;   { amount of data returned by getdirentries}
             buf   : pdirent;    { data buffer, actually a pchar}
-            len   : longint;    { size of data buffer 	}
+            len   : longint;    { size of data buffer   }
             seek,               { magic cookie returned by getdirentries}
             rewind: cardinal;   { magic cookie for rewinding}
             flags : longint;    { flags for readdir }
@@ -79,41 +79,41 @@ type
  Stat =record {BSD version}
         dev        :  dev_t;            { inode's device }
         ino        :  cardinal;         { inode's number }
-        mode, 				{ inode protection mode }
-        nlink	   :  word;             { number of hard links }
-        uid,				{ user ID of the file's owner }
-        gid,				{ group ID of the file's group }
-        dev_t	   :  cardinal;		{ device type }
-	atime,                          { time of last access }
-	atime_nsec,         		{ nsec of last access }
-	mtime,	           		{ time of last data modification }
-	mtime_nsec,         		{ nsec of last data modification }
-	ctime,            		{ time of last file status change }
-	ctime_nsec : longint;      	{ nsec of last file status change }
-	size,           		{ file size, in bytes }
-	blocks     : Int64;		{ blocks allocated for file }
-	blksze,         		{ optimal blocksize for I/O }
-	flags,          		{ user defined flags for file }
-	filegen    : cardinal;		{ file generation number }
-	lspare	   : longint;
-	qspare     : array[0..1] of int64;
+        mode,                           { inode protection mode }
+        nlink      :  word;             { number of hard links }
+        uid,                            { user ID of the file's owner }
+        gid,                            { group ID of the file's group }
+        dev_t      :  cardinal;         { device type }
+        atime,                          { time of last access }
+        atime_nsec,                     { nsec of last access }
+        mtime,                          { time of last data modification }
+        mtime_nsec,                     { nsec of last data modification }
+        ctime,                          { time of last file status change }
+        ctime_nsec : longint;           { nsec of last file status change }
+        size,                           { file size, in bytes }
+        blocks     : Int64;             { blocks allocated for file }
+        blksze,                         { optimal blocksize for I/O }
+        flags,                          { user defined flags for file }
+        filegen    : cardinal;          { file generation number }
+        lspare     : longint;
+        qspare     : array[0..1] of int64;
        end;
 
   PStat=^Stat;
   TStat=Stat;
 
   TStatfs = packed record
-    spare2,	       { place holder}
-    bsize,	       { fundamental block size}
+    spare2,            { place holder}
+    bsize,             { fundamental block size}
     iosize,            { optimal block size }
     blocks,            {  total blocks}
     bfree,             { blocks free}
     bavail,            { block available for mortal users}
-    files,	       { Total file nodes}
-    ffree	   : longint;    { file nodes free}
-    fsid	   : array[0..1] of longint;
-    fowner	   : longint; {mounter uid}
-    ftype	   : longint;
+    files,             { Total file nodes}
+    ffree          : longint;    { file nodes free}
+    fsid           : array[0..1] of longint;
+    fowner         : longint; {mounter uid}
+    ftype          : longint;
     fflags         : longint; {copy of mount flags}
     spare          : array [0..1] of longint; { For later use }
     fstypename     : array[0..15] of char;
@@ -154,34 +154,16 @@ type
   TUTSName=UTSName;
 
   ITimerVal= Record
-	      It_Interval,
-	      It_Value      : TimeVal; 
+              It_Interval,
+              It_Value      : TimeVal;
              end;
 
 {
   $Log$
-  Revision 1.8  2002-05-06 10:49:59  marco
-   * setitimer for 1.1
-
-  Revision 1.7  2001/06/19 08:59:01  marco
-   * Fixes from Unix merge and changes of socketh.inc
-
-  Revision 1.6  2001/06/19 08:34:16  marco
-   * Peter didn't merge the FreeBSD directory when he merged the Unix one. Fixed
-
-  Revision 1.5  2001/01/20 16:52:37  marco
-   * Grr, timeval and timespec were both wrong, and I fixed only one. Now
-  done.
+  Revision 1.9  2002-09-07 16:01:18  peter
+    * old logs removed and tabs fixed
 
-  Revision 1.4  2001/01/20 16:42:49  marco
-   * Fixed the timeval
-
-  Revision 1.3  2000/10/26 23:00:12  peter
-    * fixes merges
-
-  Revision 1.2  2000/09/18 13:42:35  marco
-   * FreeBSD support into 1.1
+  Revision 1.8  2002/05/06 10:49:59  marco
+   * setitimer for 1.1
 
-  Revision 1.4  2000/09/11 14:38:10  marco
-   * 14 april version killed, and replaced by newer fixes branch version
-}
+}

rtl/freebsd/termios.inc

@@ -6,29 +6,29 @@ CONST
  *
  * Index into c_cc[] character array.
  *
- *	Name	     Subscript	Enabled by
+ *      Name         Subscript  Enabled by
  }
- VEOF		=0;	
- VEOL		=1;	
- VEOL2		=2;	
- VERASE		=3;	
- VWERASE 	=4;	
- VKILL		=5;	
- VREPRINT 	=6;	
-{		=7;	   spare 1 }
- VINTR		=8;	
- VQUIT		=9;	
- VSUSP		=10;	
- VDSUSP		=11;	
- VSTART		=12;	
- VSTOP		=13;	
- VLNEXT		=14;	
- VDISCARD	=15;	
- VMIN		=16;	
- VTIME		=17;	
- VSTATUS	=18;	
-{		=19	   spare 2 }
- NCCS		=20;
+ VEOF           =0;
+ VEOL           =1;
+ VEOL2          =2;
+ VERASE         =3;
+ VWERASE        =4;
+ VKILL          =5;
+ VREPRINT       =6;
+{               =7;        spare 1 }
+ VINTR          =8;
+ VQUIT          =9;
+ VSUSP          =10;
+ VDSUSP         =11;
+ VSTART         =12;
+ VSTOP          =13;
+ VLNEXT         =14;
+ VDISCARD       =15;
+ VMIN           =16;
+ VTIME          =17;
+ VSTATUS        =18;
+{               =19        spare 2 }
+ NCCS           =20;
 
 Type
   winsize = packed record
@@ -50,7 +50,7 @@ type
     c_cc     : array[0..NCCS-1] of byte;
    {$IFDEF BSD}
     c_ispeed,
-    c_ospeed : longint; 
+    c_ospeed : longint;
    {$endif}
   end;
   TTermios=Termios;
@@ -61,55 +61,55 @@ CONST
  POSIX_VDISABLE=Chr($ff);
 {
 
-#define	CCEQ(val, c)	((c) == (val) ? (val) != _POSIX_VDISABLE : 0)
+#define CCEQ(val, c)    ((c) == (val) ? (val) != _POSIX_VDISABLE : 0)
 }
 
 { * Input flags - software input processing}
 
-       	IGNBRK		=       $1;	{ ignore BREAK condition }
-       	BRKINT		=       $2;	{ map BREAK to SIGINTR }
-       	IGNPAR		=       $4;	{ ignore (discard) parity errors }
-       	PARMRK		=       $8;	{ mark parity and framing errors }
-       	INPCK		=      $10;	{ enable checking of parity errors }
-       	ISTRIP		=      $20;	{ strip 8th bit off chars }
-       	INLCR		=      $40;	{ map NL into CR }
-       	IGNCR		=      $80;	{ ignore CR }
-       	ICRNL		=     $100;	{ map CR to NL (ala CRMOD) }
-       	IXON		=     $200;	{ enable output flow control }
-       	IXOFF		=     $400;	{ enable input flow control }
-       	IXANY		=     $800;	{ any char will restart after stop }
-        IMAXBEL		=    $2000;	{ ring bell on input queue full }
+        IGNBRK          =       $1;     { ignore BREAK condition }
+        BRKINT          =       $2;     { map BREAK to SIGINTR }
+        IGNPAR          =       $4;     { ignore (discard) parity errors }
+        PARMRK          =       $8;     { mark parity and framing errors }
+        INPCK           =      $10;     { enable checking of parity errors }
+        ISTRIP          =      $20;     { strip 8th bit off chars }
+        INLCR           =      $40;     { map NL into CR }
+        IGNCR           =      $80;     { ignore CR }
+        ICRNL           =     $100;     { map CR to NL (ala CRMOD) }
+        IXON            =     $200;     { enable output flow control }
+        IXOFF           =     $400;     { enable input flow control }
+        IXANY           =     $800;     { any char will restart after stop }
+        IMAXBEL         =    $2000;     { ring bell on input queue full }
 
 {
  * Output flags - software output processing
 }
-       	OPOST		=       $1;	{ enable following output processing }
-        ONLCR		=       $2;	{ map NL to CR-NL (ala CRMOD) }
-        OXTABS		=       $4;	{ expand tabs to spaces }
-        ONOEOT		=       $8;	{ discard EOT's (^D) on output) }
+        OPOST           =       $1;     { enable following output processing }
+        ONLCR           =       $2;     { map NL to CR-NL (ala CRMOD) }
+        OXTABS          =       $4;     { expand tabs to spaces }
+        ONOEOT          =       $8;     { discard EOT's (^D) on output) }
 
 {
  * Control flags - hardware control of terminal
 }
-       	CIGNORE		=       $1;	{ ignore control flags }
-        CSIZE		=     $300;	{ character size mask }
-        CS5		=       $0;	    { 5 bits (pseudo) }
-        CS6		=     $100;	    { 6 bits }
-        CS7		=     $200;	    { 7 bits }
-        CS8		=     $300;	    { 8 bits }
-        CSTOPB		=     $400;	{ send 2 stop bits }
-        CREAD		=     $800;	{ enable receiver }
-        PARENB		=    $1000;	{ parity enable }
-        PARODD		=    $2000;	{ odd parity, else even }
-        HUPCL		=    $4000;	{ hang up on last close }
-        CLOCAL		=    $8000;	{ ignore modem status lines }
-        CCTS_OFLOW	=   $10000;	{ CTS flow control of output }
-        CRTS_IFLOW	=   $20000;	{ RTS flow control of input }
-        CRTSCTS		=   (CCTS_OFLOW or CRTS_IFLOW);
-       	CDTR_IFLOW	=   $40000;	{ DTR flow control of input }
-        CDSR_OFLOW	=   $80000;	{ DSR flow control of output }
-       	CCAR_OFLOW	=  $100000;	{ DCD flow control of output }
-       	MDMBUF		=  $100000;	{ old name for CCAR_OFLOW }
+        CIGNORE         =       $1;     { ignore control flags }
+        CSIZE           =     $300;     { character size mask }
+        CS5             =       $0;         { 5 bits (pseudo) }
+        CS6             =     $100;         { 6 bits }
+        CS7             =     $200;         { 7 bits }
+        CS8             =     $300;         { 8 bits }
+        CSTOPB          =     $400;     { send 2 stop bits }
+        CREAD           =     $800;     { enable receiver }
+        PARENB          =    $1000;     { parity enable }
+        PARODD          =    $2000;     { odd parity, else even }
+        HUPCL           =    $4000;     { hang up on last close }
+        CLOCAL          =    $8000;     { ignore modem status lines }
+        CCTS_OFLOW      =   $10000;     { CTS flow control of output }
+        CRTS_IFLOW      =   $20000;     { RTS flow control of input }
+        CRTSCTS         =   (CCTS_OFLOW or CRTS_IFLOW);
+        CDTR_IFLOW      =   $40000;     { DTR flow control of input }
+        CDSR_OFLOW      =   $80000;     { DSR flow control of output }
+        CCAR_OFLOW      =  $100000;     { DCD flow control of output }
+        MDMBUF          =  $100000;     { old name for CCAR_OFLOW }
 
 {
  * "Local" flags - dumping ground for other state
@@ -119,23 +119,23 @@ CONST
  * input flag.
  }
 
-       	ECHOKE		=       $1;	{ visual erase for line kill }
-       	ECHOE		=       $2;	{ visually erase chars }
-       	ECHOK		=       $4;	{ echo NL after line kill }
-        ECHO		=       $8;	{ enable echoing }
-       	ECHONL		=      $10;	{ echo NL even if ECHO is off }
-       	ECHOPRT		=      $20;	{ visual erase mode for hardcopy }
-        ECHOCTL  	=      $40;	{ echo control chars as ^(Char) }
-       	ISIG		=      $80;	{ enable signals INTR, QUIT, [D]SUSP }
-       	ICANON		=     $100;	{ canonicalize input lines }
-        ALTWERASE	=     $200;	{ use alternate WERASE algorithm }
-       	IEXTEN		=     $400;	{ enable DISCARD and LNEXT }
+        ECHOKE          =       $1;     { visual erase for line kill }
+        ECHOE           =       $2;     { visually erase chars }
+        ECHOK           =       $4;     { echo NL after line kill }
+        ECHO            =       $8;     { enable echoing }
+        ECHONL          =      $10;     { echo NL even if ECHO is off }
+        ECHOPRT         =      $20;     { visual erase mode for hardcopy }
+        ECHOCTL         =      $40;     { echo control chars as ^(Char) }
+        ISIG            =      $80;     { enable signals INTR, QUIT, [D]SUSP }
+        ICANON          =     $100;     { canonicalize input lines }
+        ALTWERASE       =     $200;     { use alternate WERASE algorithm }
+        IEXTEN          =     $400;     { enable DISCARD and LNEXT }
         EXTPROC         =     $800;      { external processing }
-        TOSTOP		=  $400000;	{ stop background jobs from output }
-        FLUSHO		=  $800000;	{ output being flushed (state) }
-       	NOKERNINFO	= $2000000;	{ no kernel output from VSTATUS }
-        PENDIN		=$20000000;	{ XXX retype pending input (state) }
-       	NOFLSH		=$80000000;	{ don't flush after interrupt }
+        TOSTOP          =  $400000;     { stop background jobs from output }
+        FLUSHO          =  $800000;     { output being flushed (state) }
+        NOKERNINFO      = $2000000;     { no kernel output from VSTATUS }
+        PENDIN          =$20000000;     { XXX retype pending input (state) }
+        NOFLSH          =$80000000;     { don't flush after interrupt }
 
 
 
@@ -145,66 +145,66 @@ CONST
 
 CONST
 
-       	TCSANOW		=0;		{ make change immediate }
-       	TCSADRAIN	=1;		{ drain output, then change }
-       	TCSAFLUSH	=2;		{ drain output, flush input }
-        TCSASOFT	=$10;		{ flag - don't alter h.w. state }
+        TCSANOW         =0;             { make change immediate }
+        TCSADRAIN       =1;             { drain output, then change }
+        TCSAFLUSH       =2;             { drain output, flush input }
+        TCSASOFT        =$10;           { flag - don't alter h.w. state }
 
 {
  * Standard speeds
 }
-        B0	=     0;
-        B50	=    50;
-        B75	=    75;
-        B110	=   110;
-        B134	=   134;
-        B150	=   150;
-        B200	=   200;
-        B300	=   300;
-        B600	=   600;
-        B1200	=  1200;
-       	B1800	=  1800;
-        B2400	=  2400;
-        B4800	=  4800;
-        B9600	=  9600;
-        B19200	= 19200;
-        B38400	= 38400;
-        B7200	=  7200;
-        B14400	= 14400;
-        B28800	= 28800;
-        B57600	= 57600;
-        B76800	= 76800;
-        B115200	=115200;
-        B230400	=230400;
-        EXTA	= 19200;
-        EXTB	= 38400;
-
-       	TCIFLUSH	=1;
-       	TCOFLUSH	=2;
-        TCIOFLUSH	=3;
-       	TCOOFF		=1;
-       	TCOON		=2;
-        TCIOFF		=3;
-        TCION		=4;
+        B0      =     0;
+        B50     =    50;
+        B75     =    75;
+        B110    =   110;
+        B134    =   134;
+        B150    =   150;
+        B200    =   200;
+        B300    =   300;
+        B600    =   600;
+        B1200   =  1200;
+        B1800   =  1800;
+        B2400   =  2400;
+        B4800   =  4800;
+        B9600   =  9600;
+        B19200  = 19200;
+        B38400  = 38400;
+        B7200   =  7200;
+        B14400  = 14400;
+        B28800  = 28800;
+        B57600  = 57600;
+        B76800  = 76800;
+        B115200 =115200;
+        B230400 =230400;
+        EXTA    = 19200;
+        EXTB    = 38400;
+
+        TCIFLUSH        =1;
+        TCOFLUSH        =2;
+        TCIOFLUSH       =3;
+        TCOOFF          =1;
+        TCOON           =2;
+        TCIOFF          =3;
+        TCION           =4;
 
 {
 #include <sys/cdefs.h>
 
 __BEGIN_DECLS
-speed_t	cfgetispeed __P((const struct termios *));
-speed_t	cfgetospeed __P((const struct termios *));
-int	cfsetispeed __P((struct termios *, speed_t));
-int	cfsetospeed __P((struct termios *, speed_t));
-int	tcgetattr __P((int, struct termios *));
-int	tcsetattr __P((int, int, const struct termios *));
-int	tcdrain __P((int));
-int	tcflow __P((int, int));
-int	tcflush __P((int, int));
-int	tcsendbreak __P((int, int));
+speed_t cfgetispeed __P((const struct termios *));
+speed_t cfgetospeed __P((const struct termios *));
+int     cfsetispeed __P((struct termios *, speed_t));
+int     cfsetospeed __P((struct termios *, speed_t));
+int     tcgetattr __P((int, struct termios *));
+int     tcsetattr __P((int, int, const struct termios *));
+int     tcdrain __P((int));
+int     tcflow __P((int, int));
+int     tcflush __P((int, int));
+int     tcsendbreak __P((int, int));
 
 #ifndef _POSIX_SOURCE
-void	cfmakeraw __P((struct termios *));
-int	cfsetspeed __P((struct termios *, speed_t));
+void    cfmakeraw __P((struct termios *));
+int     cfsetspeed __P((struct termios *, speed_t));
 #endif { !_POSIX_SOURCE }
 __END_DECLS
 
@@ -213,139 +213,139 @@ __END_DECLS
 
 
 struct winsize {
-	unsigned short	ws_row;		{ rows, in characters }
-	unsigned short	ws_col;		{ columns, in characters }
-	unsigned short	ws_xpixel;	{ horizontal size, pixels }
-	unsigned short	ws_ypixel;	{ vertical size, pixels }
+        unsigned short  ws_row;         { rows, in characters }
+        unsigned short  ws_col;         { columns, in characters }
+        unsigned short  ws_xpixel;      { horizontal size, pixels }
+        unsigned short  ws_ypixel;      { vertical size, pixels }
 };
 
 }
        IOCTLREAD        = $40000000;
        IOCTLWRITE       = $80000000;
-       IOCTLVOID	= $20000000;
-
-      	TIOCMODG	= IOCTLREAD+$47400+ 3;	{ get modem control state }
-      	TIOCMODS	= IOCTLWRITE+$47400+ 4;	{ set modem control state }
-      		TIOCM_LE	=$0001;		{ line enable }
-      		TIOCM_DTR	=$0002;		{ data terminal ready }
-      		TIOCM_RTS	=$0004;		{ request to send }
-      		TIOCM_ST	=$0010;		{ secondary transmit }
-      		TIOCM_SR	=$0020;		{ secondary receive }
-      		TIOCM_CTS	=$0040;		{ clear to send }
-      		TIOCM_CAR	=$0100;		{ carrier detect }
-      		TIOCM_CD	=TIOCM_CAR;
-      		TIOCM_RNG	=$0200; 	{ ring }
-      		TIOCM_RI	=TIOCM_RNG;
-      		TIOCM_DSR	=$0400;		{ data set ready }
-						{ 8-10 compat }
-      	TIOCEXCL	 =IOCTLVOID+$7400+ 13;		{ set exclusive use of tty }
-      	TIOCNXCL	 =IOCTLVOID+$7400+ 14;		{ reset exclusive use of tty }
-						{ 15 unused }
-      	TIOCFLUSH 	 =IOCTLWRITE+$47400+ 16;	{ flush buffers }
-						{ 17-18 compat }
-      	TIOCGETA	 =IOCTLREAD+$2C7400+ 19; { get termios struct }
-      	TIOCSETA	 =IOCTLWRITE+$2C7400+ 20; { set termios struct }
-      	TIOCSETAW	 =IOCTLWRITE+$2C7400+ 21; { drain output, set }
-      	TIOCSETAF	 =IOCTLWRITE+$2C7400+ 22; { drn out, fls in, set }
-      	TIOCGETD	 =IOCTLREAD+$47400+ 26;	{ get line discipline }
-      	TIOCSETD	 =IOCTLWRITE+$47400+ 27;	{ set line discipline }
-						{ 127-124 compat }
-      	TIOCSBRK	 =IOCTLVOID+$7400+ 123;		{ set break bit }
-      	TIOCCBRK	 =IOCTLVOID+$7400+ 122;		{ clear break bit }
-      	TIOCSDTR	 =IOCTLVOID+$7400+ 121;		{ set data terminal ready }
-      	TIOCCDTR	 =IOCTLVOID+$7400+ 120;		{ clear data terminal ready }
-      	TIOCGPGRP	 =IOCTLREAD+$47400+ 119;	{ get pgrp of tty }
-      	TIOCSPGRP	 =IOCTLWRITE+$47400+ 118;	{ set pgrp of tty }
-						{ 117-116 compat }
-      	TIOCOUTQ	 =IOCTLREAD+$47400+ 115;	{ output queue size }
-      	TIOCSTI		 =IOCTLWRITE+$17400+ 114;	{ simulate terminal input }
-      	TIOCNOTTY	 =IOCTLVOID+$7400+ 113;		{ void tty association }
-      	TIOCPKT		 =IOCTLWRITE+$47400+ 112;	{ pty: set/clear packet mode }
-      		TIOCPKT_DATA		=$00;	{ data packet }
-      		TIOCPKT_FLUSHREAD	=$01;	{ flush packet }
-      		TIOCPKT_FLUSHWRITE	=$02;	{ flush packet }
-      		TIOCPKT_STOP		=$04;	{ stop output }
-      		TIOCPKT_START		=$08;	{ start output }
-      		TIOCPKT_NOSTOP		=$10;	{ no more ^S, ^Q }
-      		TIOCPKT_DOSTOP		=$20;	{ now do ^S ^Q }
-      		TIOCPKT_IOCTL		=$40;	{ state change of pty driver }
-      	TIOCSTOP	 =IOCTLVOID+$7400+ 111;		{ stop output, like ^S }
-      	TIOCSTART	 =IOCTLVOID+$7400+ 110;		{ start output, like ^Q }
-      	TIOCMSET	 =IOCTLWRITE+$47400+ 109;	{ set all modem bits }
-      	TIOCMBIS	 =IOCTLWRITE+$47400+ 108;	{ bis modem bits }
-      	TIOCMBIC	 =IOCTLWRITE+$47400+ 107;	{ bic modem bits }
-      	TIOCMGET	 =IOCTLREAD+$47400+ 106;	{ get all modem bits }
-      	TIOCREMOTE	 =IOCTLWRITE+$47400+ 105;	{ remote input editing }
-      	TIOCGWINSZ	 =IOCTLREAD+$87400+ 104;	{ get window size }
-      	TIOCSWINSZ	 =IOCTLWRITE+$87400+ 103;	{ set window size }
-      	TIOCUCNTL	 =IOCTLWRITE+$47400+ 102;	{ pty: set/clr usr cntl mode }
-      	TIOCSTAT	 =IOCTLVOID+$7400+ 101;		{ simulate ^T status message }
-  //    		   UIOCCMD(n)	_IO('u', n)	{ usr cntl op "n" }
-      	TIOCCONS	 =IOCTLWRITE+$47400+ 98;	{ become virtual console }
-      	TIOCSCTTY	 =IOCTLVOID+$7400+ 97;		{ become controlling tty }
-      	TIOCEXT		 =IOCTLWRITE+$47400+ 96;	{ pty: external processing }
-      	TIOCSIG		 =IOCTLVOID+$7400+ 95;		{ pty: generate signal }
-      	TIOCDRAIN	 =IOCTLVOID+$7400+ 94;		{ wait till output drained }
-      	TIOCMSDTRWAIT	 =IOCTLWRITE+$47400+ 91;	{ modem: set wait on close }
-      	TIOCMGDTRWAIT	 =IOCTLREAD+$47400+ 90;	{ modem: get wait on close }
-      	TIOCTIMESTAMP	 =IOCTLREAD+$87400+ 89; 	{ enable/get timestamp
-						 * of last input event }
-      	TIOCDCDTIMESTAMP =IOCTLREAD+$87400+ 88;	{ enable/get timestamp
-						 * of last DCd rise }
-      	TIOCSDRAINWAIT	 =IOCTLWRITE+$47400+ 87;	{ set ttywait timeout }
-       	TIOCGDRAINWAIT	 =IOCTLREAD+$47400+ 86;	{ get ttywait timeout }
-
-      	TTYDISC		 =0;		{ termios tty line discipline }
-      	SLIPDISC	 =4; 		{ serial IP discipline }
-      	PPPDISC		 =5;		{ PPP discipline }
-      	NETGRAPHDISC	 =6;		{ Netgraph tty node discipline }
+       IOCTLVOID        = $20000000;
+
+        TIOCMODG        = IOCTLREAD+$47400+ 3;  { get modem control state }
+        TIOCMODS        = IOCTLWRITE+$47400+ 4; { set modem control state }
+                TIOCM_LE        =$0001;         { line enable }
+                TIOCM_DTR       =$0002;         { data terminal ready }
+                TIOCM_RTS       =$0004;         { request to send }
+                TIOCM_ST        =$0010;         { secondary transmit }
+                TIOCM_SR        =$0020;         { secondary receive }
+                TIOCM_CTS       =$0040;         { clear to send }
+                TIOCM_CAR       =$0100;         { carrier detect }
+                TIOCM_CD        =TIOCM_CAR;
+                TIOCM_RNG       =$0200;         { ring }
+                TIOCM_RI        =TIOCM_RNG;
+                TIOCM_DSR       =$0400;         { data set ready }
+                                                { 8-10 compat }
+        TIOCEXCL         =IOCTLVOID+$7400+ 13;          { set exclusive use of tty }
+        TIOCNXCL         =IOCTLVOID+$7400+ 14;          { reset exclusive use of tty }
+                                                { 15 unused }
+        TIOCFLUSH        =IOCTLWRITE+$47400+ 16;        { flush buffers }
+                                                { 17-18 compat }
+        TIOCGETA         =IOCTLREAD+$2C7400+ 19; { get termios struct }
+        TIOCSETA         =IOCTLWRITE+$2C7400+ 20; { set termios struct }
+        TIOCSETAW        =IOCTLWRITE+$2C7400+ 21; { drain output, set }
+        TIOCSETAF        =IOCTLWRITE+$2C7400+ 22; { drn out, fls in, set }
+        TIOCGETD         =IOCTLREAD+$47400+ 26; { get line discipline }
+        TIOCSETD         =IOCTLWRITE+$47400+ 27;        { set line discipline }
+                                                { 127-124 compat }
+        TIOCSBRK         =IOCTLVOID+$7400+ 123;         { set break bit }
+        TIOCCBRK         =IOCTLVOID+$7400+ 122;         { clear break bit }
+        TIOCSDTR         =IOCTLVOID+$7400+ 121;         { set data terminal ready }
+        TIOCCDTR         =IOCTLVOID+$7400+ 120;         { clear data terminal ready }
+        TIOCGPGRP        =IOCTLREAD+$47400+ 119;        { get pgrp of tty }
+        TIOCSPGRP        =IOCTLWRITE+$47400+ 118;       { set pgrp of tty }
+                                                { 117-116 compat }
+        TIOCOUTQ         =IOCTLREAD+$47400+ 115;        { output queue size }
+        TIOCSTI          =IOCTLWRITE+$17400+ 114;       { simulate terminal input }
+        TIOCNOTTY        =IOCTLVOID+$7400+ 113;         { void tty association }
+        TIOCPKT          =IOCTLWRITE+$47400+ 112;       { pty: set/clear packet mode }
+                TIOCPKT_DATA            =$00;   { data packet }
+                TIOCPKT_FLUSHREAD       =$01;   { flush packet }
+                TIOCPKT_FLUSHWRITE      =$02;   { flush packet }
+                TIOCPKT_STOP            =$04;   { stop output }
+                TIOCPKT_START           =$08;   { start output }
+                TIOCPKT_NOSTOP          =$10;   { no more ^S, ^Q }
+                TIOCPKT_DOSTOP          =$20;   { now do ^S ^Q }
+                TIOCPKT_IOCTL           =$40;   { state change of pty driver }
+        TIOCSTOP         =IOCTLVOID+$7400+ 111;         { stop output, like ^S }
+        TIOCSTART        =IOCTLVOID+$7400+ 110;         { start output, like ^Q }
+        TIOCMSET         =IOCTLWRITE+$47400+ 109;       { set all modem bits }
+        TIOCMBIS         =IOCTLWRITE+$47400+ 108;       { bis modem bits }
+        TIOCMBIC         =IOCTLWRITE+$47400+ 107;       { bic modem bits }
+        TIOCMGET         =IOCTLREAD+$47400+ 106;        { get all modem bits }
+        TIOCREMOTE       =IOCTLWRITE+$47400+ 105;       { remote input editing }
+        TIOCGWINSZ       =IOCTLREAD+$87400+ 104;        { get window size }
+        TIOCSWINSZ       =IOCTLWRITE+$87400+ 103;       { set window size }
+        TIOCUCNTL        =IOCTLWRITE+$47400+ 102;       { pty: set/clr usr cntl mode }
+        TIOCSTAT         =IOCTLVOID+$7400+ 101;         { simulate ^T status message }
+  //                       UIOCCMD(n)   _IO('u', n)     { usr cntl op "n" }
+        TIOCCONS         =IOCTLWRITE+$47400+ 98;        { become virtual console }
+        TIOCSCTTY        =IOCTLVOID+$7400+ 97;          { become controlling tty }
+        TIOCEXT          =IOCTLWRITE+$47400+ 96;        { pty: external processing }
+        TIOCSIG          =IOCTLVOID+$7400+ 95;          { pty: generate signal }
+        TIOCDRAIN        =IOCTLVOID+$7400+ 94;          { wait till output drained }
+        TIOCMSDTRWAIT    =IOCTLWRITE+$47400+ 91;        { modem: set wait on close }
+        TIOCMGDTRWAIT    =IOCTLREAD+$47400+ 90; { modem: get wait on close }
+        TIOCTIMESTAMP    =IOCTLREAD+$87400+ 89;         { enable/get timestamp
+                                                 * of last input event }
+        TIOCDCDTIMESTAMP =IOCTLREAD+$87400+ 88; { enable/get timestamp
+                                                 * of last DCd rise }
+        TIOCSDRAINWAIT   =IOCTLWRITE+$47400+ 87;        { set ttywait timeout }
+        TIOCGDRAINWAIT   =IOCTLREAD+$47400+ 86; { get ttywait timeout }
+
+        TTYDISC          =0;            { termios tty line discipline }
+        SLIPDISC         =4;            { serial IP discipline }
+        PPPDISC          =5;            { PPP discipline }
+        NETGRAPHDISC     =6;            { Netgraph tty node discipline }
 
 
 {
  * Defaults on "first" open.
  }
-      	TTYDEF_IFLAG	 =(BRKINT	or ICRNL	or IMAXBEL or IXON or IXANY);
-       TTYDEF_OFLAG	 =(OPOST or ONLCR);
-       TTYDEF_LFLAG	 =(ECHO or ICANON or ISIG or IEXTEN or ECHOE or ECHOKE or ECHOCTL);
-      	TTYDEF_CFLAG	 =(CREAD or CS8 or HUPCL);
-       TTYDEF_SPEED	 =(B9600);
+        TTYDEF_IFLAG     =(BRKINT       or ICRNL        or IMAXBEL or IXON or IXANY);
+       TTYDEF_OFLAG      =(OPOST or ONLCR);
+       TTYDEF_LFLAG      =(ECHO or ICANON or ISIG or IEXTEN or ECHOE or ECHOKE or ECHOCTL);
+        TTYDEF_CFLAG     =(CREAD or CS8 or HUPCL);
+       TTYDEF_SPEED      =(B9600);
 
 
 
 {
  * Control Character Defaults
  }
-        CtrlMask	= $1f;	{\037}
-      	CEOF		=chr( ORD('d') and CtrlMask);
-      	CEOL		=chr( $ff and CtrlMask);{ XXX avoid _POSIX_VDISABLE }
-      	CERASE		=chr( $7F and CtrlMask);
-      	CINTR		=chr(ORD('c') and CtrlMask);
-      	CSTATUS		=chr(ORD('t') and CtrlMask);
-      	CKILL		=chr(ORD('u') and CtrlMask);
-      	CMIN		=chr(1);
-      	CQUIT		=chr(034  and CtrlMask);	{ FS, ^\ }
-      	CSUSP		=chr(ORD('z') and CtrlMask);
-      	CTIME		=chr(0);
-      	CDSUSP		=chr(ORD('y') and CtrlMask);
-      	CSTART		=chr(ORD('q') and CtrlMask);
-      	CSTOP		=chr(ORD('s') and CtrlMask);
-      	CLNEXT		=chr(ORD('v') and CtrlMask);
-      	CDISCARD 	=chr(ORD('o') and CtrlMask);
-      	CWERASE 	=chr(ORD('w') and CtrlMask);
-      	CREPRINT 	=chr(ORD('r') and CtrlMask);
-      	CEOT		=CEOF;
+        CtrlMask        = $1f;  {\037}
+        CEOF            =chr( ORD('d') and CtrlMask);
+        CEOL            =chr( $ff and CtrlMask);{ XXX avoid _POSIX_VDISABLE }
+        CERASE          =chr( $7F and CtrlMask);
+        CINTR           =chr(ORD('c') and CtrlMask);
+        CSTATUS         =chr(ORD('t') and CtrlMask);
+        CKILL           =chr(ORD('u') and CtrlMask);
+        CMIN            =chr(1);
+        CQUIT           =chr(034  and CtrlMask);        { FS, ^\ }
+        CSUSP           =chr(ORD('z') and CtrlMask);
+        CTIME           =chr(0);
+        CDSUSP          =chr(ORD('y') and CtrlMask);
+        CSTART          =chr(ORD('q') and CtrlMask);
+        CSTOP           =chr(ORD('s') and CtrlMask);
+        CLNEXT          =chr(ORD('v') and CtrlMask);
+        CDISCARD        =chr(ORD('o') and CtrlMask);
+        CWERASE         =chr(ORD('w') and CtrlMask);
+        CREPRINT        =chr(ORD('r') and CtrlMask);
+        CEOT            =CEOF;
 { compat }
-      	CBRK		=CEOL;
-        CRPRNT		=CREPRINT;
-      	CFLUSH		=CDISCARD;
+        CBRK            =CEOL;
+        CRPRNT          =CREPRINT;
+        CFLUSH          =CDISCARD;
 
 
 {
  *        TTYDEFCHARS to include an array of default control characters.
 }
     ttydefchars : array[0..NCCS-1] OF char =(
-	CEOF,	CEOL,	CEOL,	CERASE, CWERASE, CKILL, CREPRINT,
-	POSIX_VDISABLE, CINTR,	CQUIT,	CSUSP,	CDSUSP,	CSTART,	CSTOP,	CLNEXT,
-	CDISCARD, CMIN,	CTIME,  CSTATUS, POSIX_VDISABLE);
+        CEOF,   CEOL,   CEOL,   CERASE, CWERASE, CKILL, CREPRINT,
+        POSIX_VDISABLE, CINTR,  CQUIT,  CSUSP,  CDSUSP, CSTART, CSTOP,  CLNEXT,
+        CDISCARD, CMIN, CTIME,  CSTATUS, POSIX_VDISABLE);
 
 

rtl/freebsd/unixsock.inc

@@ -192,10 +192,13 @@ end;
 
 {
  $Log$
- Revision 1.5  2002-02-05 07:54:34  marco
+ Revision 1.6  2002-09-07 16:01:18  peter
+   * old logs removed and tabs fixed
+
+ Revision 1.5  2002/02/05 07:54:34  marco
   * Fixed typo
 
 
 
 
-}
+}

rtl/freebsd/unixsysc.inc

@@ -638,8 +638,10 @@ begin
      sa.handler.sh:=handler;
      FillChar(sa.sa_mask,sizeof(sigset),#0);
      sa.sa_flags := 0;
-{     if (sigintr and signum) =0 then
 {restart behaviour needs libc}
-      sa.sa_flags :=sa.sa_flags or SA_RESTART;
}
+{     if (sigintr and signum) =0 then
+ {restart behaviour needs libc}
+      sa.sa_flags :=sa.sa_flags or SA_RESTART;
+}
      sigaction(signum,@sa,@osa);
      if ErrNo<>0 then
       signal:=NIL
@@ -652,34 +654,34 @@ end;
 
 function  Clone(func:TCloneFunc;sp:pointer;flags:longint;args:pointer):longint; assembler;
 asm
-	pushl	%esi
-	movl	12(%ebp), %esi	// get stack addr
-	subl	$4, %esi
-	movl	20(%ebp), %eax	// get __arg
-	movl	%eax, (%esi)
-	subl	$4, %esi
-	movl	8(%ebp), %eax	// get __fn
-	movl	%eax, (%esi)
-	pushl	16(%ebp)
-	pushl	%esi
-	mov	syscall_nr_rfork, %eax
-	int     $0x80                  // call actualsyscall
-	jb 	.L2
-	test    %edx, %edx
-	jz	.L1
-	movl	%esi,%esp
-	popl	%eax
-	call	%eax
-	addl	$8, %esp
-        call	halt		// Does not return
-.L2:	
-	mov	%eax,ErrNo
-	mov	$-1,%eax
-	jmp     .L1
-//	jmp	PIC_PLT(HIDENAME(cerror))
+        pushl   %esi
+        movl    12(%ebp), %esi  // get stack addr
+        subl    $4, %esi
+        movl    20(%ebp), %eax  // get __arg
+        movl    %eax, (%esi)
+        subl    $4, %esi
+        movl    8(%ebp), %eax   // get __fn
+        movl    %eax, (%esi)
+        pushl   16(%ebp)
+        pushl   %esi
+        mov     syscall_nr_rfork, %eax
+        int     $0x80                  // call actualsyscall
+        jb      .L2
+        test    %edx, %edx
+        jz      .L1
+        movl    %esi,%esp
+        popl    %eax
+        call    %eax
+        addl    $8, %esp
+        call    halt            // Does not return
+.L2:
+        mov     %eax,ErrNo
+        mov     $-1,%eax
+        jmp     .L1
+//      jmp     PIC_PLT(HIDENAME(cerror))
 .L1:
-	addl	$8, %esp
-	popl	%esi
+        addl    $8, %esp
+        popl    %esi
 end;
 
 {$packrecords C}
@@ -687,38 +689,38 @@ end;
 TYPE uint=CARDINAL;
 
 CONST
-        I386_GET_LDT	=0;
-        I386_SET_LDT	=1;
-				{ I386_IOPL }
-        I386_GET_IOPERM	=3;
-        I386_SET_IOPERM	=4;
-				{ xxxxx }
-        I386_VM86	=6;
+        I386_GET_LDT    =0;
+        I386_SET_LDT    =1;
+                                { I386_IOPL }
+        I386_GET_IOPERM =3;
+        I386_SET_IOPERM =4;
+                                { xxxxx }
+        I386_VM86       =6;
 
 {
 type i386_ldt_args = record
-	int	start : longint;
-	union	descriptor *descs;
-	int	num;
-	end; 
+        int     start : longint;
+        union   descriptor *descs;
+        int     num;
+        end;
 }
 type
  i386_ioperm_args = record
-	start	 : uint;
-	length   : uint;
-	enable	 : longint;
-	end;
+        start    : uint;
+        length   : uint;
+        enable   : longint;
+        end;
 
 
     i386_vm86_args = record
-	sub_op   : longint;		{ sub-operation to perform }
-	sub_args : pchar;		{ args }
-	end;
+        sub_op   : longint;             { sub-operation to perform }
+        sub_args : pchar;               { args }
+        end;
 
    sysarch_args     = record
-     		     	op    : longint;
-   			parms : pchar;
-   		       end;
+                        op    : longint;
+                        parms : pchar;
+                       end;
 
 {
 int i386_get_ldt __P((int, union descriptor *, int));
@@ -733,9 +735,9 @@ int i386_clr_watch __P((int watchnum, struct dbreg * d));
 
 Function IOPerm(From,Num:CARDINAL;Value:Longint):boolean;
 
-var sg : i386_ioperm_args; 
+var sg : i386_ioperm_args;
     sa : sysarch_args;
-    
+
 begin
   sg.start:=From;
   sg.length:=Num;
@@ -765,32 +767,28 @@ End;
 Function Alarm(Sec: Longint):Longint;
 
 Var it,oitv : Itimerval;
-    
+
 Begin
-//	register struct itimerval *itp = &it;
-  
- it.it_interval.sec:=0; 
+//      register struct itimerval *itp = &it;
+
+ it.it_interval.sec:=0;
  it.it_interval.usec:=0;
- it.it_value.sec:=sec; 
+ it.it_value.sec:=sec;
  it.it_value.usec:=0;
  If SetITimer(ITIMER_REAL,it,oitv)<0 Then
    Exit(-1);
- 
+
  if oitv.it_value.usec<>0 Then
    Inc(oitv.it_value.sec);
  Alarm:=oitv.it_value.sec;
-End; 
+End;
 
 {
   $Log$
-  Revision 1.4  2002-05-06 09:35:09  marco
-   * Some stuff from 1.0.x ported
+  Revision 1.5  2002-09-07 16:01:18  peter
+    * old logs removed and tabs fixed
 
-  Revision 1.3  2001/06/19 08:59:01  marco
-   * Fixes from Unix merge and changes of socketh.inc
-
-  Revision 1.2  2001/06/02 00:31:30  peter
-    * merge unix updates from the 1.0 branch, mostly related to the
-      solaris target
+  Revision 1.4  2002/05/06 09:35:09  marco
+   * Some stuff from 1.0.x ported
 
 }

rtl/go32v2/Makefile.fpc

@@ -188,4 +188,4 @@ charset$(PPUEXT) : $(INC)/charset.pp system$(PPUEXT)
 
 msmouse$(PPUEXT) : msmouse.pp system$(PPUEXT)
 
-callspec$(PPUEXT) : $(INC)/callspec.pp system$(PPUEXT)
+callspec$(PPUEXT) : $(INC)/callspec.pp system$(PPUEXT)

rtl/go32v2/crt.pp

@@ -830,21 +830,7 @@ end.
 
 {
   $Log$
-  Revision 1.5  2001-02-27 15:46:48  jonas
-    * fixed web bug 1345 (merged)
+  Revision 1.6  2002-09-07 16:01:18  peter
+    * old logs removed and tabs fixed
 
-  Revision 1.4  2000/10/31 23:39:30  pierre
-   * fix for bug 1152 (merged)
-
-  Revision 1.1.2.2  2000/10/31 09:32:16  pierre
-   * fix for bug1152
-
-  Revision 1.3  2000/07/31 14:07:43  jonas
-  Revision 1.1.2.1  2000/07/31 14:05:58  jonas
-    * fixed web bug 1037 (disable linking of ctrl-c to exception handler,
-      ctrl-break still works fine then) (merged from fixes)
-
-  Revision 1.2  2000/07/13 11:33:39  michael
-  + removed logs
- 
 }

rtl/go32v2/dos.pp

@@ -1049,108 +1049,7 @@ End;
 end.
 {
   $Log$
-  Revision 1.14  2001-11-23 00:18:54  carl
-  * completely merged from fixes branch
-
-  Revision 1.1.2.15  2001/10/04 11:23:22  pierre
-   * fix failure check for do_diskdata with LFN support
-
-  Revision 1.1.2.14  2001/06/13 22:13:15  hajny
-    * universal FExpand merged
-
-  Revision 1.1.2.13  2001/06/06 11:05:27  pierre
-   * correct SwapVectors behavior
-
-  Revision 1.1.2.12  2000/12/16 15:34:28  peter
-    * fixed disksize return -1 for error
-
-  Revision 1.1.2.11  2000/10/11 15:38:17  peter
-    * diskfree doserror fix
-
-  Revision 1.1.2.10  2000/09/22 10:09:42  pierre
-   * fix LFN handle problem if FindFirst fails
-
-  Revision 1.1.2.9  2000/09/22 08:42:51  pierre
-   * fix wrong DiskSize report
-
-  Revision 1.1.2.8  2000/09/06 20:46:18  peter
-    * removed previous fsplit() patch as it's not the correct behaviour for
-      LFNs. The code showing the bug could easily be adapted
-
-  Revision 1.1.2.7  2000/09/04 20:15:22  peter
-    * fixed previous commit
-
-  Revision 1.1.2.6  2000/09/04 19:36:24  peter
-    * fsplit with .. fix from Thomas
-
-  Revision 1.1.2.5  2000/08/04 21:40:25  peter
-    * getenv is case insentive, needed for windir and winbootdir envs
-
-  Revision 1.1.2.4  2000/08/02 19:34:14  peter
-    * more doserror fixes
-
-  Revision 1.1.2.3  2000/07/30 17:06:23  peter
-    * removed dos lf
-
-  Revision 1.1.2.2  2000/07/30 16:35:44  peter
-    * don't set doserror in gettime/settime/getdate/setdate, tp compatible
-
-  Revision 1.1.2.1  2000/07/22 12:21:30  jonas
-    * fixed buffer overrun error in dossearchrec2searchrec when a file
-      is not found (at least it happened in OS/2's VDM)
-
-  Revision 1.1  2000/07/13 06:30:35  michael
-  + Initial import
-
-  Revision 1.24  2000/05/30 04:41:05  jonas
-    * fixed compiling problem with formal expression passed as var
-      parameter
-
-  Revision 1.23  2000/03/22 08:00:42  pierre
-   + allow double backslash for network drives
-
-  Revision 1.22  2000/02/09 16:59:28  peter
-    * truncated log
-
-  Revision 1.21  2000/02/09 13:00:32  peter
-    + getlongname
-
-  Revision 1.20  2000/02/02 17:34:49  pierre
-   * use int64 typecast to avoid overflows in diskfree and disksize
-
-  Revision 1.19  2000/01/23 16:31:23  peter
-    * hasint64diskspace define changed to int64 so it's default now
-
-  Revision 1.18  2000/01/23 12:28:38  marco
-   * Added diskfree and disksize with AH=71 dos functions (LFN/Fat32)
-
-  Revision 1.17  2000/01/07 16:41:30  daniel
-    * copyright 2000
-
-  Revision 1.16  2000/01/07 16:32:23  daniel
-    * copyright 2000 added
-
-  Revision 1.15  1999/12/06 18:26:49  peter
-    * fpcmake updated for win32 commandline
-
-  Revision 1.14  1999/11/09 11:07:50  pierre
-    * SwapVectors does not reset DosError anymore
-    + DosError is set to ax regsiter value if extended doserror function
-      retruns zero.
-    + Support for LFN in EXEC function using
-      function 7160 to get short filename counterpart
-
-  Revision 1.13  1999/11/06 14:38:23  peter
-    * truncated log
-
-  Revision 1.12  1999/09/10 17:14:09  peter
-    * better errorcode returning using int21h,5900
-
-  Revision 1.11  1999/09/08 18:55:49  peter
-    * pointer fixes
-
-  Revision 1.10  1999/08/13 21:23:15  peter
-    * fsearch checks first if the specified file exists and returns that
-      if it was found
+  Revision 1.15  2002-09-07 16:01:18  peter
+    * old logs removed and tabs fixed
 
 }

rtl/go32v2/dpmi.inc

@@ -45,7 +45,7 @@ asm
 
 {
   $Log$
-  Revision 1.2  2000-07-13 11:33:39  michael
-  + removed logs
- 
+  Revision 1.3  2002-09-07 16:01:18  peter
+    * old logs removed and tabs fixed
+
 }

rtl/go32v2/dpmiexcp.pp

@@ -1545,14 +1545,13 @@ end;
 {$endif IN_SYSTEM}
 {
   $Log$
-  Revision 1.9  2002-02-03 09:51:41  peter
+  Revision 1.10  2002-09-07 16:01:18  peter
+    * old logs removed and tabs fixed
+
+  Revision 1.9  2002/02/03 09:51:41  peter
     * merged winxp fixes
 
   Revision 1.8  2002/01/25 16:23:03  peter
     * merged filesearch() fix
 
-  Revision 1.7  2001/11/24 14:42:19  carl
-  * completely moerged (except for smartlink option) from fixes branch
-
-
 }

rtl/go32v2/dxeload.pp

@@ -98,16 +98,10 @@ end;
 end.
 {
   $Log$
-  Revision 1.5  2002-04-27 07:58:23  peter
-    * fixed 2gb limit
-
-  Revision 1.4  2001/07/23 09:52:38  marco
-   * Fixed an unnecessary memleak.
+  Revision 1.6  2002-09-07 16:01:18  peter
+    * old logs removed and tabs fixed
 
-  Revision 1.3  2000/12/16 15:57:52  jonas
-    * avoid the longint + cardinal to int64 conversion (merged Pierre's patch)
-
-  Revision 1.2  2000/07/13 11:33:40  michael
-  + removed logs
+  Revision 1.5  2002/04/27 07:58:23  peter
+    * fixed 2gb limit
 
 }

rtl/go32v2/emu387.pp

@@ -217,7 +217,7 @@ begin
 end.
 {
   $Log$
-  Revision 1.2  2000-07-13 11:33:40  michael
-  + removed logs
- 
+  Revision 1.3  2002-09-07 16:01:18  peter
+    * old logs removed and tabs fixed
+
 }

rtl/go32v2/exceptn.as

@@ -486,11 +486,6 @@ ___djgpp_hw_lock_end:
 
 /*
    $Log$
-   Revision 1.4  2001-08-22 20:49:18  peter
-     * regenerated
+   Revision 1.5  2002-09-07 16:01:18  peter
+     * old logs removed and tabs fixed
 
-   Revision 1.3  2001/08/19 21:02:01  florian
-     * fixed and added a lot of stuff to get the Jedi DX( headers
-       compiled
-
-*/

rtl/go32v2/fpu.as

@@ -50,7 +50,6 @@ Lexit:
         ret
 /*
   $Log$
-  Revision 1.2  2001-04-08 16:49:42  florian
-    * fixed a wrong prefix
+  Revision 1.3  2002-09-07 16:01:18  peter
+    * old logs removed and tabs fixed
 
-*/

rtl/go32v2/go32.pp

@@ -1097,18 +1097,10 @@ end.
 
 {
   $Log$
-  Revision 1.5  2002-09-07 12:31:16  carl
-    - removed support_ports option (cleanup)
-
-  Revision 1.4  2001/06/06 17:20:21  jonas
-    * fixed wrong typed constant procvars in preparation of my fix which will
-      disallow them in FPC mode (plus some other unmerged changes since
-      LAST_MERGE)
+  Revision 1.6  2002-09-07 16:01:18  peter
+    * old logs removed and tabs fixed
 
-  Revision 1.3  2000/12/30 22:42:30  peter
-    * fixed map_device_in_memory (from bug report)
-
-  Revision 1.2  2000/07/13 11:33:40  michael
-  + removed logs
+  Revision 1.5  2002/09/07 12:31:16  carl
+    - removed support_ports option (cleanup)
 
 }

rtl/go32v2/graph.pp

@@ -2708,28 +2708,7 @@ begin
 end.
 {
   $Log$
-  Revision 1.8  2001-09-10 16:15:52  jonas
-    * merged windows mode saving stuff from fixes branch
-
-  Revision 1.7  2001/06/06 17:20:22  jonas
-    * fixed wrong typed constant procvars in preparation of my fix which will
-      disallow them in FPC mode (plus some other unmerged changes since
-      LAST_MERGE)
-
-  Revision 1.6  2001/04/14 14:05:42  peter
-    * fixed for stricter checking
-
-  Revision 1.5  2000/12/16 15:57:17  jonas
-    * removed 64bit evaluations when range checking is on
-
-  Revision 1.4  2000/11/11 15:57:54  jonas
-    * fixed web bug 1166 (merged)
-
-  Revision 1.3  2000/08/12 12:27:13  jonas
-    + setallpalette hook
-    + setallpalette implemented for standard vga and VESA 2.0+
-
-  Revision 1.2  2000/07/13 11:33:40  michael
-  + removed logs
+  Revision 1.9  2002-09-07 16:01:18  peter
+    * old logs removed and tabs fixed
 
 }

rtl/go32v2/initc.pp

@@ -95,10 +95,10 @@ end.
 
 {
   $Log$
-  Revision 1.3  2002-04-26 13:19:56  peter
-    * fixed too large arrays
+  Revision 1.4  2002-09-07 16:01:18  peter
+    * old logs removed and tabs fixed
 
-  Revision 1.2  2000/07/13 11:33:40  michael
-  + removed logs
+  Revision 1.3  2002/04/26 13:19:56  peter
+    * fixed too large arrays
 
 }

rtl/go32v2/keyboard.pp

@@ -77,27 +77,13 @@ end.
 
 {
   $Log$
-  Revision 1.3  2002-08-28 06:35:30  pierre
+  Revision 1.4  2002-09-07 16:01:18  peter
+    * old logs removed and tabs fixed
+
+  Revision 1.3  2002/08/28 06:35:30  pierre
    * merge kbPhys patch from fixes branch
 
   Revision 1.1.2.3  2002/07/13 12:22:03  pierre
    * added kbPhys flag
 
-  Revision 1.2  2001/09/21 21:33:35  michael
-  + Merged driver support from fixbranch
-
-  Revision 1.1.2.2  2001/09/21 21:20:43  michael
-  + Added support for keyboard driver.
-  + Added DefaultTranslateKeyEvent,DefaultTranslateKeyEventUnicode
-  + PendingKeyEvent variable no longer public. Handling of this variable is
-    now done entirely by global functions. System dependent code should not
-    need it, it is set automatically.
-  + InitVideo DoneVideo will check whether the keyboard is initialized or not.
-
-  Revision 1.1.2.1  2001/01/30 21:52:01  peter
-    * moved api utils to rtl
-
-  Revision 1.1  2001/01/13 11:03:57  peter
-    * API 2 RTL commit
-
 }

rtl/go32v2/mouse.pp

@@ -775,7 +775,10 @@ Begin
 end.
 {
   $Log$
-  Revision 1.6  2002-05-09 08:42:24  carl
+  Revision 1.7  2002-09-07 16:01:18  peter
+    * old logs removed and tabs fixed
+
+  Revision 1.6  2002/05/09 08:42:24  carl
   * Merges from Fixes branch
 
   Revision 1.1.2.6  2002/04/12 12:01:48  pierre
@@ -784,19 +787,4 @@ end.
   Revision 1.1.2.5  2002/01/08 16:34:52  pierre
    a working callback for XP
 
-  Revision 1.1.2.4  2001/12/20 08:36:07  pierre
-   * one more try to fix mouse for XP
-
-  Revision 1.1.2.3  2001/12/17 15:21:17  pierre
-   * resotre all registers in NT realmode callback for XP
-
-  Revision 1.1.2.2  2001/09/21 23:53:48  michael
-  + Added mouse driver support.
-
-  Revision 1.1.2.1  2001/01/30 21:52:01  peter
-    * moved api utils to rtl
-
-  Revision 1.1  2001/01/13 11:03:58  peter
-    * API 2 RTL commit
-
 }

rtl/go32v2/msmouse.pp

@@ -391,7 +391,7 @@ Begin
 End.
 {
   $Log$
-  Revision 1.2  2000-07-13 11:33:40  michael
-  + removed logs
- 
+  Revision 1.3  2002-09-07 16:01:18  peter
+    * old logs removed and tabs fixed
+
 }

rtl/go32v2/objinc.inc

@@ -193,31 +193,13 @@ END;
 
 {
   $Log$
-  Revision 1.3  2002-05-09 08:42:24  carl
+  Revision 1.4  2002-09-07 16:01:18  peter
+    * old logs removed and tabs fixed
+
+  Revision 1.3  2002/05/09 08:42:24  carl
   * Merges from Fixes branch
 
   Revision 1.1.2.1  2002/04/12 08:08:08  pierre
    * avoid that objects unit is sensitive to or changes system.InOutRes value
 
-  Revision 1.1  2000/07/13 06:30:39  michael
-  + Initial import
-
-  Revision 1.7  2000/06/30 22:16:19  peter
-    * fixed truncate
-
-  Revision 1.6  2000/05/30 06:45:53  marco
-   * fixed in line 164 pointer(@buf) to buf
-
-  Revision 1.5  2000/03/20 19:19:44  pierre
-   * LFN support in streams
-
-  Revision 1.4  2000/02/09 16:59:29  peter
-    * truncated log
-
-  Revision 1.3  2000/01/07 16:41:32  daniel
-    * copyright 2000
-
-  Revision 1.2  2000/01/07 16:32:23  daniel
-    * copyright 2000 added
-
 }

rtl/go32v2/ports.pp

@@ -5,7 +5,7 @@
     Copyright (c) 1999-2000 by the Free Pascal development team.
 
     These files adds support for TP styled port accesses
-    
+
     See the file COPYING.FPC, included in this distribution,
     for details about the copyright.
 
@@ -22,7 +22,7 @@ unit ports;
 {$Mode ObjFpc}
 
 interface
-    
+
 type
    tport = class
       procedure writeport(p : word;data : byte);
@@ -103,7 +103,7 @@ end.
 
 {
   $Log$
-  Revision 1.2  2000-07-13 11:33:40  michael
-  + removed logs
- 
+  Revision 1.3  2002-09-07 16:01:18  peter
+    * old logs removed and tabs fixed
+
 }

rtl/go32v2/printer.pp

@@ -40,7 +40,7 @@ begin
 end.
 {
   $Log$
-  Revision 1.2  2000-07-13 11:33:40  michael
-  + removed logs
- 
+  Revision 1.3  2002-09-07 16:01:18  peter
+    * old logs removed and tabs fixed
+
 }

rtl/go32v2/profile.pp

@@ -328,7 +328,7 @@ begin
 end.
 {
   $Log$
-  Revision 1.2  2000-07-13 11:33:40  michael
-  + removed logs
- 
+  Revision 1.3  2002-09-07 16:01:18  peter
+    * old logs removed and tabs fixed
+
 }

rtl/go32v2/sbrk16.asm

@@ -2,118 +2,6 @@
 ;
 ; $Id$
 ; $Log$
-; Revision 1.1  2000-07-13 06:30:40  michael
-; + Initial import
+; Revision 1.2  2002-09-07 16:01:19  peter
+;   * old logs removed and tabs fixed
 ;
-; Revision 1.1  1998/12/21 13:07:03  peter
-;   * use -FE
-;
-; Revision 1.1.1.1  1998/03/25 11:18:42  root
-; * Restored version
-;
-; Revision 1.2  1997/11/27 16:28:13  michael
-; Change submitted by Pierre Muller.
-;
-; Revision 2.0  1994/03/14  00:47:04  dj
-; initial version
-;
-;
-
-;-----------------------------------------------------------------------------
-;  sbrk 16-bit helper
-;
-;  Transferred to 16-bit code segement to run in protected mode.
-;  Will make DPMI segment altering requests and update selectors
-;  as needed.  Image will always need to allocate an exact
-;  multiple of 16 bytes, load offset will always be zero.
-;  Number of bytes to copy will always be multiple of four.
-;
-;  Application must set cs_selector, ds_selector, and local_ds
-;  appropriately.  Application uses first word in image to find
-;  API entry point.  Call with FAR call.
-;
-;  Call with:   BX:CX = new size
-;               SI:DI = old handle
-;  Returns:     BX:CX = new base
-;               SI:DI = new handle
-;               all others trashed
-
-        .type   "bin"
-
-;-----------------------------------------------------------------------------
-;  Start of API header
-
-offset_of_api:                  ; offset of API function entry point
-        .dw     sbrk_16_helper
-cs_selector:                    ; code selector to be updated
-        .dw     0
-ds_selector:                    ; data selector to be updated
-        .dw     0
-local_ds:                       ; selector mapped to same as local cs
-        .dw     0
-bytes_to_allocate:              ; number of bytes app allocates for this image
-        .dw     stack
-
-;-----------------------------------------------------------------------------
-;  Start of local data
-
-save_ss:
-        .dw     0
-save_esp:
-        .dd     0
-save_ds:
-        .dw     0
-
-;-----------------------------------------------------------------------------
-;  Start of code
-
-sbrk_16_helper:
-
-        mov     ax, ds                  ; switch to local data segment
-        mov     ds, cs:[local_ds]
-        mov     [save_ds], ax
-        mov     [save_ss], ss           ; switch to local stack
-        mov     [save_esp], esp
-        mov     ss, [local_ds]
-        mov     esp, stack
-
-        mov     ax, 0x0503              ; realloc memory
-        int     0x31
-        jc      error_return            ; bx:cx = base address
-
-        mov     dx, cx
-        mov     cx, bx                  ; cx:dx = base address
-        mov     bx, [cs_selector]
-        mov     ax, 0x0007
-        int     0x31                    ; set cs to new base
-        mov     bx, [ds_selector]
-        mov     ax, 0x0007
-        int     0x31                    ; set ds to new base
-
-        push    es                      ; reload es
-        pop     es
-        push    fs                      ; reload fs
-        pop     fs
-        push    gs                      ; reload gs
-        pop     gs
-
-        mov     bx, cx
-        mov     cx, dx                  ; bx:cx = base address
-
-error_return:
-
-        mov     ss, [save_ss]           ; return to old stack
-        mov     esp, [save_esp]
-        mov     ds, [save_ds]           ; return to old data segment
-
-        .opsize                         ; 32-bit far return
-        retf
-
-;-----------------------------------------------------------------------------
-;  Start of stack
-
-        .align  4                       ; so that image size is longwords
-        .bss
-        .align  16                      ; so that alloc size is paragraphs
-        .db     512 .dup 0
-stack:

rtl/go32v2/system.pp

@@ -1529,7 +1529,10 @@ Begin
 End.
 {
   $Log$
-  Revision 1.19  2002-07-01 16:29:05  peter
+  Revision 1.20  2002-09-07 16:01:19  peter
+    * old logs removed and tabs fixed
+
+  Revision 1.19  2002/07/01 16:29:05  peter
     * sLineBreak changed to normal constant like Kylix
 
   Revision 1.18  2002/05/05 10:23:54  peter
@@ -1544,45 +1547,4 @@ End.
   Revision 1.15  2002/03/11 19:10:33  peter
     * Regenerated with updated fpcmake
 
-  Revision 1.14  2001/10/28 17:43:51  peter
-    * add trtlcriticalsection type
-
-  Revision 1.13  2001/08/12 17:57:54  peter
-    * map sharing violation to rte 5
-
-  Revision 1.12  2001/06/30 18:55:48  hajny
-    * GetDir fix for inaccessible drives
-
-  Revision 1.11  2001/06/18 14:26:16  jonas
-    * move platform independent constant declarations after inclusion of
-      systemh.inc
-
-  Revision 1.10  2001/06/13 22:21:53  hajny
-    + platform specific information
-
-  Revision 1.9  2001/06/07 21:16:30  peter
-    * fixed empty arguments
-
-  Revision 1.8  2001/06/01 22:23:21  peter
-    * same argument parsing -"abc" becomes -abc. This is compatible with
-      delphi and with unix shells (merged)
-
-  Revision 1.7  2001/03/21 23:29:40  florian
-    + sLineBreak and misc. stuff for Kylix compatiblity
-
-  Revision 1.6  2001/03/21 21:08:20  hajny
-    * GetDir fixed
-
-  Revision 1.5  2001/03/16 20:09:58  hajny
-    * universal FExpand
-
-  Revision 1.4  2001/02/20 21:31:12  peter
-    * chdir,mkdir,rmdir with empty string fixed
-
-  Revision 1.3  2000/08/13 19:23:26  peter
-    * fixed double declared ___exit() (merged)
-
-  Revision 1.2  2000/07/13 11:33:40  michael
-  + removed logs
-
 }

rtl/go32v2/sysutils.pp

@@ -724,7 +724,10 @@ Finalization
 end.
 {
   $Log$
-  Revision 1.9  2002-05-09 08:42:24  carl
+  Revision 1.10  2002-09-07 16:01:19  peter
+    * old logs removed and tabs fixed
+
+  Revision 1.9  2002/05/09 08:42:24  carl
   * Merges from Fixes branch
 
   Revision 1.8  2002/01/25 16:23:03  peter
@@ -733,27 +736,4 @@ end.
   Revision 1.7  2002/01/19 11:57:55  peter
     * merged fixes
 
-  Revision 1.6  2001/10/25 21:23:49  peter
-    * added 64bit fileseek
-
-  Revision 1.5  2001/06/03 15:18:01  peter
-    * eoutofmemory and einvalidpointer fix
-
-  Revision 1.4  2001/02/20 22:14:19  peter
-    * merged getenvironmentvariable
-
-  Revision 1.3  2000/08/30 06:29:19  michael
-  + Merged syserrormsg fix
-
-
-    Revision 1.2  2000/08/20 15:46:46  peter
-    * sysutils.pp moved to target and merged with disk.inc, filutil.inc
-
-    Revision 1.1.2.2  2000/08/22 19:21:48  michael
-    + Implemented syserrormessage. Made dummies for go32v2 and OS/2
-    * Changed linux/errors.pp so it uses pchars for storage.
-
-    Revision 1.1.2.1  2000/08/20 15:08:32  peter
-      * forgot the add command :(
-
 }

rtl/go32v2/thread.inc

@@ -39,7 +39,7 @@ function relocate_threadvar(offset : dword) : pointer;[public,alias: 'FPC_RELOCA
 
 {
   $Log$
-  Revision 1.2  2000-07-13 11:33:41  michael
-  + removed logs
- 
+  Revision 1.3  2002-09-07 16:01:19  peter
+    * old logs removed and tabs fixed
+
 }

rtl/go32v2/v2prt0.as

@@ -935,71 +935,9 @@ ___PROXY_LEN:
 
 /*
   $Log$
-  Revision 1.4  2002-02-03 09:51:41  peter
-    * merged winxp fixes
-
-  Revision 1.3  2001/08/21 13:12:22  florian
-    * reverted to previous version
-
-  Revision 1.1  2000/07/13 06:30:40  michael
-  + Initial import
-
-  Revision 1.15  2000/07/11 09:37:55  pierre
-   * get it to compile with AS v 2.10
-
-  Revision 1.14  2000/05/18 06:40:52  pierre
-   * avoid FPU exception on startup if no coprocessor and loaded from another DPMI program
-
-  Revision 1.13  2000/04/06 13:05:15  pierre
-   * bug fix for 915, hopefully
-
-  Revision 1.12  2000/02/28 11:17:48  pierre
-   * remove Jonas unnecessary (but correct) code
-
-  Revision 1.11  2000/02/27 11:21:17  pierre
-   * Enormous bug in mouse fix fixed
-
-  Revision 1.10  2000/02/23 12:46:11  jonas
-    * restored my fix (CVS screwed up the previous versinos because of wrong line
-       breaks)
-
-  Revision 1.7  2000/02/16 13:24:55  pierre
-   * Mouse crash bug fixed !!!
+  Revision 1.5  2002-09-07 16:01:19  peter
+    * old logs removed and tabs fixed
 
-  Revision 1.6  1999/07/10 23:17:15  pierre
-   merged from fixes branch
-
-  Revision 1.5.2.1  1999/07/10 23:15:02  pierre
-   * fixes problem with putenv.c
-
-  Revision 1.5  1999/03/01 15:40:53  peter
-    * use external names
-    * removed all direct assembler modes
-
-  Revision 1.4  1999/02/19 12:25:37  pierre
-    + ___v2prt0_rmcb_regs in text section for Windows NT
-    + catch of calls into zero page for Windows 95
-      (creates Run Time error 216 or SIGILL exception
-      if dpmiexcp is loaded !)
-
-  Revision 1.3  1999/01/05 10:44:59  pierre
-   * suppressed fwaits to avoid FPU not present exceptions
-
-  Revision 1.2  1998/12/21 14:14:21  pierre
-  added some c vars needed to avoid loading od crt1.o
-
-  Revision 1.1  1998/12/21 13:07:03  peter
-    * use -FE
-
-  Revision 1.4  1998/10/14 21:28:45  peter
-    * initialize fpu so sigfpe is finally generated for fpu errors
-
-  Revision 1.3  1998/08/19 10:56:35  pierre
-    + added some special code for C interface
-      to avoid loading of crt1.o or dpmiexcp.o from the libc.a
+  Revision 1.4  2002/02/03 09:51:41  peter
+    * merged winxp fixes
 
-  Revision 1.2  1998/05/22 00:39:38  peter
-    * go32v1, go32v2 recompiles with the new objects
-    * remake3 works again with go32v2
-    - removed some "optimizes" from daniel which were wrong
-*/

rtl/go32v2/varutils.pp

@@ -40,15 +40,8 @@ end.
 
 {
   $Log$
-  Revision 1.2  2001-08-19 21:02:01  florian
-    * fixed and added a lot of stuff to get the Jedi DX( headers
-      compiled
-
-  Revision 1.1  2000/08/29 18:21:58  michael
-  + new include files
-
-  Revision 1.1  2000/08/29 18:20:13  michael
-  + new include files
+  Revision 1.3  2002-09-07 16:01:19  peter
+    * old logs removed and tabs fixed
 
 }
 

rtl/go32v2/vesa.inc

@@ -2733,27 +2733,7 @@ Const
 
 {
   $Log$
-  Revision 1.8  2001-10-07 11:47:36  jonas
-    * fixed multiple page support (bug1536?) (merged)
-
-  Revision 1.7  2001/09/10 16:15:52  jonas
-    * merged windows mode saving stuff from fixes branch
-
-  Revision 1.6  2000/12/16 15:57:17  jonas
-    * removed 64bit evaluations when range checking is on
-
-  Revision 1.5  2000/08/12 12:27:13  jonas
-    + setallpalette hook
-    + setallpalette implemented for standard vga and VESA 2.0+
-
-  Revision 1.4  2000/08/01 06:03:13  jonas
-    * set _graphresult to grnotdetected if the vesa setmode interrupt
-      call returns an error (merged from fixes branch)
-
-  Revision 1.3  2000/07/16 07:08:22  jonas
-    * fixed wrongly matched comment pair for log section
-
-  Revision 1.2  2000/07/13 11:33:41  michael
-  + removed logs
+  Revision 1.9  2002-09-07 16:01:19  peter
+    * old logs removed and tabs fixed
 
 }

rtl/go32v2/vesah.inc

@@ -96,7 +96,7 @@ var
                           { initialized in QueryAdapterInfo in graph.inc }
 {
   $Log$
-  Revision 1.2  2000-07-13 11:33:41  michael
-  + removed logs
- 
+  Revision 1.3  2002-09-07 16:01:19  peter
+    * old logs removed and tabs fixed
+
 }

rtl/go32v2/vesamode.pp

@@ -245,7 +245,7 @@ initialization
 end.
 {
   $Log$
-  Revision 1.2  2001-10-12 16:04:45  peter
-    * video fixes (merged)
+  Revision 1.3  2002-09-07 16:01:19  peter
+    * old logs removed and tabs fixed
 
 }

rtl/go32v2/video.pp

@@ -318,36 +318,8 @@ initialization
 end.
 {
   $Log$
-  Revision 1.5  2001-10-12 16:04:45  peter
-    * video fixes (merged)
-
-  Revision 1.4  2001/10/06 22:28:24  michael
-  + Merged video mode selection/setting system
-
-  Revision 1.3  2001/09/21 19:50:18  michael
-  + Merged driver support from fixbranch
-
-
-  Revision 1.2  2001/05/09 19:53:28  peter
-    * removed asm for copy, use dosmemput (merged)
-
-  Revision 1.1.2.5  2001/10/06 22:23:40  michael
-  + Better video mode selection/setting system
-
-  Revision 1.1.2.4  2001/09/21 18:42:08  michael
-  + Implemented support for custom video drivers.
-
-  Revision 1.1.2.3  2001/05/06 21:54:23  carl
-  * bugfix of Windows NT double exception crash
-
-  Revision 1.1.2.2  2001/04/16 10:56:13  peter
-    * fixes for stricter compiler
-
-  Revision 1.1.2.1  2001/01/30 21:52:01  peter
-    * moved api utils to rtl
-
-  Revision 1.1  2001/01/13 11:03:58  peter
-    * API 2 RTL commit
+  Revision 1.6  2002-09-07 16:01:19  peter
+    * old logs removed and tabs fixed
 
 }
 

rtl/i386/cpu.pp

@@ -75,7 +75,7 @@ end.
 
 {
   $Log$
-  Revision 1.2  2000-07-13 11:33:41  michael
-  + removed logs
- 
+  Revision 1.3  2002-09-07 16:01:19  peter
+    * old logs removed and tabs fixed
+
 }

rtl/i386/i386.inc

@@ -1181,7 +1181,10 @@ procedure inclocked(var l : longint);assembler;
 
 {
   $Log$
-  Revision 1.28  2002-09-03 15:43:36  peter
+  Revision 1.29  2002-09-07 16:01:19  peter
+    * old logs removed and tabs fixed
+
+  Revision 1.28  2002/09/03 15:43:36  peter
     * add alias for fpc_dispose_class so it can be called from
       fpc_help_fail_class
 
@@ -1211,74 +1214,4 @@ procedure inclocked(var l : longint);assembler;
   Revision 1.20  2002/03/30 14:52:04  carl
   * cause runtime error 203 on failed class creation
 
-  Revision 1.19  2001/12/03 21:39:19  peter
-    * freemem(var) -> freemem(value)
-
-  Revision 1.18  2001/10/09 02:43:58  carl
-  * bugfix #1639 (IsMultiThread varialbe setting)
-
-  Revision 1.17  2001/08/30 15:43:14  jonas
-    * converted adding/comparing of strings to compileproc. Note that due
-      to the way the shortstring helpers for i386 are written, they are
-      still handled by the old code (reason: fpc_shortstr_compare returns
-      results in the flags instead of in eax and fpc_shortstr_concat
-      has wierd parameter conventions). The compilerproc stuff should work
-      fine with the generic implementations though.
-    * removed some nested comments warnings
-
-  Revision 1.16  2001/08/29 19:49:04  jonas
-    * some fixes in compilerprocs for chararray to string conversions
-    * conversion from string to chararray is now also done via compilerprocs
-
-  Revision 1.15  2001/08/28 13:24:47  jonas
-    + compilerproc implementation of most string-related type conversions
-    - removed all code from the compiler which has been replaced by
-      compilerproc implementations (using (ifdef hascompilerproc) is not
-      necessary in the compiler)
-
-  Revision 1.14  2001/08/01 15:00:09  jonas
-    + "compproc" helpers
-    * renamed several helpers so that their name is the same as their
-      "public alias", which should facilitate the conversion of processor
-      specific code in the code generator to processor independent code
-    * some small fixes to the val_ansistring and val_widestring helpers
-      (always immediately exit if the source string is longer than 255
-       chars)
-    * fixed fpc_dynarray_high and fpc_dynarray_length if the dynarray is
-      still nil (used to crash, now return resp -1 and 0)
-
-  Revision 1.13  2001/07/08 21:00:18  peter
-    * various widestring updates, it works now mostly without charset
-      mapping supported
-
-  Revision 1.12  2001/05/31 22:42:56  florian
-    * some fixes for widestrings and variants
-
-  Revision 1.11  2001/04/21 12:18:09  peter
-    * add nop after popa (merged)
-
-  Revision 1.9  2001/04/08 13:19:28  jonas
-    * optimized FPC_HELP_CONSTRUCTOR a bit
-
-  Revision 1.8  2001/03/05 17:10:04  jonas
-    * moved implementations of strlen and strpas to separate include files
-      (they were duplicated in i386.inc and strings.inc/stringss.inc)
-    * strpas supports 'nil' pchars again (returns an empty string)
-      (both merged)
-
-  Revision 1.7  2001/03/04 17:31:34  jonas
-    * fixed all implementations of strpas
-
-  Revision 1.5  2000/11/12 23:23:34  florian
-    * interfaces basically running
-
-  Revision 1.4  2000/11/07 23:42:21  florian
-    + AfterConstruction and BeforeDestruction implemented
-    + TInterfacedObject implemented
-
-  Revision 1.3  2000/07/14 10:33:09  michael
-  + Conditionals fixed
-
-  Revision 1.2  2000/07/13 11:33:41  michael
-  + removed logs
 }

rtl/i386/math.inc

@@ -197,21 +197,7 @@
 
 {
   $Log$
-  Revision 1.7  2001-12-26 21:03:56  peter
-    * merged fixes from 1.0.x
+  Revision 1.8  2002-09-07 16:01:19  peter
+    * old logs removed and tabs fixed
 
-  Revision 1.6  2001/07/30 21:38:54  peter
-    * m68k updates merged
-
-  Revision 1.1.2.3  2001/07/29 23:56:28  carl
-  - removed internamth define (always internal)
-
-  Revision 1.1.2.2  2001/04/16 10:56:13  peter
-    * fixes for stricter compiler
-
-  Revision 1.1.2.1  2001/04/03 20:33:01  marco
-   * Quickfixed trunc to int64 for Sebastian.
-
-  Revision 1.1  2000/07/13 06:30:42  michael
-  + Initial import
 }

rtl/i386/mmx.pp

@@ -252,16 +252,13 @@ begin
 end.
 {
   $Log$
-  Revision 1.5  2002-03-16 12:01:24  peter
+  Revision 1.6  2002-09-07 16:01:19  peter
+    * old logs removed and tabs fixed
+
+  Revision 1.5  2002/03/16 12:01:24  peter
     * femms added
 
   Revision 1.4  2002/03/16 11:51:50  peter
     * sse and 3dnow extensions from Michail added
 
-  Revision 1.3  2000/12/16 15:58:18  jonas
-    * removed warnings about possible range check errors
-
-  Revision 1.2  2000/07/13 11:33:41  michael
-  + removed logs
-
 }

rtl/i386/readme

@@ -14,4 +14,4 @@ Units are :
   strings.pp (written in assembler for speed)
   cpu.pp     (routines to access cpu info)
   mmx.pp     (special mmx routines)
-  
+  

rtl/i386/set.inc

@@ -595,51 +595,10 @@ end;
 
 {
   $Log$
-  Revision 1.8  2002-03-29 20:15:44  peter
-    * fixed load_smallset
+  Revision 1.9  2002-09-07 16:01:19  peter
+    * old logs removed and tabs fixed
 
-  Revision 1.7  2001/09/04 11:38:55  jonas
-    + searchsystype() and searchsystype() functions in symtable
-    * changed ninl and nadd to use these functions
-    * i386 set comparison functions now return their results in al instead
-      of in the flags so that they can be sued as compilerprocs
-    - removed all processor specific code from n386add.pas that has to do
-      with set handling, it's now all done in nadd.pas
-    * fixed fpc_set_contains_sets in genset.inc
-    * fpc_set_in_byte is now coded inline in n386set.pas and doesn't use a
-      helper anymore
-    * some small fixes in compproc.inc/set.inc regarding the declaration of
-      internal helper types (fpc_small_set and fpc_normal_set)
-
-  Revision 1.6  2001/09/03 13:27:43  jonas
-    * compilerproc implementation of set addition/substraction/...
-    * changed the declaration of some set helpers somewhat to accomodate the
-      above change
-    * i386 still uses the old code for comparisons of sets, because its
-      helpers return the results in the flags
-    * dummy tc_normal_2_small_set type conversion because I need the original
-      resulttype of the set add nodes
-    NOTE: you have to start a cycle with 1.0.5!
-
-  Revision 1.5  2001/08/01 15:00:10  jonas
-    + "compproc" helpers
-    * renamed several helpers so that their name is the same as their
-      "public alias", which should facilitate the conversion of processor
-      specific code in the code generator to processor independent code
-    * some small fixes to the val_ansistring and val_widestring helpers
-      (always immediately exit if the source string is longer than 255
-       chars)
-    * fixed fpc_dynarray_high and fpc_dynarray_length if the dynarray is
-      still nil (used to crash, now return resp -1 and 0)
-
-  Revision 1.4  2001/05/09 19:57:07  peter
-  *** empty log message ***
-
-  Revision 1.3  2000/09/21 16:09:19  jonas
-    + new, much faster do_set_range based on the PowerPC version (which
-      will be committed tomorrow)
-
-  Revision 1.2  2000/07/13 11:33:41  michael
-  + removed logs
+  Revision 1.8  2002/03/29 20:15:44  peter
+    * fixed load_smallset
 
 }

rtl/i386/setjump.inc

@@ -48,7 +48,7 @@ end;
 
 {
   $Log$
-  Revision 1.2  2000-07-13 11:33:42  michael
-  + removed logs
- 
+  Revision 1.3  2002-09-07 16:01:19  peter
+    * old logs removed and tabs fixed
+
 }

rtl/i386/setjumph.inc

@@ -2,7 +2,7 @@
     $Id$
     This file is part of the Free Pascal run time library.
     Copyright (c) 1998 the Free Pascal development team
-    
+
     SetJmp/Longjmp declarations
 
     See the file COPYING.FPC, included in this distribution,
@@ -26,7 +26,7 @@ Procedure longjmp (Var S : Jmp_buf; value : longint);
 
 {
   $Log$
-  Revision 1.2  2000-07-13 11:33:42  michael
-  + removed logs
- 
+  Revision 1.3  2002-09-07 16:01:19  peter
+    * old logs removed and tabs fixed
+
 }

rtl/i386/strings.inc

@@ -451,22 +451,7 @@ end ['EAX','ESI','EDI'];
 
 {
   $Log$
-  Revision 1.6  2001-03-05 17:10:04  jonas
-    * moved implementations of strlen and strpas to separate include files
-      (they were duplicated in i386.inc and strings.inc/stringss.inc)
-    * strpas supports 'nil' pchars again (returns an empty string)
-      (both merged)
-
-  Revision 1.5  2001/02/17 11:34:00  jonas
-    * fixed bug in strscan (returned nil instead of strend for #0) and made it 40% faster
-
-  Revision 1.4  2001/02/10 16:08:46  jonas
-    * fixed non-working alignment code
-
-  Revision 1.3  2001/01/21 10:12:32  marco
-   * Some register allocation fixes. for stricomp and strilcomp
-
-  Revision 1.2  2000/07/13 11:33:42  michael
-  + removed logs
+  Revision 1.7  2002-09-07 16:01:19  peter
+    * old logs removed and tabs fixed
 
 }

rtl/i386/stringss.inc

@@ -35,22 +35,7 @@ end ['EDI','EAX','ECX'];
 
 {
   $Log$
-  Revision 1.6  2001-03-05 17:10:04  jonas
-    * moved implementations of strlen and strpas to separate include files
-      (they were duplicated in i386.inc and strings.inc/stringss.inc)
-    * strpas supports 'nil' pchars again (returns an empty string)
-      (both merged)
-
-  Revision 1.5  2001/03/04 17:31:35  jonas
-    * fixed all implementations of strpas
-
-  Revision 1.4  2001/03/04 12:42:18  jonas
-    * fixed strpas (was limited to 254 chars) and made it overall slightly faster
-
-  Revision 1.3  2001/02/10 16:08:46  jonas
-    * fixed non-working alignment code
-
-  Revision 1.2  2000/07/13 11:33:42  michael
-  + removed logs
+  Revision 1.7  2002-09-07 16:01:19  peter
+    * old logs removed and tabs fixed
 
 }

rtl/i386/strlen.inc

@@ -23,20 +23,12 @@ asm
         scasb
         movl    $0xfffffffe,%eax
         subl    %ecx,%eax
-end ['EDI','ECX','EAX']; 
+end ['EDI','ECX','EAX'];
 
 
 {
   $Log$
-  Revision 1.2  2001-03-05 17:10:04  jonas
-    * moved implementations of strlen and strpas to separate include files
-      (they were duplicated in i386.inc and strings.inc/stringss.inc)
-    * strpas supports 'nil' pchars again (returns an empty string)
-      (both merged)
-
-  Revision 1.1.2.1  2001/03/05 16:56:01  jonas
-    * moved implementations of strlen and strpas to separate include files
-      (they were duplicated in i386.inc and strings.inc/stringss.inc)
-    * strpas supports 'nil' pchars again (returns an empty string)
+  Revision 1.3  2002-09-07 16:01:19  peter
+    * old logs removed and tabs fixed
 
 }

rtl/i386/strpas.inc

@@ -16,10 +16,10 @@
 begin
 asm
         movl    p,%esi
-        movl    $1,%ecx  
+        movl    $1,%ecx
         testl   %esi,%esi
-        movl    %esi,%eax   
-        jz      .LStrPasDone 
+        movl    %esi,%eax
+        jz      .LStrPasDone
         movl    __RESULT,%edi
         leal    3(%esi),%edx
         andl    $-4,%edx
@@ -92,10 +92,7 @@ end;
 
 {
   $Log$
-  Revision 1.1  2001-03-05 17:10:04  jonas
-    * moved implementations of strlen and strpas to separate include files
-      (they were duplicated in i386.inc and strings.inc/stringss.inc)
-    * strpas supports 'nil' pchars again (returns an empty string)
-      (both merged)
+  Revision 1.2  2002-09-07 16:01:19  peter
+    * old logs removed and tabs fixed
 
 }

rtl/i386/sysutilp.inc

@@ -59,7 +59,7 @@ end;
 
 {
   $Log$
-  Revision 1.1  2001-10-22 21:40:55  peter
-    * InterLocked routines added
+  Revision 1.2  2002-09-07 16:01:19  peter
+    * old logs removed and tabs fixed
 
 }

rtl/i386/typinfo.inc

@@ -153,14 +153,7 @@ Procedure CallSStringProc(s : Pointer;Address : Pointer;Const Value : ShortStrin
 
 {
   $Log$
-  Revision 1.3  2001-10-20 17:25:22  peter
-    * reset %edx in getordprop so functions returning only %eax don't
-      generate rangecheck errors
-
-  Revision 1.2  2001/08/04 11:03:42  peter
-    * moved i386 specific code to include file
-
-  Revision 1.1.2.1  2001/08/02 23:31:13  pierre
-   * cpu specific code moved into include and translated to m68k cpu
+  Revision 1.4  2002-09-07 16:01:19  peter
+    * old logs removed and tabs fixed
 
 }

rtl/linux/Makefile.fpc

@@ -239,4 +239,4 @@ ipc$(PPUEXT) : ipc.pp unix$(PPUEXT) $(SYSTEMUNIT)$(PPUEXT)
 
 terminfo$(PPUEXT) : terminfo.pp unix$(PPUEXT)
 
-callspec$(PPUEXT) : $(INC)/callspec.pp $(SYSTEMUNIT)$(PPUEXT)
+callspec$(PPUEXT) : $(INC)/callspec.pp $(SYSTEMUNIT)$(PPUEXT)

rtl/linux/errno.inc

@@ -13,144 +13,138 @@
 
  **********************************************************************}
 {
- 
-  Errno.inc : define all error numbers, kernel version 1.2.13 
+
+  Errno.inc : define all error numbers, kernel version 1.2.13
 
 }
-Const 
+Const
 
-Sys_EPERM	= 1;	{ Operation not permitted }
-Sys_ENOENT	= 2;	{ No such file or directory }
-Sys_ESRCH	= 3;	{ No such process }
-Sys_EINTR	= 4;	{ Interrupted system call }
-Sys_EIO	= 5;	{ I/O error }
-Sys_ENXIO	= 6;	{ No such device or address }
-Sys_E2BIG	= 7;	{ Arg list too long }
-Sys_ENOEXEC	= 8;	{ Exec format error }
-Sys_EBADF	= 9;	{ Bad file number }
-Sys_ECHILD	= 10;	{ No child processes }
-Sys_EAGAIN	= 11;	{ Try again }
-Sys_ENOMEM	= 12;	{ Out of memory }
-Sys_EACCES	= 13;	{ Permission denied }
-Sys_EFAULT	= 14;	{ Bad address }
-Sys_ENOTBLK	= 15;	{ Block device required }
-Sys_EBUSY	= 16;	{ Device or resource busy }
-Sys_EEXIST	= 17;	{ File exists }
-Sys_EXDEV	= 18;	{ Cross-device link }
-Sys_ENODEV	= 19;	{ No such device }
-Sys_ENOTDIR	= 20;	{ Not a directory }
-Sys_EISDIR	= 21;	{ Is a directory }
-Sys_EINVAL	= 22;	{ Invalid argument }
-Sys_ENFILE	= 23;	{ File table overflow }
-Sys_EMFILE	= 24;	{ Too many open files }
-Sys_ENOTTY	= 25;	{ Not a typewriter }
-Sys_ETXTBSY	= 26;	{ Text file busy }
-Sys_EFBIG	= 27;	{ File too large }
-Sys_ENOSPC	= 28;	{ No space left on device }
-Sys_ESPIPE	= 29;	{ Illegal seek }
-Sys_EROFS	= 30;	{ Read-only file system }
-Sys_EMLINK	= 31;	{ Too many links }
-Sys_EPIPE	= 32;	{ Broken pipe }
-Sys_EDOM	= 33;	{ Math argument out of domain of func }
-Sys_ERANGE	= 34;	{ Math result not representable }
-Sys_EDEADLK	= 35;	{ Resource deadlock would occur }
-Sys_ENAMETOOLONG= 36;	{ File name too long }
-Sys_ENOLCK	= 37;	{ No record locks available }
-Sys_ENOSYS	= 38;	{ Function not implemented }
-Sys_ENOTEMPTY= 39;	{ Directory not empty }
-Sys_ELOOP	= 40;	{ Too many symbolic links encountered }
-Sys_EWOULDBLOCK	= Sys_EAGAIN;	{ Operation would block }
-Sys_ENOMSG	= 42;	{ No message of desired type }
-Sys_EIDRM	= 43;	{ Identifier removed }
-Sys_ECHRNG	= 44;	{ Channel number out of range }
-Sys_EL2NSYNC= 45;	{ Level 2 not synchronized }
-Sys_EL3HLT	= 46;	{ Level 3 halted }
-Sys_EL3RST	= 47;	{ Level 3 reset }
-Sys_ELNRNG	= 48;	{ Link number out of range }
-Sys_EUNATCH	= 49;	{ Protocol driver not attached }
-Sys_ENOCSI	= 50;	{ No CSI structure available }
-Sys_EL2HLT	= 51;	{ Level 2 halted }
-Sys_EBADE	= 52;	{ Invalid exchange }
-Sys_EBADR	= 53;	{ Invalid request descriptor }
-Sys_EXFULL	= 54;	{ Exchange full }
-Sys_ENOANO	= 55;	{ No anode }
-Sys_EBADRQC	= 56;	{ Invalid request code }
-Sys_EBADSLT	= 57;	{ Invalid slot }
-Sys_EDEADLOCK= 58;	{ File locking deadlock error }
-Sys_EBFONT	= 59;	{ Bad font file format }
-Sys_ENOSTR	= 60;	{ Device not a stream }
-Sys_ENODATA	= 61;	{ No data available }
-Sys_ETIME	= 62;	{ Timer expired }
-Sys_ENOSR	= 63;	{ Out of streams resources }
-Sys_ENONET	= 64;	{ Machine is not on the network }
-Sys_ENOPKG	= 65;	{ Package not installed }
-Sys_EREMOTE	= 66;	{ Object is remote }
-Sys_ENOLINK	= 67;	{ Link has been severed }
-Sys_EADV	= 68;	{ Advertise error }
-Sys_ESRMNT	= 69;	{ Srmount error }
-Sys_ECOMM	= 70;	{ Communication error on send }
-Sys_EPROTO	= 71;	{ Protocol error }
-Sys_EMULTIHOP= 72;	{ Multihop attempted }
-Sys_EDOTDOT	= 73;	{ RFS specific error }
-Sys_EBADMSG	= 74;	{ Not a data message }
-Sys_EOVERFLOW= 75;	{ Value too large for defined data type }
-Sys_ENOTUNIQ= 76;	{ Name not unique on network }
-Sys_EBADFD	= 77;	{ File descriptor in bad state }
-Sys_EREMCHG	= 78;	{ Remote address changed }
-Sys_ELIBACC	= 79;	{ Can not access a needed shared library }
-Sys_ELIBBAD	= 80;	{ Accessing a corrupted shared library }
-Sys_ELIBSCN	= 81;	{ .lib section in a.out corrupted }
-Sys_ELIBMAX	= 82;	{ Attempting to link in too many shared libraries }
-Sys_ELIBEXEC= 83;	{ Cannot exec a shared library directly }
-Sys_EILSEQ	= 84;	{ Illegal byte sequence }
-Sys_ERESTART= 85;	{ Interrupted system call should be restarted }
-Sys_ESTRPIPE= 86;	{ Streams pipe error }
-Sys_EUSERS	= 87;	{ Too many users }
-Sys_ENOTSOCK= 88;	{ Socket operation on non-socket }
-Sys_EDESTADDRREQ= 89;	{ Destination address required }
-Sys_EMSGSIZE= 90;	{ Message too long }
-Sys_EPROTOTYPE= 91;	{ Protocol wrong type for socket }
-Sys_ENOPROTOOPT= 92;	{ Protocol not available }
-Sys_EPROTONOSUPPORT= 93;	{ Protocol not supported }
-Sys_ESOCKTNOSUPPORT= 94;	{ Socket type not supported }
-Sys_EOPNOTSUPP= 95;	{ Operation not supported on transport endpoint }
-Sys_EPFNOSUPPORT= 96;	{ Protocol family not supported }
-Sys_EAFNOSUPPORT= 97;	{ Address family not supported by protocol }
-Sys_EADDRINUSE= 98;	{ Address already in use }
-Sys_EADDRNOTAVAIL= 99;	{ Cannot assign requested address }
-Sys_ENETDOWN= 100;	{ Network is down }
-Sys_ENETUNREACH= 101;	{ Network is unreachable }
-Sys_ENETRESET= 102;	{ Network dropped connection because of reset }
-Sys_ECONNABORTED= 103;	{ Software caused connection abort }
-Sys_ECONNRESET= 104;	{ Connection reset by peer }
-Sys_ENOBUFS	= 105;	{ No buffer space available }
-Sys_EISCONN	= 106;	{ Transport endpoint is already connected }
-Sys_ENOTCONN= 107;	{ Transport endpoint is not connected }
-Sys_ESHUTDOWN= 108;	{ Cannot send after transport endpoint shutdown }
-Sys_ETOOMANYREFS= 109;	{ Too many references: cannot splice }
-Sys_ETIMEDOUT= 110;	{ Connection timed out }
-Sys_ECONNREFUSED= 111;	{ Connection refused }
-Sys_EHOSTDOWN= 112;	{ Host is down }
-Sys_EHOSTUNREACH= 113;	{ No route to host }
-Sys_EALREADY= 114;	{ Operation already in progress }
-Sys_EINPROGRESS= 115;	{ Operation now in progress }
-Sys_ESTALE	= 116;	{ Stale NFS file handle }
-Sys_EUCLEAN	= 117;	{ Structure needs cleaning }
-Sys_ENOTNAM	= 118;	{ Not a XENIX named type file }
-Sys_ENAVAIL	= 119;	{ No XENIX semaphores available }
-Sys_EISNAM	= 120;	{ Is a named type file }
-Sys_EREMOTEIO= 121;	{ Remote I/O error }
-Sys_EDQUOT	= 122;	{ Quota exceeded }
+Sys_EPERM       = 1;    { Operation not permitted }
+Sys_ENOENT      = 2;    { No such file or directory }
+Sys_ESRCH       = 3;    { No such process }
+Sys_EINTR       = 4;    { Interrupted system call }
+Sys_EIO = 5;    { I/O error }
+Sys_ENXIO       = 6;    { No such device or address }
+Sys_E2BIG       = 7;    { Arg list too long }
+Sys_ENOEXEC     = 8;    { Exec format error }
+Sys_EBADF       = 9;    { Bad file number }
+Sys_ECHILD      = 10;   { No child processes }
+Sys_EAGAIN      = 11;   { Try again }
+Sys_ENOMEM      = 12;   { Out of memory }
+Sys_EACCES      = 13;   { Permission denied }
+Sys_EFAULT      = 14;   { Bad address }
+Sys_ENOTBLK     = 15;   { Block device required }
+Sys_EBUSY       = 16;   { Device or resource busy }
+Sys_EEXIST      = 17;   { File exists }
+Sys_EXDEV       = 18;   { Cross-device link }
+Sys_ENODEV      = 19;   { No such device }
+Sys_ENOTDIR     = 20;   { Not a directory }
+Sys_EISDIR      = 21;   { Is a directory }
+Sys_EINVAL      = 22;   { Invalid argument }
+Sys_ENFILE      = 23;   { File table overflow }
+Sys_EMFILE      = 24;   { Too many open files }
+Sys_ENOTTY      = 25;   { Not a typewriter }
+Sys_ETXTBSY     = 26;   { Text file busy }
+Sys_EFBIG       = 27;   { File too large }
+Sys_ENOSPC      = 28;   { No space left on device }
+Sys_ESPIPE      = 29;   { Illegal seek }
+Sys_EROFS       = 30;   { Read-only file system }
+Sys_EMLINK      = 31;   { Too many links }
+Sys_EPIPE       = 32;   { Broken pipe }
+Sys_EDOM        = 33;   { Math argument out of domain of func }
+Sys_ERANGE      = 34;   { Math result not representable }
+Sys_EDEADLK     = 35;   { Resource deadlock would occur }
+Sys_ENAMETOOLONG= 36;   { File name too long }
+Sys_ENOLCK      = 37;   { No record locks available }
+Sys_ENOSYS      = 38;   { Function not implemented }
+Sys_ENOTEMPTY= 39;      { Directory not empty }
+Sys_ELOOP       = 40;   { Too many symbolic links encountered }
+Sys_EWOULDBLOCK = Sys_EAGAIN;   { Operation would block }
+Sys_ENOMSG      = 42;   { No message of desired type }
+Sys_EIDRM       = 43;   { Identifier removed }
+Sys_ECHRNG      = 44;   { Channel number out of range }
+Sys_EL2NSYNC= 45;       { Level 2 not synchronized }
+Sys_EL3HLT      = 46;   { Level 3 halted }
+Sys_EL3RST      = 47;   { Level 3 reset }
+Sys_ELNRNG      = 48;   { Link number out of range }
+Sys_EUNATCH     = 49;   { Protocol driver not attached }
+Sys_ENOCSI      = 50;   { No CSI structure available }
+Sys_EL2HLT      = 51;   { Level 2 halted }
+Sys_EBADE       = 52;   { Invalid exchange }
+Sys_EBADR       = 53;   { Invalid request descriptor }
+Sys_EXFULL      = 54;   { Exchange full }
+Sys_ENOANO      = 55;   { No anode }
+Sys_EBADRQC     = 56;   { Invalid request code }
+Sys_EBADSLT     = 57;   { Invalid slot }
+Sys_EDEADLOCK= 58;      { File locking deadlock error }
+Sys_EBFONT      = 59;   { Bad font file format }
+Sys_ENOSTR      = 60;   { Device not a stream }
+Sys_ENODATA     = 61;   { No data available }
+Sys_ETIME       = 62;   { Timer expired }
+Sys_ENOSR       = 63;   { Out of streams resources }
+Sys_ENONET      = 64;   { Machine is not on the network }
+Sys_ENOPKG      = 65;   { Package not installed }
+Sys_EREMOTE     = 66;   { Object is remote }
+Sys_ENOLINK     = 67;   { Link has been severed }
+Sys_EADV        = 68;   { Advertise error }
+Sys_ESRMNT      = 69;   { Srmount error }
+Sys_ECOMM       = 70;   { Communication error on send }
+Sys_EPROTO      = 71;   { Protocol error }
+Sys_EMULTIHOP= 72;      { Multihop attempted }
+Sys_EDOTDOT     = 73;   { RFS specific error }
+Sys_EBADMSG     = 74;   { Not a data message }
+Sys_EOVERFLOW= 75;      { Value too large for defined data type }
+Sys_ENOTUNIQ= 76;       { Name not unique on network }
+Sys_EBADFD      = 77;   { File descriptor in bad state }
+Sys_EREMCHG     = 78;   { Remote address changed }
+Sys_ELIBACC     = 79;   { Can not access a needed shared library }
+Sys_ELIBBAD     = 80;   { Accessing a corrupted shared library }
+Sys_ELIBSCN     = 81;   { .lib section in a.out corrupted }
+Sys_ELIBMAX     = 82;   { Attempting to link in too many shared libraries }
+Sys_ELIBEXEC= 83;       { Cannot exec a shared library directly }
+Sys_EILSEQ      = 84;   { Illegal byte sequence }
+Sys_ERESTART= 85;       { Interrupted system call should be restarted }
+Sys_ESTRPIPE= 86;       { Streams pipe error }
+Sys_EUSERS      = 87;   { Too many users }
+Sys_ENOTSOCK= 88;       { Socket operation on non-socket }
+Sys_EDESTADDRREQ= 89;   { Destination address required }
+Sys_EMSGSIZE= 90;       { Message too long }
+Sys_EPROTOTYPE= 91;     { Protocol wrong type for socket }
+Sys_ENOPROTOOPT= 92;    { Protocol not available }
+Sys_EPROTONOSUPPORT= 93;        { Protocol not supported }
+Sys_ESOCKTNOSUPPORT= 94;        { Socket type not supported }
+Sys_EOPNOTSUPP= 95;     { Operation not supported on transport endpoint }
+Sys_EPFNOSUPPORT= 96;   { Protocol family not supported }
+Sys_EAFNOSUPPORT= 97;   { Address family not supported by protocol }
+Sys_EADDRINUSE= 98;     { Address already in use }
+Sys_EADDRNOTAVAIL= 99;  { Cannot assign requested address }
+Sys_ENETDOWN= 100;      { Network is down }
+Sys_ENETUNREACH= 101;   { Network is unreachable }
+Sys_ENETRESET= 102;     { Network dropped connection because of reset }
+Sys_ECONNABORTED= 103;  { Software caused connection abort }
+Sys_ECONNRESET= 104;    { Connection reset by peer }
+Sys_ENOBUFS     = 105;  { No buffer space available }
+Sys_EISCONN     = 106;  { Transport endpoint is already connected }
+Sys_ENOTCONN= 107;      { Transport endpoint is not connected }
+Sys_ESHUTDOWN= 108;     { Cannot send after transport endpoint shutdown }
+Sys_ETOOMANYREFS= 109;  { Too many references: cannot splice }
+Sys_ETIMEDOUT= 110;     { Connection timed out }
+Sys_ECONNREFUSED= 111;  { Connection refused }
+Sys_EHOSTDOWN= 112;     { Host is down }
+Sys_EHOSTUNREACH= 113;  { No route to host }
+Sys_EALREADY= 114;      { Operation already in progress }
+Sys_EINPROGRESS= 115;   { Operation now in progress }
+Sys_ESTALE      = 116;  { Stale NFS file handle }
+Sys_EUCLEAN     = 117;  { Structure needs cleaning }
+Sys_ENOTNAM     = 118;  { Not a XENIX named type file }
+Sys_ENAVAIL     = 119;  { No XENIX semaphores available }
+Sys_EISNAM      = 120;  { Is a named type file }
+Sys_EREMOTEIO= 121;     { Remote I/O error }
+Sys_EDQUOT      = 122;  { Quota exceeded }
 
 {
   $Log$
-  Revision 1.4  2001-07-16 19:57:15  marco
-   * Target specific again because of Solaris
-
-  Revision 1.2  2000/09/18 13:14:50  marco
-   * Global Linux +bsd to (rtl/freebsd rtl/unix rtl/linux structure)
+  Revision 1.5  2002-09-07 16:01:19  peter
+    * old logs removed and tabs fixed
 
-  Revision 1.2  2000/07/13 11:33:48  michael
-  + removed logs
- 
 }

rtl/linux/i386/cprt0.as

@@ -83,9 +83,6 @@ ___fpc_brk_addr:
 
 #
 # $Log$
-# Revision 1.2  2000-10-15 09:09:23  peter
-#   * startup code also needed syslinux->system updates
-#
-# Revision 1.1  2000/07/13 06:30:55  michael
-# + Initial import
+# Revision 1.3  2002-09-07 16:01:20  peter
+#   * old logs removed and tabs fixed
 #

rtl/linux/i386/cprt21.as

@@ -95,16 +95,6 @@ ___fpc_ret_ebp:
 
 #
 # $Log$
-# Revision 1.4  2001-06-04 18:05:47  peter
-#   * use own dummy for _init and _fini
-#
-# Revision 1.3  2001/02/14 22:36:21  sg
-# * Merged Pierre's fix for my problem with heaptrace unit (by setting EBP
-#   to zero before calling PASCALMAIN)
-#
-# Revision 1.2  2000/10/15 09:09:23  peter
-#   * startup code also needed syslinux->system updates
-#
-# Revision 1.1  2000/07/13 06:30:55  michael
-# + Initial import
+# Revision 1.5  2002-09-07 16:01:20  peter
+#   * old logs removed and tabs fixed
 #

rtl/linux/i386/dllprt0.as

@@ -52,7 +52,6 @@ _haltproc:
 
 #
 # $Log$
-# Revision 1.1  2001-06-03 15:13:43  peter
-#   * dllprt0 stub added
-#
+# Revision 1.2  2002-09-07 16:01:20  peter
+#   * old logs removed and tabs fixed
 #

rtl/linux/i386/gprt0.as

@@ -78,9 +78,6 @@ ___fpc_brk_addr:
 
 #
 # $Log$
-# Revision 1.2  2000-10-15 09:09:23  peter
-#   * startup code also needed syslinux->system updates
-#
-# Revision 1.1  2000/07/13 06:30:55  michael
-# + Initial import
+# Revision 1.3  2002-09-07 16:01:20  peter
+#   * old logs removed and tabs fixed
 #

rtl/linux/i386/gprt21.as

@@ -125,12 +125,6 @@ ___fpc_ret_edi:
 
 #
 # $Log$
-# Revision 1.3  2001-06-04 18:05:47  peter
-#   * use own dummy for _init and _fini
-#
-# Revision 1.2  2000/10/15 09:09:23  peter
-#   * startup code also needed syslinux->system updates
-#
-# Revision 1.1  2000/07/13 06:30:55  michael
-# + Initial import
+# Revision 1.4  2002-09-07 16:01:20  peter
+#   * old logs removed and tabs fixed
 #

rtl/linux/i386/prt0.as

@@ -63,9 +63,6 @@ ___fpc_brk_addr:
 
 #
 # $Log$
-# Revision 1.2  2000-10-15 09:09:24  peter
-#   * startup code also needed syslinux->system updates
-#
-# Revision 1.1  2000/07/13 06:30:55  michael
-# + Initial import
+# Revision 1.3  2002-09-07 16:01:20  peter
+#   * old logs removed and tabs fixed
 #

rtl/linux/i386/prt0_10.as

@@ -63,10 +63,6 @@ ___fpc_brk_addr:
 
 #
 # $Log$
-# Revision 1.2  2001-05-09 19:57:07  peter
-# *** empty log message ***
-#
-# Revision 1.1  2000/10/15 09:09:24  peter
-#   * startup code also needed syslinux->system updates
-#
+# Revision 1.3  2002-09-07 16:01:20  peter
+#   * old logs removed and tabs fixed
 #