paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-18 20:49:19 +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;
begin
Fail;
Writeln('Failed!');
halt(1);
end;
@ -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

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

@ -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 }

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

@ -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
}