paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-14 07:09:23 +02:00
Code Issues Packages Projects Releases Wiki Activity

Add missing TPECoffExpDir variantr of MaybeSwap procedure

Browse Source
This commit is contained in:
Pierre Muller 2023-07-25 11:11:54 +00:00
parent 2443fd0ad7
commit ee97c0ca03
1 changed files with 47 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

62
compiler/ogcoff.pas
View File

@ -571,6 +571,20 @@ implementation
zero_fill_size : dword; zero_fill_size : dword;
flags : dword; flags : dword;
end; end;
TPECoffExpDir=packed record
flag,
stamp : cardinal;
Major,
Minor : word;
Name,
Base,
NumFuncs,
NumNames,
AddrFuncs,
AddrNames,
AddrOrds : cardinal;
end;
{ MaybeSwap procedures { MaybeSwap procedures
tcoffpedatadir = packed record tcoffpedatadir = packed record
vaddr : longword; vaddr : longword;
@ -882,7 +896,39 @@ implementation
v.flags:=SwapEndian(v.flags); v.flags:=SwapEndian(v.flags);
end; end;
end; end;
(*
TPECoffExpDir=packed record
flag,
stamp : cardinal;
Major,
Minor : word;
Name,
Base,
NumFuncs,
NumNames,
AddrFuncs,
AddrNames,
AddrOrds : cardinal;
end;
*)
procedure MaybeSwap(var v : TPECoffExpDir);
begin
if source_info.endian<>target_info.endian then
begin
v.flag:=SwapEndian(v.flag);
v.stamp:=SwapEndian(v.stamp);
v.Major:=SwapEndian(v.Major);
v.Minor:=SwapEndian(v.Minor);
v.Name:=SwapEndian(v.Name);
v.Base:=SwapEndian(v.Base);
v.NumFuncs:=SwapEndian(v.NumFuncs);
v.NumNames:=SwapEndian(v.NumNames);
v.AddrFuncs:=SwapEndian(v.AddrFuncs);
v.AddrNames:=SwapEndian(v.AddrNames);
v.AddrOrds:=SwapEndian(v.AddrOrds);
end;
end;
const const
SymbolMaxGrow = 200*sizeof(coffsymbol); SymbolMaxGrow = 200*sizeof(coffsymbol);
StrsMaxGrow = 8192; StrsMaxGrow = 8192;
@ -3744,20 +3790,6 @@ const pemagic : array[0..3] of byte = (
{$endif win32} {$endif win32}
function ReadDLLImports(const dllname:string;readdllproc:Treaddllproc):boolean; function ReadDLLImports(const dllname:string;readdllproc:Treaddllproc):boolean;
type
TPECoffExpDir=packed record
flag,
stamp : cardinal;
Major,
Minor : word;
Name,
Base,
NumFuncs,
NumNames,
AddrFuncs,
AddrNames,
AddrOrds : cardinal;
end;
var var
DLLReader : TObjectReader; DLLReader : TObjectReader;
DosHeader : array[0..$7f] of byte; DosHeader : array[0..$7f] of byte;