mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-08-24 13:32:31 +02:00
* fixed linefeeds
This commit is contained in:
parent
12efb6d19e
commit
87438454b9
@ -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
|
||||
|
@ -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
|
||||
|
@ -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
|
||||
|
@ -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
|
||||
|
@ -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
|
||||
|
@ -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
|
||||
|
@ -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
|
||||
|
@ -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
|
||||
|
@ -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
|
||||
|
@ -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
|
||||
|
@ -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
|
||||
|
@ -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
|
||||
|
@ -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
|
||||
|
||||
|
@ -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
|
||||
|
||||
}
|
||||
|
@ -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
17
tests/test/cg/tpara1.pp
Normal 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.
|
||||
|
@ -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)
|
||||
|
||||
|
Loading…
Reference in New Issue
Block a user