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: PreviousUnitAddressOffset:=TUnitHeader.PreviousUnitAddress;
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). Ozz On Tue, Nov 13, 2018 at 1:31 PM Ralf Quint <freedos...@gmail.com> wrote: > On 11/12/2018 7:37 AM, Ozz Nixon wrote: > > I have these last couple of lines to port to FPC -Mdelphi, but everything > I try fails... > > Asm > MOV PreviousUnitAddressOffset, > TUnitHeader.PreviousUnitAddress > MOV PreviousLibraryUnitAddressOffset, > TUnitHeader.PreviousLibraryUnitAddress > MOV AncestorTypeDefinitionOffset, > TObjectTypeDefinition.AncestorTypeOffset > MOV OrdinalTypeDefLowerLimitOffset, > TOrdinalTypeDefinition.LowerLimit > MOV OrdinalTypeDefUpperLimitOffset, > TOrdinalTypeDefinition.UpperLimit > end; > > Well, as others already mentioned, it is hard to give proper advice > without having a reproducible piece of code. > > 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... > > Ralf > > > <https://www.avast.com/sig-email?utm_medium=email&utm_source=link&utm_campaign=sig-email&utm_content=emailclient&utm_term=icon> > Virus-free. > www.avast.com > <https://www.avast.com/sig-email?utm_medium=email&utm_source=link&utm_campaign=sig-email&utm_content=emailclient&utm_term=link> > <#m_-1587466564115926972_DAB4FAD8-2DD7-40BB-A1B8-4E2AA1F9FDF2> > _______________________________________________ > fpc-devel maillist - fpc-devel@lists.freepascal.org > http://lists.freepascal.org/cgi-bin/mailman/listinfo/fpc-devel >
_______________________________________________ fpc-devel maillist - fpc-devel@lists.freepascal.org http://lists.freepascal.org/cgi-bin/mailman/listinfo/fpc-devel