diff options
Diffstat (limited to 'packages/fcl-passrc/tests/tcresolvegenerics.pas')
| -rw-r--r-- | packages/fcl-passrc/tests/tcresolvegenerics.pas | 6 |
1 files changed, 2 insertions, 4 deletions
diff --git a/packages/fcl-passrc/tests/tcresolvegenerics.pas b/packages/fcl-passrc/tests/tcresolvegenerics.pas index bf0e95dc5e..db692e4358 100644 --- a/packages/fcl-passrc/tests/tcresolvegenerics.pas +++ b/packages/fcl-passrc/tests/tcresolvegenerics.pas @@ -157,7 +157,7 @@ type procedure TestGenProc_TypeParamCntOverloadNoParams; procedure TestGenProc_TypeParamWithDefaultParamDelphiFail; procedure TestGenProc_ParamSpecWithT; - procedure TestGenProc_ParamSpecWithTNestedType; // ToDo + procedure TestGenProc_ParamSpecWithTNestedType; // ToDo: NestedResultAssign // generic function infer types @@ -2557,8 +2557,6 @@ end; procedure TTestResolveGenerics.TestGenProc_ParamSpecWithTNestedType; begin - exit; - StartProgram(false); Add([ '{$mode delphi}', @@ -2578,7 +2576,7 @@ begin 'var', ' Bird: TBird<TObject>;', 'begin', - ' Fly<TObject>(Run,Bird);', + ' Fly<TObject>(@Run,Bird);', '']); ParseProgram; end; |