* skip test in general for 64 bit cpus

git-svn-id: trunk@29947 -

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.

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: [email protected] }
-{%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.