anchor.diff:  
   procedure TmwBasePasLex.InitFrom(ALexer: TmwBasePasLex);
   begin
  -  Origin := ALexer.Origin;
  +  if not FUseSharedOrigin then
  +    FreeMem(FOrigin, BufferSize);
  +
  +  FOrigin := ALexer.Origin;
  +  FUseSharedOrigin := true;
  +  Init;
  +  Next;
     FCommentState := ALexer.FCommentState;
     FLineNumber := ALexer.FLineNumber;
     FLinePos := ALexer.FLinePos;
  
positive.code:   TmwPasLexExpressionEvaluation = (leeNone, leeAnd, leeOr);
  
  const
    INCLUDE_BUFFER_SIZE = 1024*1024;
  
  procedure MakeIdentTable;
  var
  
negative.code: 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;
  