* fix #40979: don't recurse further into the nested hierarchy for code generation if the function is generic

+ added test

compiler/psub.pas

@@ -1624,7 +1624,8 @@ implementation
         hpi:=tcgprocinfo(get_first_nestedproc);
         while assigned(hpi) do
           begin
-            hpi.generate_code_tree;
+            if not (df_generic in hpi.procdef.defoptions) then
+              hpi.generate_code_tree;
             hpi:=tcgprocinfo(hpi.next);
           end;
         resetprocdef;

tests/webtbs/tw40979.pp

@@ -0,0 +1,26 @@
+program tw40979;
+{$mode ObjFPC}
+
+procedure AddGroup(out aArg: Integer);
+
+  generic procedure Add<T>(const X : T; const Y : T; out Z : T);
+  begin
+    Z:=X+Y;
+  end;
+
+  var
+    R : integer;
+
+  begin
+    specialize Add<integer>(4,5,R);
+    aArg := R;
+  end;
+
+var
+   r : integer;
+begin
+   AddGroup(r);
+   if r <> 9 then
+     Halt(1);
+end.
+