* popstack missing in implementatio

tests/tbf/tb0153.pp

@@ -0,0 +1,16 @@
+{ %fail }
+
+{$mode objfpc}
+
+type
+  tcl=class
+    procedure m1;popstack;
+  end;
+  
+procedure tcl.m1;
+begin
+end;
+
+begin
+end.
+