2
0
Эх сурвалжийг харах

* -Or option is not allowed for m68k cpu

pierre 22 жил өмнө
parent
commit
3ccb3973d3

+ 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.