* helper unit

tests/webtbs/uw2953.pp

@@ -0,0 +1,12 @@
+unit uw2953;
+{$mode Delphi}
+
+interface
+
+type
+     aclasswithfields = class
+                          protected
+                            field1:integer;
+                            end;
+implementation
+end.