From 616d8073f2e1894663b73ee1f2f401dbf93a05af Mon Sep 17 00:00:00 2001
From: michael <michael@freepascal.org>
Date: Sun, 1 Apr 2018 07:19:34 +0000
Subject: [PATCH] * Implement flushbuffer abstract method in TFiler (part 2)
 (bug ID 33062)

git-svn-id: trunk@38656 -
---
 rtl/objpas/classes/classesh.inc | 1 +
 rtl/objpas/classes/writer.inc   | 5 +++++
 2 files changed, 6 insertions(+)

diff --git a/rtl/objpas/classes/classesh.inc b/rtl/objpas/classes/classesh.inc
index 9000f12d4d..d5ab47701a 100644
--- a/rtl/objpas/classes/classesh.inc
+++ b/rtl/objpas/classes/classesh.inc
@@ -1493,6 +1493,7 @@ type
     constructor Create(ADriver: TAbstractObjectWriter);
     constructor Create(Stream: TStream; BufSize: Integer);
     destructor Destroy; override;
+    Procedure FlushBuffer; override;
     procedure DefineProperty(const Name: string;
       ReadData: TReaderProc; AWriteData: TWriterProc;
       HasData: Boolean); override;
diff --git a/rtl/objpas/classes/writer.inc b/rtl/objpas/classes/writer.inc
index 140e32cc68..ac47559642 100644
--- a/rtl/objpas/classes/writer.inc
+++ b/rtl/objpas/classes/writer.inc
@@ -505,6 +505,11 @@ begin
   inherited Destroy;
 end;
 
+procedure TWriter.FlushBuffer;
+begin
+  Driver.FlushBuffer;
+end;
+
 function TWriter.CreateDriver(Stream: TStream; BufSize: Integer): TAbstractObjectWriter;
 begin
   Result := TBinaryObjectWriter.Create(Stream, BufSize);