no message

tests/tbs/tb0484.pp

@@ -0,0 +1,8 @@
+type
+  r = record
+    p : procedure stdcall;
+    i : longint;
+  end;
+
+begin
+end.