<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=UTF-8">
</head>
<body text="#000000" bgcolor="#FFFFFF">
<div class="moz-cite-prefix">On 11/12/2018 7:37 AM, Ozz Nixon wrote:<br>
</div>
<blockquote type="cite"
cite="mid:CA+knxPow_1RqWnoiwxc7q57PHsGLx_HiDvtwvS=Xz30pV=t=OQ@mail.gmail.com">
<meta http-equiv="content-type" content="text/html; charset=UTF-8">
<div dir="ltr">
<div dir="ltr">
<div class="gmail_default" style="font-size:large">I have
these last couple of lines to port to FPC -Mdelphi, but
everything I try fails...</div>
<div class="gmail_default" style="font-size:large"><br>
</div>
<div class="gmail_default" style="font-size:large">
<div class="gmail_default">Asm</div>
<div class="gmail_default"> MOV
PreviousUnitAddressOffset,
TUnitHeader.PreviousUnitAddress</div>
<div class="gmail_default"> MOV
PreviousLibraryUnitAddressOffset,
TUnitHeader.PreviousLibraryUnitAddress</div>
<div class="gmail_default"> MOV
AncestorTypeDefinitionOffset,
TObjectTypeDefinition.AncestorTypeOffset</div>
<div class="gmail_default"> MOV
OrdinalTypeDefLowerLimitOffset,
TOrdinalTypeDefinition.LowerLimit</div>
<div class="gmail_default"> MOV
OrdinalTypeDefUpperLimitOffset,
TOrdinalTypeDefinition.UpperLimit</div>
<div class="gmail_default">end;</div>
</div>
</div>
</div>
</blockquote>
<p>Well, as others already mentioned, it is hard to give proper
advice without having a reproducible piece of code.</p>
<p>Just looking at the snippet above, I would start with questioning
if there isn't a more "Pascal way" to do this, whatever this piece
of code is trying to accomplish...<br>
</p>
<p>Ralf<br>
</p>
<div id="DAB4FAD8-2DD7-40BB-A1B8-4E2AA1F9FDF2"><br />
<table style="border-top: 1px solid #D3D4DE;">
<tr>
<td style="width: 55px; padding-top: 13px;"><a href="https://www.avast.com/sig-email?utm_medium=email&utm_source=link&utm_campaign=sig-email&utm_content=emailclient&utm_term=icon" target="_blank"><img src="https://ipmcdn.avast.com/images/icons/icon-envelope-tick-round-orange-animated-no-repeat-v1.gif" alt="" width="46" height="29" style="width: 46px; height: 29px;" /></a></td>
<td style="width: 470px; padding-top: 12px; color: #41424e; font-size: 13px; font-family: Arial, Helvetica, sans-serif; line-height: 18px;">Virus-free. <a href="https://www.avast.com/sig-email?utm_medium=email&utm_source=link&utm_campaign=sig-email&utm_content=emailclient&utm_term=link" target="_blank" style="color: #4453ea;">www.avast.com</a>
</td>
</tr>
</table><a href="#DAB4FAD8-2DD7-40BB-A1B8-4E2AA1F9FDF2" width="1" height="1"> </a></div></body>
</html>