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

* use NtoLE instead of LEtoN in OMF DoRelocationFixup when converting from native to little endian. No functional changes, just better readability.

Browse Source
This commit is contained in:
Nikolay Nikolov 2023-11-02 14:28:48 +02:00
parent 49ce3f5d2a
commit beca14334c
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
compiler/ogomf.pas
View File

@ -3481,7 +3481,7 @@ cleanup:
omfsec.Data.read(w,2);
w:=LEtoN(w);
Inc(w,fixupamount);
w:=LEtoN(w);
w:=NtoLE(w);
omfsec.Data.seek(objreloc.DataOffset);
omfsec.Data.write(w,2);
end;
@ -3494,7 +3494,7 @@ cleanup:
omfsec.Data.read(lw,4);
lw:=LEtoN(lw);
Inc(lw,fixupamount);
lw:=LEtoN(lw);
lw:=NtoLE(lw);
omfsec.Data.seek(objreloc.DataOffset);
omfsec.Data.write(lw,4);
end;
@ -3507,7 +3507,7 @@ cleanup:
omfsec.Data.read(w,2);
w:=LEtoN(w);
Inc(w,framebase shr 4);
w:=LEtoN(w);
w:=NtoLE(w);
omfsec.Data.seek(DataOffset);
omfsec.Data.write(w,2);
Header.AddRelocation(omfsec.MZExeUnifiedLogicalSegment.MemBasePos shr 4,