+ added

tests/webtbs/tw3395.pp

@@ -0,0 +1,29 @@
+program bug3395;
+
+{$MODE DELPHI}
+{$THREADING ON}
+
+type
+  texec1 = class
+    protected
+      procedure execute;
+    public
+      constructor create;
+  end;
+
+  procedure t(p: pointer);
+    begin
+    end;
+
+  constructor texec1.Create;
+    begin
+      t(@execute);
+    end;
+  
+  procedure texec1.execute;
+    begin
+    end;
+  
+begin
+end.
+