fcl-passrc: fixed function type inside function

git-svn-id: trunk@35863 -

packages/fcl-passrc/src/pasresolver.pp

@@ -5923,6 +5923,7 @@ end;
 procedure TPasResolver.AddFunctionResult(El: TPasResultElement);
 begin
   if TopScope.ClassType<>TPasProcedureScope then exit;
+  if not (El.Parent is TPasProcedure) then exit;
   AddIdentifier(TPasProcedureScope(TopScope),ResolverResultVar,El,pikSimple);
 end;
 

packages/fcl-passrc/tests/tcresolver.pas

@@ -542,6 +542,7 @@ type
     Procedure TestProcType_Property;
     Procedure TestProcType_PropertyCallWrongArgFail;
     Procedure TestProcType_Typecast;
+    Procedure TestProcType_InsideFunction;
 
     // pointer
     Procedure TestPointer;
@@ -8894,6 +8895,22 @@ begin
   ParseProgram;
 end;
 
+procedure TTestResolver.TestProcType_InsideFunction;
+begin
+  StartProgram(false);
+  Add([
+  'function GetIt: longint;',
+  'type TGetter = function: longint;',
+  'var',
+  '  p: Pointer;',
+  'begin',
+  '  Result:=TGetter(p)();',
+  'end;',
+  'begin',
+  '']);
+  ParseProgram;
+end;
+
 procedure TTestResolver.TestPointer;
 begin
   StartProgram(false);