t_id
77
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:22:00 34 | 2024/05/21 02:32:00 35 | |
i386 | 14 | 28.0 | 2024/05/21 01:22:00 34 | 2024/05/21 02:32:00 27 | |
x86_64 | 33 | 66.0 | 2024/05/21 01:33:00 15 | 2024/05/21 02:32:00 35 | |
aarch64 | 3 | 6.0 | 2024/05/21 01:42:00 32 | 2024/05/21 02:25:00 38 | |
linux | 49 | 98.0 | 2024/05/21 01:22:00 34 | 2024/05/21 02:32:00 35 | |
win32 | 1 | 2.0 | 2024/05/21 02:04:00 34 | 2024/05/21 02:04:00 34 | |
3.3.1 | 28 | 56.0 | 2024/05/21 01:33:00 15 | 2024/05/21 02:32:00 27 | |
3.2.3 | 22 | 44.0 | 2024/05/21 01:22:00 34 | 2024/05/21 02:32:00 35 |
{$mode objfpc} uses sysutils; {$ifndef FPC} {$define ENDIAN_LITTLE} {$endif} type int64rec = record {$ifdef ENDIAN_LITTLE} lo,hi: {$else } hi,lo : {$endif} cardinal; end; var haserror, error: boolean; b: byte; s: shortint; i: smallint; w: word; l: longint; c: cardinal; t: int64; q: qword; {$r+} begin haserror := false; b := 255; t := b; q := b; b := 0; t := b; q := b; s := 127; t := s; q := s; s := -128; t := s; try error := true; q := s; except error := false; end; haserror := haserror or error; w := 0; t := w; q := w; w := 65535; t := w; q := w; i := 32767; t := i; q := i; i := -32768; t := i; try error := true; q := i; except error := false; end; haserror := haserror or error; c := 0; t := c; q := c; c := $ffffffff; t := c; q := c; l := -maxlongint-1; t := l; try error := true; q := l; except error := false; end; haserror := haserror or error; l := maxlongint; t := l; q := l; q := 0; t := q; with int64rec(q) do begin lo := 0; hi := $ffffffff; end; try error := true; t := q; except error := false; end; haserror := haserror or error; with int64rec(t) do begin lo := 0; hi := $80000000; end; try error := true; q := t; except error := false; end; haserror := haserror or error; with int64rec(t) do begin lo := $ffffffff; hi := $7fffffff; end; q := t; if haserror then begin writeln('64bit range checking still buggy!'); halt(1); end; end.