fix a warning

git-svn-id: file:///svnroot/lcore/trunk@37 b1de8a11-f9be-4011-bde0-cc7ace90066a

diff --git a/lcore.pas b/lcore.pas
index 6effe0e0bad0165f76bc606dafeddd4275163f06..4be20f40b328ee8c968514e4c1c6b87b302cf11f 100755 (executable)
--- a/lcore.pas
+++ b/lcore.pas
@@ -485,7 +485,10 @@ var
 //  fdstestr : fdset;\r
 //  fdstestw : fdset;\r
 begin\r
-  if state <> wsconnected then exit;\r
+  if state <> wsconnected then begin\r
+    result := -1;\r
+    exit;\r
+  end;\r
 \r
   lensent := sendq.get(data,packetbasesize*2);\r
   if assigned(data) then result := myfdwrite(fdhandleout,data^,lensent) else result := 0;\r