* fix #41063: don't add classrefdefs or objectdefs to the WPOInfo if they are declared locally (e.g. capturer instances)

+ added test

compiler/symdef.pas

@@ -8724,7 +8724,8 @@ implementation
         if not classref_created_in_current_module then
           begin
             classref_created_in_current_module:=true;
-            current_module.wpoinfo.addcreatedobjtypeforclassref(self);
+            if not (owner.symtabletype in [localsymtable]) then
+              current_module.wpoinfo.addcreatedobjtypeforclassref(self);
           end;
       end;
 
@@ -8734,7 +8735,8 @@ implementation
         if not created_in_current_module then
           begin
             created_in_current_module:=true;
-            current_module.wpoinfo.addcreatedobjtype(self);
+            if not (owner.symtabletype in [localsymtable]) then
+              current_module.wpoinfo.addcreatedobjtype(self);
           end;
       end;
 

tests/webtbs/tw41063.pp

@@ -0,0 +1,11 @@
+{ %wpoparas=optvmts }
+{ %wpopasses=1 }
+
+program tw41063;
+{$mode objfpc}{$h+}
+
+uses uw41063;
+
+begin
+end.
+

tests/webtbs/uw41063.pp

@@ -0,0 +1,22 @@
+unit uw41063;
+
+{$mode objfpc}{$h+}
+{$modeswitch functionreferences}
+
+interface
+
+type
+  TMyClass = class
+    FProcRef: reference to procedure;
+    procedure proc;
+  end;
+
+implementation
+
+procedure TMyClass.proc;
+begin
+  FProcRef := @proc;
+end;
+
+end.
+