fixed Delphi compilation

synopse · Aug 30, 2023 · dc2594a · dc2594a
1 parent fca9a7c
commit dc2594a
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 3 deletions.
diff --git a/src/mormot.commit.inc b/src/mormot.commit.inc
@@ -1 +1 @@
-'2.1.5807'
+'2.1.5808'
diff --git a/src/net/mormot.net.sock.pas b/src/net/mormot.net.sock.pas
@@ -4696,7 +4696,7 @@ procedure TCrtSocket.CreateSockIn(LineBreak: TTextLineBreakStyle;
     BufSize := InputBufferSize;
     BufPtr := pointer(PAnsiChar(SockIn) + SizeOf(TTextRec));
     OpenFunc := @OpenSock;
-    Handle := INVALID_HANDLE_VALUE;
+    Handle := {$ifdef FPC}THandle{$endif}(0); // some invalid handle
   end;
   SetLineBreakStyle(SockIn^, LineBreak); // http does break lines with #13#10
   Reset(SockIn^);
@@ -4718,7 +4718,7 @@ procedure TCrtSocket.CreateSockOut(OutputBufferSize: integer);
     BufSize := OutputBufferSize;
     BufPtr := pointer(PAnsiChar(SockIn) + SizeOf(TTextRec)); // ignore Buffer[] (Delphi 2009+)
     OpenFunc := @OpenSock;
-    Handle := INVALID_HANDLE_VALUE;
+    Handle := {$ifdef FPC}THandle{$endif}(0); // some invalid handle
   end;
   SetLineBreakStyle(SockOut^, tlbsCRLF); // force e.g. for Linux platforms
   Rewrite(SockOut^);