From 49e05cf2b5383563b094b877abd149b08c3138a8 Mon Sep 17 00:00:00 2001
From: Daniel Carcich <danielc@bccsoftware.com>
Date: Mon, 10 Dec 2018 14:40:17 -0500
Subject: [PATCH] Correct zmq assertion failure for 64-bit TZMQPoller.Poll

https://github.com/bvarga/delphizmq/issues/17
---
 zmq.pas | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/zmq.pas b/zmq.pas
index a5a1b65..018b9ad 100644
--- a/zmq.pas
+++ b/zmq.pas
@@ -382,7 +382,11 @@ function zmq_socket_monitor( s: Pointer; addr: PAnsiChar; events: Integer ): Int
 type
   pollitem_t = record
     socket: Pointer;
-    fd: Integer; // TSocket???
+    {$if Defined(UNIX) or Defined(WIN64)}
+    fd: QWord; // TSocket???
+    {$else}
+    fd: Cardinal;
+    {$endif}
     events: Word;
     revents: Word;
   end;