paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-06-08 06:39:31 +02:00
Code Issues Packages Projects Releases Wiki Activity

* changed the sechdrofs,secstrofs and ImgOffset types to 32-bit to prevent

Browse Source 
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 -
This commit is contained in:
nickysn 2018-05-20 11:26:40 +00:00
parent db3c88c871
commit c8cbb1daea
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
rtl/inc/exeinfo.pp
View File

@ -36,11 +36,11 @@ type
isopen : boolean; isopen : boolean;
nsects : longint; nsects : longint;
sechdrofs, sechdrofs,
secstrofs : ptruint; secstrofs : {$ifdef cpui8086}longword{$else}ptruint{$endif};
processaddress : ptruint; processaddress : ptruint;
FunctionRelative: boolean; FunctionRelative: boolean;
// Offset of the binary image forming permanent offset to all retrieved values // Offset of the binary image forming permanent offset to all retrieved values
ImgOffset: ptruint; ImgOffset: {$ifdef cpui8086}longword{$else}ptruint{$endif};
filename : string; filename : string;
// Allocate static buffer for reading data // Allocate static buffer for reading data
buf : array[0..4095] of byte; buf : array[0..4095] of byte;