<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>