From 369ef5ff25e0bbff75c6ce5a8bad8fcbb48d9fa2 Mon Sep 17 00:00:00 2001
From: carl <carl@freepascal.org>
Date: Fri, 27 Sep 2002 17:46:01 +0000
Subject: [PATCH]   + big-endian testing

---
 tests/test/cg/tcnvint2.pp | 21 ++++++++++++++++++++-
 1 file changed, 20 insertions(+), 1 deletion(-)

diff --git a/tests/test/cg/tcnvint2.pp b/tests/test/cg/tcnvint2.pp
index 01aa01a59e..c90a362e27 100644
--- a/tests/test/cg/tcnvint2.pp
+++ b/tests/test/cg/tcnvint2.pp
@@ -42,6 +42,14 @@ var
      begin
        getint64 := $10000000;
      end;
+     
+   function getint64_2 : int64;
+     var
+      i: longint;
+     begin
+       i:=1;
+       getint64_2 := i shl 36;
+     end;
 {$endif}
 
    procedure Test(const s:string;b:boolean);
@@ -65,6 +73,7 @@ var
  bb2 : bytebool;
  wb2 : wordbool;
  lb2 : longbool;
+ value : longint;
 begin
  failed:=false;
 
@@ -107,6 +116,11 @@ begin
  fromint64 := $10000000;
  lb1 := longbool(fromint64);
  Test('int64 -> longbool : Value should be TRUE...',lb1);
+ { does it indirectly, since it might not work in direct mode }
+ value:=1;
+ fromint64 := value shl 36 ;
+ lb1 := longbool(fromint64);
+ Test('int64 -> longbool : Value should be TRUE...',lb1);
 {$endif}
  { left : LOC_REGISTER  }
  Writeln('Testing LOC_REGISTER...');
@@ -144,6 +158,8 @@ begin
  fromint64 := $10000000;
  lb1 := longbool(getint64);
  Test('int64 -> longbool : Value should be TRUE...',lb1);
+ lb1 := longbool(getint64_2);
+ Test('int64 -> longbool : Value should be TRUE...',lb1);
 {$endif}
 (* CURRENTLY NEVER GOES INTO THE LOC_FLAGS LOCATION!
  { left : LOC_FLAGS  }
@@ -184,7 +200,10 @@ end.
 
 {
    $Log$
-   Revision 1.4  2002-09-07 15:40:55  peter
+   Revision 1.5  2002-09-27 17:46:01  carl
+     + big-endian testing
+
+   Revision 1.4  2002/09/07 15:40:55  peter
      * old logs removed and tabs fixed
 
    Revision 1.3  2002/05/13 13:45:38  peter