t_id
885
t_adddate
2003/10/03
t_result
0
t_knownrunerror
0
tr_id | run | tr_ok | tr_skip | tr_result |
---|---|---|---|---|
525872545 | 948260 | False | True | Skipping test because for other cpu |
Record count: 1
{$ifdef fpc}{$mode delphi}{$endif} uses SysUtils; type TTest = record a, b: integer; end; procedure Test(const T: TTest); begin if @T = nil then exit; // do something end; begin Test(TTest(nil^)); {case 1} Test(TTest(Pointer(nil)^)); {case 2} end.