t_id
491
t_adddate
2003/10/03
t_result
217
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/20 23:33:00 38 | 2024/05/21 01:21:00 0 | |
i386 | 24 | 48.0 | 2024/05/20 23:37:00 26 | 2024/05/21 01:21:00 0 | |
sparc | 13 | 26.0 | 2024/05/20 23:33:00 38 | 2024/05/20 23:55:00 41 | |
x86_64 | 8 | 16.0 | 2024/05/20 23:44:00 14 | 2024/05/21 01:21:00 0 | |
powerpc64 | 2 | 4.0 | 2024/05/21 01:10:00 101 | 2024/05/21 01:11:00 108 | |
aarch64 | 2 | 4.0 | 2024/05/21 00:12:00 32 | 2024/05/21 00:58:00 35 | |
sparc64 | 1 | 2.0 | 2024/05/20 23:47:00 148 | 2024/05/20 23:47:00 148 | |
linux | 34 | 68.0 | 2024/05/20 23:40:00 26 | 2024/05/21 01:21:00 0 | |
win32 | 1 | 2.0 | 2024/05/20 23:41:00 23 | 2024/05/20 23:41:00 23 | |
solaris | 15 | 30.0 | 2024/05/20 23:33:00 38 | 2024/05/20 23:55:00 41 | |
3.3.1 | 30 | 60.0 | 2024/05/20 23:37:00 42 | 2024/05/21 01:21:00 0 | |
3.2.3 | 20 | 40.0 | 2024/05/20 23:33:00 38 | 2024/05/21 01:20:00 26 |
{ %RESULT=217 } { Old file: tbs0306.pp } { Address is not popped with exit in try...except block OK 0.99.13 (PFV) } {$MODE objfpc} {$H+} { Don't forget break,continue support } program stackcrash; uses sysutils; type TMyClass = class public procedure Proc1; procedure Proc2; end; procedure TMyClass.Proc1; var x, y: Integer; begin try exit; except on e: Exception do begin e.Message := '[Proc1]' + e.Message; raise e end; end; end; procedure TMyClass.Proc2; var x: array[0..7] of Byte; crash: Boolean; begin crash := True; // <--- ! This corrupts the stack?!? raise Exception.Create('I will crash now...'); end; var obj: TMyClass; begin obj := TMyClass.Create; obj.Proc1; WriteLn('Proc1 done, calling Proc2...'); obj.Proc2; WriteLn('Proc2 done'); end.