[fpc-devel] Packed record integers and x86_86
patrolliekaptein at gmail.com
Wed Mar 27 18:52:11 CET 2019
On Wed, Mar 27, 2019 at 7:48 PM Christo Crause <christo.crause at gmail.com>
> On Wed, 27 Mar 2019, 19:27 DJ Coertzen, <patrolliekaptein at gmail.com>
>> Hi there,
>> I need a solution for a packed record containing 4-byte 32-bit integers
>> and cardinals, and other byte 8 bit and word 16 bit sized variables to
>> overlay over a stream.
>> * TMyBinaryHeader = packed record*
>> * Sender : Cardinal;*
>> * Target : Cardinal;*
>> * Reference : Integer; *
>> * Flags : Word;*
>> * CheckByte : Byte;*
>> * end;*
>> So on 32 bit systems, SizeOf(TMyBinaryHeader) will report 15 bytes. How
>> do I accomplish this on 64 bit platform and avoiding
>> "myprotocollib.pas(x,y) Error: Typecast has different size (4 -> 8) in
>> assignment" without having to port to ugly byte copy operations.
> Perhaps use size explicit types such as uint32 and int32?
> fpc-devel maillist - fpc-devel at lists.freepascal.org
*for Indx := 0 to SizeOf(TTCPPackageHeader) - 1 do
Dec(Byte(Pointer(Cardinal(@x) + Indx)^), ARollCount);*
-------------- next part --------------
An HTML attachment was scrubbed...
More information about the fpc-devel