From 1ba130c8c4f8287dd53c7382d9598e873f05cfa8 Mon Sep 17 00:00:00 2001
From: inoussa <inoussa@8e941d3f-bd1b-0410-a28a-d453659cc2b4>
Date: Wed, 2 Feb 2011 15:31:32 +0000
Subject: [PATCH] Delphi 2010 compatibility fix

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@1481 8e941d3f-bd1b-0410-a28a-d453659cc2b4
---
 wst/trunk/object_serializer.pas | 18 ++++++++++++++++++
 1 file changed, 18 insertions(+)

diff --git a/wst/trunk/object_serializer.pas b/wst/trunk/object_serializer.pas
index 7cabb6cba..9a04b5543 100644
--- a/wst/trunk/object_serializer.pas
+++ b/wst/trunk/object_serializer.pas
@@ -1238,6 +1238,15 @@ var
 {$IFDEF WST_UNICODESTRING}
      ,( Simple : UnicodeStringReader; Qualified : UnicodeStringReaderQualified ;)  //tkUString
 {$ENDIF WST_UNICODESTRING}
+{$IFDEF WST_TKCLASSREF}
+     ,( Simple : ErrorFunc; Qualified : ErrorFunc ;)  //tkClassRef
+{$ENDIF WST_TKCLASSREF}
+{$IFDEF WST_TKPOINTER}
+     ,( Simple : ErrorFunc; Qualified : ErrorFunc ;)  //tkPointer
+{$ENDIF WST_TKPOINTER}
+{$IFDEF WST_TKPROCEDURE}
+     ,( Simple : ErrorFunc; Qualified : ErrorFunc ;)  //tkProcedure
+{$ENDIF WST_TKPROCEDURE}
     );
 
     WriterInfoMap : array[TTypeKind] of TWriterInfo = (
@@ -1263,6 +1272,15 @@ var
 {$IFDEF WST_UNICODESTRING}
      ,( Simple : UnicodeStringWriter; Qualified : UnicodeStringWriterQualified ;)  //tkUString
 {$ENDIF WST_UNICODESTRING}
+{$IFDEF WST_TKCLASSREF}
+     ,( Simple : ErrorProc; Qualified : ErrorProc ;)  //tkClassRef
+{$ENDIF WST_TKCLASSREF}
+{$IFDEF WST_TKPOINTER}
+     ,( Simple : ErrorProc; Qualified : ErrorProc ;)  //tkPointer
+{$ENDIF WST_TKPOINTER}
+{$IFDEF WST_TKPROCEDURE}
+     ,( Simple : ErrorProc; Qualified : ErrorProc ;)  //tkProcedure
+{$ENDIF WST_TKPROCEDURE}
     );
 {$ENDIF WST_DELPHI}