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

Fix for the procedure signature to have an parent object and the parameters share the same parent value.

Browse Source
This commit is contained in:
Henrique Gottardi Werlang 2025-03-20 17:58:43 -03:00
parent ca98c509f8
commit 25e86f9afe
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
packages/rtl/src/rtti.pas
View File

@ -243,7 +243,7 @@ type
procedure LoadFlags;
procedure LoadParameters;
public
constructor Create(const Signature: TProcedureSignature);
constructor Create(const Parent: TRttiObject; const Signature: TProcedureSignature);
class function Invoke(const Instance: TValue; const Args: array of TValue): TValue;
@ -2217,7 +2217,7 @@ end;
function TRttiMethod.GetProcedureSignature: TRttiProcedureSignature;
begin
if not Assigned(FProcedureSignature) then
FProcedureSignature := TRttiProcedureSignature.Create(MethodTypeInfo.ProcSig);
FProcedureSignature := TRttiProcedureSignature.Create(Self, MethodTypeInfo.ProcSig);
Result := FProcedureSignature;
end;
@ -2862,9 +2862,9 @@ end;
{ TRttiProcedureSignature }
constructor TRttiProcedureSignature.Create(const Signature: TProcedureSignature);
constructor TRttiProcedureSignature.Create(const Parent: TRttiObject; const Signature: TProcedureSignature);
begin
inherited Create(nil, Signature);
inherited Create(Parent, Signature);
FReturnType := Pool.GetType(Signature.ResultType);
@ -2917,7 +2917,7 @@ begin
for A := Low(FParameters) to High(FParameters) do
begin
Param := MethodParams[A];
RttiParam := TRttiParameter.Create(Self, Param);
RttiParam := TRttiParameter.Create(Parent, Param);
RttiParam.FName := Param.Name;
RttiParam.FParamType := Pool.GetType(Param.TypeInfo);