From e6d948470e832c8e96492706105886032c279e3d Mon Sep 17 00:00:00 2001
From: Jonas Maebe <jonas@freepascal.org>
Date: Mon, 23 Feb 2015 22:54:31 +0000
Subject: [PATCH]   * skip test in general for 64 bit cpus

git-svn-id: trunk@29947 -
---
 tests/tbf/tb0117.pp    | 9 ++++++---
 tests/webtbs/tw3893.pp | 4 +++-
 2 files changed, 9 insertions(+), 4 deletions(-)

diff --git a/tests/tbf/tb0117.pp b/tests/tbf/tb0117.pp
index 653f23a6f8..902cff9423 100644
--- a/tests/tbf/tb0117.pp
+++ b/tests/tbf/tb0117.pp
@@ -1,5 +1,3 @@
-{ %skipcpu=x86_64,powerpc64 }
-
 { %fail }
 
 {$mode delphi}
@@ -8,10 +6,15 @@ var
   i: Int64;
 
 begin
-
+{$ifdef cpu64}
+  The code below only has to fail for 32 bit cpus, so
+  make sure the program fails to compile for another
+  reason on 64 bit cpus
+{$else cpu64}
   for i := 1 to 10 do begin
     write ( '*' )
   end { for i }
 
 ; writeln
+{$endif cpu64}
 end.
diff --git a/tests/webtbs/tw3893.pp b/tests/webtbs/tw3893.pp
index 45b6b5fde9..2938e9799d 100644
--- a/tests/webtbs/tw3893.pp
+++ b/tests/webtbs/tw3893.pp
@@ -1,11 +1,11 @@
 { Source provided for Free Pascal Bug Report 3893 }
 { Submitted by "George Bakhtadze" on  2005-04-14 }
 { e-mail: mirage@avagames.net }
-{%SKIPCPU=powerpc64,x86_64}
 program test;
 
 function GetPropertyValue: Pointer;
 begin
+  GetPropertyValue:=nil;
 end;
 
 var
@@ -14,9 +14,11 @@ var
   p: Pointer;
 
 begin
+{$ifndef cpu64}
   Size := 9.11;
 //  d := Integer(GetPropertyValue());   // All commented code works
 //  p := GetPropertyValue();
 //  Size2 := single(p);
   Size2 := single(GetPropertyValue());
+{$endif cpu64}
 end.