Browse Source

--- Merging r32257 into '.':
U rtl/inc/systemh.inc
--- Recording mergeinfo for merge of r32257 into '.':
U .
--- Merging r32258 into '.':
U packages/rtl-extra/src/unix/sockets.pp
U packages/rtl-extra/src/win/sockets.pp
U packages/rtl-extra/src/os2commn/sockets.pp
--- Recording mergeinfo for merge of r32258 into '.':
G .

# revisions: 32257,32258

git-svn-id: branches/fixes_3_0@33389 -

marco 9 years ago
parent
commit
d3050cc5ca

+ 1 - 0
packages/rtl-extra/src/os2commn/sockets.pp

@@ -108,6 +108,7 @@ const
   EsockENOTSOCK = SOCENOTSOCK;
   EsockENOTSOCK = SOCENOTSOCK;
   EsockEPROTONOSUPPORT = SOCEPROTONOSUPPORT;
   EsockEPROTONOSUPPORT = SOCEPROTONOSUPPORT;
   EsockEWOULDBLOCK = SOCEWOULDBLOCK;
   EsockEWOULDBLOCK = SOCEWOULDBLOCK;
+  EsockADDRINUSE = SOCEADDRINUSE;
 
 
 
 
 (***************************************************************************)
 (***************************************************************************)

+ 1 - 1
packages/rtl-extra/src/unix/sockets.pp

@@ -59,7 +59,7 @@ const
 {$endif beos}
 {$endif beos}
   EsockEPROTONOSUPPORT  = ESysEProtoNoSupport;
   EsockEPROTONOSUPPORT  = ESysEProtoNoSupport;
   EsockEWOULDBLOCK      = ESysEWouldBlock;
   EsockEWOULDBLOCK      = ESysEWouldBlock;
-
+  EsockADDRINUSE        = ESysEADDRINUSE;
 
 
 { unix socket specific functions }
 { unix socket specific functions }
 Procedure Str2UnixSockAddr(const addr:string;var t:TUnixSockAddr;var len:longint); deprecated;
 Procedure Str2UnixSockAddr(const addr:string;var t:TUnixSockAddr;var len:longint); deprecated;

+ 1 - 0
packages/rtl-extra/src/win/sockets.pp

@@ -45,6 +45,7 @@ const
   EsockENOTSOCK        = WSAENOTSOCK;
   EsockENOTSOCK        = WSAENOTSOCK;
   EsockEPROTONOSUPPORT = WSAEPROTONOSUPPORT;
   EsockEPROTONOSUPPORT = WSAEPROTONOSUPPORT;
   EsockEWOULDBLOCK     = WSAEWOULDBLOCK;
   EsockEWOULDBLOCK     = WSAEWOULDBLOCK;
+  EsockADDRINUSE       = WSAEADDRINUSE;
 
 
   SHUT_RD          = SD_RECEIVE; // aliases so we are cross-platform
   SHUT_RD          = SD_RECEIVE; // aliases so we are cross-platform
   SHUT_WR          = SD_SEND;
   SHUT_WR          = SD_SEND;

+ 1 - 0
rtl/inc/systemh.inc

@@ -473,6 +473,7 @@ Type
   PPtrInt             = ^PtrInt;
   PPtrInt             = ^PtrInt;
   PPtrUInt            = ^PtrUInt;
   PPtrUInt            = ^PtrUInt;
   PSizeInt            = ^SizeInt;
   PSizeInt            = ^SizeInt;
+  PSizeUInt           = ^SizeUInt;
 
 
   PPByte              = ^PByte;
   PPByte              = ^PByte;
   PPLongint           = ^PLongint;
   PPLongint           = ^PLongint;