pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

Fix comparison with invalid socket value in Synapse (Thanks Juha)

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@3873 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
inoussa
2015-01-07 14:13:05 +00:00
parent 157a1133fb
commit b2e1e27b73
2 changed files with 3 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
wst/trunk/synapse_http_protocol.pas
View File

@ -19,7 +19,7 @@ interface
uses uses
Classes, SysUtils, Classes, SysUtils,
wst_types, service_intf, imp_utils, base_service_intf, client_utils, service_intf, base_service_intf, client_utils,
httpsend; httpsend;
Const Const

6
wst/trunk/synapse_tcp_protocol.pas
View File

@ -18,7 +18,7 @@ interface
uses uses
Classes, SysUtils, Classes, SysUtils,
service_intf, base_service_intf, client_utils, service_intf, base_service_intf, client_utils,
blcksock; blcksock, synsock;
//{$DEFINE WST_DBG} //{$DEFINE WST_DBG}
@ -57,8 +57,6 @@ Type
procedure SYNAPSE_RegisterTCP_Transport(); procedure SYNAPSE_RegisterTCP_Transport();
implementation implementation
uses
wst_types;
{ TTCPTransport } { TTCPTransport }
@ -66,7 +64,7 @@ procedure TTCPTransport.Connect();
var var
locReconnect : Boolean; locReconnect : Boolean;
begin begin
if ( FConnection.Socket = NOT(0) ) then begin if ( FConnection.Socket = INVALID_SOCKET ) then begin
FConnection.Connect(Address,Port); FConnection.Connect(Address,Port);
end else begin end else begin
locReconnect := False; locReconnect := False;