* fix #41007: only unlink typesyms from their typedefs when releasing an unused implicit specialization if the typesym was created for the implicit specialization

+ added test

compiler/pgenutil.pas

@@ -1335,7 +1335,7 @@ uses
           begin
             for k:=0 to callerparams.count-1 do
               begin
-                if tsym(callerparams[k]).typ=typesym then
+                if (tsym(callerparams[k]).typ=typesym) and (sp_generic_unnamed_type in ttypesym(callerparams[k]).symoptions) then
                   ttypesym(callerparams[k]).typedef.typesym:=nil;
               end;
           end;

tests/webtbs/tw41007.pp

@@ -0,0 +1,23 @@
+{ %NORUN }
+
+program tw41007;
+
+{$mode delphi}
+{$modeswitch implicitfunctionspecialization}
+
+uses
+  uw41007;
+
+  procedure Test(A: string; B: string); overload;
+  begin
+  end;
+
+  procedure Test<T>; overload;
+  begin
+
+  end;
+
+begin
+  Test('aa', 'bb');
+end.
+

tests/webtbs/uw41007.pp

@@ -0,0 +1,17 @@
+unit uw41007;
+
+{$mode delphi}
+
+interface
+
+procedure Test<T>(A: T); overload;
+
+implementation
+
+procedure Test<T>(A: T);
+begin
+
+end;
+
+end.
+