Browse Source

* test for 64 bit cpus fixed

florian 21 years ago
parent
commit
53d4987dbe
1 changed files with 5 additions and 1 deletions
  1. 5 1
      tests/tbs/tb0162.pp

+ 5 - 1
tests/tbs/tb0162.pp

@@ -29,6 +29,8 @@ begin
   b := 255;
   b := 255;
   b := b * 17;
   b := b * 17;
 
 
+{ 64 bit cpus do all calculations in 64 bit so longint and cardinal can't overflow }
+{$ifndef CPU64}
   l := high(longint);
   l := high(longint);
   try
   try
     l := l+1;
     l := l+1;
@@ -119,9 +121,11 @@ begin
       doerror(16);
       doerror(16);
   end;
   end;
 
 
+{$endif CPU64}
+
 {$ifdef fpc}
 {$ifdef fpc}
 {$ifndef ver1_0}
 {$ifndef ver1_0}
-  
+
   n := high(int64);
   n := high(int64);
   try
   try
     n := n+1;
     n := n+1;