<HTML>
<style> BODY { font-family:Arial, Helvetica, sans-serif;font-size:12px; }</style>Heh, much better - thank you!<br>
<br>
<br>
<br>
<span style="font-weight: bold;">On Thu 28/03/19 14:31 , "Karoly Balogh (Charlie/SGR)" charlie@scenergy.dfmk.hu sent:<br>
</span><blockquote style="BORDER-LEFT: #F5F5F5 2px solid; MARGIN-LEFT: 5px; MARGIN-RIGHT:0px; PADDING-LEFT: 5px; PADDING-RIGHT: 0px">Hi,
<br>
<br>
On Thu, 28 Mar 2019, J. Gareth Moreton wrote:
<br>
<br>
<span style="color: rgb(102, 102, 102);">> I think the official unsigned 32-bit integer type in Pascal is
</span><br>
<span style="color: rgb(102, 102, 102);">> "LongWord". As others have said, be aware that pointers are 64-bit under
</span><br>
<span style="color: rgb(102, 102, 102);">> x64... that's kind of why it's called x64! If you absolutely must have
</span><br>
<span style="color: rgb(102, 102, 102);">> a packed record with 32-bit types, I recommend changing Sender and
</span><br>
<span style="color: rgb(102, 102, 102);">> Target to indices that are added to a base address.
</span><br>
<span style="color: rgb(102, 102, 102);">>
</span><br>
<span style="color: rgb(102, 102, 102);">> Similar to what Pierre said, change your Pointer code to something like
</span><br>
<span style="color: rgb(102, 102, 102);">> this:
</span><br>
<span style="color: rgb(102, 102, 102);">>
</span><br>
<span style="color: rgb(102, 102, 102);">> for Indx := 0 to SizeOf(TTCPPackageHeader) - 1 do Dec(Byte(Pointer(PtrUInt(@x) + Indx)^), ARollCount);
</span><br>
<br>
How about Dec(PByte(@x)[Indx], ARollCount); instead? That doesn't look
<br>
like an angry C programmer tried to convert some abomination to Pascal,
<br>
and works on all pointer sizes.
<br>
<br>
(Unless it also has to compile with say, Delphi.)
<br>
<br>
Charlie
<br>
<br>
_______________________________________________<br>
fpc-devel maillist - <a href="mailto:fpc-devel@lists.freepascal.org">fpc-devel@lists.freepascal.org</a><br>
<a target="_blank" href="<a href="http://lists.freepascal.org/cgi-bin/mailman/listinfo/fpc-devel">http://lists.freepascal.org/cgi-bin/mailman/listinfo/fpc-devel</a>"><span style="color: red;">http://lists.freepascal.org/cgi-bin/mailman/listinfo/fpc-devel</span></a><br>
<br>
</blockquote></HTML>