anchor.diff:            if aMessage[i] = ')' then
             begin
               j := Pos(',', ident);
  +            if j = 0 then j := Pos(':', ident);
               if j = 0 then
                 result.y := strToIntDef(ident, -1)
               else
  
positive.code:   end;
  end;
  
  function getLineFromDmdMessage(const aMessage: string): TPoint;
  var
    i, j: NativeInt;
    ident: string;
  
negative.code:   end;
  
    function guessMessageKind(const aMessg: string): TCEAppMessageKind;
    function getLineFromMessage(const aMessage: string): TPoint;
    function openFileFromDmdMessage(const aMessage: string): boolean;
  
  implementation
  