瀏覽代碼

* some kylix stuf

marco 20 年之前
父節點
當前提交
fc8542ad94
共有 2 個文件被更改,包括 18 次插入4 次删除
  1. 11 2
      rtl/inc/ctypes.pp
  2. 7 2
      rtl/inc/socketsh.inc

+ 11 - 2
rtl/inc/ctypes.pp

@@ -24,6 +24,7 @@ interface
 uses unixtype;
 uses unixtype;
 {$i aliasctp.inc}
 {$i aliasctp.inc}
 {$else}
 {$else}
+
 Type
 Type
     { the following type definitions are compiler dependant }
     { the following type definitions are compiler dependant }
     { and system dependant                                  }
     { and system dependant                                  }
@@ -70,15 +71,23 @@ Type
     pculong = ^cuLong;
     pculong = ^cuLong;
     pcshort = ^cshort;
     pcshort = ^cshort;
     pcushort= ^cushort;
     pcushort= ^cushort;
-
 {$endif}
 {$endif}
 
 
+// Kylix compat types
+    u_long  = culong;
+    u_short = cushort;	
+ 
 implementation
 implementation
+
+
 end.
 end.
 
 
 {
 {
  $Log$
  $Log$
- Revision 1.1  2005-01-10 10:32:50  marco
+ Revision 1.2  2005-02-12 17:35:18  marco
+  * some kylix stuf
+
+ Revision 1.1  2005/01/10 10:32:50  marco
   * initial version
   * initial version
 
 
 
 

+ 7 - 2
rtl/inc/socketsh.inc

@@ -85,8 +85,9 @@ Type
      sa_data    : array [0..13] of char;
      sa_data    : array [0..13] of char;
     end;
     end;
   pSockAddr = ^TSockAddr;
   pSockAddr = ^TSockAddr;
+  sockaddr  = TSockAddr;		// Kylix compat	
 
 
-TInetSockAddr = packed Record
+  TInetSockAddr = packed Record
     case boolean of   
     case boolean of   
      false : (
      false : (
   {$ifdef SOCK_HAS_SINLEN} 
   {$ifdef SOCK_HAS_SINLEN} 
@@ -108,6 +109,7 @@ TInetSockAddr = packed Record
       );                
       );                
     end;
     end;
   pInetSockAddr = ^TInetSockAddr;
   pInetSockAddr = ^TInetSockAddr;
+  TInAddr 	=  TInetSockAddr; 
 
 
   Tin6_addr = packed record
   Tin6_addr = packed record
   case byte of
   case byte of
@@ -194,7 +196,10 @@ Function NToHs (Net : word):word;         {$ifdef HASINLINE} inline; {$endif}
 
 
 {
 {
   $Log$
   $Log$
-  Revision 1.21  2004-12-23 18:32:26  marco
+  Revision 1.22  2005-02-12 17:34:56  marco
+   * some kylix stuf
+
+  Revision 1.21  2004/12/23 18:32:26  marco
    * cdecl stuff removed. Now works on FreeBSD with and without FPC_USE_LIBC
    * cdecl stuff removed. Now works on FreeBSD with and without FPC_USE_LIBC
 
 
   Revision 1.20  2004/12/21 14:36:18  marco
   Revision 1.20  2004/12/21 14:36:18  marco