turned on typeinfo (preparing for text-mode maps magic)

[d2df-sdl.git] / src / shared / BinEditor.pas

diff --git a/src/shared/BinEditor.pas b/src/shared/BinEditor.pas
index 9e77d0e761a80deb27de588e6886cd591710c330..1f53456f23d6a009e21d136c418c4aff19ab7555 100644 (file)
--- 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