From 8d3acbf56919e4a941eeebae954f394c4d5573bb Mon Sep 17 00:00:00 2001
From: peter <peter@freepascal.org>
Date: Thu, 15 Oct 1998 08:31:10 +0000
Subject: [PATCH]   * type aliases using delphi typenaming

---
 rtl/linux/linux.pp     | 24 ++++++++++++++++--------
 rtl/linux/systypes.inc | 42 ++++++++++++++++++++++++------------------
 2 files changed, 40 insertions(+), 26 deletions(-)

diff --git a/rtl/linux/linux.pp b/rtl/linux/linux.pp
index 097959329a..09582ba398 100644
--- a/rtl/linux/linux.pp
+++ b/rtl/linux/linux.pp
@@ -244,8 +244,9 @@ Type
     ws_xpixel,
     ws_ypixel : word;
   end;
+  TWinSize=winsize;
 
-  TermIO = packed record
+  Termio = packed record
     c_iflag,                             { input mode flags }
     c_oflag,                             { output mode flags }
     c_cflag,                             { control mode flags }
@@ -253,15 +254,17 @@ Type
     c_line   : Word;                    { line discipline - careful, only High byte in use}
     c_cc     : array [0..NCC-1] of char;{ control characters }
   end;
+  TTermio=Termio;
 
-  TermIOS = packed record
+  Termios = packed record
     c_iflag,
     c_oflag,
     c_cflag,
     c_lflag  : longint;
-    c_line  : char;
+    c_line   : char;
     c_cc     : array[0..NCCS-1] of byte;
   end;
+  TTermios=Termios;
 
 const
   InitCC:array[0..NCCS-1] of byte=(3,34,177,25,4,0,1,0,21,23,32,0,22,17,27,26,0,0,0);
@@ -429,9 +432,11 @@ const
 ********************}
 
 Type
-  utimbuf = packed record
+  UTimeBuf = packed record
     actime,modtime : Longint;
   end;
+  TUTimeBuf=UTimeBuf;
+  PUTimeBuf=^UTimeBuf;
 
   TSysinfo = packed record
     uptime    : longint;
@@ -445,7 +450,7 @@ Type
     procs     : integer;
     s         : string[18];
   end;
-
+  PSysInfo = ^TSysInfo;
 
 {******************************************************************************
                             Procedure/Functions
@@ -518,7 +523,7 @@ Function  ReName (OldName,NewName : Pchar) : Boolean;
 Function  ReName (OldName,NewName : String) : Boolean;
 Function  Chown(path:pathstr;NewUid,NewGid:longint):boolean;
 Function  Chmod(path:pathstr;Newmode:longint):boolean;
-Function  Utime(path:pathstr;utim:utimbuf):boolean;
+Function  Utime(path:pathstr;utim:utimebuf):boolean;
 Function  Access(Path:Pathstr ;mode:integer):boolean;
 Function  Umask(Mask:Integer):integer;
 Function  Flock (fd,mode : longint) : boolean;
@@ -1455,7 +1460,7 @@ end;
 
 
 
-Function Utime(path:pathstr;utim:utimbuf):boolean;
+Function Utime(path:pathstr;utim:utimebuf):boolean;
 var
   sr : Syscallregs;
 begin
@@ -3505,7 +3510,10 @@ End.
 
 {
   $Log$
-  Revision 1.20  1998-10-11 12:23:11  michael
+  Revision 1.21  1998-10-15 08:31:11  peter
+    * type aliases using delphi typenaming
+
+  Revision 1.20  1998/10/11 12:23:11  michael
   + Implemented Rename
 
   Revision 1.19  1998/09/18 09:56:33  peter
diff --git a/rtl/linux/systypes.inc b/rtl/linux/systypes.inc
index 4bb456cd7c..955ea089ab 100644
--- a/rtl/linux/systypes.inc
+++ b/rtl/linux/systypes.inc
@@ -16,7 +16,7 @@ type
 
 {
  Linux system calls take arguments as follows :
-  
+
    i386/m68k:
 
    %eax/%d0 : System call number
@@ -28,24 +28,25 @@ type
 
   That is why we define a special type, with only these arguments
   To make it processor independent, we don't give any system dependent
-  names, but the rather abstract reg1,reg2 etc;  
+  names, but the rather abstract reg1,reg2 etc;
 }
   SysCallRegs=record
     reg1,reg2,reg3,reg4,reg5,reg6 : longint;
   end;
+  PSysCallRegs=^SysCallRegs;
+  TSysCallRegs=SysCallRegs;
 
 { The following are records for system calls }
-{$PACKRECORDS 1}
-
-  dirent =record
+  dirent = packed record
     ino,
     off    : longint;
     reclen : word;
     name   : array [0..255] of char;
   end;
   pdirent =^dirent;
+  TDirEnt = dirent;
 
-  TDir = record
+  TDir = packed record
     fd     : integer;
     loc    : longint;
     size   : integer;
@@ -57,7 +58,7 @@ type
   end;
   PDir =^TDir;
 
-  stat =record
+  Stat = packed record
     dev,
     pad1    : word;
     ino     : longint;
@@ -79,8 +80,10 @@ type
     unused4,
     unused5 : longint;
   end;
+  PStat=^Stat;
+  TStat=Stat;
 
-  statfs =record
+  Statfs = packed record
     fstype,            { File system type }
     bsize,             { Optimal block trensfer size }
     blocks,            { Data blocks in system }
@@ -92,36 +95,39 @@ type
     namelen : longint; { Maximum name length in system }
     spare   : array [0..6] of longint; { For later use }
   end;
+  PStatFS=^StatFS;
+  TStatFS=StatFS;
 
   fdSet=array[0..7] of longint;{=256 bits}
   pfdset=^fdset;
-  
+  TFDSet=fdset;
 
-  timeval =record
+  timeval = packed record
     sec,usec:longint
   end;
   ptimeval=^timeval;
+  TTimeVal=timeval;
 
-  timezone =record
+  timezone = packed record
     minuteswest,dsttime:longint;
   end;
   ptimezone =^timezone;
+  TTimeZone = timezone;
 
-  utsname =record
+  utsname = packed record
     sysname,
     nodename,
     release,
     version,
     machine,
     domainname : Array[0..64] of char;
-  end; 
-
+  end;
+  PUTSName=^UTSName;
+  TUTSName=UTSName;
 
 {
   $Log$
-  Revision 1.2  1998-05-06 12:38:22  michael
-  + Removed log from before restored version.
+  Revision 1.3  1998-10-15 08:31:10  peter
+    * type aliases using delphi typenaming
 
-  Revision 1.1.1.1  1998/03/25 11:18:43  root
-  * Restored version
 }