* Correction of PAFProtocols (Ivan Shikhalev, bug ID #17924

git-svn-id: trunk@16335 -

rtl/win/winsock2.pp

@@ -992,7 +992,7 @@ Type
                 iAddressFamily: Longint;
                 iProtocol: Longint;
         end {AFPROTOCOLS};
-        PAFProtocols = TAFProtocols;
+        PAFProtocols = ^TAFProtocols;
 
 {       Client Query API Typedefs }
 

rtl/wince/winsock2.pp

@@ -958,7 +958,7 @@ Type
                 iAddressFamily: Longint;
                 iProtocol: Longint;
         end {AFPROTOCOLS};
-        PAFProtocols = TAFProtocols;
+        PAFProtocols = ^TAFProtocols;
 
 {       Client Query API Typedefs }