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

rtl: added TRttiMethod.GetIsAsyncCall, issue 38803, from henrique

Browse Source
This commit is contained in:
mattias 2021-04-26 21:06:10 +00:00
parent 0e5b285b1d
commit 173ddc874b
1 changed files with 54 additions and 23 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

77
packages/rtl/rtti.pas
View File

@ -166,28 +166,33 @@ type
private
FParameters: TRttiParameterArray;
function GetMethodTypeInfo: TTypeMemberMethod;
function GetIsClassMethod: boolean;
function GetIsConstructor: boolean;
function GetIsDestructor: boolean;
function GetIsExternal: boolean;
function GetIsStatic: boolean;
function GetIsVarArgs: boolean;
function GetIsAsyncCall: Boolean;
function GetIsClassMethod: Boolean;
function GetIsConstructor: Boolean;
function GetIsDestructor: Boolean;
function GetIsExternal: Boolean;
function GetIsSafeCall: Boolean;
function GetIsStatic: Boolean;
function GetIsVarArgs: Boolean;
function GetMethodKind: TMethodKind;
function GetMethodTypeInfo: TTypeMemberMethod;
function GetProcedureFlags: TProcedureFlags;
function GetReturnType: TRttiType;
procedure LoadParameters;
public
function GetParameters: TRttiParameterArray;
property IsAsyncCall: Boolean read GetIsAsyncCall;
property IsClassMethod: Boolean read GetIsClassMethod;
property IsConstructor: Boolean read GetIsConstructor;
property IsDestructor: Boolean read GetIsDestructor;
property IsExternal: Boolean read GetIsExternal;
property IsSafeCall: Boolean read GetIsSafeCall;
property IsStatic: Boolean read GetIsStatic;
property MethodKind: TMethodKind read GetMethodKind;
property MethodTypeInfo: TTypeMemberMethod read GetMethodTypeInfo;
property ReturnType: TRttiType read GetReturnType;
property MethodKind: TMethodKind read GetMethodKind;
property IsConstructor: boolean read GetIsConstructor;
property IsDestructor: boolean read GetIsDestructor;
property IsClassMethod: boolean read GetIsClassMethod;
property IsExternal: boolean read GetIsExternal;
property IsStatic: boolean read GetIsStatic;// true = has Self argument
property IsVarArgs: boolean read GetIsVarArgs;
end;
TRttiMethodArray = specialize TArray<TRttiMethod>;
@ -1321,34 +1326,44 @@ begin
Result := TTypeMemberMethod(FTypeInfo);
end;
function TRttiMethod.GetIsClassMethod: boolean;
function TRttiMethod.GetIsClassMethod: Boolean;
begin
Result:=MethodTypeInfo.MethodKind in [mkClassFunction,mkClassProcedure];
end;
function TRttiMethod.GetIsConstructor: boolean;
function TRttiMethod.GetIsConstructor: Boolean;
begin
Result:=MethodTypeInfo.MethodKind=mkConstructor;
end;
function TRttiMethod.GetIsDestructor: boolean;
function TRttiMethod.GetIsDestructor: Boolean;
begin
Result:=MethodTypeInfo.MethodKind=mkDestructor;
end;
function TRttiMethod.GetIsExternal: boolean;
function TRttiMethod.GetIsExternal: Boolean;
begin
Result:=(MethodTypeInfo.ProcSig.Flags and 4)>0; // pfExternal
Result := pfExternal in GetProcedureFlags;
end;
function TRttiMethod.GetIsStatic: boolean;
function TRttiMethod.GetIsStatic: Boolean;
begin
Result:=(MethodTypeInfo.ProcSig.Flags and 1)>0; // pfStatic
Result := pfStatic in GetProcedureFlags;
end;
function TRttiMethod.GetIsVarArgs: boolean;
function TRttiMethod.GetIsVarArgs: Boolean;
begin
Result:=(MethodTypeInfo.ProcSig.Flags and 2)>0; // pfVarargs
Result := pfVarargs in GetProcedureFlags;
end;
function TRttiMethod.GetIsAsyncCall: Boolean;
begin
Result := pfAsync in GetProcedureFlags;
end;
function TRttiMethod.GetIsSafeCall: Boolean;
begin
Result := pfSafeCall in GetProcedureFlags;
end;
function TRttiMethod.GetMethodKind: TMethodKind;
@ -1356,6 +1371,22 @@ begin
Result:=MethodTypeInfo.MethodKind;;
end;
function TRttiMethod.GetProcedureFlags: TProcedureFlags;
const
PROCEDURE_FLAGS: array of NativeInt = (1, 2, 4, 8, 16);
var
Flag, ProcedureFlags: NativeInt;
begin
ProcedureFlags := MethodTypeInfo.ProcSig.Flags;
Result := [];
for Flag := Low(PROCEDURE_FLAGS) to High(PROCEDURE_FLAGS) do
if PROCEDURE_FLAGS[Flag] and ProcedureFlags > 0 then
Result := Result + [TProcedureFlag(Flag)];
end;
function TRttiMethod.GetReturnType: TRttiType;
begin
Result := GRttiContext.GetType(MethodTypeInfo.ProcSig.ResultType);