packages/fcl-res/src/: Make RelocType and fRelocType "longword".
They were previously "byte", which is not big enough for Elf64.
---
packages/fcl-res/src/elfsubwriter.inc | 2 +-
packages/fcl-res/src/elfwriter.pp | 2 +-
2 files changed, 2 insertions(+), 2 deletions(-)
diff --git a/packages/fcl-res/src/elfsubwriter.inc
b/packages/fcl-res/src/elfsubwriter.inc
index 3da0abf..144370b 100644
--- a/packages/fcl-res/src/elfsubwriter.inc
+++ b/packages/fcl-res/src/elfsubwriter.inc
@@ -27,7 +27,7 @@ type
_TElfRelocTable_= class
private
fList : TFPList;
- fRelocType : byte;
+ fRelocType : longword;
fEntrySize : integer;
fSectionType : integer;
fSectionName : string;
diff --git a/packages/fcl-res/src/elfwriter.pp
b/packages/fcl-res/src/elfwriter.pp
index e6de496..dc157d0 100644
--- a/packages/fcl-res/src/elfwriter.pp
+++ b/packages/fcl-res/src/elfwriter.pp
@@ -155,7 +155,7 @@ type
type
TElfRelocInfo = record
- RelocType : byte;
+ RelocType : longword;
SectionType : integer;
end;
(*
--
1.7.10.4
_______________________________________________
fpc-devel maillist - [email protected]
http://lists.freepascal.org/cgi-bin/mailman/listinfo/fpc-devel
