* don't call the system if flush hasn't to flush anything

git-svn-id: trunk@4829 -

rtl/inc/text.inc

@@ -33,6 +33,9 @@ Procedure FileWriteFunc(var t:TextRec);
 var
   i : longint;
 Begin
+  { prevent unecessary system call }
+  if t.BufPos=0 then
+    exit;
   i:=Do_Write(t.Handle,t.Bufptr,t.BufPos);
   if i<>t.BufPos then
     InOutRes:=101;