arm-wince bus error or misaligned data access (bug 7000)
Original Reporter info from Mantis: pcode@mail.ru
-
Reporter name: --
Original Reporter info from Mantis: pcode@mail.ru
- Reporter name: --
Description:
type yRect = packed
object
x,y,
xx,yy: longint;
function valid:boolean;
end;
procedure setr( const r:yRect; var rc: windows.Rect);
var i: longint;
p1:pbyte;
p2:pbyte;
begin
{commented code causes an error}
// windows.SetRect( rc, r.X, r.Y, r.XX, r.YY );
{
rc.left := r.x;
rc.top := r.y;
rc.right := r.xx;
rc.bottom := r.yy;}
{but this is ok}
p1 := @r;
p2 := @rc;
for i:= 0 to sizeof(r)-1 do
begin
p2^ :=p1^;
inc(p1);
inc(p2);
end;
end;
revision 5657 used.
Mantis conversion info:
- Mantis ID: 8024
- Version: 2.2.0