You've already forked lazarus-ccr
Delphi 2010 compatibility fix
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@1481 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
@ -1238,6 +1238,15 @@ var
|
|||||||
{$IFDEF WST_UNICODESTRING}
|
{$IFDEF WST_UNICODESTRING}
|
||||||
,( Simple : UnicodeStringReader; Qualified : UnicodeStringReaderQualified ;) //tkUString
|
,( Simple : UnicodeStringReader; Qualified : UnicodeStringReaderQualified ;) //tkUString
|
||||||
{$ENDIF WST_UNICODESTRING}
|
{$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 = (
|
WriterInfoMap : array[TTypeKind] of TWriterInfo = (
|
||||||
@ -1263,6 +1272,15 @@ var
|
|||||||
{$IFDEF WST_UNICODESTRING}
|
{$IFDEF WST_UNICODESTRING}
|
||||||
,( Simple : UnicodeStringWriter; Qualified : UnicodeStringWriterQualified ;) //tkUString
|
,( Simple : UnicodeStringWriter; Qualified : UnicodeStringWriterQualified ;) //tkUString
|
||||||
{$ENDIF WST_UNICODESTRING}
|
{$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}
|
{$ENDIF WST_DELPHI}
|
||||||
|
|
||||||
|
Reference in New Issue
Block a user