t_id
754
t_cpu
i386
t_adddate
2003/10/03
t_result
0
t_knownrunerror
0
Record count: 50
Total = 50
OK=19 Percentage= 38.00
Skipped=31 Percentage= 62.00
| Result type | Cat. | Count | Percentage | First date | Last Date |
| Successfully run | 19 | 38.0 | 2024/05/17 23:27:00 24 | 2024/05/18 00:21:00 24 | |
| i386 | 19 | 100.0 | 2024/05/17 23:27:00 24 | 2024/05/18 00:21:00 24 | |
| linux | 7 | 36.8 | 2024/05/17 23:33:00 28 | 2024/05/18 00:20:00 23 | |
| win32 | 4 | 21.1 | 2024/05/17 23:27:00 24 | 2024/05/18 00:21:00 24 | |
| solaris | 8 | 42.1 | 2024/05/17 23:27:00 24 | 2024/05/17 23:38:00 29 | |
| 3.3.1 | 15 | 78.9 | 2024/05/17 23:27:00 24 | 2024/05/18 00:21:00 24 | |
| 3.2.3 | 4 | 21.1 | 2024/05/17 23:39:00 24 | 2024/05/18 00:20:00 23 | |
| Skipping test because for other cpu | 31 | 62.0 | 2024/05/17 23:27:00 38 | 2024/05/18 00:31:00 29 | |
| sparc | 19 | 61.3 | 2024/05/17 23:27:00 38 | 2024/05/17 23:55:00 41 | |
| x86_64 | 11 | 35.5 | 2024/05/18 00:05:00 29 | 2024/05/18 00:31:00 29 | |
| aarch64 | 1 | 3.2 | 2024/05/18 00:11:00 33 | 2024/05/18 00:11:00 33 | |
| linux | 1 | 3.2 | 2024/05/18 00:11:00 33 | 2024/05/18 00:11:00 33 | |
| solaris | 30 | 96.8 | 2024/05/17 23:27:00 38 | 2024/05/18 00:31:00 29 | |
| 3.3.1 | 9 | 29.0 | 2024/05/17 23:29:00 40 | 2024/05/18 00:11:00 33 | |
| 3.2.3 | 22 | 71.0 | 2024/05/17 23:27:00 38 | 2024/05/18 00:31:00 29 |
{ %CPU=i386 }
{ Source provided for Free Pascal Bug Report 1066 }
{ Submitted by "Fernando Oscar Schmitt" on 2000-07-24 }
{ e-mail: pulp@cpovo.net }
var
somevar:longint;
{$asmmode intel}
{$inline on}
procedure putpixel(x,y,color:longint);assembler;inline;
asm
mov edi,x
mov eax,y
cmp edi,0
jl @@putpixelend
cmp eax,0
jl @@putpixelend
cmp edi,1023
jg @@putpixelend
cmp eax,767
jg @@putpixelend
shl eax,12
mov ebx,color
add eax,somevar
mov [eax+edi*4],ebx
@@putpixelend:
end ['eax','ebx','edi'];
procedure pixelrow(y,x1,x2,color:longint);assembler;inline;
asm
mov edi,x1
mov ecx,x2
mov eax,y
cmp edi,ecx
jle @@pixelrowdirok
xchg edi,ecx
@@pixelrowdirok:
cmp eax,0
jl @@endpixelrow
cmp eax,767
jg @@endpixelrow
cmp ecx,0
jl @@endpixelrow
cmp edi,1023
jg @@endpixelrow
cmp edi,0
jge @@pixelrowx1ok
mov edi,0
@@pixelrowx1ok:
cmp ecx,1023
jle @@pixelrowx2ok
mov ecx,1023
@@pixelrowx2ok:
sub ecx,edi
shl eax,12
inc ecx
add eax,somevar
cld
lea edi,[eax+4*edi]
mov eax,color
rep stosd
@@endpixelrow:
end ['eax','ecx','edi'];
function str(w:word):string;
var tmp:string;
begin
system.str(w,tmp);
str:=tmp;
end;
function str(l:longint):string;
var tmp:string;
begin
system.str(l,tmp);
str:=tmp;
end;
procedure circle(x0,y0,r,color:longint);
var x,y:longint;
begin
for x:=0 to trunc(r*(sqrt(2)/2))+1 do
begin
y:=round(sqrt(r*r-x*x));
putpixel(x0+x,y0+y,color);
putpixel(x0-x,y0+y,color);
putpixel(x0+x,y0-y,color);
putpixel(x0-x,y0-y,color);
putpixel(x0+y,y0+x,color);
putpixel(x0-y,y0+x,color);
putpixel(x0+y,y0-x,color);
putpixel(x0-y,y0-x,color);
end;
end;
procedure circlefill(x0,y0,r,color:longint);
var x,y:longint;
begin
for x:=0 to trunc(r*(sqrt(2)/2))+1 do
begin
y:=round(sqrt(r*r-x*x));
pixelrow(y0+y,x0-x,x0+x,color);
pixelrow(y0-y,x0-x,x0+x,color);
pixelrow(y0+x,x0-y,x0+y,color);
pixelrow(y0-x,x0-y,x0+y,color);
end;
end;
begin
end.