paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-22 06:49:27 +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

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

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

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

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

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

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