anchor.diff:    end;
   end;
   
  -//TODO-cbugfix: doesnt work with -vcolumns
   function getLineFromDmdMessage(const aMessage: string): TPoint;
   var
  -  i: NativeInt;
  +  i, j: NativeInt;
     ident: string;
   begin
     result.x := 0;
  
positive.code:           end;
            if aMessage[i] = ')' then
            begin
              result.y := strToIntDef(ident, -1);
              exit;
            end;
          end;
  
negative.code:         begin
            inc(i);
            if i > length(aMessage) then exit;
            while( isNumber(aMessage[i]) or (aMessage[i] = ',')) do
            begin
              ident += aMessage[i];
              inc(i);
  