t_id
1235
t_adddate
2004/01/22
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/16 22:06:00 76 | 2024/05/17 00:25:00 23 | |
i386 | 18 | 36.0 | 2024/05/16 22:08:00 35 | 2024/05/16 23:57:00 23 | |
sparc | 18 | 36.0 | 2024/05/16 23:24:00 38 | 2024/05/16 23:55:00 41 | |
powerpc | 1 | 2.0 | 2024/05/16 22:06:00 76 | 2024/05/16 22:06:00 76 | |
x86_64 | 12 | 24.0 | 2024/05/16 22:26:00 31 | 2024/05/17 00:25:00 23 | |
aarch64 | 1 | 2.0 | 2024/05/17 00:12:00 32 | 2024/05/17 00:12:00 32 | |
linux | 4 | 8.0 | 2024/05/16 22:06:00 76 | 2024/05/17 00:12:00 32 | |
win32 | 4 | 8.0 | 2024/05/16 22:08:00 35 | 2024/05/16 23:57:00 23 | |
solaris | 41 | 82.0 | 2024/05/16 22:26:00 31 | 2024/05/16 23:55:00 41 | |
win64 | 1 | 2.0 | 2024/05/17 00:25:00 23 | 2024/05/17 00:25:00 23 | |
3.3.1 | 27 | 54.0 | 2024/05/16 22:08:00 35 | 2024/05/17 00:12:00 32 | |
3.2.3 | 23 | 46.0 | 2024/05/16 22:06:00 76 | 2024/05/17 00:25:00 23 |
{ Source provided for Free Pascal Bug Report 2911 } { Submitted by "Chris Hilder" on 2004-01-19 } { e-mail: cj.hilder@astronomyinyourhands.com } program bug_demo; {$LONGSTRINGS ON} {$ifdef fpc}{$Mode objfpc}{$endif} type RecordWithStrings = record one, two : string; end; var onestring, twostring : string; ARecordWithStrings : RecordWithStrings; procedure RefCount(const s : string;expect:longint); type PLongint = ^Longint; var P : PLongint; rc : longint; begin P := PLongint(s); rc:=0; if (p = nil) then writeln('Nil string.') else {$ifdef fpc} rc:=(p-1)^; {$else} rc:=plongint(pchar(p)-8)^); {$endif} writeln('Ref count is ',rc,' expected ',expect); if rc<>expect then halt(1); end; function FunctionResultIsRecord(a : RecordWithStrings) : RecordWithStrings; begin result := a; end; begin writeln('All reference counts should be 1 for the following...'); onestring := 'one'; twostring := 'two'; ARecordWithStrings.one := onestring + twostring; twostring := onestring + twostring; RefCount(ARecordWithStrings.one,1); ARecordWithStrings := FunctionResultIsRecord(ARecordWithStrings); twostring := onestring + twostring; RefCount(ARecordWithStrings.one,2); ARecordWithStrings := FunctionResultIsRecord(ARecordWithStrings); twostring := onestring + twostring; RefCount(ARecordWithStrings.one,3); ARecordWithStrings := FunctionResultIsRecord(ARecordWithStrings); twostring := onestring + twostring; RefCount(ARecordWithStrings.one,4); end.