From beca14334c4a38174c0dd6d628d81e4367ac4969 Mon Sep 17 00:00:00 2001
From: Nikolay Nikolov <nickysn@gmail.com>
Date: Thu, 2 Nov 2023 14:28:48 +0200
Subject: [PATCH] * use NtoLE instead of LEtoN in OMF DoRelocationFixup when
 converting from native to little endian. No functional changes, just better
 readability.

---
 compiler/ogomf.pas | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/compiler/ogomf.pas b/compiler/ogomf.pas
index 3b9a2f0168..a8b255b369 100644
--- a/compiler/ogomf.pas
+++ b/compiler/ogomf.pas
@@ -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,