* updated int64 tests so kylix passes the tests

tests/test/cg/tcnvset.pp

@@ -71,13 +71,13 @@ type
 type
   tnormalset = set of tbigenum;
   tsmallset = set of tsmallenum;
-  
+
 procedure fail;
 begin
-  Fail;
+  Writeln('Failed!');
   halt(1);
 end;
-  
+
 
 
   procedure SmallSet2NormalSet;
@@ -115,7 +115,10 @@ end.
 {
 
  $Log$
- Revision 1.2  2002-03-05 21:55:42  carl
+ Revision 1.3  2002-03-29 18:43:55  peter
+   * updated int64 tests so kylix passes the tests
+
+ Revision 1.2  2002/03/05 21:55:42  carl
  * Adapted for automated testing
 
  Revision 1.1  2001/06/24 23:01:22  carl

tests/test/cg/tmoddiv.pp

@@ -44,7 +44,7 @@ function getint64cnt: int64;
  end;
 
   {$ENDIF}
-  
+
 procedure test(value, required: longint);
 begin
   if value <> required then
@@ -250,8 +250,8 @@ begin
   int64res := $7FFFFFFF shl 32;
   int64cnt := $80000000 shl 32;
   int64res := int64cnt div int64res;
-  Write('Value should be -1...');
-  test(int64res and $FFFFFFFF, -1);
+  Write('Value should be 1...');
+  test(int64res and $FFFFFFFF, 1);
 
   int64res := $7FFFFFFF;
   int64cnt := $80000000;
@@ -263,8 +263,8 @@ begin
   int64res := $7FFFFFFF;
   int64cnt := $80000000;
   int64res := int64cnt div int64res;
-  Write('Value should be -1...');
-  test(int64res and $FFFFFFFF, -1);
+  Write('Value should be 1...');
+  test(int64res and $FFFFFFFF, 1);
 
   WriteLn('(left) : LOC_REFERENCE; (right) : ordinal constant');
   { RIGHT : power of 2 ordconstn   }

tests/test/cg/tshlshr.pp

@@ -58,7 +58,7 @@ Begin
    longres := longres shl 15;
    Write('(SHL) Value should be 32768...');
    test(longres, 32768);
-   
+
    longres:=-1;
    longres := longres shl 15;
    Write('(SHL) Value should be -32768...');
@@ -195,8 +195,8 @@ Begin
 
    int64res:=1;
    int64res := int64res shl 65;
-   Write('(SHL) Value should be 2...');
-   test(int64res and $FFFFFFFF, 2);
+   Write('(SHL) Value should be 0...');
+   test(int64res and $FFFFFFFF, 0);
 
    int64res:=$8000;
    int64res := int64res shr 15;
@@ -298,7 +298,10 @@ end.
 
 {
   $Log$
-  Revision 1.3  2002-03-05 21:56:32  carl
+  Revision 1.4  2002-03-29 18:43:55  peter
+    * updated int64 tests so kylix passes the tests
+
+  Revision 1.3  2002/03/05 21:56:32  carl
   * Adapted for automated testing
 
 }