X-Git-Url: https://deadsoftware.ru/gitweb?a=blobdiff_plain;f=src%2Fshared%2FBinEditor.pas;h=1f53456f23d6a009e21d136c418c4aff19ab7555;hb=a3bcb617007d8e9be1877122b79fd3fd1f7d701a;hp=9e77d0e761a80deb27de588e6886cd591710c330;hpb=2a785940b8e595cffcc9e9d652c2ae9248c989ee;p=d2df-sdl.git

diff --git a/src/shared/BinEditor.pas b/src/shared/BinEditor.pas
index 9e77d0e..1f53456 100644
--- a/src/shared/BinEditor.pas
+++ b/src/shared/BinEditor.pas
@@ -13,7 +13,7 @@
  * You should have received a copy of the GNU General Public License
  * along with this program.  If not, see <http://www.gnu.org/licenses/>.
  *)
-{$MODE DELPHI}
+{$INCLUDE a_modes.inc}
 Unit BinEditor;
 
 Interface
@@ -450,7 +450,7 @@ begin
     begin
     // Äëèíà áëîêà ïàìÿòè:
       CopyMemory(@memSize,
-                 Pointer((FData) + FPosition),
+                 Pointer(NativeUInt(FData) + FPosition),
                  SizeOf(Cardinal));
 
       if (FPosition + SizeOf(Cardinal) + memSize) <= FSize then