t_id
723
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/16 22:06:00 76 | 2024/05/17 00:25:00 23 | |
i386 | 18 | 36.0 | 2024/05/16 22:08:00 35 | 2024/05/16 23:57:00 23 | |
sparc | 18 | 36.0 | 2024/05/16 23:24:00 38 | 2024/05/16 23:55:00 41 | |
powerpc | 1 | 2.0 | 2024/05/16 22:06:00 76 | 2024/05/16 22:06:00 76 | |
x86_64 | 12 | 24.0 | 2024/05/16 22:26:00 31 | 2024/05/17 00:25:00 23 | |
aarch64 | 1 | 2.0 | 2024/05/17 00:12:00 32 | 2024/05/17 00:12:00 32 | |
linux | 4 | 8.0 | 2024/05/16 22:06:00 76 | 2024/05/17 00:12:00 32 | |
win32 | 4 | 8.0 | 2024/05/16 22:08:00 35 | 2024/05/16 23:57:00 23 | |
solaris | 41 | 82.0 | 2024/05/16 22:26:00 31 | 2024/05/16 23:55:00 41 | |
win64 | 1 | 2.0 | 2024/05/17 00:25:00 23 | 2024/05/17 00:25:00 23 | |
3.3.1 | 27 | 54.0 | 2024/05/16 22:08:00 35 | 2024/05/17 00:12:00 32 | |
3.2.3 | 23 | 46.0 | 2024/05/16 22:06:00 76 | 2024/05/17 00:25:00 23 |
{ this declaration: ;} {$ifdef FPC} {$mode TP} {$endif} var name_a : packed array[0..255] of char; const name_b : PChar = 't'; begin { the FPC compiler (0.99.14a) will refuse to compile the line ; } name_a[0]:='x'; name_a[1]:=#0; if (name_b <> name_a) then begin writeln(' a and b are different'); end else writeln('address of name_a and name_b are equal'); { while it works under Turbo Pascal (TP). ;} name_b:=@name_a; if name_a<>name_b then begin Writeln('Wrong result'); Halt(1); end; {$ifdef FPC} if (name_b <> PChar(name_a)) then writeln(' a and b are different'); { is a legal FPC line, but illegal in TP.} {$endif} { I used ; } if (name_b <> PChar(@name_a)) then writeln(' a and b are different'); {because it seems to work for both compiler.} end.