t_id
503
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/09/26 18:42:00 90 | 2024/09/26 23:02:00 44 | |
i386 | 4 | 8.0 | 2024/09/26 19:54:00 70 | 2024/09/26 22:38:00 79 | |
powerpc | 14 | 28.0 | 2024/09/26 19:41:00 35 | 2024/09/26 23:02:00 44 | |
powerpc64 | 17 | 34.0 | 2024/09/26 18:42:00 90 | 2024/09/26 22:29:00 103 | |
wasm32 | 7 | 14.0 | 2024/09/26 19:31:00 339 | 2024/09/26 22:50:00 299 | |
riscv64 | 8 | 16.0 | 2024/09/26 19:14:00 123 | 2024/09/26 19:59:00 123 | |
linux | 39 | 78.0 | 2024/09/26 18:42:00 90 | 2024/09/26 23:02:00 44 | |
go32v2 | 4 | 8.0 | 2024/09/26 19:54:00 70 | 2024/09/26 22:38:00 79 | |
wasi | 7 | 14.0 | 2024/09/26 19:31:00 339 | 2024/09/26 22:50:00 299 | |
3.3.1 | 34 | 68.0 | 2024/09/26 18:42:00 90 | 2024/09/26 22:50:00 299 | |
3.2.3 | 16 | 32.0 | 2024/09/26 21:17:00 71 | 2024/09/26 23:02:00 44 |
{ Old file: tbs0329.pp } { } {$packrecords c} type SHORT=smallint; WINBOOL = longbool; WCHAR=word; UINT=cardinal; COORD = record X : SHORT; Y : SHORT; end; KEY_EVENT_RECORD = packed record bKeyDown : WINBOOL; wRepeatCount : WORD; wVirtualKeyCode : WORD; wVirtualScanCode : WORD; case longint of 0 : ( UnicodeChar : WCHAR; dwControlKeyState : DWORD; ); 1 : ( AsciiChar : CHAR ); end; MOUSE_EVENT_RECORD = record dwMousePosition : COORD; dwButtonState : DWORD; dwControlKeyState : DWORD; dwEventFlags : DWORD; end; WINDOW_BUFFER_SIZE_RECORD = record dwSize : COORD; end; MENU_EVENT_RECORD = record dwCommandId : UINT; end; FOCUS_EVENT_RECORD = record bSetFocus : WINBOOL; end; INPUT_RECORD = record EventType : WORD; case longint of 0 : ( KeyEvent : KEY_EVENT_RECORD ); 1 : ( MouseEvent : MOUSE_EVENT_RECORD ); 2 : ( WindowBufferSizeEvent : WINDOW_BUFFER_SIZE_RECORD ); 3 : ( MenuEvent : MENU_EVENT_RECORD ); 4 : ( FocusEvent : FOCUS_EVENT_RECORD ); end; const {$ifdef cpu68k} { GNU C only aligns at word boundaries for m68k cpu PM } correct_size = 18; {$else } correct_size = 20; {$endif } begin if sizeof(INPUT_RECORD)<>correct_size then begin writeln('Wrong packing for Packrecords C and union ',sizeof(INPUT_RECORD),' instead of ',correct_size); halt(1); end; end.