ソースを参照

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

Nikolay Nikolov 1 年間 前
コミット
beca14334c
1 ファイル変更3 行追加3 行削除
  1. 3 3
      compiler/ogomf.pas

+ 3 - 3
compiler/ogomf.pas

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