t_id
1345
t_adddate
2004/08/28
t_result
0
Flag
t_norun
set
t_knownrunerror
0
Record count: 50
Total = 50
OK=0 Percentage= 0.00
Skipped=50 Percentage= 100.00
| Result type | Cat. | Count | Percentage | First date | Last Date |
| Skipping test because for other target | 50 | 100.0 | 2024/05/08 02:07:00 43 | 2024/05/08 02:47:00 0 | |
| i386 | 26 | 52.0 | 2024/05/08 02:07:00 43 | 2024/05/08 02:46:00 35 | |
| x86_64 | 17 | 34.0 | 2024/05/08 02:09:00 20 | 2024/05/08 02:47:00 0 | |
| powerpc64 | 2 | 4.0 | 2024/05/08 02:14:00 54 | 2024/05/08 02:38:00 55 | |
| aarch64 | 5 | 10.0 | 2024/05/08 02:17:00 39 | 2024/05/08 02:36:00 40 | |
| linux | 48 | 96.0 | 2024/05/08 02:07:00 43 | 2024/05/08 02:47:00 0 | |
| go32v2 | 1 | 2.0 | 2024/05/08 02:27:00 56 | 2024/05/08 02:27:00 56 | |
| win64 | 1 | 2.0 | 2024/05/08 02:23:00 47 | 2024/05/08 02:23:00 47 | |
| 3.3.1 | 23 | 46.0 | 2024/05/08 02:09:00 20 | 2024/05/08 02:47:00 0 | |
| 3.2.3 | 27 | 54.0 | 2024/05/08 02:07:00 43 | 2024/05/08 02:46:00 35 |
{ %norun }
{ %target=win32 }
{ Source provided for Free Pascal Bug Report 3261 }
{ Submitted by "Andreas Hausladen" on 2004-08-18 }
{ e-mail: Andreas.Hausladen@gmx.de }
program test;
{$mode delphi}
type
TTest = class(TObject)
public
procedure myfunc(arg1: Integer; arg2: TTest); overload;
procedure myfunc(arg1: TTest); overload;
end;
procedure TTest.myfunc(arg1: Integer; arg2: TTest); external 'test.dll' name 'TTest_myfunc';
procedure TTest.myfunc(arg1: TTest);
begin
if arg1 = nil then ;
end;
begin
end.