index 9e77d0e761a80deb27de588e6886cd591710c330..1f53456f23d6a009e21d136c418c4aff19ab7555 100644 (file)
--- a/src/shared/BinEditor.pas
+++ b/src/shared/BinEditor.pas
* 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
begin
// Äëèíà áëîêà ïàìÿòè:
CopyMemory(@memSize,
- Pointer((FData) + FPosition),
+ Pointer(NativeUInt(FData) + FPosition),
SizeOf(Cardinal));
if (FPosition + SizeOf(Cardinal) + memSize) <= FSize then