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

* fixed linefeeds

Browse Source
This commit is contained in:
peter 2004-05-02 12:11:44 +00:00
parent 12efb6d19e
commit 87438454b9
20 changed files with 25279 additions and 25214 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
tests/test/cg/tcalfun2.pp
View File

@ -1402,7 +1402,10 @@ end.
{
$Log$
Revision 1.4 2003-04-22 10:24:29 florian
Revision 1.5 2004-05-02 12:11:44 peter
* fixed linefeeds
Revision 1.4 2003/04/22 10:24:29 florian
* fixed defines for powerpc
Revision 1.3 2002/09/07 15:40:51 peter

5
tests/test/cg/tcalfun3.pp
View File

@ -1402,7 +1402,10 @@ end.
{
$Log$
Revision 1.4 2003-04-22 10:24:29 florian
Revision 1.5 2004-05-02 12:11:44 peter
* fixed linefeeds
Revision 1.4 2003/04/22 10:24:29 florian
* fixed defines for powerpc
Revision 1.3 2002/09/07 15:40:51 peter

5
tests/test/cg/tcalfun5.pp
View File

@ -1402,7 +1402,10 @@ end.
{
$Log$
Revision 1.4 2003-04-22 10:24:29 florian
Revision 1.5 2004-05-02 12:11:44 peter
* fixed linefeeds
Revision 1.4 2003/04/22 10:24:29 florian
* fixed defines for powerpc
Revision 1.3 2002/09/07 15:40:51 peter

5
tests/test/cg/tcalfun6.pp
View File

@ -1402,7 +1402,10 @@ end.
{
$Log$
Revision 1.4 2003-04-22 10:24:29 florian
Revision 1.5 2004-05-02 12:11:44 peter
* fixed linefeeds
Revision 1.4 2003/04/22 10:24:29 florian
* fixed defines for powerpc
Revision 1.3 2002/09/07 15:40:51 peter

5
tests/test/cg/tcalfun7.pp
View File

@ -1402,7 +1402,10 @@ end.
{
$Log$
Revision 1.4 2003-04-22 10:24:29 florian
Revision 1.5 2004-05-02 12:11:44 peter
* fixed linefeeds
Revision 1.4 2003/04/22 10:24:29 florian
* fixed defines for powerpc
Revision 1.3 2002/09/07 15:40:51 peter

5
tests/test/cg/tcalfun9.pp
View File

@ -1429,7 +1429,10 @@ end.
{
$Log$
Revision 1.5 2003-04-22 10:24:29 florian
Revision 1.6 2004-05-02 12:11:44 peter
* fixed linefeeds
Revision 1.5 2003/04/22 10:24:29 florian
* fixed defines for powerpc
Revision 1.4 2002/09/27 17:44:50 carl

5
tests/test/cg/tcalobj3.pp
View File

@ -3293,7 +3293,10 @@ end.
{
$Log$
Revision 1.9 2003-04-22 10:24:29 florian
Revision 1.10 2004-05-02 12:11:44 peter
* fixed linefeeds
Revision 1.9 2003/04/22 10:24:29 florian
* fixed defines for powerpc
Revision 1.8 2002/12/29 15:30:55 peter

5
tests/test/cg/tcalobj5.pp
View File

@ -3294,7 +3294,10 @@ end.
{
$Log$
Revision 1.5 2003-04-22 10:24:29 florian
Revision 1.6 2004-05-02 12:11:44 peter
* fixed linefeeds
Revision 1.5 2003/04/22 10:24:29 florian
* fixed defines for powerpc
Revision 1.4 2002/12/29 15:30:55 peter

5
tests/test/cg/tcalobj6.pp
View File

@ -3294,7 +3294,10 @@ end.
{
$Log$
Revision 1.5 2003-04-22 10:24:29 florian
Revision 1.6 2004-05-02 12:11:44 peter
* fixed linefeeds
Revision 1.5 2003/04/22 10:24:29 florian
* fixed defines for powerpc
Revision 1.4 2003/01/05 18:21:30 peter

5
tests/test/cg/tcalobj7.pp
View File

@ -3294,7 +3294,10 @@ end.
{
$Log$
Revision 1.5 2003-04-22 10:24:29 florian
Revision 1.6 2004-05-02 12:11:44 peter
* fixed linefeeds
Revision 1.5 2003/04/22 10:24:29 florian
* fixed defines for powerpc
Revision 1.4 2002/12/29 15:30:55 peter

5
tests/test/cg/tcalobj8.pp
View File

@ -3294,7 +3294,10 @@ end.
{
$Log$
Revision 1.5 2003-04-22 10:24:29 florian
Revision 1.6 2004-05-02 12:11:44 peter
* fixed linefeeds
Revision 1.5 2003/04/22 10:24:29 florian
* fixed defines for powerpc
Revision 1.4 2002/12/29 15:30:55 peter

5
tests/test/cg/tcnvint2.pp
View File

@ -200,7 +200,10 @@ end.
{
$Log$
Revision 1.6 2002-09-29 14:37:22 carl
Revision 1.7 2004-05-02 12:11:44 peter
* fixed linefeeds
Revision 1.6 2002/09/29 14:37:22 carl
* must more 64-bit testing (to detect endian specific problems)
Revision 1.5 2002/09/27 17:46:01 carl

5
tests/test/cg/tcnvstr1.pp
View File

@ -561,7 +561,10 @@ End.
{
$Log$
Revision 1.3 2002-10-02 19:26:49 carl
Revision 1.4 2004-05-02 12:11:44 peter
* fixed linefeeds
Revision 1.3 2002/10/02 19:26:49 carl
+ added much much more testing of different string types
* str() format depends on size of real

5
tests/test/cg/tdivz1.pp
View File

@ -36,7 +36,10 @@ begin
end.
{
$Log$
Revision 1.1 2002-09-21 13:28:06 carl
Revision 1.2 2004-05-02 12:11:44 peter
* fixed linefeeds
Revision 1.1 2002/09/21 13:28:06 carl
+ division by zero testing
}

5
tests/test/cg/tdivz2.pp
View File

@ -32,7 +32,10 @@ begin
end.
{
$Log$
Revision 1.1 2002-09-21 13:28:06 carl
Revision 1.2 2004-05-02 12:11:44 peter
* fixed linefeeds
Revision 1.1 2002/09/21 13:28:06 carl
+ division by zero testing
}

17
tests/test/cg/tpara1.pp Normal file
View File

@ -0,0 +1,17 @@
function f(l1,l2,l3,l4,l5,l6,l7,l8:longint):longint;
begin
f:=l1+l2+l3+l4+l5+l6+l7+l8;
end;
var
l : longint;
begin
l:=f(f(1,2,3,4,5,6,7,8),f(1,2,3,4,5,6,7,8),f(1,2,3,4,5,6,7,8),f(1,2,3,4,5,6,7,8),f(1,2,3,4,5,6,7,8),f(1,2,3,4,5,6,7,8),f(1,2,3,4,5,6,7,8),f(1,2,3,4,5,6,7,8));
writeln('Got ',l,' expected ',8*(1+2+3+4+5+6+7+8));
if l<>8*(1+2+3+4+5+6+7+8) then
begin
writeln('Error!');
halt(1);
end;
end.

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

@ -335,7 +335,10 @@ end.
{
$Log$
Revision 1.7 2003-12-07 11:59:44 jonas
Revision 1.8 2004-05-02 12:11:44 peter
* fixed linefeeds
Revision 1.7 2003/12/07 11:59:44 jonas
* test procedure uses 64bit arguments under FPC
- disabled tests with negative shift counts (illegal)