From ea356808b170fd1aa131bcaea6eea06c17a6d07c Mon Sep 17 00:00:00 2001
From: Jonas Maebe <jonas@freepascal.org>
Date: Sat, 16 May 2009 10:30:28 +0000
Subject: [PATCH]   * tests have to fail   * "fixed" tests so they also fail on
 32 bit platforms

git-svn-id: trunk@13149 -
---
 tests/tbf/tb0210.pp | 3 +++
 tests/tbf/tb0211.pp | 4 +++-
 2 files changed, 6 insertions(+), 1 deletion(-)

diff --git a/tests/tbf/tb0210.pp b/tests/tbf/tb0210.pp
index 8ef82c236c..2e6f5a094d 100644
--- a/tests/tbf/tb0210.pp
+++ b/tests/tbf/tb0210.pp
@@ -1,7 +1,10 @@
+{ %fail }
+
 // check whether enums can NOT be casted to object references; this 
 // should NOT work in objfpc mode (see also tbs/tb0554.pp)
 {$mode objfpc}
 
+{$packenum 2}
 type
   TEnum = (a, b, c);
   
diff --git a/tests/tbf/tb0211.pp b/tests/tbf/tb0211.pp
index a840beade8..cb7c42aef1 100644
--- a/tests/tbf/tb0211.pp
+++ b/tests/tbf/tb0211.pp
@@ -1,9 +1,11 @@
+{ %fail }
+
 // check whether integers can NOT be casted to object references; this 
 // should NOT work in objfpc mode (see also tbs/tb0554.pp)
 {$mode objfpc}
 
 var
-  i : Integer;
+  i : Word;
   o : TObject;
 
 begin