paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-12 14:29:14 +02:00
Code Issues Packages Projects Releases Wiki Activity

* updated int64 tests so kylix passes the tests

Browse Source
This commit is contained in:
peter 2002-03-29 18:43:55 +00:00
parent 6b6df5ee46
commit 648ec7b05e
3 changed files with 19 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
tests/test/cg/tcnvset.pp
View File

@ -74,7 +74,7 @@ type
procedure fail; procedure fail;
begin begin
Fail; Writeln('Failed!');
halt(1); halt(1);
end; end;
@ -115,7 +115,10 @@ end.
{ {
$Log$ $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 * Adapted for automated testing
Revision 1.1 2001/06/24 23:01:22 carl Revision 1.1 2001/06/24 23:01:22 carl

8
tests/test/cg/tmoddiv.pp
View File

@ -250,8 +250,8 @@ begin
int64res := $7FFFFFFF shl 32; int64res := $7FFFFFFF shl 32;
int64cnt := $80000000 shl 32; int64cnt := $80000000 shl 32;
int64res := int64cnt div int64res; int64res := int64cnt div int64res;
Write('Value should be -1...'); Write('Value should be 1...');
test(int64res and $FFFFFFFF, -1); test(int64res and $FFFFFFFF, 1);
int64res := $7FFFFFFF; int64res := $7FFFFFFF;
int64cnt := $80000000; int64cnt := $80000000;
@ -263,8 +263,8 @@ begin
int64res := $7FFFFFFF; int64res := $7FFFFFFF;
int64cnt := $80000000; int64cnt := $80000000;
int64res := int64cnt div int64res; int64res := int64cnt div int64res;
Write('Value should be -1...'); Write('Value should be 1...');
test(int64res and $FFFFFFFF, -1); test(int64res and $FFFFFFFF, 1);
WriteLn('(left) : LOC_REFERENCE; (right) : ordinal constant'); WriteLn('(left) : LOC_REFERENCE; (right) : ordinal constant');
{ RIGHT : power of 2 ordconstn } { RIGHT : power of 2 ordconstn }

9
tests/test/cg/tshlshr.pp
View File

@ -195,8 +195,8 @@ Begin
int64res:=1; int64res:=1;
int64res := int64res shl 65; int64res := int64res shl 65;
Write('(SHL) Value should be 2...'); Write('(SHL) Value should be 0...');
test(int64res and $FFFFFFFF, 2); test(int64res and $FFFFFFFF, 0);
int64res:=$8000; int64res:=$8000;
int64res := int64res shr 15; int64res := int64res shr 15;
@ -298,7 +298,10 @@ end.
{ {
$Log$ $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 * Adapted for automated testing
} }