[Rtti] Invoke (ffi.manager implemention) and records as arguments
## Summary
ffi.manager have a few bugs around passing records as arguments
for example
```pascal
program project1;
{$mode delphi}
{$H+} {$M+}
{$RTTI EXPLICIT METHODS([vcPublished]) PROPERTIES([vcPublished]) FIELDS([vcPublished])}
uses
SysUtils, TypInfo, Rtti, ffi.manager;
type
TRec2 = record
P: Pointer;
Intf: IUnknown;
B: Byte;
end;
type
{ TMyObj }
TMyObj = class
strict private
FStr: string;
public
constructor Create;
published
procedure Test2Const(const ARec: TRec2); //you get garbage in ARec
end;
var
ErrorCount: Integer;
procedure Check(ACondition: boolean; const AMessage: string);
begin
if not ACondition then
begin
WriteLn('ERROR: ' + AMessage);
INc(ErrorCount);
end;
end;
var
Intf: IUnknown;
{ TMyObj }
constructor TMyObj.Create;
begin
FStr := '123';
end;
procedure TMyObj.Test2Const(const ARec: TRec2);
begin
Check(FStr = '123', 'Test2Const: Self is broken');
Check(ARec.Intf = Intf, 'Test2Const: ARec is broken');
Check(ARec.B = 59, 'Test2Const: ARec is broken');
end;
procedure ZeroRecord(var Rec; ATypeInfo: PTypeInfo);
begin
FinalizeArray(@Rec, ATypeInfo, 1);
FillChar(Rec, GetTypeData(ATypeInfo).RecSize, 0);
end;
var
O: TMyObj;
Context: TRttiContext;
R2: TRec2;
begin
O := TMyObj.Create;
Intf := TInterfacedObject.Create;
try
Context := TRttiContext.Create;
try
R2.Intf := Intf;
R2.B := 59;
Context.GetType(TMyObj).GetMethod('Test2Const').Invoke(O, [TValue.From<TRec2>(R2)]);
finally
Context.Free; O.Free;
end;
if ErrorCount > 0 then
Halt(ErrorCount);
WriteLn('OK');
except
on E: Exception do
begin
WriteLn(E.ClassName + ': ' + E.Message);
Halt(1);
end;
end;
end.
```
## System Information
<!-- The more information are provided the easier it is to replicate the bug -->
- **Operating system:** Linux
- **Processor architecture:** x86-64
- **Compiler version:** trunk
## Steps to reproduce
patch and full test be added in next commit
issue