pascal/synapse
1
0
Fork 0
Code Issues Releases Activity

ssfpc.inc fix bug #50 - regression by commit 218 - incoorect Port byte order

Browse Source 
git-svn-id: https://svn.code.sf.net/p/synalist/code/trunk@223 7c85be65-684b-0410-a082-b2ed4fbef004
This commit is contained in:
geby
2021-06-15 14:34:43 +00:00
parent 039fa1c3b5
commit 77ee03bf28
1 changed files with 3 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
ssfpc.inc
View File

@@ -1,5 +1,5 @@
{==============================================================================|
| Project : Ararat Synapse | 001.001.006 |
| Project : Ararat Synapse | 001.001.007 |
|==============================================================================|
| Content: Socket Independent Platform Layer - FreePascal definition include |
|==============================================================================|
@@ -755,7 +755,7 @@ var
begin
Result := 0;
FillChar(Sin, Sizeof(Sin), 0);
Sin.sin_port := Resolveport(port, family, SockProtocol, SockType);
Sin.sin_port := synsock.htons(Resolveport(port, family, SockProtocol, SockType));
TwoPass := False;
if Family = AF_UNSPEC then
begin
@@ -865,7 +865,7 @@ begin
GetProtocolByNumber(SockProtocol, ProtoEnt);
ServEnt.port := 0;
GetServiceByName(Port, ProtoEnt.Name, ServEnt);
Result := ServEnt.port;
Result := synsock.ntohs(ServEnt.port);
end;
end;