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

* don't reuse emptyint

Browse Source 
git-svn-id: trunk@8724 -
This commit is contained in:
peter 2007-10-02 18:41:07 +00:00
parent e0a45eaf28
commit 488c06d275
1 changed files with 13 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
compiler/ogcoff.pas
View File

@ -2372,6 +2372,7 @@ const pemagic : array[0..3] of byte = (
idata4label, idata4label,
idata5label, idata5label,
idata6label : TObjSymbol; idata6label : TObjSymbol;
ordint,
emptyint : longint; emptyint : longint;
secname, secname,
num : string; num : string;
@ -2380,7 +2381,12 @@ const pemagic : array[0..3] of byte = (
result:=nil; result:=nil;
emptyint:=0; emptyint:=0;
if assigned(exemap) then if assigned(exemap) then
exemap.Add(' Importing Function '+afuncname); begin
if AOrdNr <= 0 then
exemap.Add(' Importing Function '+afuncname)
else
exemap.Add(' Importing Function '+afuncname+' (OrdNr='+tostr(AOrdNr)+')');
end;
with internalobjdata do with internalobjdata do
begin begin
@ -2413,19 +2419,18 @@ const pemagic : array[0..3] of byte = (
end end
else else
begin begin
emptyint:=AOrdNr; ordint:=AOrdNr;
if target_info.system=system_x86_64_win64 then if target_info.system=system_x86_64_win64 then
begin begin
internalobjdata.writebytes(emptyint,sizeof(emptyint)); internalobjdata.writebytes(ordint,sizeof(ordint));
emptyint:=longint($80000000); ordint:=longint($80000000);
internalobjdata.writebytes(emptyint,sizeof(emptyint)); internalobjdata.writebytes(ordint,sizeof(ordint));
end end
else else
begin begin
emptyint:=emptyint or longint($80000000); ordint:=ordint or longint($80000000);
internalobjdata.writebytes(emptyint,sizeof(emptyint)); internalobjdata.writebytes(ordint,sizeof(ordint));
end; end;
emptyint:=0;
end; end;
{ idata5, import address table } { idata5, import address table }
internalobjdata.SetSection(idata5objsection); internalobjdata.SetSection(idata5objsection);