paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-16 17:19:32 +02:00
Code Issues Packages Projects Releases Wiki Activity

passrc: test issue 39216

Browse Source
This commit is contained in:
mattias 2023-05-12 22:21:07 +02:00
parent d96f9b8059
commit 6ec8c9e2a2
1 changed files with 39 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

39
packages/pastojs/tests/tcgenerics.pas
View File

@ -82,6 +82,7 @@ type
procedure TestGenMethod_ImplicitSpec_ObjFPC;
procedure TestGenMethod_Delphi;
procedure TestGenMethod_Overload_Delphi;
procedure TestGenMethod_ParamProcVar_Forward_Issue39216;
// generic array
procedure TestGen_Array_OtherUnit;
@ -2581,6 +2582,44 @@ begin
'']));
end;
procedure TTestGenerics.TestGenMethod_ParamProcVar_Forward_Issue39216;
begin
StartProgram(false);
Add([
'{$mode delphi}',
'{$modeswitch externalclass}',
'type',
' TMyProc<T> = reference to procedure(Arg: T);',
' TMyClass = class;',
' TMyClassArray = array of TMyClass;',
' TMyClass = class external name ''MyClass''',
' public',
' procedure MyProc<T>(MyProcVar: TMyProc<T>);',
' end;',
'procedure Fly(w: word);',
'begin',
'end;',
'var',
' p: TMyProc<word>;',
' e: TMyClass;',
'begin',
' e.MyProc<word>(p);',
' e.MyProc<word>(@Fly);',
'']);
ConvertProgram;
CheckSource('TestGenMethod_ParamProcVar_Forward_Issue39216',
LinesToStr([ // statements
'this.Fly = function (w) {',
'};',
'this.p = null;',
'this.e = null;',
'']),
LinesToStr([ // $mod.$main
'$mod.e.MyProc($mod.p);',
'$mod.e.MyProc($mod.Fly);',
'']));
end;
procedure TTestGenerics.TestGen_Array_OtherUnit;
begin
WithTypeInfo:=true;