paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-12 07:46:00 +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 type
tnormalset = set of tbigenum; tnormalset = set of tbigenum;
tsmallset = set of tsmallenum; tsmallset = set of tsmallenum;
procedure fail; procedure fail;
begin begin
Fail; Writeln('Failed!');
halt(1); halt(1);
end; end;
procedure SmallSet2NormalSet; procedure SmallSet2NormalSet;
@ -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

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

@ -44,7 +44,7 @@ function getint64cnt: int64;
end; end;
{$ENDIF} {$ENDIF}
procedure test(value, required: longint); procedure test(value, required: longint);
begin begin
if value <> required then if value <> required then
@ -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 }

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

@ -58,7 +58,7 @@ Begin
longres := longres shl 15; longres := longres shl 15;
Write('(SHL) Value should be 32768...'); Write('(SHL) Value should be 32768...');
test(longres, 32768); test(longres, 32768);
longres:=-1; longres:=-1;
longres := longres shl 15; longres := longres shl 15;
Write('(SHL) Value should be -32768...'); Write('(SHL) Value should be -32768...');
@ -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
} }