anchor.diff:      for I := 0 to Decls.Count - 1 do
       begin
         p := TObject(Decls[I]) as TPasElement;
  -      Writeln('Interface item ', I, ': ' + p.Name + ' [line ' + IntToStr(p.SourceLinenumber) + ']');
  -
  +//      Writeln('Interface item ', I, ': ' + p.Name + ' [line ' + IntToStr(p.SourceLinenumber) + ']');
       end;
       FreeAndNil(M);
     finally
  
positive.code:   else if StrContains('destructor', ProcName, False) then // Do not localize.
      Result := ImageIndexTrash
    else if StrBeginsWith('class proc', ProcName, False)    // Do not localize.
        or StrContains('class func', ProcName, False) 
        or (ProcClass <> '') then
      Result := ImageIndexGear
    else
  
negative.code: {
    E := TSimpleEngine.Create;
    try
  //    writeln(Format('Parsing file <%s> for OS <%s> and CPU <%s>', [FFilename, OSTarget, CPUTarget]));
      M := ParseSource(E, FFilename, OSTarget, CPUTarget);
  
      { Cool, we successfully parsed the unit.
  