From 143b80ae363760b19543c0c2c78f6b2a2dcdce43 Mon Sep 17 00:00:00 2001
From: juha <juha@lazarus-ide.org>
Date: Thu, 9 Apr 2015 20:29:10 +0000
Subject: [PATCH] LazUtils: Implement abstract methods for classes
 TXMLObjectWriter / TXMLObjectReader. Issue #27817, patch from Vojtech Cihak.

git-svn-id: trunk@48689 -
---
 components/lazutils/laz_xmlstreaming.pas | 18 ++++++++++++++++++
 1 file changed, 18 insertions(+)

diff --git a/components/lazutils/laz_xmlstreaming.pas b/components/lazutils/laz_xmlstreaming.pas
index 19a669a641..079b27a2fb 100644
--- a/components/lazutils/laz_xmlstreaming.pas
+++ b/components/lazutils/laz_xmlstreaming.pas
@@ -77,6 +77,9 @@ type
     procedure WriteSet(Value: LongInt; SetType: Pointer); override;
     procedure WriteString(const Value: String); override;
     procedure WriteWideString(const Value: WideString); override;
+    {$IF FPC_FULLVERSION >= 30101}
+    procedure WriteSignature; override;
+    {$ENDIF}
     {$IFDEF USE_NEW_READER_WRITER}
     procedure WriteUInt64(Value: QWord); override;
     procedure WriteUnicodeString(const Value: UnicodeString); override;
@@ -128,6 +131,9 @@ type
     function ReadStr: String; override;
     function ReadString(StringType: TValueType): String; override;
     function ReadWideString: WideString; override;
+    {$IF FPC_FULLVERSION >= 30101}
+    procedure ReadSignature; override;
+    {$ENDIF}
     {$IFDEF USE_NEW_READER_WRITER}
     function ReadUnicodeString: UnicodeString; override;
     {$ENDIF}
@@ -462,6 +468,12 @@ begin
   GetPropertyElement('widestring')['value'] := System.UTF8Encode(Value);
 end;
 
+{$IF FPC_FULLVERSION >= 30101}
+procedure TXMLObjectWriter.WriteSignature;
+begin
+end;
+{$ENDIF}
+
 {$IFDEF USE_NEW_READER_WRITER}
 procedure TXMLObjectWriter.WriteUInt64(Value: QWord);
 begin
@@ -1131,6 +1143,12 @@ begin
   //writeln('TXMLObjectReader.ReadWideString "',ValueAsUTF8,'"');
 end;
 
+{$IF FPC_FULLVERSION >= 30101}
+procedure TXMLObjectReader.ReadSignature;
+begin
+end;
+{$ENDIF}
+
 {$IFDEF USE_NEW_READER_WRITER}
 function TXMLObjectReader.ReadUnicodeString: UnicodeString;
 var