Explorar o código

* added missing unit

peter %!s(int64=21) %!d(string=hai) anos
pai
achega
7b3a982819
Modificáronse 2 ficheiros con 13 adicións e 1 borrados
  1. 1 1
      tests/webtbs/tw2956.pp
  2. 12 0
      tests/webtbs/uw2956.pp

+ 1 - 1
tests/webtbs/tw2956.pp

@@ -4,7 +4,7 @@
 
 program something;
 {$mode Delphi}
-Uses altunit;
+Uses uw2956;
 
 type
      localclassfields = class(aclasswithfields)

+ 12 - 0
tests/webtbs/uw2956.pp

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