From c8cbb1daeaef985e24e98383c091309644f8a69c Mon Sep 17 00:00:00 2001
From: nickysn <nickysn@gmail.com>
Date: Sun, 20 May 2018 11:26:40 +0000
Subject: [PATCH] * changed the sechdrofs,secstrofs and ImgOffset types to
32-bit to prevent overflow errors on i8086 (ptruint is 16-bit in certain
i8086 memory models; file offsets, however, still remain 32-bit)
git-svn-id: trunk@39036 -
---
rtl/inc/exeinfo.pp | 4 ++--
1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/rtl/inc/exeinfo.pp b/rtl/inc/exeinfo.pp
index 10dd233220..644d45e1d2 100644
--- a/rtl/inc/exeinfo.pp
+++ b/rtl/inc/exeinfo.pp
@@ -36,11 +36,11 @@ type
isopen : boolean;
nsects : longint;
sechdrofs,
- secstrofs : ptruint;
+ secstrofs : {$ifdef cpui8086}longword{$else}ptruint{$endif};
processaddress : ptruint;
FunctionRelative: boolean;
// Offset of the binary image forming permanent offset to all retrieved values
- ImgOffset: ptruint;
+ ImgOffset: {$ifdef cpui8086}longword{$else}ptruint{$endif};
filename : string;
// Allocate static buffer for reading data
buf : array[0..4095] of byte;