Browse Source

* C operators, and patch for #41345

Michaël Van Canneyt 1 week ago
parent
commit
cd284bd030
1 changed files with 2 additions and 1 deletions
  1. 2 1
      packages/fcl-net/src/fpsockets.pp

+ 2 - 1
packages/fcl-net/src/fpsockets.pp

@@ -19,6 +19,7 @@ unit fpsockets;
 {$TypedAddress on}
 {$modeswitch advancedrecords}
 {$macro on}
+{$COPERATORS ON}
 
 {$IFDEF FPC_DOTTEDUNITS}
 {$define socketsunit:=System.Net.Sockets}
@@ -680,7 +681,7 @@ end;
 function ReceiveFromNonBlocking(const ASocket:TFPSocket;ABuffer:Pointer;MaxSize:
   SizeInt;AFlags:Integer):specialize TNullable<TReceiveFromResult>;
 begin
-  Result := ReceiveFromNonBlocking(ASocket, ABuffer, MaxSize, AFlags);
+  Result := ReceiveFrom(ASocket, ABuffer, MaxSize, AFlags);
   if Result.Value.DataSize = 0 then
     Result := null;
 end;