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

* fix compilation on i8086 where depending on the memory type code and data pointers may be different (Note: this does not mean that the code works as the RTTI data generated by the compiler does not seem valid either)

Browse Source
This commit is contained in:
Sven/Sarah Barth 2024-12-29 18:41:02 +01:00
parent e30ca27914
commit 4aed151833
1 changed files with 5 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -7390,7 +7390,12 @@ var
begin begin
case (FPropInfo^.PropProcs shr 2) and 3 of case (FPropInfo^.PropProcs shr 2) and 3 of
ptField: ptField:
{$ifdef cpu8086}
{ convert to the correct pointer type }
AValue.Cast(FPropInfo^.PropType).ExtractRawData(PPointer(@(FPropInfo^.SetProc))^);
{$else}
AValue.Cast(FPropInfo^.PropType).ExtractRawData(FPropInfo^.SetProc); AValue.Cast(FPropInfo^.PropType).ExtractRawData(FPropInfo^.SetProc);
{$endif}
ptStatic, ptStatic,
ptVirtual: ptVirtual:
begin begin