Browse Source

* -Or option is not allowed for m68k cpu

pierre 22 years ago
parent
commit
3ccb3973d3
2 changed files with 6 additions and 1 deletions
  1. 3 0
      tests/webtbs/tw0934.pp
  2. 3 1
      tests/webtbs/tw2110.pp

+ 3 - 0
tests/webtbs/tw0934.pp

@@ -1,4 +1,7 @@
 { %OPT=-Or }
 { %OPT=-Or }
+{ %CPU=i386 }
+{ -Or option is not recognized by m68k compiler }
+
 {$mode objfpc}
 {$mode objfpc}
  Type
  Type
       t = class(TObject)
       t = class(TObject)

+ 3 - 1
tests/webtbs/tw2110.pp

@@ -1,4 +1,6 @@
 { %OPT=-Or }
 { %OPT=-Or }
+{ %CPU=i386 }
+{ m68k compiler does not recognize -Or option }
 { Source provided for Free Pascal Bug Report 2110 }
 { Source provided for Free Pascal Bug Report 2110 }
 { Submitted by "Alex" on  2002-09-05 }
 { Submitted by "Alex" on  2002-09-05 }
 { e-mail: [email protected] }
 { e-mail: [email protected] }
@@ -51,4 +53,4 @@ BEGIN
     Halt(1);
     Halt(1);
   end;
   end;
   WriteLn('Ok!');   
   WriteLn('Ok!');   
-END.
+END.