t_id
486
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 21:24:00 47 | 2024/05/16 23:57:00 23 | |
i386 | 16 | 32.0 | 2024/05/16 22:08:00 35 | 2024/05/16 23:57:00 23 | |
sparc | 16 | 32.0 | 2024/05/16 23:24:00 38 | 2024/05/16 23:55:00 41 | |
powerpc | 6 | 12.0 | 2024/05/16 21:24:00 47 | 2024/05/16 22:06:00 76 | |
x86_64 | 12 | 24.0 | 2024/05/16 22:22:00 29 | 2024/05/16 22:53:00 29 | |
linux | 8 | 16.0 | 2024/05/16 21:24:00 47 | 2024/05/16 23:46:00 27 | |
win32 | 4 | 8.0 | 2024/05/16 22:08:00 35 | 2024/05/16 23:57:00 23 | |
solaris | 38 | 76.0 | 2024/05/16 22:22:00 29 | 2024/05/16 23:55:00 41 | |
3.3.1 | 24 | 48.0 | 2024/05/16 22:08:00 35 | 2024/05/16 23:57:00 23 | |
3.2.3 | 26 | 52.0 | 2024/05/16 21:24:00 47 | 2024/05/16 23:55:00 41 |
{ Old file: tbs0299.pp } { passing Array[0..1] of char by value to proc leads to problems OK 0.99.13 (PM) passing Array[0..1] of char by value to proc leads to problems } type TwoChar = Array[0..1] of char; Empty = Record End; const asd : TwoChar = ('a','b'); procedure Tester(i:TwoChar; a: Empty;l : longint;var ll : longint); begin i[0]:=i[1]; Writeln('l = ',l,' @l = ',hexstr(longint(@l),8),' @a = ',hexstr(longint(@a),8)); inc(ll); end; var a : Empty; l,ll : longint; begin l:=6; ll:=15; Writeln(Sizeof(asd)); Tester(asd,a,l,ll); Writeln(asd); if (ll<>16) then Begin Writeln('Error with passing value parameter of type array [1..2] of char'); Halt(1); end; end.