anchor.diff:  begin
     ClearDefines; //If we don't do this, we get a memory leak
     FDefines.Free;
  -  FOrigin := nil;
  +  if not FUseSharedOrigin then
  +    FreeMem(FOrigin);
     inherited Destroy;
   end;
   
  
positive.code:     property OnResourceDirect: TDirectiveEvent read FOnResourceDirect write SetOnResourceDirect;
      property OnUnDefDirect: TDirectiveEvent read FOnUnDefDirect write SetOnUnDefDirect;
      property AsmCode: Boolean read FAsmCode write FAsmCode;
      //property DirectiveParamOrigin: PChar read FDirectiveParamOrigin;
      property UseDefines: Boolean read FUseDefines write FUseDefines;
      property IncludeHandler: IIncludeHandler read FIncludeHandler write FIncludeHandler;
    end;
  
negative.code: constructor TmwBasePasLex.Create;
  begin
    inherited Create;
    GetMem(FOrigin, INCLUDE_BUFFER_SIZE);
    InitIdent;
    MakeMethodTables;
    FExID := ptUnKnown;
  