t_id
405
t_cpu
i386
t_adddate
2003/10/03
t_result
0
t_knownrunerror
0
t_opts
-Ratt
Record count: 50
Total = 50
OK=4 Percentage= 8.00
Skipped=46 Percentage= 92.00
Result type | Cat. | Count | Percentage | First date | Last Date |
Successfully run | 4 | 8.0 | 2024/09/26 19:54:00 70 | 2024/09/26 22:38:00 79 | |
i386 | 4 | 100.0 | 2024/09/26 19:54:00 70 | 2024/09/26 22:38:00 79 | |
go32v2 | 4 | 100.0 | 2024/09/26 19:54:00 70 | 2024/09/26 22:38:00 79 | |
3.3.1 | 4 | 100.0 | 2024/09/26 19:54:00 70 | 2024/09/26 22:38:00 79 | |
Skipping test because for other cpu | 46 | 92.0 | 2024/09/26 18:42:00 90 | 2024/09/26 23:02:00 44 | |
powerpc | 14 | 30.4 | 2024/09/26 19:41:00 35 | 2024/09/26 23:02:00 44 | |
powerpc64 | 17 | 37.0 | 2024/09/26 18:42:00 90 | 2024/09/26 22:29:00 103 | |
wasm32 | 7 | 15.2 | 2024/09/26 19:31:00 339 | 2024/09/26 22:50:00 299 | |
riscv64 | 8 | 17.4 | 2024/09/26 19:14:00 123 | 2024/09/26 19:59:00 123 | |
linux | 39 | 84.8 | 2024/09/26 18:42:00 90 | 2024/09/26 23:02:00 44 | |
wasi | 7 | 15.2 | 2024/09/26 19:31:00 339 | 2024/09/26 22:50:00 299 | |
3.3.1 | 30 | 65.2 | 2024/09/26 18:42:00 90 | 2024/09/26 22:50:00 299 | |
3.2.3 | 16 | 34.8 | 2024/09/26 21:17:00 71 | 2024/09/26 23:02:00 44 |
{ %CPU=i386 } { %OPT= -Ratt } { Old file: tbs0201.pp } { problem with record var-parameters and assembler OK 0.99.11 (PFV) } program bug0201; type rec = record a : DWord; b : Word; end; { this is really for tests but this should be coded with const r1 and r2 !! } function x(r1 : rec; r2 : rec; var r3 : rec) : integer; assembler; asm movl r3, %edi movl r1, %ebx movl r2, %ecx movl rec.a(%ebx), %eax addl rec.a(%ecx), %eax movl %eax, rec.a(%edi) movw rec.b(%ebx), %ax addw rec.b(%ecx), %ax movw %ax, rec.b(%edi) movw $1,%ax end; var r1, r2, r3 : rec; begin r1.a := 100; r1.b := 200; r2.a := 300; r2.b := 400; x(r1, r2, r3); Writeln(r3.a, ' ', r3.b); if (r3.a<>400) or (r3.b<>600) then begin Writeln('Error in assembler code'); Halt(1); end; end.