Moved NameThreadForDebugging to Execute method

grijjy · Sep 17, 2017 · b62fa9a · b62fa9a
1 parent 699ccc7
commit b62fa9a
Showing 1 changed file with 4 additions and 3 deletions.
diff --git a/ZMQ.Protocol.pas b/ZMQ.Protocol.pas
@@ -794,9 +794,6 @@ constructor TZMQPollThread.Create(const AParent: TZMQProtocol; const AContext: T
   FParent := AParent;
   FContext := AContext;
   inherited Create;
-  {$IFDEF DEBUG}
-  NameThreadForDebugging('TZMQPollThread');
-  {$ENDIF}
 end;
 
 destructor TZMQPollThread.Destroy;
@@ -825,6 +822,10 @@ procedure TZMQPollThread.Execute;
   Msg: PZMessage;
   Command: TZMQCommand;
 begin
+  {$IFDEF DEBUG}
+  NameThreadForDebugging('TZMQPollThread');
+  {$ENDIF}
+
   { connect to parent zmq context to recv tasks }
   FSocket := TZSocket.Create(FContext, TZSocketType.Pull);
   FSocket.Connect('inproc://workers');