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