* 20 and 29 revisited

tests/tbf0029.pp

@@ -0,0 +1,12 @@
+type
+  TA = object
+  end;
+
+var
+   P: Pointer;
+
+begin
+   { must fail on compilation because 
+     TA has no VMT }
+   P := pointer(TypeOf(TA));
+end.

tests/tbs0020.pp

@@ -1,7 +1,9 @@
 { this program need GPM !! }
 
+{$ifdef linux}
 uses
   Gpm;
+{$endif def linux}
 
 var
   Conn: TGPMConnect;
@@ -25,4 +27,7 @@ begin
     end;
   end;
   GPM_Close;
+{$else def linux}
+begin
+{$endif def linux}
 end.

tests/tbs0029.pp

@@ -1,7 +1,17 @@
 type
   TA = object
+    constructor init;
+    procedure test;virtual;
   end;
 
+  constructor TA.init;
+    begin
+    end;
+
+  procedure TA.test;
+    begin
+    end;
+
 var
    P: Pointer;