Home Explore Help
Sign In
pascal
/
freepascal.compiler
mirror of https://gitlab.com/freepascal.org/fpc/source.git
2
0
Fork 0
Files Issues 0 Wiki
Browse Source

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

git-svn-id: trunk@16335 -
michael 14 years ago
parent
085e5fc65a
commit
5cdc3c3a29
2 changed files with 2 additions and 2 deletions
Unified View Show Diff Stats
  1. 1 1
      rtl/win/winsock2.pp
  2. 1 1
      rtl/wince/winsock2.pp

+ 1 - 1
rtl/win/winsock2.pp
View File 

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

+ 1 - 1
rtl/wince/winsock2.pp
View File 

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