anchor.diff:  {
     E := TSimpleEngine.Create;
     try
  -    writeln(Format('Parsing file <%s> for OS <%s> and CPU <%s>', [FFilename, OSTarget, CPUTarget]));
  +//    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.
  
positive.code:       finally
          SFile.Free;
        end;
        SendDebug('Procedure List: Starting Parse');
        case Language of
          ltPas: Parser.Origin := MemStream.Memory;
  //        ltCpp: CParser.SetOrigin(MemStream.Memory, MemStream.Size);
  
negative.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
  