anchor.diff:                 end;
                  Node:=NodeEx^;
                 end;
  -             finally
  -              NewNodeList.Free;
                end;
  -            finally
  -             FreeAndNil(NodeList);
               end;
              until not DoContinue;
              if Optimized then begin
  
positive.code:    while Index<Nodes.Count do begin
      Node:=Nodes[Index];
      Node^.Index:=Index;
      if Visited.IndexOf(Node)<0 then begin
       Node^.Name:='';
       Finalize(Node^);
       FreeMem(Node);
       Nodes.Delete(Index);
      end else begin
       inc(Index);
      end;
     end;
    end;
  
negative.code:     NodeByID[AnchoredStartInstruction^.IDandOpcode shr 8]:=0;
      NodesCount:=1;
      Condition:=0;
      ToVisit:=TFLREPointerList.Create;
      try
       WorkQueue:=TFLREPointerList.Create;
       try
        ToVisit.Add(AnchoredStartInstruction);
        ToVisitIndex:=0;
  