pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

Delphi 2010 compatibility fix

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@1481 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
inoussa
2011-02-02 15:31:32 +00:00
parent 489e76849b
commit 1ba130c8c4
1 changed files with 18 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

18
wst/trunk/object_serializer.pas
View File

@ -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}