t_id
833
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/05/21 01:10:00 32 | 2024/05/21 01:52:00 22 | |
i386 | 33 | 66.0 | 2024/05/21 01:10:00 32 | 2024/05/21 01:51:00 35 | |
x86_64 | 15 | 30.0 | 2024/05/21 01:25:00 26 | 2024/05/21 01:52:00 22 | |
aarch64 | 2 | 4.0 | 2024/05/21 01:29:00 35 | 2024/05/21 01:46:00 38 | |
linux | 50 | 100.0 | 2024/05/21 01:10:00 32 | 2024/05/21 01:52:00 22 | |
3.3.1 | 26 | 52.0 | 2024/05/21 01:25:00 37 | 2024/05/21 01:52:00 22 | |
3.2.3 | 24 | 48.0 | 2024/05/21 01:10:00 32 | 2024/05/21 01:51:00 35 |
{ Source provided for Free Pascal Bug Report 1622 } { Submitted by "Henrik C. Jessen" on 2001-09-28 } { e-mail: henrik.jessen@nettest.com } PROGRAM Test; {$ifdef go32v2} CONST SomeSegment = $B800; SomeOffset = $0000; VAR AbsOne : Word ABSOLUTE $B800:$0000; { -- accepted by FPC } AbsTwo : Word ABSOLUTE SomeSegment:SomeOffset; { -- NOT accepted by FPC } AbsThree : Word ABSOLUTE $B000+$400*2:24*16+4-32; AbsFour : Word ABSOLUTE SomeSegment+$400*2:SomeOffset*4-32; { The two variables above are at the same } { address; that is correctly recognized } { by Borland Pascal. } {-----------------------------------------} {$endif go32v2} { Adding some test code for normal absolute stuff } procedure testabs(var x : longint); var y : longint absolute x; begin y:=x+1; end; { If x is diclared as const parametr the compilation should fail } procedure testabs2({const }x : longint); var y : longint absolute x; begin y:=x+1; end; procedure teststring(s : string); var y : byte absolute s; begin { this will truncate the string to 4 chars } y:=4; Writeln(s); end; procedure teststringvar(var s : string); var y : byte absolute s; begin { this will truncate the string to 4 chars } y:=4; Writeln(s); end; procedure test_global_var; var y : integer absolute system.exitcode; begin y := 315; end; const x : longint = 5; y : longint = 7; var s : string; BEGIN testabs(x); if x<>6 then begin Writeln('Error in absolute handling'); Halt(1); end; testabs2(y); if y<>7 then begin Writeln('Error in absolute handling'); Halt(1); end; s:='Test dummy string'; teststring(s); if s<>'Test dummy string' then begin Writeln('Error in absolute handling for strings'); Halt(1); end; teststringvar(s); if s<>'Test' then begin Writeln('Error in absolute handling for strings'); Halt(1); end; test_global_var; if exitcode<>315 then begin Writeln('Error in absolute handling'); Halt(1); end; exitcode:=0; END.