* use WINSOCK_VERSION in sockets init in windows

git-svn-id: trunk@9430 -

rtl/win/sockets.pp

@@ -265,7 +265,7 @@ var
   wsadata : twsadata;
 
 initialization
-  WSAStartUp($2,wsadata);
+  WSAStartUp(WINSOCK_VERSION,wsadata);
 finalization
   WSACleanUp;
 end.

rtl/wince/winsock.pp

@@ -86,6 +86,7 @@ unit winsock;
 
     const
        winsockdll    = 'ws2.dll';
+       WINSOCK_VERSION = $0101; // hopefully is right for winCE too
 
        {
          Default maximium number of sockets.