object_serializer : Fill the array for tkMRecord and tkPointer.
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@9599 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
parent
138c5bf720
commit
c8133ba5ee
@ -1286,6 +1286,9 @@ var
|
||||
{$IFDEF WST_TKPROCEDURE}
|
||||
,( Simple : ErrorFunc; Qualified : ErrorFunc ;) //tkProcedure
|
||||
{$ENDIF WST_TKPROCEDURE}
|
||||
{$IFDEF WST_TKMRECORD}
|
||||
,( Simple : ErrorFunc; Qualified : ErrorFunc ;) //tkMRecord
|
||||
{$ENDIF WST_TKMRECORD}
|
||||
);
|
||||
|
||||
WriterInfoMap : array[TTypeKind] of TWriterInfo = (
|
||||
@ -1320,6 +1323,9 @@ var
|
||||
{$IFDEF WST_TKPROCEDURE}
|
||||
,( Simple : ErrorProc; Qualified : ErrorProc ;) //tkProcedure
|
||||
{$ENDIF WST_TKPROCEDURE}
|
||||
{$IFDEF WST_TKMRECORD}
|
||||
,( Simple : ErrorProc; Qualified : ErrorProc ;) //tkPointer
|
||||
{$ENDIF WST_TKMRECORD}
|
||||
);
|
||||
{$ENDIF WST_DELPHI}
|
||||
|
||||
|
Loading…
Reference in New Issue
Block a user