> On Jul 7, 2020, at 4:57 AM, Mattias Gaertner via fpc-pascal
> <fpc-pascal@lists.freepascal.org> wrote:
>
> Something like this:
>
> Node:=AItem.Node;
> if Node<>nil then
> begin
> Scanner:=Tool.Scanner;
> LinkIndex:=Scanner.LinkIndexAtCleanPos(Node.StartPos);
> if LinkIndex<0 then
> // dangling node, e.g. syntax error
> else
> InIncludeFile:=Scanner.LinkP[LinkIndex]^.Code<>Scanner.MainCode;
> end else
> ; // artificial node, e.g. intrinsic
works well, thanks.
Regards,
Ryan Joseph
_______________________________________________
fpc-pascal maillist - fpc-pascal@lists.freepascal.org
https://lists.freepascal.org/cgi-bin/mailman/listinfo/fpc-pascal
