paweld/lazarus-ccr
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

FPC 2.7.1 compatibility.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@2969 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
inoussa 2014-04-25 19:03:45 +00:00
parent 8a10de6ab5
commit 96b63bb1ad
2 changed files with 23 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
wst/trunk/object_serializer.pas
View File

@ -1179,6 +1179,15 @@ var
{$IFDEF WST_TKHELPER}
,( Simple : @ErrorFunc; Qualified : @ErrorFunc ;) //tkHelper
{$ENDIF WST_TKHELPER}
{$IFDEF WST_TKFILE}
,( Simple : @ErrorFunc; Qualified : @ErrorFunc ;) //tkFile
{$ENDIF WST_TKFILE}
{$IFDEF WST_TKCLASSREF}
,( Simple : @ErrorFunc; Qualified : @ErrorFunc ;) //tkClassRef
{$ENDIF WST_TKCLASSREF}
{$IFDEF WST_TKPOINTER}
,( Simple : @ErrorFunc; Qualified : @ErrorFunc ;) //tkPointer
{$ENDIF WST_TKPOINTER}
);
WriterInfoMap : array[TTypeKind] of TWriterInfo = (
@ -1216,6 +1225,15 @@ var
{$IFDEF WST_TKHELPER}
,( Simple : @ErrorProc; Qualified : @ErrorProc ;) //tkHelper
{$ENDIF WST_TKHELPER}
{$IFDEF WST_TKFILE}
,( Simple : @ErrorProc; Qualified : @ErrorProc ;) //tkFile
{$ENDIF WST_TKFILE}
{$IFDEF WST_TKCLASSREF}
,( Simple : @ErrorProc; Qualified : @ErrorProc ;) //tkClassRef
{$ENDIF WST_TKCLASSREF}
{$IFDEF WST_TKPOINTER}
,( Simple : @ErrorProc; Qualified : @ErrorProc ;) //tkPointer
{$ENDIF WST_TKPOINTER}
);
{$ENDIF FPC}

5
wst/trunk/wst_global.inc
View File

@ -62,6 +62,11 @@
{$IF Defined(FPC_FULLVERSION) and (FPC_FULLVERSION > 20602) }
{$DEFINE HAS_EXP_TREE}
{$IFEND}
{$IF Defined(FPC_FULLVERSION) and (FPC_FULLVERSION >= 20701) }
{$DEFINE WST_TKFILE}
{$DEFINE WST_TKCLASSREF}
{$DEFINE WST_TKPOINTER}
{$IFEND}
{$ENDIF}
{$IFNDEF FPC}