I’m trying to look at the code in a the begin..end section of this sample program but for some reason when it gets to the BeginBlock node child count is always 0 (other nodes are as expected though). I’m calling Explore correctly I think so what could the problem be?
Here is the little test program I’m using along with a snippet which explores the code and walks the tree. Btw, I understand this question is basically for Mattias but I don’t know where else to post. Does Mattias prefer I post in one of these forums https://forum.lazarus.freepascal.org or maybe email privately with code tools questions? ======================== program test; var A: Integer; begin A := 1; end. ======================== CodeToolBoss.Explore(Code, Tool, true); Node := tool.Tree.Root; while Node <> nil do begin writeln(Node.DescAsString, ‘ -> ’, Node.ChildCount); Node := Node.Next; end; Regards, Ryan Joseph _______________________________________________ fpc-pascal maillist - fpc-pascal@lists.freepascal.org https://lists.freepascal.org/cgi-bin/mailman/listinfo/fpc-pascal
