* fixed ESysEIntr checking for fpflock

git-svn-id: trunk@12635 -

rtl/unix/sysutils.pp

@@ -206,7 +206,8 @@ begin
       end;
       repeat
         lockres:=fpflock(Handle,lockop);
-      until lockres<>ESysEIntr;
+      until (lockres=0) or
+            (fpgeterrno<>ESysEIntr);
       if (lockres<>0) then
         begin
           FpClose(Handle);