anchor.diff:      TempRun: Integer;
       EndOfIncludedArea: Integer;
       IncludedLineCount: Integer;
  +    BufferSize: integer;
       FIdentFuncTable: array[0..191] of function: TptTokenKind of object;
       FTokenPos: Integer;
       FLineNumber: Integer;
  
positive.code:   Result.ExID := FExID;
    Result.LineNumber := FLineNumber;
    Result.LinePos := FLinePos;
    Result.Origin := FOrigin;
    Result.RunPos := Run;
    Result.TokenPos := FTokenPos;
    Result.TokenID := FTokenID;
  
negative.code:   FExID := Value.ExID;
    FLineNumber := Value.LineNumber;
    FLinePos := Value.LinePos;
    FOrigin := Value.Origin;   //todo cw: is this important
    Run := Value.RunPos;
    FTokenPos := Value.TokenPos;
    FTokenID := Value.TokenID;
  