* fix #40410: allow specialization of a procdef also inside exception handlers + added test

compiler/pexpr.pas

@@ -4485,7 +4485,7 @@ implementation
               end;
             procdef:
               begin
-                if block_type<>bt_body then
+                if not (block_type in [bt_body,bt_except]) then
                   begin
                     message(parser_e_illegal_expression);
                     gensym:=generrorsym;

tests/webtbs/tw40410.pp

@@ -0,0 +1,21 @@
+{ %NORUN }
+
+program tw40410;
+
+{$mode delphi}
+
+procedure _Test0<T>(const AParam: T);
+begin
+end;
+
+procedure _Test<T>(const AValue1, AValue2: T);
+begin
+  try
+    _Test0<T>(AValue1);
+  except
+    _Test0<T>(AValue2);
+  end;
+end;
+
+begin
+end.