From 3d7f3f89ab7629567f195338581b535fb683eaf1 Mon Sep 17 00:00:00 2001
From: geby <geby@7c85be65-684b-0410-a082-b2ed4fbef004>
Date: Fri, 19 Feb 2010 14:50:44 +0000
Subject: [PATCH] Fixed SetVarSin for IPv6 on the FreePascal.

git-svn-id: https://svn.code.sf.net/p/synalist/code/trunk@125 7c85be65-684b-0410-a082-b2ed4fbef004
---
 ssfpc.pas | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/ssfpc.pas b/ssfpc.pas
index aa275e7..7e3f640 100644
--- a/ssfpc.pas
+++ b/ssfpc.pas
@@ -1,5 +1,5 @@
 {==============================================================================|
-| Project : Ararat Synapse                                       | 001.001.001 |
+| Project : Ararat Synapse                                       | 001.001.002 |
 |==============================================================================|
 | Content: Socket Independent Platform Layer - FreePascal definition include   |
 |==============================================================================|
@@ -716,7 +716,7 @@ var
               if IN6_IS_ADDR_UNSPECIFIED(@a6[1]) then
                 Resolvename6(ip, a6);
             end;
-            if IN6_IS_ADDR_UNSPECIFIED(@a6[1]) then
+            if not IN6_IS_ADDR_UNSPECIFIED(@a6[1]) then
             begin
               Sin.sin_family := AF_INET6;
               sin.sin6_addr := a6[1];