paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-14 13:09:22 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fix compilation on systems where SizeOf(CodePointer) <> SizeOf(Pointer): disable ToString for tkMethod on these systems for now

Browse Source
This commit is contained in:
Sven/Sarah Barth 2024-11-04 21:59:50 +01:00
parent cce871258e
commit f70a430b6f
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
packages/rtl-objpas/src/inc/rtti.pp
View File

@ -4125,7 +4125,11 @@ begin
else else
Result:='<Nil>'; Result:='<Nil>';
end; end;
{$IF SIZEOF(POINTER) = SIZEOF(CODEPOINTER)}
{ if CodePointer is not the same as Pointer then it currently can't be
passed onto a array of const }
tkMethod: Result := Format('(method code=%p, data=%p)', [FData.FAsMethod.Code, FData.FAsMethod.Data]); tkMethod: Result := Format('(method code=%p, data=%p)', [FData.FAsMethod.Code, FData.FAsMethod.Data]);
{$ENDIF}
else else
result := '<unknown kind: '+GetEnumName(System.TypeInfo(TTypeKind),Ord(Kind))+'>'; result := '<unknown kind: '+GetEnumName(System.TypeInfo(TTypeKind),Ord(Kind))+'>';
end; end;