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:
inoussa 2025-01-23 17:51:47 +00:00
parent 138c5bf720
commit c8133ba5ee

View File

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