Browse Source

* make the updates also compilable (move struct down, add LPWSAMSG = PWSAMSG)

git-svn-id: trunk@8277 -
Almindor 18 years ago
parent
commit
8a0eeb5e57
1 changed files with 12 additions and 11 deletions
  1. 12 11
      rtl/win/winsock2.pp

+ 12 - 11
rtl/win/winsock2.pp

@@ -715,17 +715,6 @@ type
         PQOS = ^TQualityOfService;
         LPQOS = PQOS;
         
-  PWSAMSG = ^TWSAMSG;
-  TWSAMSG = record
-    name: PSOCKET_ADDRESS;
-    namelen: Longint;
-    lpBuffers: LPWSABUF;
-    dwBufferCount: DWORD;
-    Control: WSABUF;
-    dwFlags: DWORD;
-  end;
-  WSAMSG = TWSAMSG;
-
 Const
         SERVICETYPE_NOTRAFFIC             =  $00000000;  // No data in this direction
         SERVICETYPE_BESTEFFORT            =  $00000001;  // Best Effort
@@ -1042,6 +1031,18 @@ Type
         LPWSAQuerySet = PWSAQuerySetA;
 {$ENDIF}
 
+  PWSAMSG = ^TWSAMSG;
+  TWSAMSG = record
+    name: PSOCKET_ADDRESS;
+    namelen: Longint;
+    lpBuffers: LPWSABUF;
+    dwBufferCount: DWORD;
+    Control: WSABUF;
+    dwFlags: DWORD;
+  end;
+  WSAMSG = TWSAMSG;
+  LPWSAMSG = PWSAMSG;
+
 Const
         LUP_DEEP = $0001;
         LUP_CONTAINERS = $0002;