anchor.diff:  procedure TmwPasLex.SetOrigin(NewValue: PChar);
   begin
     inherited SetOrigin(NewValue);
  -  if not FAheadLex.FUseSharedOrigin then
  -    FreeMem(FAheadLex.FOrigin, FAheadLex.BufferSize);
  -  FAheadLex.FOrigin := Self.Origin;
  -  FAheadLex.FUseSharedOrigin := true;
  -  FAheadLex.Init;
  -  FAheadLex.Next;
  +  FAheadLex.SetSharedOrigin(Self.Origin);
   end;
   
   procedure TmwPasLex.SetLine(const Value: string);
  
positive.code:   if not FUseSharedOrigin then
      FreeMem(FOrigin, BufferSize);
    FUseSharedOrigin := false;
    BufferSize := Length(String(NewValue)) + INCLUDE_BUFFER_SIZE * SizeOf(Char);
    GetMem(FOrigin, BufferSize);
    StrPCopy(FOrigin, NewValue);
    Init;
    Next;
  end;
  
negative.code:     procedure IncludeFile;
      function GetIncludeFileNameFromToken(const IncludeToken: string): string;
      procedure UpdateIncludedLineCount(const IncludedContent: string);
      procedure SetSharedOrigin(SharedValue: PChar);
    protected
      procedure SetLine(const Value: string); virtual;
      procedure SetOrigin(NewValue: PChar); virtual;
  