瀏覽代碼

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

git-svn-id: trunk@31452 -
marco 10 年之前
父節點
當前提交
3f1ad78fc2
共有 1 個文件被更改,包括 2 次插入1 次删除
  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}