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

+ Endian-swapping procedures for version (TElfverneed, etc.) records.

Browse Source 
git-svn-id: trunk@23155 -
This commit is contained in:
sergei 2012-12-16 09:43:48 +00:00
parent 0aa7204707
commit c73ec250a6
1 changed files with 55 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

55
compiler/ogelf.pas
View File

@ -517,6 +517,61 @@ implementation
end;
procedure MaybeSwapElfverdef(var h: TElfverdef);
begin
if source_info.endian<>target_info.endian then
with h do
begin
vd_version:=swapendian(vd_version);
vd_flags:=swapendian(vd_flags);
vd_ndx:=swapendian(vd_ndx);
vd_cnt:=swapendian(vd_cnt);
vd_hash:=swapendian(vd_hash);
vd_aux:=swapendian(vd_aux);
vd_next:=swapendian(vd_next);
end;
end;
procedure MaybeSwapElfverdaux(var h: TElfverdaux);
begin
if source_info.endian<>target_info.endian then
with h do
begin
vda_name:=swapendian(vda_name);
vda_next:=swapendian(vda_next);
end;
end;
procedure MaybeSwapElfverneed(var h: TElfverneed);
begin
if source_info.endian<>target_info.endian then
with h do
begin
vn_version:=swapendian(vn_version);
vn_cnt:=swapendian(vn_cnt);
vn_file:=swapendian(vn_file);
vn_aux:=swapendian(vn_aux);
vn_next:=swapendian(vn_next);
end;
end;
procedure MaybeSwapElfvernaux(var h: TElfvernaux);
begin
if source_info.endian<>target_info.endian then
with h do
begin
vna_hash:=swapendian(vna_hash);
vna_flags:=swapendian(vna_flags);
vna_other:=swapendian(vna_other);
vna_name:=swapendian(vna_name);
vna_next:=swapendian(vna_next);
end;
end;
{****************************************************************************
Helpers
****************************************************************************}