anchor.diff:    FUseDefines := True;
     FDefines := TStringList.Create;
     FTopDefineRec := nil;
  +  FUseSharedOrigin := false;
     ClearDefines;
   end;
   
  
positive.code: begin
    inherited SetOrigin(NewValue);
    FAheadLex.FOrigin := Self.Origin;
    FAheadLex.Init;
    FAheadLex.Next;
  end;
  
negative.code: constructor TmwBasePasLex.Create;
  begin
    inherited Create;
    GetMem(FOrigin, INCLUDE_BUFFER_SIZE);
    InitIdent;
    MakeMethodTables;
    FExID := ptUnKnown;
  