On Tue, 7 Jul 2020 14:09:09 +0700 Ryan Joseph via fpc-pascal <fpc-pascal@lists.freepascal.org> wrote:
> > 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; Scanner:=AItem.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 Mattias _______________________________________________ fpc-pascal maillist - fpc-pascal@lists.freepascal.org https://lists.freepascal.org/cgi-bin/mailman/listinfo/fpc-pascal
