From e1c994a3be2158564bc400bde466b4f34599acec Mon Sep 17 00:00:00 2001
From: Jonas Maebe <jonas@freepascal.org>
Date: Wed, 24 Jan 2007 16:05:39 +0000
Subject: [PATCH]   * don't call blockwrite if there's nothing to write

git-svn-id: trunk@6166 -
---
 compiler/ppu.pas | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/compiler/ppu.pas b/compiler/ppu.pas
index 1d81514be4..21ef17ba8f 100644
--- a/compiler/ppu.pas
+++ b/compiler/ppu.pas
@@ -836,7 +836,8 @@ end;
 
 procedure tppufile.writebuf;
 begin
-  if not crc_only then
+  if not crc_only and
+     (bufidx <> 0) then
     blockwrite(f,buf^,bufidx);
   inc(bufstart,bufidx);
   bufidx:=0;