From 1ba8fd756e7755933e88ecbab2007d3a67f6e317 Mon Sep 17 00:00:00 2001
From: pierre <pierre@freepascal.org>
Date: Tue, 15 Oct 2002 06:33:48 +0000
Subject: [PATCH]  * define COMP_IS_INT64 for m68k cpu

---
 tests/tbs/tb0281.pp    | 10 ++++++++++
 tests/test/tstring4.pp |  8 ++++++++
 tests/webtbs/tw1269.pp | 10 ++++++++++
 3 files changed, 28 insertions(+)

diff --git a/tests/tbs/tb0281.pp b/tests/tbs/tb0281.pp
index 34d07c2080..fadf23968b 100644
--- a/tests/tbs/tb0281.pp
+++ b/tests/tbs/tb0281.pp
@@ -1,14 +1,24 @@
 { Old file: tbs0333.pp }
 {  }
 
+{$ifdef cpu68k}
+  {$define COMP_IS_INT64}
+{$endif cpu68k}
+
+
 var
   a,b : comp;
   s1,s2 : string;
 begin
   a:=11384563;
   b:=a*a;
+{$ifdef COMP_IS_INT64}
+  str(a*a,s1);
+  str(b,s2);
+{$else not COMP_IS_INT64}
   str(a*a:0:0,s1);
   str(b:0:0,s2);
+{$endif COMP_IS_INT64}
   writeln(s1);
   writeln(s2);
   if (s1<>'129608274700969') or (s2<>'129608274700969') then
diff --git a/tests/test/tstring4.pp b/tests/test/tstring4.pp
index 36cfe59d44..ff78900542 100644
--- a/tests/test/tstring4.pp
+++ b/tests/test/tstring4.pp
@@ -1,5 +1,9 @@
 Program ansitest;
 
+{$ifdef cpu68k}
+  {$define COMP_IS_INT64}
+{$endif cpu68k}
+
 {$ifndef fpc}
 Function Memavail : Longint;
 begin
@@ -433,7 +437,11 @@ begin
   str(E,S);
   Writeln (S);
   Write ('str(Co,S)= ');
+{$ifdef COMP_IS_INT64}
+  Co:=4;
+{$else}
   Co:=4.0;
+{$endif}
   str(Co,S);
   Writeln (S);
   Write ('str(Si,S)= ');
diff --git a/tests/webtbs/tw1269.pp b/tests/webtbs/tw1269.pp
index dfff27f8e7..90360ed819 100644
--- a/tests/webtbs/tw1269.pp
+++ b/tests/webtbs/tw1269.pp
@@ -1,6 +1,12 @@
 { Source provided for Free Pascal Bug Report 1269 }
 { Submitted by "Rob Kolstad" on  2000-11-28 }
 { e-mail: kolstad@ace.delos.com }
+
+{$ifdef cpu68k}
+  {$define COMP_IS_INT64}
+{$endif cpu68k}
+
+
 var
   A : array [0..25, 0..100] of comp;
   V : array [1..25] of longint;
@@ -36,7 +42,11 @@ begin
   v[10] := 10;
   for i := 0 to 25 do
     for j := 0 to nn do A[i, j] := -1;
+{$ifdef COMP_IS_INT64}
+  writeln( calc(vt, nn));
+{$else not COMP_IS_INT64}
   writeln( calc(vt, nn) :0:0);
+{$endif COMP_IS_INT64}
 end.