fix a bug in dispatchmessage

[lcore.git] / lcore.pas

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