* fixed mode objfpc

2025-08-18 23:49:07 +02:00 · 1999-05-31 21:41:14 +00:00 · 1999-05-31 21:41:14 +00:00 · a64b526adc
commit a64b526adc
parent 3db89ed4f1
8 changed files with 24 additions and 15 deletions
--- a/tests/tbs0139.pp
+++ b/tests/tbs0139.pp
@ -1,8 +1,10 @@
 unit tbs0139;

+{$mode objfpc}
+
 interface
 uses
-    objpas, tbs0139a;
+    tbs0139a;

 type
    AnotherClass=class(SomeClass)
--- a/tests/tbs0139a.pp
+++ b/tests/tbs0139a.pp
@ -1,9 +1,8 @@
 unit tbs0139a;

- interface
+{$mode objfpc}

- uses
-    objpas;
+ interface

 type
    SomeClass=class(TObject)
--- a/tests/tbs0212.pp
+++ b/tests/tbs0212.pp
@ -1,5 +1,7 @@
 program proptest;

+{$mode objfpc}
+
 type
  TMyRec = record
    Int: Integer;
--- a/tests/tbs0241.pp
+++ b/tests/tbs0241.pp
@ -1,4 +1,4 @@
-{$OPT= -Twin32}
+{ $OPT= -Twin32}

 program test_win32_drv;

--- a/tests/tbs0249.pp
+++ b/tests/tbs0249.pp
@ -1,5 +1,6 @@
 program TestEvent;

+{$mode objfpc}
 {$M+}

 type
--- a/tests/ts010000.pp
+++ b/tests/ts010000.pp
@ -1,3 +1,4 @@
+{$mode objfpc}
 type
   tobject1 = class
      readl : longint;
--- a/tests/ts010004.pp
+++ b/tests/ts010004.pp
@ -1,3 +1,5 @@
+{$mode objfpc}
+
 { tests forward class types }

 type
--- a/tests/ts010005.pp
+++ b/tests/ts010005.pp
@ -1,3 +1,5 @@
+{$mode objfpc}
+
 type
   tclass1 = class
      procedure a;virtual;