FPC 2.5.1 compatibility support(tkHelper handling)

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@1674 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
inoussa
2011-06-14 10:46:00 +00:00
parent 93a56f6f08
commit b4f37d07e4
2 changed files with 9 additions and 2 deletions

View File

@@ -1176,6 +1176,9 @@ var
,( Simple : @UnicodeStringReader; Qualified : @UnicodeStringReaderQualified ;) //tkUString
,( Simple : @ErrorFunc; Qualified : @ErrorFunc ;) //tkUChar
{$ENDIF WST_UNICODESTRING}
{$IFDEF WST_TKHELPER}
,( Simple : @ErrorFunc; Qualified : @ErrorFunc ;) //tkHelper
{$ENDIF WST_TKHELPER}
);
WriterInfoMap : array[TTypeKind] of TWriterInfo = (
@@ -1210,7 +1213,9 @@ var
,( Simple : @UnicodeStringWriter; Qualified : @UnicodeStringWriterQualified ;) //tkUString
,( Simple : @ErrorProc; Qualified : @ErrorProc ;) //tkUChar
{$ENDIF WST_UNICODESTRING}
{$IFDEF WST_TKHELPER}
,( Simple : @ErrorProc; Qualified : @ErrorProc ;) //tkHelper
{$ENDIF WST_TKHELPER}
);
{$ENDIF FPC}