* self as var in non-object procvar

tests/tbs/tb0445.pp

@@ -0,0 +1,12 @@
+type
+  tproc = procedure(self:longint);
+
+procedure p(l:longint);
+begin
+end;
+
+var
+  pv : tproc;
+begin
+  pv:={$ifdef fpc}@{$endif}p;
+end.