pascal/synapse
1
0
Fork 0
Code Issues Releases Activity

Fix bug #48

Browse Source 
git-svn-id: https://svn.code.sf.net/p/synalist/code/trunk@218 7c85be65-684b-0410-a082-b2ed4fbef004
This commit is contained in:
geby 2021-06-12 14:19:51 +00:00
parent 733c96f114
commit b7a9193228
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
ssfpc.inc
View File

@ -1,5 +1,5 @@
{==============================================================================| {==============================================================================|
| Project : Ararat Synapse | 001.001.005 | | Project : Ararat Synapse | 001.001.006 |
|==============================================================================| |==============================================================================|
| Content: Socket Independent Platform Layer - FreePascal definition include | | Content: Socket Independent Platform Layer - FreePascal definition include |
|==============================================================================| |==============================================================================|
@ -858,7 +858,7 @@ var
ProtoEnt: TProtocolEntry; ProtoEnt: TProtocolEntry;
ServEnt: TServiceEntry; ServEnt: TServiceEntry;
begin begin
Result := synsock.htons(StrToIntDef(Port, 0)); Result := StrToIntDef(Port, 0);
if Result = 0 then if Result = 0 then
begin begin
ProtoEnt.Name := ''; ProtoEnt.Name := '';