anchor.diff:              
           tokenDataOption, lexintFinal
   
  -    static member ColorStateOfLexState (lexState: FSharpTokenizerLexState) = 
  -        let tag,_ncomments,_position,_ifdefStack,_lightSyntaxStatusInital = LexerStateEncoding.decodeLexCont lexState 
  -        tag
  -
  -    static member LexStateOfColorState (colorState: FSharpTokenizerColorState) = 
  -        let ncomments = 0L
  -        let position = pos0 
  -        let ifdefStack = []
  -        let light = true
  -        LexerStateEncoding.encodeLexCont colorState ncomments position ifdefStack light
  +    static member ColorStateOfLexState(lexState: FSharpTokenizerLexState) = 
  +        LexerStateEncoding.colorStateOfLexState lexState
  +
  +    static member LexStateOfColorState(colorState: FSharpTokenizerColorState) = 
  +        LexerStateEncoding.lexStateOfColorState colorState
   
   [<Sealed>]
   type FSharpSourceTokenizer(defineConstants : string list, filename : Option<string>) =     
  
positive.code:                 let mask = 1 <<< bit
                  let ifDef = (if ifdefStack &&& mask = 0 then IfDefIf else IfDefElse)
                  ifDefs<-(ifDef,range0)::ifDefs
          enum<FSharpTokenizerColorState> (int32 ((state &&& lexstateMask)  >>> lexstateStart)),
          (int32) ((state &&& ncommentsMask) >>> ncommentsStart),
          pos.Decode (int32 ((state &&& startPosMask) >>> startPosStart)),
          ifDefs,
  
negative.code:                     ifdefStackBits <- (ifdefStackBits ||| (1 <<< ifdefStackCount))
              ifdefStackCount <- ifdefStackCount + 1
  
          lexStateOfColorState colorState
          ||| ((ncomments <<< ncommentsStart) &&& ncommentsMask)
          ||| ((resize32 b.Encoding <<< startPosStart) &&& startPosMask)
          ||| ((resize32 (bitOfBool light) <<< hardwhitePosStart) &&& hardwhitePosMask)
  