Ver código fonte

* add t/psockaddr6 type aliases to sockets unit, mantis #28566

git-svn-id: trunk@31452 -
marco 10 anos atrás
pai
commit
3f1ad78fc2
1 arquivos alterados com 2 adições e 1 exclusões
  1. 2 1
      packages/rtl-extra/src/inc/socketsh.inc

+ 2 - 1
packages/rtl-extra/src/inc/socketsh.inc

@@ -138,7 +138,8 @@ type
 
   TSockPairArray = Array[0..1] of Longint;
   TSockArray     = Array[1..2] of Longint;              //legacy
-
+  TSockAddr6      = sockaddr_in6;
+  PSockAddr6      = ^TSockAddr6;
   psockaddr_un = ^sockaddr_un;
   sockaddr_un = packed record
     {$ifdef SOCK_HAS_SINLEN}