* fixed mode objfpc

tests/tbs0139.pp

@@ -1,17 +1,19 @@
 unit tbs0139;
- 
+
+{$mode objfpc}
+
  interface
  uses
-    objpas, tbs0139a;
- 
+    tbs0139a;
+
  type
     AnotherClass=class(SomeClass)
     protected
     procedure doSomething; override;
     end ;
- 
+
  implementation
- 
+
  procedure AnotherClass.doSomething;
  begin
  inherited doSomething;  // this causes the error: " can not call protected

tests/tbs0139a.pp

@@ -1,19 +1,18 @@
  unit tbs0139a;
- 
+
+{$mode objfpc}
+
  interface
- 
- uses
-    objpas;
- 
+
  type
     SomeClass=class(TObject)
     protected
     procedure doSomething; virtual;
     end ;
- 
+
  implementation
- 
- 
+
+
  procedure SomeClass.doSomething;
  begin
    Writeln ('Hello from SomeClass.DoSomething');

tests/tbs0212.pp

@@ -1,5 +1,7 @@
 program proptest;
 
+{$mode objfpc}
+
 type
   TMyRec = record
     Int: Integer;

tests/tbs0241.pp

@@ -1,4 +1,4 @@
-{$OPT= -Twin32}
+{ $OPT= -Twin32}
 
 program test_win32_drv;
 

tests/tbs0249.pp

@@ -1,5 +1,6 @@
 program TestEvent;
 
+{$mode objfpc}
 {$M+}
 
 type
@@ -33,7 +34,7 @@ end;
 
 procedure THost.SetOnEvent( Value: TNotifyEvent );
 begin
-  FOnEvent := Value             
+  FOnEvent := Value
 end;
 
 procedure THost.SayHello;

tests/ts010000.pp

@@ -1,3 +1,4 @@
+{$mode objfpc}
 type
    tobject1 = class
       readl : longint;

tests/ts010004.pp

@@ -1,3 +1,5 @@
+{$mode objfpc}
+
 { tests forward class types }
 
 type

tests/ts010005.pp

@@ -1,3 +1,5 @@
+{$mode objfpc}
+
 type
    tclass1 = class
       procedure a;virtual;