paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-04 18:10:26 +02:00
Code Issues Packages Projects Releases Wiki Activity

Fix msdos compilation failure by using CodePointer type for GetCodeAddress TRttiRecordMethod function

Browse Source
This commit is contained in:
Pierre Muller 2024-02-19 09:37:29 +01:00
parent c9888f9774
commit 71a46465c8
1 changed files with 2 additions and 2 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

@ -1245,7 +1245,7 @@ type
function GetDispatchKind: TDispatchKind; override;
function GetMethodKind: TMethodKind; override;
function GetHasExtendedInfo: Boolean; override;
function GetCodeAddress: Pointer; override;
function GetCodeAddress: CodePointer; override;
function GetIsClassMethod: Boolean; override;
function GetIsStatic: Boolean; override;
function GetVisibility: TMemberVisibility; override;
@ -6998,7 +6998,7 @@ begin
Result:=False
end;
function TRttiRecordMethod.GetCodeAddress: Pointer;
function TRttiRecordMethod.GetCodeAddress: CodePointer;
begin
Result := Nil;
end;