t_id
938
t_adddate
2003/10/03
t_result
0
t_knownrunerror
0
Record count: 50
Total = 50
OK=50 Percentage= 100.00
| Result type | Cat. | Count | Percentage | First date | Last Date |
| Successfully run | 50 | 100.0 | 2024/05/21 01:40:00 15 | 2024/05/21 04:32:00 54 | |
| i386 | 5 | 10.0 | 2024/05/21 01:52:00 47 | 2024/05/21 04:13:00 54 | |
| m68k | 1 | 2.0 | 2024/05/21 04:00:00 53 | 2024/05/21 04:00:00 53 | |
| powerpc | 1 | 2.0 | 2024/05/21 04:15:00 238 | 2024/05/21 04:15:00 238 | |
| x86_64 | 36 | 72.0 | 2024/05/21 01:40:00 15 | 2024/05/21 04:31:00 27 | |
| powerpc64 | 2 | 4.0 | 2024/05/21 04:24:00 57 | 2024/05/21 04:32:00 54 | |
| mipsel | 1 | 2.0 | 2024/05/21 04:11:00 185 | 2024/05/21 04:11:00 185 | |
| aarch64 | 4 | 8.0 | 2024/05/21 02:52:00 39 | 2024/05/21 03:50:00 37 | |
| linux | 38 | 76.0 | 2024/05/21 01:40:00 15 | 2024/05/21 04:32:00 54 | |
| win32 | 1 | 2.0 | 2024/05/21 03:02:00 25 | 2024/05/21 03:02:00 25 | |
| go32v2 | 1 | 2.0 | 2024/05/21 04:13:00 54 | 2024/05/21 04:13:00 54 | |
| solaris | 10 | 20.0 | 2024/05/21 03:08:00 30 | 2024/05/21 03:35:00 27 | |
| 3.3.1 | 33 | 66.0 | 2024/05/21 01:40:00 15 | 2024/05/21 04:24:00 57 | |
| 3.2.3 | 17 | 34.0 | 2024/05/21 01:52:00 47 | 2024/05/21 04:32:00 54 |
{ Source provided for Free Pascal Bug Report 2306 }
{ Submitted by "Sergey Kosarevsky" on 2003-01-03 }
{ e-mail: netsurfer@au.ru }
{$H-}
Const LONG_STR_SIZE=4096;
Type tLongStr=Object // try to change this
// to Record
LStr:Array[0..LONG_STR_SIZE] Of Char;
LLength:Longint;
End;
Operator := (S:String) R:tLongStr;
Begin
R.LLength:=Length(S);
Move(S[1],R.LStr[1],Length(S));
End;
Var T:tLongStr;
Begin
T:='Hello';
if (T.LLength<>5) or
(T.LStr[1]<>'H') or
(T.LStr[5]<>'o') then
begin
writeln('Error!');
halt(1);
end;
End.