* exit(procvar) in tp mode

tests/webtbs/tw2277.pp

@@ -0,0 +1,14 @@
+{$mode tp}
+
+type
+  tproc=procedure;
+var
+  p : tproc;
+
+function f:tproc;
+begin
+  exit(p);
+end;
+
+begin
+end.