From 41f23fbc55c914d34e95e68968260221bc92caf5 Mon Sep 17 00:00:00 2001
From: carl <carl@freepascal.org>
Date: Wed, 9 Oct 2002 16:56:46 +0000
Subject: [PATCH]   * some cpu specific tests not run under other CPU's

---
 tests/webtbf/tw2053.pp  | 6 +++++-
 tests/webtbs/tw0555.pp  | 1 +
 tests/webtbs/tw0735.pp  | 1 +
 tests/webtbs/tw0736.pp  | 1 +
 tests/webtbs/tw0761.pp  | 1 +
 tests/webtbs/tw0797a.pp | 1 +
 tests/webtbs/tw0848.pp  | 1 +
 tests/webtbs/tw0892.pp  | 1 +
 tests/webtbs/tw0893.pp  | 1 +
 tests/webtbs/tw0925.pp  | 1 +
 tests/webtbs/tw0932.pp  | 1 +
 tests/webtbs/tw0944.pp  | 1 +
 tests/webtbs/tw1023.pp  | 1 +
 tests/webtbs/tw1066a.pp | 1 +
 tests/webtbs/tw1066b.pp | 1 +
 tests/webtbs/tw1090.pp  | 1 +
 tests/webtbs/tw1117.pp  | 1 +
 tests/webtbs/tw1122.pp  | 1 +
 tests/webtbs/tw1157.pp  | 1 +
 19 files changed, 23 insertions(+), 1 deletion(-)

diff --git a/tests/webtbf/tw2053.pp b/tests/webtbf/tw2053.pp
index 4da09ec6de..1ea2c9076d 100644
--- a/tests/webtbf/tw2053.pp
+++ b/tests/webtbf/tw2053.pp
@@ -1,3 +1,4 @@
+{ %FAIL }
 { Source provided for Free Pascal Bug Report 2053 }
 { Submitted by "Luis Castedo" on  2002-07-24 }
 { e-mail: castedo@elai.upm.es }
@@ -38,7 +39,10 @@ end.
 
 {
    $Log$
-   Revision 1.1  2002-09-27 21:09:56  carl
+   Revision 1.2  2002-10-09 16:56:46  carl
+     * some cpu specific tests not run under other CPU's
+
+   Revision 1.1  2002/09/27 21:09:56  carl
      + new bug report
 
 }
\ No newline at end of file
diff --git a/tests/webtbs/tw0555.pp b/tests/webtbs/tw0555.pp
index d73249aeca..d09d07722e 100644
--- a/tests/webtbs/tw0555.pp
+++ b/tests/webtbs/tw0555.pp
@@ -1,3 +1,4 @@
+{ %CPU=i386 }
 { FPC behaves interestingly once encountered virtual method
  declared as
   procedure TWhateverObject.Method1; assembler; asm ... end;
diff --git a/tests/webtbs/tw0735.pp b/tests/webtbs/tw0735.pp
index 67583dfb00..6adf70e462 100644
--- a/tests/webtbs/tw0735.pp
+++ b/tests/webtbs/tw0735.pp
@@ -1,3 +1,4 @@
+{ %CPU=i386 }
 {$asmmode intel}
 {$inline on}
 
diff --git a/tests/webtbs/tw0736.pp b/tests/webtbs/tw0736.pp
index f65771f079..d876d0d3fc 100644
--- a/tests/webtbs/tw0736.pp
+++ b/tests/webtbs/tw0736.pp
@@ -1,3 +1,4 @@
+{ %CPU=i386 }
 {$ifdef FPC}
 {$ASMMODE INTEL}
 {$INLINE ON}
diff --git a/tests/webtbs/tw0761.pp b/tests/webtbs/tw0761.pp
index 1adf5d608d..91b0f0df26 100644
--- a/tests/webtbs/tw0761.pp
+++ b/tests/webtbs/tw0761.pp
@@ -1,3 +1,4 @@
+{ %CPU=i386 }
 {$asmmode intel}
 Type TFather = Object A : Integer; end;
      TSon = Object (TFather) B : Integer; end;
diff --git a/tests/webtbs/tw0797a.pp b/tests/webtbs/tw0797a.pp
index a086256f64..8ebdd69d6d 100644
--- a/tests/webtbs/tw0797a.pp
+++ b/tests/webtbs/tw0797a.pp
@@ -1,3 +1,4 @@
+{ %CPU=i386 }
 program test;
 {$INLINE ON}
 {$ASMMODE ATT}
diff --git a/tests/webtbs/tw0848.pp b/tests/webtbs/tw0848.pp
index b2913267f8..0492c10b16 100644
--- a/tests/webtbs/tw0848.pp
+++ b/tests/webtbs/tw0848.pp
@@ -1,3 +1,4 @@
+{ %CPU=i386 }
 {$ASMMODE INTEL}
 
 PROCEDURE a;
diff --git a/tests/webtbs/tw0892.pp b/tests/webtbs/tw0892.pp
index b7941c02ac..49b2877ed5 100644
--- a/tests/webtbs/tw0892.pp
+++ b/tests/webtbs/tw0892.pp
@@ -1,3 +1,4 @@
+{ %CPU=i386 }
 
 
 {$asmmode intel}
diff --git a/tests/webtbs/tw0893.pp b/tests/webtbs/tw0893.pp
index aedcd10ffa..424944c204 100644
--- a/tests/webtbs/tw0893.pp
+++ b/tests/webtbs/tw0893.pp
@@ -1,3 +1,4 @@
+{ %CPU=i386 }
 {$asmmode intel}
 type
     BugObject = object
diff --git a/tests/webtbs/tw0925.pp b/tests/webtbs/tw0925.pp
index 3e2c601c76..9166aa1693 100644
--- a/tests/webtbs/tw0925.pp
+++ b/tests/webtbs/tw0925.pp
@@ -1,3 +1,4 @@
+{ %CPU=i386 }
 {$asmmode intel}
 
 {$ifdef go32v2}
diff --git a/tests/webtbs/tw0932.pp b/tests/webtbs/tw0932.pp
index 8fc83a7dcc..1e04fb8f16 100644
--- a/tests/webtbs/tw0932.pp
+++ b/tests/webtbs/tw0932.pp
@@ -1,3 +1,4 @@
+{ %CPU=i386 }
 program test;
 
 {$ASMMODE Intel }
diff --git a/tests/webtbs/tw0944.pp b/tests/webtbs/tw0944.pp
index 540298dc94..3253abe9b4 100644
--- a/tests/webtbs/tw0944.pp
+++ b/tests/webtbs/tw0944.pp
@@ -1,3 +1,4 @@
+{ %CPU=i386 }
 {$ifdef TP}
 {$N+}
 {$endif TP}
diff --git a/tests/webtbs/tw1023.pp b/tests/webtbs/tw1023.pp
index 616d25e455..341a4ad49f 100644
--- a/tests/webtbs/tw1023.pp
+++ b/tests/webtbs/tw1023.pp
@@ -1,3 +1,4 @@
+{ %CPU=i386 }
 { Source provided for Free Pascal Bug Report 1023 }
 { Submitted by "Denis Yarkovoy" on  2000-07-03 }
 { e-mail: gunky9@geocities.com }
diff --git a/tests/webtbs/tw1066a.pp b/tests/webtbs/tw1066a.pp
index 03ab923fab..cd17815582 100644
--- a/tests/webtbs/tw1066a.pp
+++ b/tests/webtbs/tw1066a.pp
@@ -1,3 +1,4 @@
+{ %CPU=i386 }
 { Source provided for Free Pascal Bug Report 1066 }
 { Submitted by "Fernando Oscar Schmitt" on  2000-07-24 }
 { e-mail: pulp@cpovo.net }
diff --git a/tests/webtbs/tw1066b.pp b/tests/webtbs/tw1066b.pp
index 6bc1e83fa5..2bf8fa9da8 100644
--- a/tests/webtbs/tw1066b.pp
+++ b/tests/webtbs/tw1066b.pp
@@ -1,3 +1,4 @@
+{ %CPU=i386 }
 {----------------cut here----------------}
 
 {$asmmode intel}
diff --git a/tests/webtbs/tw1090.pp b/tests/webtbs/tw1090.pp
index 9b5e809857..a988055c09 100644
--- a/tests/webtbs/tw1090.pp
+++ b/tests/webtbs/tw1090.pp
@@ -1,3 +1,4 @@
+{ %CPU=i386 }
 {$asmmode intel}
 const
   Number = $7FFFFFF;
diff --git a/tests/webtbs/tw1117.pp b/tests/webtbs/tw1117.pp
index 9c441b4823..0a4fbf9d08 100644
--- a/tests/webtbs/tw1117.pp
+++ b/tests/webtbs/tw1117.pp
@@ -1,3 +1,4 @@
+{ %CPU=i386 }
 {$asmmode intel}
 var
   l1,l2 : longint;
diff --git a/tests/webtbs/tw1122.pp b/tests/webtbs/tw1122.pp
index 6de3215ab9..4093ec7572 100644
--- a/tests/webtbs/tw1122.pp
+++ b/tests/webtbs/tw1122.pp
@@ -1,3 +1,4 @@
+{ %CPU=i386 }
 {$mode objfpc}
 uses sysutils;
 {$asmmode intel}
diff --git a/tests/webtbs/tw1157.pp b/tests/webtbs/tw1157.pp
index 6276e43bef..48abcd58fb 100644
--- a/tests/webtbs/tw1157.pp
+++ b/tests/webtbs/tw1157.pp
@@ -1,3 +1,4 @@
+{ %CPU=i386 }
 { Source provided for Free Pascal Bug Report 1157 }
 { Submitted by "Colin Goldie" on  2000-10-06 }
 { e-mail: Colin_G@Positek.com.au }