anchor.diff:  
   procedure TmwBasePasLex.InitFrom(ALexer: TmwBasePasLex);
   begin
  -  if not FUseSharedOrigin then
  -    FreeMem(FOrigin, BufferSize);
  -
  -  FOrigin := ALexer.Origin;
  -  FUseSharedOrigin := true;
  -  Init;
  -  Next;
  +  SetSharedOrigin(ALexer.Origin);
     FCommentState := ALexer.FCommentState;
     FLineNumber := ALexer.FLineNumber;
     FLinePos := ALexer.FLinePos;
  
positive.code:     procedure IncludeFile;
      function GetIncludeFileNameFromToken(const IncludeToken: string): string;
      procedure UpdateIncludedLineCount(const IncludedContent: string);
    protected
      procedure SetLine(const Value: string); virtual;
      procedure SetOrigin(NewValue: PChar); virtual;
  
negative.code: procedure TmwPasLex.SetOrigin(NewValue: PChar);
  begin
    inherited SetOrigin(NewValue);
    FAheadLex.SetSharedOrigin(Self.Origin);
  end;
  
  procedure TmwPasLex.SetLine(const Value: string);
  