anchor.diff:    if RegularExpressionsCompiled then
       Exit;
   
  -  HintSegmentRegEx := TRegEx.Create(HintSegmentRegExPattern,
  -    [roCompiled, roSingleLine, roIgnoreCase]);
  -  HintUnitRegEx := TRegEx.Create(HintUnitRegExPattern,
  -    [roCompiled, roSingleLine, roIgnoreCase]);
  -  HintPublicsByNameRegEx := TRegEx.Create(HintPublicsByNameRegExPattern,
  -    [roCompiled, roSingleLine, roIgnoreCase]);
  -  HintPublicsByValueRegEx := TRegEx.Create(HintPublicsByValueRegExPattern,
  -    [roCompiled, roSingleLine, roIgnoreCase]);
  -
  -  SegmentRegEx := TRegEx.Create(SegmentRegExPattern,
  -    [roCompiled, roSingleLine]);
  +  HintSegmentRegEx := TRegEx.Create(HintSegmentRegExPattern, [roCompiled, roSingleLine, roIgnoreCase]);
  +  HintUnitRegEx := TRegEx.Create(HintUnitRegExPattern, [roCompiled, roSingleLine, roIgnoreCase]);
  +  HintPublicsByNameRegEx := TRegEx.Create(HintPublicsByNameRegExPattern, [roCompiled, roSingleLine, roIgnoreCase]);
  +  HintPublicsByValueRegEx := TRegEx.Create(HintPublicsByValueRegExPattern, [roCompiled, roSingleLine, roIgnoreCase]);
  +
  +  SegmentRegEx := TRegEx.Create(SegmentRegExPattern, [roCompiled, roSingleLine]);
     UnitRegEx := TRegEx.Create(UnitRegExPattern, [roCompiled, roSingleLine]);
     SymbolRegEx := TRegEx.Create(SymbolRegExPattern, [roCompiled, roSingleLine]);
  -  LocationRegEx := TRegEx.Create(LocationRegExPattern,
  -    [roCompiled, roSingleLine]);
  +  LocationRegEx := TRegEx.Create(LocationRegExPattern, [roCompiled, roSingleLine]);
     LineRegEx := TRegEx.Create(LineRegExPattern, [roCompiled, roSingleLine]);
   
     RegularExpressionsCompiled := True;
  
positive.code:       for Match in Matches do
        begin
          with Match do
            ProcessLine(StrToInt(Groups[1].Value), StrToInt(Groups[2].Value),
              StrToInt('$' + Groups[3].Value));
        end;
      end;
    end;
  
negative.code:   end;
  end;
  
  function TDebugInfoSMap.GetLineNumberSource(Address: Pointer; PRtSeg: PRuntimeSegment): PLineNumberSource;
  var
    LineNumberAddress: NativeUInt;
    I: Integer;
  