<div dir="ltr"><div dir="ltr"><div class="gmail_default" style="font-size:large">Thank you all ... I am on the road, when I get back, I will track down TUnitHeader, TObjectTypeDefinition, TOrdinalTypeDefinition - and post those structures. My problem was changing the above to simple:</div><div class="gmail_default" style="font-size:large">   PreviousUnitAddressOffset:=TUnitHeader.PreviousUnitAddress;</div><div class="gmail_default" style="font-size:large"><br></div><div class="gmail_default" style="font-size:large">does not work, I think they are constants - I will have to dig back through the code. (It's from 1995, written by Anders Hejlsberg, so it does a lot of odd ASM things).</div><div class="gmail_default" style="font-size:large"><br></div><div class="gmail_default" style="font-size:large">Ozz</div></div></div><br><div class="gmail_quote"><div dir="ltr">On Tue, Nov 13, 2018 at 1:31 PM Ralf Quint <<a href="mailto:freedos.la@gmail.com">freedos.la@gmail.com</a>> wrote:<br></div><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">
  
    
  
  <div text="#000000" bgcolor="#FFFFFF">
    <div class="m_-1587466564115926972moz-cite-prefix">On 11/12/2018 7:37 AM, Ozz Nixon wrote:<br>
    </div>
    <blockquote type="cite">
      
      <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="m_-1587466564115926972DAB4FAD8-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" style="color:#4453ea" target="_blank">www.avast.com</a>
                </td>
        </tr>
</table><a href="#m_-1587466564115926972_DAB4FAD8-2DD7-40BB-A1B8-4E2AA1F9FDF2" width="1" height="1"> </a></div></div>

_______________________________________________<br>
fpc-devel maillist  -  <a href="mailto:fpc-devel@lists.freepascal.org" target="_blank">fpc-devel@lists.freepascal.org</a><br>
<a href="http://lists.freepascal.org/cgi-bin/mailman/listinfo/fpc-devel" rel="noreferrer" target="_blank">http://lists.freepascal.org/cgi-bin/mailman/listinfo/fpc-devel</a><br>
</blockquote></div>