paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-10-02 11:29:26 +02:00
Code Issues Packages Projects Releases Wiki Activity

TDBF: fixed some unaligned memory accesses causing SIGBUS on ARM

Browse Source 
git-svn-id: trunk@24155 -
This commit is contained in:
ludob 2013-04-05 09:48:34 +00:00
parent 3a7611537c
commit 414e9555b6
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
packages/fcl-db/src/dbase/dbf_idxfile.pas
View File

@ -1551,7 +1551,7 @@ end;
function TMdx4Tag.GetHeaderPageNo: Integer;
begin
Result := SwapIntLE(PMdx4Tag(Tag)^.HeaderPageNo);
Result := SwapIntLE(Unaligned(PMdx4Tag(Tag)^.HeaderPageNo));
end;
function TMdx4Tag.GetTagName: string;
@ -1591,7 +1591,7 @@ end;
procedure TMdx4Tag.SetHeaderPageNo(NewPageNo: Integer);
begin
PMdx4Tag(Tag)^.HeaderPageNo := SwapIntLE(NewPageNo);
Unaligned(PMdx4Tag(Tag)^.HeaderPageNo) := SwapIntLE(NewPageNo);
end;
procedure TMdx4Tag.SetTagName(NewName: string);
@ -1636,7 +1636,7 @@ end;
function TMdx7Tag.GetHeaderPageNo: Integer;
begin
Result := SwapIntLE(PMdx7Tag(Tag)^.HeaderPageNo);
Result := SwapIntLE(Unaligned(PMdx7Tag(Tag)^.HeaderPageNo));
end;
function TMdx7Tag.GetTagName: string;
@ -1676,7 +1676,7 @@ end;
procedure TMdx7Tag.SetHeaderPageNo(NewPageNo: Integer);
begin
PMdx7Tag(Tag)^.HeaderPageNo := SwapIntLE(NewPageNo);
Unaligned(PMdx7Tag(Tag)^.HeaderPageNo) := SwapIntLE(NewPageNo);
end;
procedure TMdx7Tag.SetTagName(NewName: string);